str_bol Function

  1. penf_stringify.F90
  2. penf_stringify
  3. str_bol

private elemental function str_bol(n) result(str)

Arguments

TypeIntentOptionalAttributesName
logical, intent(in) :: n

Return Value character(len=1)


Called by

proc~~str_bol~4~~CalledByGraph proc~str_bol~4 str_bol interface~str~4 str interface~str~4->proc~str_bol~4 proc~bctoi_i8p~4 bctoi_I8P proc~bctoi_i8p~4->interface~str~4 proc~bctoi_i4p~4 bctoi_I4P proc~bctoi_i4p~4->interface~str~4 proc~bctoi_i2p~4 bctoi_I2P proc~bctoi_i2p~4->interface~str~4 proc~bctoi_i1p~4 bctoi_I1P proc~bctoi_i1p~4->interface~str~4 interface~bcton~4 bcton interface~bcton~4->proc~bctoi_i8p~4 interface~bcton~4->proc~bctoi_i4p~4 interface~bcton~4->proc~bctoi_i2p~4 interface~bcton~4->proc~bctoi_i1p~4

Contents

Source Code

str_bol

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