penf_stringify

Help

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

Used By

Help

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)

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.

Description

Convert real to string.

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

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.

Description

Convert real to string.

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

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.

Description

Convert real to string.

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

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.

Description

Convert real to string.

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

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.

Description

Convert integer to string.

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

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.

Description

Convert integer to string.

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

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.

Description

Convert integer to string.

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

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.

Description

Converting integer to string.

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

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.

Description

Convert integer to string.

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

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.

Description

Convert integer to string.

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

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.

Description

Convert integer to string.

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

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.

Description

Convert integer to string.

private elemental function str_bol(n) result(str)

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.

Description

Convert logical to string.

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

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=*),	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.

Description

Convert real array to string.

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

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=*),	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.

Description

Convert real array to string.

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

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=*),	intent(in),	optional	::	delimiters(1:2)	Eventual delimiters of array values.

Return Value character(len=:), allocatable

Returned string containing input number.

Description

Convert integer array to string.

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

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=*),	intent(in),	optional	::	delimiters(1:2)	Eventual delimiters of array values.

Return Value character(len=:), allocatable

Returned string containing input number.

Description

Convert integer array to string.

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

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=*),	intent(in),	optional	::	delimiters(1:2)	Eventual delimiters of array values.

Return Value character(len=:), allocatable

Returned string containing input number.

Description

Convert integer array to string.

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

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=*),	intent(in),	optional	::	delimiters(1:2)	Eventual delimiters of array values.

Return Value character(len=:), allocatable

Returned string containing input number.

Description

Convert integer array to string.

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)

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.

Description

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

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

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.

Description

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

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

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.

Description

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

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

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.

Description

Convert integer to string, prefixing with the right number of 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)

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.

Description

Convert string to real.

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

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.

Description

Convert string to real.

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

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.

Description

Convert string to integer.

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

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.

Description

Convert string to integer.

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

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.

Description

Convert string to integer.

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

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.

Description

Convert string to integer.

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)

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.

Description

Convert real to string of bits.
private elemental function bstr_R4P(n) result(bstr)

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.

Description

Convert real to string of bits.
private elemental function bstr_I8P(n) result(bstr)

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.

Description

Convert integer to string of bits.
private elemental function bstr_I4P(n) result(bstr)

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.

Description

Convert integer to string of bits.
private elemental function bstr_I2P(n) result(bstr)

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.

Description

Convert integer to string of bits.
private elemental function bstr_I1P(n) result(bstr)

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.

Description

Convert integer to string of bits.

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)

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.

Description

Convert bit-string to real.

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

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.

Description

Convert bit-string to real.

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

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.

Description

Convert bit-string to integer.

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

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.

Description

Convert bit-string to integer.

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

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.

Description

Convert bit-string to integer.

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

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.

Description

Convert bit-string to integer.

Functions

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

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.

Description

Convert real to string.

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

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.

Description

Convert real to string.

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

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.

Description

Convert real to string.

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

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.

Description

Convert integer to string.

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

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.

Description

Convert integer to string.

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

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.

Description

Convert integer to string.

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

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.

Description

Convert integer to string.

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

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.

Description

Convert real to string.

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

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.

Description

Convert real to string.

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

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.

Description

Convert real to string.

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

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.

Description

Convert integer to string.

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

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.

Description

Converting integer to string.

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

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.

Description

Convert integer to string.

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

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.

Description

Convert integer to string.

private elemental function str_bol(n) result(str)

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.

Description

Convert logical to string.

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

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=*),	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.

Description

Converting real array to string.

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

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=*),	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.

Description

Convert real array to string.

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

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=*),	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.

Description

Convert real array to string.

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

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=*),	intent(in),	optional	::	delimiters(1:2)	Eventual delimiters of array values.

Return Value character(len=:), allocatable

Returned string containing input number.

Description

Convert integer array to string.

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

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=*),	intent(in),	optional	::	delimiters(1:2)	Eventual delimiters of array values.

Return Value character(len=:), allocatable

Returned string containing input number.

Description

Convert integer array to string.

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

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=*),	intent(in),	optional	::	delimiters(1:2)	Eventual delimiters of array values.

Return Value character(len=:), allocatable

Returned string containing input number.

Description

Convert integer array to string.

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

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=*),	intent(in),	optional	::	delimiters(1:2)	Eventual delimiters of array values.

Return Value character(len=:), allocatable

Returned string containing input number.

Description

Convert integer array to string.

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

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.

Description

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

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

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.

Description

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

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

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.

Description

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

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

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.

Description

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

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

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.

Description

Convert string to real.

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

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.

Description

Convert string to real.

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

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.

Description

Convert string to real.

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

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.

Description

Convert string to integer.

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

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.

Description

Convert string to integer.

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

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.

Description

Convert string to integer.

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

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.

Description

Convert string to integer.

private elemental function bstr_R16P(n) result(bstr)

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.

Description

Convert real to string of bits.

private elemental function bstr_R8P(n) result(bstr)

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.

Description

Convert real to string of bits.

private elemental function bstr_R4P(n) result(bstr)

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.

Description

Convert real to string of bits.

private elemental function bstr_I8P(n) result(bstr)

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.

Description

Convert integer to string of bits.

private elemental function bstr_I4P(n) result(bstr)

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.

Description

Convert integer to string of bits.

private elemental function bstr_I2P(n) result(bstr)

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.

Description

Convert integer to string of bits.

private elemental function bstr_I1P(n) result(bstr)

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.

Description

Convert integer to string of bits.

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

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.

Description

Convert bit-string to real.

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

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.

Description

Convert bit-string to real.

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

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.

Description

Convert bit-string to real.

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

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.

Description

Convert bit-string to integer.

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

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.

Description

Convert bit-string to integer.

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

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.

Description

Convert bit-string to integer.

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

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.

Description

Convert bit-string to integer.

Subroutines

private pure subroutine compact_real_string(string)

Arguments

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

Description

Author: Izaak Beekman
Date: 02/24/2015

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

penf_stringify Module

Interfaces

Functions

Subroutines

All Modules

Uses:

Used By

Interfaces

public interface str

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

Arguments

Return Value character(len=DR8P)

Description

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

Arguments

Return Value character(len=DR8P)

Description

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

Arguments

Return Value character(len=DR4P)

Description

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

Arguments

Return Value character(len=DR4P)

Description

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

Arguments

Return Value character(len=DI8P)

Description

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

Arguments

Return Value character(len=DI8P)

Description

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

Arguments

Return Value character(len=DI4P)

Description

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

Arguments

Return Value character(len=DI4P)

Description

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

Arguments

Return Value character(len=DI2P)

Description

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

Arguments

Return Value character(len=DI2P)

Description

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

Arguments

Return Value character(len=DI1P)

Description

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

Arguments

Return Value character(len=DI1P)

Description

private elemental function str_bol(n) result(str)

Arguments

Return Value character(len=1)

Description

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

Arguments

Return Value character(len=:), allocatable

Description

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

Arguments

Return Value character(len=:), allocatable

Description

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

Arguments

Return Value character(len=:), allocatable

Description

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

Arguments

Return Value character(len=:), allocatable

Description

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

Arguments

Return Value character(len=:), allocatable