str_bol Function

private elemental function str_bol(n) result(str)

Convert logical to string.

 use penf
 print "(A)", str(n=.true.)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(in)			::	n	Logical to be converted.

Return Value character(len=1)

Returned string containing input number plus padding zeros.

Called by

Help

Source Code

   elemental function str_bol(n) result(str)
   !< Convert logical to string.
   !<
   !<```fortran
   !< use penf
   !< print "(A)", str(n=.true.)
   !<```
   !=> T <<<
   logical, intent(in):: n   !< Logical to be converted.
   character(1)::        str !< Returned string containing input number plus padding zeros.

   write(str, '(L1)') n
   endfunction str_bol