strf_R8P Function

private elemental function strf_R8P(fm, n) result(str)

Arguments

TypeIntentOptionalAttributesName
character, intent(in) :: fm
real(kind=R8P), intent(in) :: n

Return Value character


Called by

proc~~strf_r8p~6~~CalledByGraph proc~strf_r8p~6 strf_R8P interface~str~6 str interface~str~6->proc~strf_r8p~6 proc~bctoi_i8p~6 bctoi_I8P proc~bctoi_i8p~6->interface~str~6 proc~bctoi_i4p~6 bctoi_I4P proc~bctoi_i4p~6->interface~str~6 proc~bctoi_i2p~6 bctoi_I2P proc~bctoi_i2p~6->interface~str~6 proc~bctoi_i1p~6 bctoi_I1P proc~bctoi_i1p~6->interface~str~6 interface~bcton~6 bcton interface~bcton~6->proc~bctoi_i8p~6 interface~bcton~6->proc~bctoi_i4p~6 interface~bcton~6->proc~bctoi_i2p~6 interface~bcton~6->proc~bctoi_i1p~6

Contents

Source Code


Source Code

   elemental function strf_R8P(fm, n) result(str)
   !< Convert real to string.
   !<
   !<```fortran
   !< use penf
   !< print "(A)", str(fm=FR8P, n=1._R8P)
   !<```
   !=> 0.100000000000000E+001 <<<
   character(*), intent(in) :: fm  !< Format different from the standard for the kind.
   real(R8P),    intent(in) :: n   !< Real to be converted.
   character(DR8P)          :: str !< Returned string containing input number.

   write(str, trim(fm)) n
   endfunction strf_R8P