Destroy the integrator.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(integrator_runge_kutta_lssp), | intent(inout) | :: | self | Integrator. |
elemental subroutine destroy(self)
!< Destroy the integrator.
class(integrator_runge_kutta_lssp), intent(inout) :: self !< Integrator.
call self%destroy_multistage
if (allocated(self%alpha)) deallocate(self%alpha)
self%integrate_ => integrate_order_s_1
endsubroutine destroy