detonators_mod Module Reference

Data Types
type	detonator_point_struct_
type	detonator_line_struct_
type	detonator_plane_struct_
type	detonator_wave_shaper_struct_
type	detonator_cord_struct_
type	detonators_struct_

Functions/Subroutines
subroutine	deallocate_detonators (detonators)

Function/Subroutine Documentation

deallocate_detonators()

subroutine detonators_mod::deallocate_detonators

(

type(detonators_struct_), intent(inout)

detonators

)

Definition at line 180 of file detonators_mod.F.

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(DETONATORS_STRUCT_),INTENT(INOUT)::DETONATORS
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER IDET
C-----------------------------------------------
C   S o u r c e   L i n e s
C-----------------------------------------------
      !working arrays for detonation point
      IF(detonators%N_DET_POINT > 0)THEN
        DO idet=1,detonators%N_DET_POINT
          IF(ALLOCATED(detonators%POINT(idet)%NODLIST))DEALLOCATE(detonators%POINT(idet)%NODLIST)
        ENDDO
      ENDIF
 
      !working arrays for detonating cord
      IF(detonators%N_DET_CORD > 0)THEN
        DO idet=1,detonators%N_DET_CORD
          IF(ALLOCATED(detonators%CORD(idet)%NODES))DEALLOCATE(detonators%CORD(idet)%NODES)
          IF(ALLOCATED(detonators%CORD(idet)%TDET_PATH))DEALLOCATE(detonators%CORD(idet)%TDET_PATH)
        ENDDO
      ENDIF
 
      !working arrays for wave shaper
      IF(detonators%N_DET_WAVE_SHAPER > 0)THEN
        DO idet=1,detonators%N_DET_WAVE_SHAPER
          IF(ALLOCATED(detonators%WAVE_SHAPER(idet)%NODES))DEALLOCATE(detonators%WAVE_SHAPER(idet)%NODES)
          IF(ALLOCATED(detonators%WAVE_SHAPER(idet)%TIME))DEALLOCATE(detonators%WAVE_SHAPER(idet)%TIME)
          IF(ALLOCATED(detonators%WAVE_SHAPER(idet)%FLAG))DEALLOCATE(detonators%WAVE_SHAPER(idet)%FLAG)
          IF(ALLOCATED(detonators%WAVE_SHAPER(idet)%IORDR))DEALLOCATE(detonators%WAVE_SHAPER(idet)%IORDR)
        ENDDO
      ENDIF
 
      !general data structure
      IF(ALLOCATED(detonators%POINT)) DEALLOCATE(detonators%POINT)
      IF(ALLOCATED(detonators%PLANE)) DEALLOCATE(detonators%PLANE)
      IF(ALLOCATED(detonators%LINE))  DEALLOCATE(detonators%LINE)
      IF(ALLOCATED(detonators%CORD))  DEALLOCATE(detonators%CORD)
      IF(ALLOCATED(detonators%WAVE_SHAPER)) DEALLOCATE(detonators%WAVE_SHAPER)