bief_deallvec.f

Go to the documentation of this file.

!                   ************************
                    SUBROUTINE bief_deallvec
!                   ************************
!
     &(vec)
!
!***********************************************************************
! BIEF   V7P2
!***********************************************************************
!
!brief    DEALLOCATES MEMORY FOR A VECTOR STRUCTURE.
!
!history  Y AUDOUIN (LNHE)
!+        23/05/2013
!+        V7P1
!+    First version
!
!history  J-M HERVOUET (EDF LAB, LNHE)
!+        21/01/2016
!+        V7P2
!+    Adding VEC%NAT=3, combining double precision and integers.
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| VEC            |<--| VECTOR TO BE DEALLOCATED
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE bief
!
      USE declarations_special
      IMPLICIT NONE
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      TYPE(bief_obj)  , INTENT(INOUT) :: VEC
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      IF(vec%NAT.EQ.1) THEN
        IF(ASSOCIATED(vec%R)) DEALLOCATE(vec%R)
      ELSEIF(vec%NAT.EQ.2) THEN
        IF(ASSOCIATED(vec%I)) DEALLOCATE(vec%I)
      ELSEIF(vec%NAT.EQ.3) THEN
        IF(ASSOCIATED(vec%R)) DEALLOCATE(vec%R)
        IF(ASSOCIATED(vec%I)) DEALLOCATE(vec%I)
      ELSE
        WRITE(lu,*) 'UNKNOWN NAT IN BIEF_DEALLVEC FOR :', vec%NAME
        CALL plante(1)
        stop
      ENDIF
      NULLIFY(vec%R)
      NULLIFY(vec%I)
!
!-----------------------------------------------------------------------
!
      RETURN
      END SUBROUTINE bief_deallvec