tracer_destroy Subroutine

private subroutine tracer_destroy(this)

Type Bound

tracer_t

Arguments

Type IntentOptional Attributes Name
class(tracer_t), intent(inout) :: this

Called by

proc~~tracer_destroy~~CalledByGraph proc~tracer_destroy tracer_t%tracer_destroy proc~multilayer_state_destroy multilayer_state_t%multilayer_state_destroy proc~multilayer_state_destroy->proc~tracer_destroy

Source Code

   subroutine tracer_destroy(this)
      class(tracer_t), intent(inout) :: this

      if (allocated(this%hTr)) deallocate (this%hTr)
      if (allocated(this%hTr0)) deallocate (this%hTr0)
   end subroutine tracer_destroy