bief_deallspec.f

Go to the documentation of this file.

!                   *************************
                    SUBROUTINE bief_deallspec
!                   *************************
!
     &(spec,nspe)
!
!***********************************************************************
! BIEF   V8P0
!***********************************************************************
!
!brief    DEALLOCATES MEMORY FOR A SPECTRAL DATA STRUCTURE : SPEC.
!
!history  N.DURAND (HRW)
!+        14/01/19
!+
!+   Original
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| SPEC           |<->| STRUCTURE TO BE DEALLOCATED
!| NSPE           |<--| NUMBER OF TOMAWAC SPECTRA IN FILE
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE bief_def
      IMPLICIT NONE
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      TYPE(spectrum)   , INTENT(INOUT)        :: SPEC
      INTEGER NSPE
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      INTEGER I
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      DO i=1,nspe
        DEALLOCATE(spec%ADR(i)%SOUTER)
        NULLIFY(spec%ADR(i)%SOUTER)
      ENDDO
      DEALLOCATE(spec%ADR)
      NULLIFY(spec%ADR)
!
!-----------------------------------------------------------------------
!
      DEALLOCATE(spec%NOUTER)
      NULLIFY(spec%NOUTER)
      DEALLOCATE(spec%XOUTER)
      NULLIFY(spec%XOUTER)
      DEALLOCATE(spec%YOUTER)
      NULLIFY(spec%YOUTER)
!
!-----------------------------------------------------------------------
!
      DEALLOCATE(spec%DIR)
      NULLIFY(spec%DIR)
      DEALLOCATE(spec%FRE)
      NULLIFY(spec%FRE)
!
!-----------------------------------------------------------------------
!
      RETURN
      END