inverted_group_dealloc.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	inverted_group_dealloc (inv_group)

Function/Subroutine Documentation

inverted_group_dealloc()

subroutine inverted_group_dealloc

(

type(invertgroup_struct_)

inv_group

)

Definition at line 30 of file inverted_group_dealloc.F.

!$COMMENT
!       INVERTED_GROUP_DEALLOC description
!       deallocation of the different arrays of inv_group structure
!       
!       INVERTED_GROUP_DEALLOC organization :
!           none
!$ENDCOMMENT
C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------  
      USE inverted_group_mod
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
        TYPE(INVERTGROUP_STRUCT_) :: INV_GROUP
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
 
!   ----------------------------------------
        IF(inv_group%ALREADY_ALLOC) THEN
 
            DEALLOCATE( inv_group%INDPARTS )
            DEALLOCATE( inv_group%INDPARTQ )
            DEALLOCATE( inv_group%INDPARTC )
            DEALLOCATE( inv_group%INDPARTT )
            DEALLOCATE( inv_group%INDPARTP )
            DEALLOCATE( inv_group%INDPARTTG )
            DEALLOCATE( inv_group%INDPARTTRIA )
            DEALLOCATE( inv_group%INDPARTR )
            DEALLOCATE( inv_group%INDPARTSPH )
 
            DEALLOCATE( inv_group%PARTS )
            DEALLOCATE( inv_group%PARTQ )
            DEALLOCATE( inv_group%PARTT )
            DEALLOCATE( inv_group%PARTP )
            DEALLOCATE( inv_group%PARTTG )
            DEALLOCATE( inv_group%PARTTRIA )
            DEALLOCATE( inv_group%PARTR )
            DEALLOCATE( inv_group%PARTSPH )
        ENDIF   
!   ---------------------------------------- 
 
        RETURN