input_fragment_destroy Subroutine

private subroutine input_fragment_destroy(this)

Clean up allocated memory in input_fragment_t

Type Bound

input_fragment_t

Arguments

Type	Intent	Optional	Attributes		Name
class(input_fragment_t),	intent(inout)			::	this

Source Code

   subroutine input_fragment_destroy(this)
      !! Clean up allocated memory in input_fragment_t
      class(input_fragment_t), intent(inout) :: this
      if (allocated(this%indices)) deallocate (this%indices)
   end subroutine input_fragment_destroy