Return .true. if the given class of schemes name is available.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character(len=*), | intent(in) | :: | scheme | Selected integrator given. |
Availability result.
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module.
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module.
pure function is_class_available(scheme)
!< Return .true. if the given class of schemes name is available.
character(*), intent(in) :: scheme !< Selected integrator given.
logical :: is_class_available !< Availability result.
character(99), allocatable :: integrator_class_names(:) !< Name of FOODIE integrator classes.
integer(I_P) :: i !< Counter.
integrator_class_names = foodie_integrator_class_names()
is_class_available = .false.
do i=1, size(integrator_class_names, dim=1)
is_class_available = (trim(adjustl(scheme))==trim(adjustl(integrator_class_names(i))))
if (is_class_available) return
enddo
endfunction is_class_available