Convert logical to string.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
logical, | intent(in) | :: | n | Logical to be converted. |
Returned string containing input number plus padding zeros.
elemental function str_bol(n) result(str)
!---------------------------------------------------------------------------------------------------------------------------------
!< Convert logical to string.
!---------------------------------------------------------------------------------------------------------------------------------
logical, intent(in):: n !< Logical to be converted.
character(1):: str !< Returned string containing input number plus padding zeros.
!---------------------------------------------------------------------------------------------------------------------------------
!---------------------------------------------------------------------------------------------------------------------------------
write(str, '(L1)') n
return
!---------------------------------------------------------------------------------------------------------------------------------
endfunction str_bol