penf_stringify

PENF string-to-number (and viceversa) facility.

Used By

Interfaces

str strz cton bstr bcton

Functions

strf_R16P strf_R8P strf_R4P strf_I8P strf_I4P strf_I2P strf_I1P str_R16P str_R8P str_R4P str_I8P str_I4P str_I2P str_I1P str_bol str_a_R16P str_a_R8P str_a_R4P str_a_I8P str_a_I4P str_a_I2P str_a_I1P strz_I8P strz_I4P strz_I2P strz_I1P ctor_R16P ctor_R8P ctor_R4P ctoi_I8P ctoi_I4P ctoi_I2P ctoi_I1P bstr_R16P bstr_R8P bstr_R4P bstr_I8P bstr_I4P bstr_I2P bstr_I1P bctor_R16P bctor_R8P bctor_R4P bctoi_I8P bctoi_I4P bctoi_I2P bctoi_I1P

Subroutines

compact_real_string

Interfaces

public interface str

Convert number (real and integer) to string (number to string type casting).

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

Convert real to string.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	fm	Format different from the standard for the kind.
real(kind=R8P),	intent(in)			::	n	Real to be converted.

Return Value character(len=DR8P)

Returned string containing input number.

private elemental function str_R8P(n, no_sign, compact) result(str)

Convert real to string.

Arguments

Type	Intent	Optional		Name
real(kind=R8P),	intent(in)		::	n	Real to be converted.
logical,	intent(in),	optional	::	no_sign	Flag for leaving out the sign.
logical,	intent(in),	optional	::	compact	Flag for compacting string encoding.

Return Value character(len=DR8P)

Returned string containing input number.

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

Convert real to string.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	fm	Format different from the standard for the kind.
real(kind=R4P),	intent(in)			::	n	Real to be converted.

Return Value character(len=DR4P)

Returned string containing input number.

private elemental function str_R4P(n, no_sign, compact) result(str)

Convert real to string.

Arguments

Type	Intent	Optional		Name
real(kind=R4P),	intent(in)		::	n	Real to be converted.
logical,	intent(in),	optional	::	no_sign	Flag for leaving out the sign.
logical,	intent(in),	optional	::	compact	Flag for compacting string encoding.

Return Value character(len=DR4P)

Returned string containing input number.

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

Convert integer to string.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	fm	Format different from the standard for the kind.
integer(kind=I8P),	intent(in)			::	n	Integer to be converted.

Return Value character(len=DI8P)

Returned string containing input number.

private elemental function str_I8P(n, no_sign) result(str)

Convert integer to string.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=I8P),	intent(in)			::	n	Integer to be converted.
logical,	intent(in),	optional		::	no_sign	Flag for leaving out the sign.

Return Value character(len=DI8P)

Returned string containing input number plus padding zeros.

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

Convert integer to string.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	fm	Format different from the standard for the kind.
integer(kind=I4P),	intent(in)			::	n	Integer to be converted.

Return Value character(len=DI4P)

Returned string containing input number.

private elemental function str_I4P(n, no_sign) result(str)

Converting integer to string.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=I4P),	intent(in)			::	n	Integer to be converted.
logical,	intent(in),	optional		::	no_sign	Flag for leaving out the sign.

Return Value character(len=DI4P)

Returned string containing input number plus padding zeros.

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

Convert integer to string.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	fm	Format different from the standard for the kind.
integer(kind=I2P),	intent(in)			::	n	Integer to be converted.

Return Value character(len=DI2P)

Returned string containing input number.

private elemental function str_I2P(n, no_sign) result(str)

Convert integer to string.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=I2P),	intent(in)			::	n	Integer to be converted.
logical,	intent(in),	optional		::	no_sign	Flag for leaving out the sign.

Return Value character(len=DI2P)

Returned string containing input number plus padding zeros.

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

Convert integer to string.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	fm	Format different from the standard for the kind.
integer(kind=I1P),	intent(in)			::	n	Integer to be converted.

Return Value character(len=DI1P)

Returned string containing input number.

private elemental function str_I1P(n, no_sign) result(str)

Convert integer to string.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=I1P),	intent(in)			::	n	Integer to be converted.
logical,	intent(in),	optional		::	no_sign	Flag for leaving out the sign.

Return Value character(len=DI1P)

Returned string containing input number plus padding zeros.

private elemental function str_bol(n) result(str)

Convert logical to string.

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.

private pure function str_a_R8P(n, no_sign, separator, delimiters, compact) result(str)

Convert real array to string.

Arguments

Type	Intent	Optional		Name
real(kind=R8P),	intent(in)		::	n(:)	Real array to be converted.
logical,	intent(in),	optional	::	no_sign	Flag for leaving out the sign.
character(len=1),	intent(in),	optional	::	separator	Eventual separator of array values.
character(len=*),	intent(in),	optional	::	delimiters(1:2)	Eventual delimiters of array values.
logical,	intent(in),	optional	::	compact	Flag for compacting string encoding.

Return Value character(len=:), allocatable

Returned string containing input number.

private pure function str_a_R4P(n, no_sign, separator, delimiters, compact) result(str)

Convert real array to string.

Arguments

Type	Intent	Optional		Name
real(kind=R4P),	intent(in)		::	n(:)	Real array to be converted.
logical,	intent(in),	optional	::	no_sign	Flag for leaving out the sign.
character(len=1),	intent(in),	optional	::	separator	Eventual separator of array values.
character(len=*),	intent(in),	optional	::	delimiters(1:2)	Eventual delimiters of array values.
logical,	intent(in),	optional	::	compact	Flag for compacting string encoding.

Return Value character(len=:), allocatable

Returned string containing input number.

private pure function str_a_I8P(n, no_sign, separator, delimiters) result(str)

Convert integer array to string.

Arguments

Type	Intent	Optional		Name
integer(kind=I8P),	intent(in)		::	n(:)	Integer array to be converted.
logical,	intent(in),	optional	::	no_sign	Flag for leaving out the sign.
character(len=1),	intent(in),	optional	::	separator	Eventual separator of array values.
character(len=*),	intent(in),	optional	::	delimiters(1:2)	Eventual delimiters of array values.

Return Value character(len=:), allocatable

Returned string containing input number.

private pure function str_a_I4P(n, no_sign, separator, delimiters) result(str)

Convert integer array to string.

Arguments

Type	Intent	Optional		Name
integer(kind=I4P),	intent(in)		::	n(:)	Integer array to be converted.
logical,	intent(in),	optional	::	no_sign	Flag for leaving out the sign.
character(len=1),	intent(in),	optional	::	separator	Eventual separator of array values.
character(len=*),	intent(in),	optional	::	delimiters(1:2)	Eventual delimiters of array values.

Return Value character(len=:), allocatable

Returned string containing input number.

private pure function str_a_I2P(n, no_sign, separator, delimiters) result(str)

Convert integer array to string.

Arguments

Type	Intent	Optional		Name
integer(kind=I2P),	intent(in)		::	n(:)	Integer array to be converted.
logical,	intent(in),	optional	::	no_sign	Flag for leaving out the sign.
character(len=1),	intent(in),	optional	::	separator	Eventual separator of array values.
character(len=*),	intent(in),	optional	::	delimiters(1:2)	Eventual delimiters of array values.

Return Value character(len=:), allocatable

Returned string containing input number.

private pure function str_a_I1P(n, no_sign, separator, delimiters) result(str)

Convert integer array to string.

Arguments

Type	Intent	Optional		Name
integer(kind=I1P),	intent(in)		::	n(:)	Integer array to be converted.
logical,	intent(in),	optional	::	no_sign	Flag for leaving out the sign.
character(len=1),	intent(in),	optional	::	separator	Eventual separator of array values.
character(len=*),	intent(in),	optional	::	delimiters(1:2)	Eventual delimiters of array values.

Return Value character(len=:), allocatable

Returned string containing input number.

public interface strz

Convert integer, to string, prefixing with the right number of zeros (integer to string type casting with zero padding).

private elemental function strz_I8P(n, nz_pad) result(str)

Converting integer to string, prefixing with the right number of zeros.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=I8P),	intent(in)			::	n	Integer to be converted.
integer(kind=I4P),	intent(in),	optional		::	nz_pad	Number of zeros padding.

Return Value character(len=DI8P)

Returned string containing input number plus padding zeros.

private elemental function strz_I4P(n, nz_pad) result(str)

Convert integer to string, prefixing with the right number of zeros.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=I4P),	intent(in)			::	n	Integer to be converted.
integer(kind=I4P),	intent(in),	optional		::	nz_pad	Number of zeros padding.

Return Value character(len=DI4P)

Returned string containing input number plus padding zeros.

private elemental function strz_I2P(n, nz_pad) result(str)

Convert integer to string, prefixing with the right number of zeros.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=I2P),	intent(in)			::	n	Integer to be converted.
integer(kind=I4P),	intent(in),	optional		::	nz_pad	Number of zeros padding.

Return Value character(len=DI2P)

Returned string containing input number plus padding zeros.

private elemental function strz_I1P(n, nz_pad) result(str)

Convert integer to string, prefixing with the right number of zeros.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=I1P),	intent(in)			::	n	Integer to be converted.
integer(kind=I4P),	intent(in),	optional		::	nz_pad	Number of zeros padding.

Return Value character(len=DI1P)

Returned string containing input number plus padding zeros.

public interface cton

Convert string to number (real and integer, string to number type casting).

private function ctor_R8P(str, knd, pref, error) result(n)

Convert string to real.

Arguments

Type	Intent	Optional		Name
character(len=*),	intent(in)		::	str	String containing input number.
real(kind=R8P),	intent(in)		::	knd	Number kind.
character(len=*),	intent(in),	optional	::	pref	Prefixing string.
integer(kind=I4P),	intent(out),	optional	::	error	Error trapping flag: 0 no errors, >0 error occurs.

Return Value real(kind=R8P)

Number returned.

private function ctor_R4P(str, knd, pref, error) result(n)

Convert string to real.

Arguments

Type	Intent	Optional		Name
character(len=*),	intent(in)		::	str	String containing input number.
real(kind=R4P),	intent(in)		::	knd	Number kind.
character(len=*),	intent(in),	optional	::	pref	Prefixing string.
integer(kind=I4P),	intent(out),	optional	::	error	Error trapping flag: 0 no errors, >0 error occurs.

Return Value real(kind=R4P)

Number returned.

private function ctoi_I8P(str, knd, pref, error) result(n)

Convert string to integer.

Arguments

Type	Intent	Optional		Name
character(len=*),	intent(in)		::	str	String containing input number.
integer(kind=I8P),	intent(in)		::	knd	Number kind.
character(len=*),	intent(in),	optional	::	pref	Prefixing string.
integer(kind=I4P),	intent(out),	optional	::	error	Error trapping flag: 0 no errors, >0 error occurs.

Return Value integer(kind=I8P)

Number returned.

private function ctoi_I4P(str, knd, pref, error) result(n)

Convert string to integer.

Arguments

Type	Intent	Optional		Name
character(len=*),	intent(in)		::	str	String containing input number.
integer(kind=I4P),	intent(in)		::	knd	Number kind.
character(len=*),	intent(in),	optional	::	pref	Prefixing string.
integer(kind=I4P),	intent(out),	optional	::	error	Error trapping flag: 0 no errors, >0 error occurs.

Return Value integer(kind=I4P)

Number returned.

private function ctoi_I2P(str, knd, pref, error) result(n)

Convert string to integer.

Arguments

Type	Intent	Optional		Name
character(len=*),	intent(in)		::	str	String containing input number.
integer(kind=I2P),	intent(in)		::	knd	Number kind.
character(len=*),	intent(in),	optional	::	pref	Prefixing string.
integer(kind=I4P),	intent(out),	optional	::	error	Error trapping flag: 0 no errors, >0 error occurs.

Return Value integer(kind=I2P)

Number returned.

private function ctoi_I1P(str, knd, pref, error) result(n)

Convert string to integer.

Arguments

Type	Intent	Optional		Name
character(len=*),	intent(in)		::	str	String containing input number.
integer(kind=I1P),	intent(in)		::	knd	Number kind.
character(len=*),	intent(in),	optional	::	pref	Prefixing string.
integer(kind=I4P),	intent(out),	optional	::	error	Error trapping flag: 0 no errors, >0 error occurs.

Return Value integer(kind=I1P)

Number returned.

public interface bstr

Convert number (real and integer) to bit-string (number to bit-string type casting).

private elemental function bstr_R8P(n) result(bstr)

Convert real to string of bits.

Arguments

Type Intent Optional Attributes Name

real(kind=R8P), intent(in) :: n
Real to be converted.

Return Value character(len=64)

Returned bit-string containing input number.
private elemental function bstr_R4P(n) result(bstr)

Convert real to string of bits.

Arguments

Type Intent Optional Attributes Name

real(kind=R4P), intent(in) :: n
Real to be converted.

Return Value character(len=32)

Returned bit-string containing input number.
private elemental function bstr_I8P(n) result(bstr)

Convert integer to string of bits.

Arguments

Type Intent Optional Attributes Name

integer(kind=I8P), intent(in) :: n
Real to be converted.

Return Value character(len=64)

Returned bit-string containing input number.
private elemental function bstr_I4P(n) result(bstr)

Convert integer to string of bits.

Arguments

Type Intent Optional Attributes Name

integer(kind=I4P), intent(in) :: n
Real to be converted.

Return Value character(len=32)

Returned bit-string containing input number.
private elemental function bstr_I2P(n) result(bstr)

Convert integer to string of bits.

Arguments

Type Intent Optional Attributes Name

integer(kind=I2P), intent(in) :: n
Real to be converted.

Return Value character(len=16)

Returned bit-string containing input number.
private elemental function bstr_I1P(n) result(bstr)

Convert integer to string of bits.

Arguments

Type Intent Optional Attributes Name

integer(kind=I1P), intent(in) :: n
Real to be converted.

Return Value character(len=8)

Returned bit-string containing input number.

public interface bcton

Convert bit-string to number (real and integer, bit-string to number type casting).

private elemental function bctor_R8P(bstr, knd) result(n)

Convert bit-string to real.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	bstr	String containing input number.
real(kind=R8P),	intent(in)			::	knd	Number kind.

Return Value real(kind=R8P)

Number returned.

private elemental function bctor_R4P(bstr, knd) result(n)

Convert bit-string to real.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	bstr	String containing input number.
real(kind=R4P),	intent(in)			::	knd	Number kind.

Return Value real(kind=R4P)

Number returned.

private elemental function bctoi_I8P(bstr, knd) result(n)

Convert bit-string to integer.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	bstr	String containing input number.
integer(kind=I8P),	intent(in)			::	knd	Number kind.

Return Value integer(kind=I8P)

Number returned.

private elemental function bctoi_I4P(bstr, knd) result(n)

Convert bit-string to integer.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	bstr	String containing input number.
integer(kind=I4P),	intent(in)			::	knd	Number kind.

Return Value integer(kind=I4P)

Number returned.

private elemental function bctoi_I2P(bstr, knd) result(n)

Convert bit-string to integer.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	bstr	String containing input number.
integer(kind=I2P),	intent(in)			::	knd	Number kind.

Return Value integer(kind=I2P)

Number returned.

private elemental function bctoi_I1P(bstr, knd) result(n)

Convert bit-string to integer.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	bstr	String containing input number.
integer(kind=I1P),	intent(in)			::	knd	Number kind.

Return Value integer(kind=I1P)

Number returned.

Functions

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

Convert real to string.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	fm	Format different from the standard for the kind.
real(kind=R16P),	intent(in)			::	n	Real to be converted.

Return Value character(len=DR16P)

Returned string containing input number.

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

Convert real to string.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	fm	Format different from the standard for the kind.
real(kind=R8P),	intent(in)			::	n	Real to be converted.

Return Value character(len=DR8P)

Returned string containing input number.

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

Convert real to string.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	fm	Format different from the standard for the kind.
real(kind=R4P),	intent(in)			::	n	Real to be converted.

Return Value character(len=DR4P)

Returned string containing input number.

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

Convert integer to string.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	fm	Format different from the standard for the kind.
integer(kind=I8P),	intent(in)			::	n	Integer to be converted.

Return Value character(len=DI8P)

Returned string containing input number.

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

Convert integer to string.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	fm	Format different from the standard for the kind.
integer(kind=I4P),	intent(in)			::	n	Integer to be converted.

Return Value character(len=DI4P)

Returned string containing input number.

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

Convert integer to string.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	fm	Format different from the standard for the kind.
integer(kind=I2P),	intent(in)			::	n	Integer to be converted.

Return Value character(len=DI2P)

Returned string containing input number.

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

Convert integer to string.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	fm	Format different from the standard for the kind.
integer(kind=I1P),	intent(in)			::	n	Integer to be converted.

Return Value character(len=DI1P)

Returned string containing input number.

private elemental function str_R16P(n, no_sign, compact) result(str)

Convert real to string.

Arguments

Type	Intent	Optional		Name
real(kind=R16P),	intent(in)		::	n	Real to be converted.
logical,	intent(in),	optional	::	no_sign	Flag for leaving out the sign.
logical,	intent(in),	optional	::	compact	Flag for compacting string encoding.

Return Value character(len=DR16P)

Returned string containing input number.

private elemental function str_R8P(n, no_sign, compact) result(str)

Convert real to string.

Arguments

Type	Intent	Optional		Name
real(kind=R8P),	intent(in)		::	n	Real to be converted.
logical,	intent(in),	optional	::	no_sign	Flag for leaving out the sign.
logical,	intent(in),	optional	::	compact	Flag for compacting string encoding.

Return Value character(len=DR8P)

Returned string containing input number.

private elemental function str_R4P(n, no_sign, compact) result(str)

Convert real to string.

Arguments

Type	Intent	Optional		Name
real(kind=R4P),	intent(in)		::	n	Real to be converted.
logical,	intent(in),	optional	::	no_sign	Flag for leaving out the sign.
logical,	intent(in),	optional	::	compact	Flag for compacting string encoding.

Return Value character(len=DR4P)

Returned string containing input number.

private elemental function str_I8P(n, no_sign) result(str)

Convert integer to string.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=I8P),	intent(in)			::	n	Integer to be converted.
logical,	intent(in),	optional		::	no_sign	Flag for leaving out the sign.

Return Value character(len=DI8P)

Returned string containing input number plus padding zeros.

private elemental function str_I4P(n, no_sign) result(str)

Converting integer to string.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=I4P),	intent(in)			::	n	Integer to be converted.
logical,	intent(in),	optional		::	no_sign	Flag for leaving out the sign.

Return Value character(len=DI4P)

Returned string containing input number plus padding zeros.

private elemental function str_I2P(n, no_sign) result(str)

Convert integer to string.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=I2P),	intent(in)			::	n	Integer to be converted.
logical,	intent(in),	optional		::	no_sign	Flag for leaving out the sign.

Return Value character(len=DI2P)

Returned string containing input number plus padding zeros.

private elemental function str_I1P(n, no_sign) result(str)

Convert integer to string.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=I1P),	intent(in)			::	n	Integer to be converted.
logical,	intent(in),	optional		::	no_sign	Flag for leaving out the sign.

Return Value character(len=DI1P)

Returned string containing input number plus padding zeros.

private elemental function str_bol(n) result(str)

Convert logical to string.

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.

private pure function str_a_R16P(n, no_sign, separator, delimiters, compact) result(str)

Converting real array to string.

Arguments

Type	Intent	Optional		Name
real(kind=R16P),	intent(in)		::	n(:)	Real array to be converted.
logical,	intent(in),	optional	::	no_sign	Flag for leaving out the sign.
character(len=1),	intent(in),	optional	::	separator(1)	Eventual separator of array values.
character(len=*),	intent(in),	optional	::	delimiters(1:2)	Eventual delimiters of array values.
logical,	intent(in),	optional	::	compact	Flag for compacting string encoding.

Return Value character(len=:), allocatable

Returned string containing input number.

private pure function str_a_R8P(n, no_sign, separator, delimiters, compact) result(str)

Convert real array to string.

Arguments

Type	Intent	Optional		Name
real(kind=R8P),	intent(in)		::	n(:)	Real array to be converted.
logical,	intent(in),	optional	::	no_sign	Flag for leaving out the sign.
character(len=1),	intent(in),	optional	::	separator	Eventual separator of array values.
character(len=*),	intent(in),	optional	::	delimiters(1:2)	Eventual delimiters of array values.
logical,	intent(in),	optional	::	compact	Flag for compacting string encoding.

Return Value character(len=:), allocatable

Returned string containing input number.

private pure function str_a_R4P(n, no_sign, separator, delimiters, compact) result(str)

Convert real array to string.

Arguments

Type	Intent	Optional		Name
real(kind=R4P),	intent(in)		::	n(:)	Real array to be converted.
logical,	intent(in),	optional	::	no_sign	Flag for leaving out the sign.
character(len=1),	intent(in),	optional	::	separator	Eventual separator of array values.
character(len=*),	intent(in),	optional	::	delimiters(1:2)	Eventual delimiters of array values.
logical,	intent(in),	optional	::	compact	Flag for compacting string encoding.

Return Value character(len=:), allocatable

Returned string containing input number.

private pure function str_a_I8P(n, no_sign, separator, delimiters) result(str)

Convert integer array to string.

Arguments

Type	Intent	Optional		Name
integer(kind=I8P),	intent(in)		::	n(:)	Integer array to be converted.
logical,	intent(in),	optional	::	no_sign	Flag for leaving out the sign.
character(len=1),	intent(in),	optional	::	separator	Eventual separator of array values.
character(len=*),	intent(in),	optional	::	delimiters(1:2)	Eventual delimiters of array values.

Return Value character(len=:), allocatable

Returned string containing input number.

private pure function str_a_I4P(n, no_sign, separator, delimiters) result(str)

Convert integer array to string.

Arguments

Type	Intent	Optional		Name
integer(kind=I4P),	intent(in)		::	n(:)	Integer array to be converted.
logical,	intent(in),	optional	::	no_sign	Flag for leaving out the sign.
character(len=1),	intent(in),	optional	::	separator	Eventual separator of array values.
character(len=*),	intent(in),	optional	::	delimiters(1:2)	Eventual delimiters of array values.

Return Value character(len=:), allocatable

Returned string containing input number.

private pure function str_a_I2P(n, no_sign, separator, delimiters) result(str)

Convert integer array to string.

Arguments

Type	Intent	Optional		Name
integer(kind=I2P),	intent(in)		::	n(:)	Integer array to be converted.
logical,	intent(in),	optional	::	no_sign	Flag for leaving out the sign.
character(len=1),	intent(in),	optional	::	separator	Eventual separator of array values.
character(len=*),	intent(in),	optional	::	delimiters(1:2)	Eventual delimiters of array values.

Return Value character(len=:), allocatable

Returned string containing input number.

private pure function str_a_I1P(n, no_sign, separator, delimiters) result(str)

Convert integer array to string.

Arguments

Type	Intent	Optional		Name
integer(kind=I1P),	intent(in)		::	n(:)	Integer array to be converted.
logical,	intent(in),	optional	::	no_sign	Flag for leaving out the sign.
character(len=1),	intent(in),	optional	::	separator	Eventual separator of array values.
character(len=*),	intent(in),	optional	::	delimiters(1:2)	Eventual delimiters of array values.

Return Value character(len=:), allocatable

Returned string containing input number.

private elemental function strz_I8P(n, nz_pad) result(str)

Converting integer to string, prefixing with the right number of zeros.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=I8P),	intent(in)			::	n	Integer to be converted.
integer(kind=I4P),	intent(in),	optional		::	nz_pad	Number of zeros padding.

Return Value character(len=DI8P)

Returned string containing input number plus padding zeros.

private elemental function strz_I4P(n, nz_pad) result(str)

Convert integer to string, prefixing with the right number of zeros.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=I4P),	intent(in)			::	n	Integer to be converted.
integer(kind=I4P),	intent(in),	optional		::	nz_pad	Number of zeros padding.

Return Value character(len=DI4P)

Returned string containing input number plus padding zeros.

private elemental function strz_I2P(n, nz_pad) result(str)

Convert integer to string, prefixing with the right number of zeros.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=I2P),	intent(in)			::	n	Integer to be converted.
integer(kind=I4P),	intent(in),	optional		::	nz_pad	Number of zeros padding.

Return Value character(len=DI2P)

Returned string containing input number plus padding zeros.

private elemental function strz_I1P(n, nz_pad) result(str)

Convert integer to string, prefixing with the right number of zeros.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=I1P),	intent(in)			::	n	Integer to be converted.
integer(kind=I4P),	intent(in),	optional		::	nz_pad	Number of zeros padding.

Return Value character(len=DI1P)

Returned string containing input number plus padding zeros.

private function ctor_R16P(str, knd, pref, error) result(n)

Convert string to real.

Arguments

Type	Intent	Optional		Name
character(len=*),	intent(in)		::	str	String containing input number.
real(kind=R16P),	intent(in)		::	knd	Number kind.
character(len=*),	intent(in),	optional	::	pref	Prefixing string.
integer(kind=I4P),	intent(out),	optional	::	error	Error trapping flag: 0 no errors, >0 error occurs.

Return Value real(kind=R16P)

Number returned.

private function ctor_R8P(str, knd, pref, error) result(n)

Convert string to real.

Arguments

Type	Intent	Optional		Name
character(len=*),	intent(in)		::	str	String containing input number.
real(kind=R8P),	intent(in)		::	knd	Number kind.
character(len=*),	intent(in),	optional	::	pref	Prefixing string.
integer(kind=I4P),	intent(out),	optional	::	error	Error trapping flag: 0 no errors, >0 error occurs.

Return Value real(kind=R8P)

Number returned.

private function ctor_R4P(str, knd, pref, error) result(n)

Convert string to real.

Arguments

Type	Intent	Optional		Name
character(len=*),	intent(in)		::	str	String containing input number.
real(kind=R4P),	intent(in)		::	knd	Number kind.
character(len=*),	intent(in),	optional	::	pref	Prefixing string.
integer(kind=I4P),	intent(out),	optional	::	error	Error trapping flag: 0 no errors, >0 error occurs.

Return Value real(kind=R4P)

Number returned.

private function ctoi_I8P(str, knd, pref, error) result(n)

Convert string to integer.

Arguments

Type	Intent	Optional		Name
character(len=*),	intent(in)		::	str	String containing input number.
integer(kind=I8P),	intent(in)		::	knd	Number kind.
character(len=*),	intent(in),	optional	::	pref	Prefixing string.
integer(kind=I4P),	intent(out),	optional	::	error	Error trapping flag: 0 no errors, >0 error occurs.

Return Value integer(kind=I8P)

Number returned.

private function ctoi_I4P(str, knd, pref, error) result(n)

Convert string to integer.

Arguments

Type	Intent	Optional		Name
character(len=*),	intent(in)		::	str	String containing input number.
integer(kind=I4P),	intent(in)		::	knd	Number kind.
character(len=*),	intent(in),	optional	::	pref	Prefixing string.
integer(kind=I4P),	intent(out),	optional	::	error	Error trapping flag: 0 no errors, >0 error occurs.

Return Value integer(kind=I4P)

Number returned.

private function ctoi_I2P(str, knd, pref, error) result(n)

Convert string to integer.

Arguments

Type	Intent	Optional		Name
character(len=*),	intent(in)		::	str	String containing input number.
integer(kind=I2P),	intent(in)		::	knd	Number kind.
character(len=*),	intent(in),	optional	::	pref	Prefixing string.
integer(kind=I4P),	intent(out),	optional	::	error	Error trapping flag: 0 no errors, >0 error occurs.

Return Value integer(kind=I2P)

Number returned.

private function ctoi_I1P(str, knd, pref, error) result(n)

Convert string to integer.

Arguments

Type	Intent	Optional		Name
character(len=*),	intent(in)		::	str	String containing input number.
integer(kind=I1P),	intent(in)		::	knd	Number kind.
character(len=*),	intent(in),	optional	::	pref	Prefixing string.
integer(kind=I4P),	intent(out),	optional	::	error	Error trapping flag: 0 no errors, >0 error occurs.

Return Value integer(kind=I1P)

Number returned.

private elemental function bstr_R16P(n) result(bstr)

Convert real to string of bits.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=R16P),	intent(in)			::	n	Real to be converted.

Return Value character(len=128)

Returned bit-string containing input number.

private elemental function bstr_R8P(n) result(bstr)

Convert real to string of bits.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=R8P),	intent(in)			::	n	Real to be converted.

Return Value character(len=64)

Returned bit-string containing input number.

private elemental function bstr_R4P(n) result(bstr)

Convert real to string of bits.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=R4P),	intent(in)			::	n	Real to be converted.

Return Value character(len=32)

Returned bit-string containing input number.

private elemental function bstr_I8P(n) result(bstr)

Convert integer to string of bits.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=I8P),	intent(in)			::	n	Real to be converted.

Return Value character(len=64)

Returned bit-string containing input number.

private elemental function bstr_I4P(n) result(bstr)

Convert integer to string of bits.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=I4P),	intent(in)			::	n	Real to be converted.

Return Value character(len=32)

Returned bit-string containing input number.

private elemental function bstr_I2P(n) result(bstr)

Convert integer to string of bits.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=I2P),	intent(in)			::	n	Real to be converted.

Return Value character(len=16)

Returned bit-string containing input number.

private elemental function bstr_I1P(n) result(bstr)

Convert integer to string of bits.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=I1P),	intent(in)			::	n	Real to be converted.

Return Value character(len=8)

Returned bit-string containing input number.

private elemental function bctor_R16P(bstr, knd) result(n)

Convert bit-string to real.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	bstr	String containing input number.
real(kind=R16P),	intent(in)			::	knd	Number kind.

Return Value real(kind=R16P)

Number returned.

private elemental function bctor_R8P(bstr, knd) result(n)

Convert bit-string to real.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	bstr	String containing input number.
real(kind=R8P),	intent(in)			::	knd	Number kind.

Return Value real(kind=R8P)

Number returned.

private elemental function bctor_R4P(bstr, knd) result(n)

Convert bit-string to real.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	bstr	String containing input number.
real(kind=R4P),	intent(in)			::	knd	Number kind.

Return Value real(kind=R4P)

Number returned.

private elemental function bctoi_I8P(bstr, knd) result(n)

Convert bit-string to integer.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	bstr	String containing input number.
integer(kind=I8P),	intent(in)			::	knd	Number kind.

Return Value integer(kind=I8P)

Number returned.

private elemental function bctoi_I4P(bstr, knd) result(n)

Convert bit-string to integer.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	bstr	String containing input number.
integer(kind=I4P),	intent(in)			::	knd	Number kind.

Return Value integer(kind=I4P)

Number returned.

private elemental function bctoi_I2P(bstr, knd) result(n)

Convert bit-string to integer.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	bstr	String containing input number.
integer(kind=I2P),	intent(in)			::	knd	Number kind.

Return Value integer(kind=I2P)

Number returned.

private elemental function bctoi_I1P(bstr, knd) result(n)

Convert bit-string to integer.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	bstr	String containing input number.
integer(kind=I1P),	intent(in)			::	knd	Number kind.

Return Value integer(kind=I1P)

Number returned.

Subroutines

private pure subroutine compact_real_string(string)

Author: Izaak Beekman
Date: 02/24/2015

Compact a string representing a real number, so that the same value is displayed with fewer characters.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(inout)			::	string	string representation of a real number.

penf_stringify Module

Interfaces

Functions

Subroutines

All Modules

Uses:

Used By

Interfaces

Functions

Subroutines

Interfaces

public interface str

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

Arguments

Return Value character(len=DR8P)

private elemental function str_R8P(n, no_sign, compact) result(str)

Arguments

Return Value character(len=DR8P)

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

Arguments

Return Value character(len=DR4P)

private elemental function str_R4P(n, no_sign, compact) result(str)

Arguments

Return Value character(len=DR4P)

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

Arguments

Return Value character(len=DI8P)

private elemental function str_I8P(n, no_sign) result(str)

Arguments

Return Value character(len=DI8P)

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

Arguments

Return Value character(len=DI4P)

private elemental function str_I4P(n, no_sign) result(str)

Arguments

Return Value character(len=DI4P)

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

Arguments

Return Value character(len=DI2P)

private elemental function str_I2P(n, no_sign) result(str)

Arguments

Return Value character(len=DI2P)

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

Arguments

Return Value character(len=DI1P)

private elemental function str_I1P(n, no_sign) result(str)

Arguments

Return Value character(len=DI1P)

private elemental function str_bol(n) result(str)

Arguments

Return Value character(len=1)

private pure function str_a_R8P(n, no_sign, separator, delimiters, compact) result(str)

Arguments

Return Value character(len=:), allocatable

private pure function str_a_R4P(n, no_sign, separator, delimiters, compact) result(str)

Arguments

Return Value character(len=:), allocatable

private pure function str_a_I8P(n, no_sign, separator, delimiters) result(str)

Arguments

Return Value character(len=:), allocatable

private pure function str_a_I4P(n, no_sign, separator, delimiters) result(str)

Arguments

Return Value character(len=:), allocatable

private pure function str_a_I2P(n, no_sign, separator, delimiters) result(str)

Arguments

Return Value character(len=:), allocatable

private pure function str_a_I1P(n, no_sign, separator, delimiters) result(str)

Arguments

Return Value character(len=:), allocatable

public interface strz

private elemental function strz_I8P(n, nz_pad) result(str)

Arguments

Return Value character(len=DI8P)

private elemental function strz_I4P(n, nz_pad) result(str)

Arguments

Return Value character(len=DI4P)

private elemental function strz_I2P(n, nz_pad) result(str)

Arguments

Return Value character(len=DI2P)

private elemental function strz_I1P(n, nz_pad) result(str)