String Conversions

Number → String: str()

str() converts any scalar or 1D array to a trimmed string. Kind is inferred automatically from the argument.

Scalars

use penf

print "(A)", str(n=-1._R16P)   ! -0.100000000000000000000000000000000E+0001
print "(A)", str(n=-1._R8P)    ! -0.100000000000000E+001
print "(A)", str(n=-1._R4P)    ! -0.100000E+01

print "(A)", str(n=-1_I8P)     ! -1
print "(A)", str(n=-1_I4P)     ! -1
print "(A)", str(n=-1_I2P)     ! -1
print "(A)", str(n=-1_I1P)     ! -1

Explicit format

Pass a format string directly when you need full-width output:

use penf

print "(A)", str(fm=FI8P, n=1_I8P)   !                    1
print "(A)", str(fm=FI4P, n=1_I4P)   !           1
print "(A)", str(fm=FI1P, n=1_I1P)   !    1

Drop the sign

use penf

print "(A)", str(n=-1._R8P, no_sign=.true.)   ! 0.100000000000000E+001
print "(A)", str(n=-1_I4P,  no_sign=.true.)   ! 1

Arrays with delimiters

use penf

print "(A)", str(n=[1._R8P, -2._R8P], delimiters=['(', ')'])
! (+0.100000000000000E+001,-0.200000000000000E+001)

print "(A)", str(n=[1._R4P, -2._R4P], delimiters=['(', ')'])
! (+0.100000E+01,-0.200000E+01)

---

Zero-padded integers: strz()

strz() formats an integer with leading zeros, useful for file-name generation and indices.

use penf

print "(A)", strz(n=1_I8P)            ! 0000000000000000001  (19 digits)
print "(A)", strz(n=1_I4P)            ! 0000000001           (10 digits)
print "(A)", strz(n=1_I8P, nz_pad=5)  ! 00001                (custom width)

Tip: Use strz to build zero-padded filenames in loops:

filename = 'output_'//strz(n=step_I4P, nz_pad=6)//'.dat'
! → output_000042.dat

---

String → Number: cton()

cton() parses a string into a number of the requested kind (passed as a dummy knd argument):

use penf

print FR16P, cton(str='-1.0', knd=1._R16P)   ! -0.100000000000000000000000000000000E+0001
print FR8P,  cton(str='-1.0', knd=1._R8P)    ! -0.100000000000000E+001
print FR4P,  cton(str='-1.0', knd=1._R4P)    ! -0.100000E+01

print FI8P, cton(str='-1', knd=1_I8P)        !                   -1
print FI4P, cton(str='-1', knd=1_I4P)        !          -1
print FI2P, cton(str='-1', knd=1_I2P)        !    -1

Tip: The knd argument is only used to select the right overload — its value is irrelevant. Use 1._R8P, 0_I4P, etc.

---

Binary string representation: bstr() / bcton()

bstr() returns the raw IEEE bit pattern of a number as a string of 0/1 characters:

use penf

print "(A)", bstr(n=1._R8P)
! 0000000000000000000000000000000000000000000000001111000000111111

print "(A)", bstr(n=1._R4P)
! 00000000000000001000000000111111

print "(A)", bstr(n=1_I4P)
! 00000000000000000000000000000001

Round-trip back to a number with bcton():

use penf

real(R8P) :: x
x = bcton(bstr(n=1._R8P), knd=1._R8P)
print FR8P, x   ! 0.100000000000000E+001