penf_stringify

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

Uses

Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Interfaces

str_ascii str_ucs4 str strz cton bstr bcton

Functions

str_ascii_default str_ascii_ascii str_ascii_ucs4 str_ucs4_default str_ucs4_ascii str_ucs4_ucs4 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_ascii

Convert string of any kind to ASCII string.

private pure function str_ascii_default(input) result(output)

Convert string of default kind to ASCII string.
Read more…
Arguments

Type Intent Optional Attributes Name

character(len=*), intent(in) :: input
Input string of default kind.

Return Value character(kind=ASCII,len=:),allocatable

Output string of ASCII kind.

public interface str_ucs4

Convert string of any kind to UCS4 string.

private pure function str_ucs4_default(input) result(output)

Convert string of default kind to UCS4 string.
Read more…
Arguments

Type Intent Optional Attributes Name

character(len=*), intent(in) :: input
Input string of default kind.

Return Value character(kind=UCS4,len=:),allocatable

Output string of UCS4 kind.

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.
Read more…
Arguments

Type Intent Optional Attributes Name

character, intent(in) :: fm
Format different from the standard for the kind.

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

Return Value character

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

Returned string containing input number.

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

Convert real to string.
Read more…
Arguments

Type Intent Optional Attributes Name

character, intent(in) :: fm
Format different from the standard for the kind.

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

Return Value character

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

Returned string containing input number.

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

Convert integer to string.
Read more…
Arguments

Type Intent Optional Attributes Name

character, intent(in) :: fm
Format different from the standard for the kind.

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

Return Value character

Returned string containing input number.
private elemental function str_I8P(n, no_sign) result(str)

Convert integer to string.
Read more…
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

Returned string containing input number plus padding zeros.
private elemental function strf_I4P(fm, n) result(str)

Convert integer to string.
Read more…
Arguments

Type Intent Optional Attributes Name

character, intent(in) :: fm
Format different from the standard for the kind.

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

Return Value character

Returned string containing input number.
private elemental function str_I4P(n, no_sign) result(str)

Converting integer to string.
Read more…
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

Returned string containing input number plus padding zeros.
private elemental function strf_I2P(fm, n) result(str)

Convert integer to string.
Read more…
Arguments

Type Intent Optional Attributes Name

character, intent(in) :: fm
Format different from the standard for the kind.

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

Return Value character

Returned string containing input number.
private elemental function str_I2P(n, no_sign) result(str)

Convert integer to string.
Read more…
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

Returned string containing input number plus padding zeros.
private elemental function strf_I1P(fm, n) result(str)

Convert integer to string.
Read more…
Arguments

Type Intent Optional Attributes Name

character, intent(in) :: fm
Format different from the standard for the kind.

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

Return Value character

Returned string containing input number.
private elemental function str_I1P(n, no_sign) result(str)

Convert integer to string.
Read more…
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

Returned string containing input number plus padding zeros.
private elemental function str_bol(n) result(str)

Convert logical to string.
Read more…
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,	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,	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,	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,	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,	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,	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.
Read more…
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

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.
Read more…
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

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.
Read more…
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

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.
Read more…
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

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,	intent(in)		::	str	String containing input number.
real(kind=R8P),	intent(in)		::	knd	Number kind.
character,	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,	intent(in)		::	str	String containing input number.
real(kind=R4P),	intent(in)		::	knd	Number kind.
character,	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,	intent(in)		::	str	String containing input number.
integer(kind=I8P),	intent(in)		::	knd	Number kind.
character,	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,	intent(in)		::	str	String containing input number.
integer(kind=I4P),	intent(in)		::	knd	Number kind.
character,	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,	intent(in)		::	str	String containing input number.
integer(kind=I2P),	intent(in)		::	knd	Number kind.
character,	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,	intent(in)		::	str	String containing input number.
integer(kind=I1P),	intent(in)		::	knd	Number kind.
character,	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.
Read more…
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.
Read more…
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.
Read more…
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.
Read more…
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.
Read more…
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.
Read more…
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.
Read more…
Arguments

Type Intent Optional Attributes Name

character, 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.
Read more…
Arguments

Type Intent Optional Attributes Name

character, 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.
Read more…
Arguments

Type Intent Optional Attributes Name

character, 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.
Read more…
Arguments

Type Intent Optional Attributes Name

character, 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.
Read more…
Arguments

Type Intent Optional Attributes Name

character, 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.
Read more…
Arguments

Type Intent Optional Attributes Name

character, intent(in) :: bstr
String containing input number.

integer(kind=I1P), intent(in) :: knd
Number kind.

Return Value integer(kind=I1P)

Number returned.

Functions

private pure function str_ascii_default(input) result(output)

Convert string of default kind to ASCII string.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	input	Input string of default kind.

Return Value character(kind=ASCII,len=:),allocatable

Output string of ASCII kind.

private pure function str_ascii_ascii(input) result(output)

Convert string of ASCII kind to ASCII string, just for convenience in sanitize strings.

Arguments

Type	Intent	Optional	Attributes		Name
character(kind=ASCII,len=*),	intent(in)			::	input	Input string of ASCII kind.

Return Value character(kind=ASCII,len=:),allocatable

Output string of ASCII kind.

private pure function str_ascii_ucs4(input) result(output)

Convert string of UCS4 kind to ASCII string.

Arguments

Type	Intent	Optional	Attributes		Name
character(kind=UCS4,len=*),	intent(in)			::	input	Input string of UCS4 kind.

Return Value character(kind=ASCII,len=:),allocatable

Output string of ASCII kind.

private pure function str_ucs4_default(input) result(output)

Convert string of default kind to UCS4 string.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	input	Input string of default kind.

Return Value character(kind=UCS4,len=:),allocatable

Output string of UCS4 kind.

private pure function str_ucs4_ascii(input) result(output)

Convert string of ASCII kind to UCS4 string.

Arguments

Type	Intent	Optional	Attributes		Name
character(kind=ASCII,len=*),	intent(in)			::	input	Input string of ASCII kind.

Return Value character(kind=UCS4,len=:),allocatable

Output string of UCS4 kind.

private pure function str_ucs4_ucs4(input) result(output)

Convert string of UCS4 kind to UCS4 string, just for convenience in sanitize strings.

Arguments

Type	Intent	Optional	Attributes		Name
character(kind=UCS4,len=*),	intent(in)			::	input	Input string of UCS4 kind.

Return Value character(kind=UCS4,len=:),allocatable

Output string of UCS4 kind.

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

Convert real to string.

Arguments

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

Return Value character

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,	intent(in)			::	fm	Format different from the standard for the kind.
real(kind=R8P),	intent(in)			::	n	Real to be converted.

Return Value character

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,	intent(in)			::	fm	Format different from the standard for the kind.
real(kind=R4P),	intent(in)			::	n	Real to be converted.

Return Value character

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,	intent(in)			::	fm	Format different from the standard for the kind.
integer(kind=I8P),	intent(in)			::	n	Integer to be converted.

Return Value character

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,	intent(in)			::	fm	Format different from the standard for the kind.
integer(kind=I4P),	intent(in)			::	n	Integer to be converted.

Return Value character

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,	intent(in)			::	fm	Format different from the standard for the kind.
integer(kind=I2P),	intent(in)			::	n	Integer to be converted.

Return Value character

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,	intent(in)			::	fm	Format different from the standard for the kind.
integer(kind=I1P),	intent(in)			::	n	Integer to be converted.

Return Value character

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

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

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

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

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

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

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

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	Eventual separator of array values.
character,	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,	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,	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,	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,	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,	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,	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

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

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

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

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,	intent(in)		::	str	String containing input number.
real(kind=R16P),	intent(in)		::	knd	Number kind.
character,	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,	intent(in)		::	str	String containing input number.
real(kind=R8P),	intent(in)		::	knd	Number kind.
character,	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,	intent(in)		::	str	String containing input number.
real(kind=R4P),	intent(in)		::	knd	Number kind.
character,	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,	intent(in)		::	str	String containing input number.
integer(kind=I8P),	intent(in)		::	knd	Number kind.
character,	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,	intent(in)		::	str	String containing input number.
integer(kind=I4P),	intent(in)		::	knd	Number kind.
character,	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,	intent(in)		::	str	String containing input number.
integer(kind=I2P),	intent(in)		::	knd	Number kind.
character,	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,	intent(in)		::	str	String containing input number.
integer(kind=I1P),	intent(in)		::	knd	Number kind.
character,	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,	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,	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,	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,	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,	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,	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,	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

Contents

Interfaces

Functions

Subroutines

Uses

Used by

Contents

Interfaces

Functions

Subroutines

Interfaces

public interface str_ascii

private pure function str_ascii_default(input) result(output)

Arguments

Return Value character(kind=ASCII,len=:),allocatable

public interface str_ucs4

private pure function str_ucs4_default(input) result(output)

Arguments

Return Value character(kind=UCS4,len=:),allocatable

public interface str

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

Arguments

Return Value character

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

Arguments

Return Value character

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

Arguments

Return Value character

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

Arguments

Return Value character

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

Arguments

Return Value character

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

Arguments

Return Value character

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

Arguments

Return Value character

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

Arguments

Return Value character

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

Arguments

Return Value character

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

Arguments

Return Value character

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

Arguments

Return Value character

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

Arguments

Return Value character

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)