bief_deallobj.f

Go to the documentation of this file.

!                   ************************
                    SUBROUTINE bief_deallobj
!                   ************************
!
     &(obj)
!
!***********************************************************************
! BIEF   V7P1
!***********************************************************************
!
!brief    DEALLOCATES MEMORY FOR A BIEF_OBJ STRUCTURE.
!
!history  Y AUDOUIN (LNHE)
!+        25/05/2013
!+        V7P1
!+
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| OBJ            |<->| THE OBJECT TO BE DEALLOCATED
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE bief, ex_bief_deallobj => bief_deallobj
!
      USE declarations_special
      IMPLICIT NONE
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      TYPE(bief_obj)  , INTENT(INOUT) :: OBJ
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      ! VECTOR
      IF(obj%TYPE.EQ.2) THEN
        CALL bief_deallvec(obj)
      ! MATRICE
      ELSEIF(obj%TYPE.EQ.3) THEN
        CALL bief_deallmat(obj)
      ! BLOCK
      ELSEIF(obj%TYPE.EQ.4) THEN
        CALL deallblo(obj)
      ELSE
        WRITE(lu,*) 'UNKNOWN BIEF_OBJ TYPE'
        WRITE(lu,*) 'FOR OBJECT NAMED: ',obj%NAME
        WRITE(lu,*) 'OF TYPE: ',obj%TYPE
        CALL plante(1)
        stop
      ENDIF
!
!-----------------------------------------------------------------------
!
      RETURN
      END