deallocate_joint.F File Reference

#include "implicit_f.inc"
#include "com04_c.inc"
#include "com01_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	deallocate_joint ()

Function/Subroutine Documentation

deallocate_joint()

subroutine deallocate_joint

Definition at line 30 of file deallocate_joint.F.

!$COMMENT
!       DEALLOCATE_JOINT description
!       deallocation of the joint structure 
!       
!       DEALLOCATE_JOINT organization :
!$ENDCOMMENT
C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------     
            USE joint_mod
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "com04_c.inc"
#include      "com01_c.inc"
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
        INTEGER N,I
C
        !   ----------------------
        DO n=1,njoint     
            IF(ALLOCATED(cyl_join(n)%NB_NODE)) DEALLOCATE(cyl_join(n)%NB_NODE)
            IF(ALLOCATED(cyl_join(n)%MAIN_NODE)) DEALLOCATE(cyl_join(n)%MAIN_NODE)
            IF(ALLOCATED(cyl_join(n)%LIST_PROC)) DEALLOCATE(cyl_join(n)%LIST_PROC)
            DO i=1,nspmd
                IF(ALLOCATED(cyl_join(n)%PROC(i)%NODE)) DEALLOCATE(cyl_join(n)%PROC(i)%NODE)
            ENDDO
            IF(ALLOCATED(cyl_join(n)%PROC)) DEALLOCATE(cyl_join(n)%PROC)
            IF(ALLOCATED(cyl_join(n)%SECONDARY_NODE)) DEALLOCATE(cyl_join(n)%SECONDARY_NODE)
        ENDDO
        !   ----------------------
        IF( ALLOCATED(cyl_join) ) DEALLOCATE(cyl_join)
C
        RETURN