Deallocate PFASST object destroy all levels deallocate pfasst pointer arrays
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(pf_pfasst_t), | intent(inout) | :: | pf | Main pfasst structure |
subroutine pf_pfasst_destroy(pf)
type(pf_pfasst_t), intent(inout) :: pf !! Main pfasst structure
integer :: l
!> destroy all levels
do l = 1, pf%nlevels
call pf_level_destroy(pf%levels(l),pf%nlevels)
end do
!> deallocate pfasst pointer arrays
call pf%results%destroy(pf%results)
deallocate(pf%levels)
deallocate(pf%hooks)
deallocate(pf%nhooks)
deallocate(pf%state)
call pf_mpi_destroy(pf%comm)
end subroutine pf_pfasst_destroy