Return a pretty-formatted description of the grid dimensions.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(grid_dimensions_object), | intent(in) | :: | self | Grid dimensions object. |
||
| character(len=*), | intent(in), | optional | :: | prefix | Prefixing string. |
Description.
pure function description(self, prefix) result(desc)
!< Return a pretty-formatted description of the grid dimensions.
class(grid_dimensions_object), intent(in) :: self !< Grid dimensions object.
character(*), intent(in), optional :: prefix !< Prefixing string.
character(len=:), allocatable :: desc !< Description.
character(len=1), parameter :: NL=new_line('a') !< New line character.
integer(I4P) :: b !< Counter.
desc = ''
if (self%blocks_number > 0) then
do b=1, self%blocks_number - 1
desc = desc//self%block_signature(b)%description(prefix=prefix)//NL//NL
enddo
desc = desc//self%block_signature(self%blocks_number)%description(prefix=prefix)
endif
endfunction description