Return .true. if the integrator class support the given scheme.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(integrator_adams_bashforth), | intent(in) | :: | self | Integrator. |
||
character(len=*), | intent(in) | :: | scheme | Selected scheme. |
Inquire result.
elemental function is_supported(self, scheme)
!< Return .true. if the integrator class support the given scheme.
class(integrator_adams_bashforth), intent(in) :: self !< Integrator.
character(*), intent(in) :: scheme !< Selected scheme.
logical :: is_supported !< Inquire result.
integer(I_P) :: s !< Counter.
is_supported = .false.
do s=lbound(supported_schemes_, dim=1), ubound(supported_schemes_, dim=1)
if (trim(adjustl(scheme)) == trim(adjustl(supported_schemes_(s)))) then
is_supported = .true.
return
endif
enddo
endfunction is_supported