Destroy the integrator.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(integrator_ms_runge_kutta_ssp), | intent(inout) | :: | self | Integrator. |
elemental subroutine destroy(self)
!< Destroy the integrator.
class(integrator_ms_runge_kutta_ssp), intent(inout) :: self !< Integrator.
call self%destroy_multistage_multistep
if (allocated(self%A )) deallocate(self%A )
if (allocated(self%Ahat)) deallocate(self%Ahat)
if (allocated(self%B )) deallocate(self%B )
if (allocated(self%Bhat)) deallocate(self%Bhat)
if (allocated(self%D )) deallocate(self%D )
if (allocated(self%Q )) deallocate(self%Q )
endsubroutine destroy