Return a pretty-formatted description of the block signature.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(block_signature_object), | intent(in) | :: | self | Block signature object. |
||
| character(len=*), | intent(in), | optional | :: | prefix | Prefixing string. |
Description.
pure function description(self, prefix) result(desc)
!< Return a pretty-formatted description of the block signature.
class(block_signature_object), intent(in) :: self !< Block signature object.
character(*), intent(in), optional :: prefix !< Prefixing string.
character(len=:), allocatable :: desc !< Description.
character(len=:), allocatable :: prefix_ !< Prefixing string, local variable.
character(len=1), parameter :: NL=new_line('a') !< New line character.
prefix_ = '' ; if (present(prefix)) prefix_ = prefix
desc = ''
desc = desc//prefix_//'id : '//trim(str(self%id, no_sign=.true.))//NL
desc = desc//prefix_//'level : '//trim(str(self%level, no_sign=.true.))//NL
desc = desc//prefix_//'gc : '//trim(str(self%gc, no_sign=.true.))//NL
desc = desc//prefix_//'ni : '//trim(str(self%ni, no_sign=.true.))//NL
desc = desc//prefix_//'nj : '//trim(str(self%nj, no_sign=.true.))//NL
desc = desc//prefix_//'nk : '//trim(str(self%nk, no_sign=.true.))//NL
desc = desc//prefix_//'emin : '//trim(str([self%emin%x, self%emin%y, self%emin%z] ))//NL
desc = desc//prefix_//'emax : '//trim(str([self%emax%x, self%emax%y, self%emax%z] ))//NL
desc = desc//prefix_//'is cartesian : '//trim(str(self%is_cartesian ))//NL
desc = desc//prefix_//'is null X : '//trim(str(self%is_null_x ))//NL
desc = desc//prefix_//'is null Y : '//trim(str(self%is_null_y ))//NL
desc = desc//prefix_//'is null Z : '//trim(str(self%is_null_z ))
endfunction description