Destroy the integrator.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(integrator_back_df), | intent(inout) | :: | self | Integrator. |
elemental subroutine destroy(self)
!< Destroy the integrator.
class(integrator_back_df), intent(inout) :: self !< Integrator.
call self%destroy_multistep
if (allocated(self%a)) deallocate(self%a)
self%b = 0.0_R_P
endsubroutine destroy