bief_deallmat.f

Go to the documentation of this file.

!                   ************************
                    SUBROUTINE bief_deallmat
!                   ************************
!
     &(mat)
!
!***********************************************************************
! BIEF   V7P1
!***********************************************************************
!
!brief    DEALLOCATES MEMORY FOR A REAL MATRIX STRUCTURE.
!
!history  Y AUDOUIN (LNHE)
!+        25/05/2013
!+        V7P1
!+
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| MAT            |<->| THE MATRIX TO BE DEALLOCATED
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE bief
!
      USE declarations_special
      IMPLICIT NONE
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      TYPE(bief_obj)  , INTENT(INOUT) :: MAT
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      CALL bief_deallvec(mat%D)
      DEALLOCATE(mat%D)
      NULLIFY(mat%D)
      CALL bief_deallvec(mat%X)
      DEALLOCATE(mat%X)
      NULLIFY(mat%X)
!
!-----------------------------------------------------------------------
!
      RETURN
      END