destroy_provenance Subroutine

  1. m_psml_core.F90
  2. m_psml_core
  3. destroy_provenance

private subroutine destroy_provenance(p)

Arguments

Type IntentOptional AttributesName
type(provenance_t), pointer:: p

Contents

Source Code

destroy_provenance

Source Code

subroutine destroy_provenance(p)
type(provenance_t), pointer :: p

type(provenance_t), pointer :: q

do while (associated(p))
   call ps_clean_annotation(p%annotation)
   ! clean buffers for input files?
   q => p%next
   deallocate(p)
   p => q
enddo

end subroutine destroy_provenance