Return informative integrator description.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(integrator_object), | intent(in) | :: | self | Integrator. |
||
character(len=*), | intent(in), | optional | :: | prefix | Prefixing string. |
Description.
pure function description(self, prefix) result(desc)
!< Return informative integrator description.
class(integrator_object), intent(in) :: self !< Integrator.
character(*), intent(in), optional :: prefix !< Prefixing string.
character(len=:), allocatable :: desc !< Description.
character(len=:), allocatable :: prefix_ !< Prefixing string, local variable.
prefix_ = '' ; if (present(prefix)) prefix_ = prefix
if (allocated(self%description_)) then
desc = prefix//self%description_
else
desc = prefix//self%class_name()
endif
endfunction description