dealloc_shoot_inter.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	dealloc_shoot_inter (shoot_struct)

Function/Subroutine Documentation

dealloc_shoot_inter()

subroutine dealloc_shoot_inter

(

type(shooting_node_type), intent(inout)

shoot_struct

)

Definition at line 30 of file dealloc_shoot_inter.F.

!$COMMENT
!       DEALLOC_SHOOT_INTER description
!           deallocation of SHOOT_STRUCT%array
!       DEALLOC_SHOOT_INTER organization
!$ENDCOMMENT
        USE shooting_node_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(shooting_node_type), INTENT(inout) :: SHOOT_STRUCT ! structure for shooting node algo  
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
        IF(ALLOCATED(shoot_struct%SAVE_SURFACE) )DEALLOCATE( shoot_struct%SAVE_SURFACE )
        IF(ALLOCATED(shoot_struct%SAVE_PROC) )DEALLOCATE( shoot_struct%SAVE_PROC )
 
        IF(ALLOCATED(shoot_struct%SAVE_M_EDGE) )DEALLOCATE( shoot_struct%SAVE_M_EDGE )
        IF(ALLOCATED(shoot_struct%SAVE_S_EDGE) )DEALLOCATE( shoot_struct%SAVE_S_EDGE )
        IF(ALLOCATED(shoot_struct%SAVE_PROC_EDGE) )DEALLOCATE( shoot_struct%SAVE_PROC_EDGE)
 
        IF(ALLOCATED(shoot_struct%GLOBAL_ELEM_INDEX) ) DEALLOCATE(shoot_struct%GLOBAL_ELEM_INDEX)
        shoot_struct%NUMBER_REMOTE_SURF = 0
        shoot_struct%SIZE_REMOTE_SURF = 0
        IF(ALLOCATED(shoot_struct%REMOTE_SURF)) DEALLOCATE(shoot_struct%REMOTE_SURF)
        ALLOCATE( shoot_struct%REMOTE_SURF(shoot_struct%SIZE_REMOTE_SURF) )
 
        shoot_struct%NUMBER_NEW_SURF = 0
        shoot_struct%SIZE_NEW_SURF = 0
        IF(ALLOCATED(shoot_struct%NEW_SURF)) DEALLOCATE(shoot_struct%NEW_SURF)
        ALLOCATE( shoot_struct%NEW_SURF(shoot_struct%SIZE_NEW_SURF) )
 
        RETURN