encounter_final_snapshot Subroutine

  1. encounter_module.f90
  2. encounter
  3. encounter_final_snapshot

public subroutine encounter_final_snapshot(self)

Deallocates allocatable arrays in an encounter snapshot

Arguments

TypeIntentOptionalAttributesName
type(encounter_snapshot), intent(inout) :: self

Encounter storage object

Contents

Source Code

encounter_final_snapshot

Source Code

      subroutine encounter_final_snapshot(self)
         !! author: David A. Minton
         !!
         !! Deallocates allocatable arrays in an encounter snapshot
         implicit none
         ! Arguments
         type(encounter_snapshot),  intent(inout) :: self 
         !! Encounter storage object

         if (allocated(self%pl)) deallocate(self%pl)
         if (allocated(self%tp)) deallocate(self%tp)
         self%t = 0.0_DP

         return
      end subroutine encounter_final_snapshot