penf – PENF

Portability Environment for Fortran poor people.

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.

Variables

endian is_initialized

Interfaces

bit_size digit

Functions

digit_I8 digit_I4 digit_I2 digit_I1

Subroutines

check_endian penf_init penf_print

Variables

Type	Visibility	Attributes		Name		Initial
integer,	public		::	endian	=	endianL	Bit ordering: Little endian (endianL), or Big endian (endianB).
logical,	public		::	is_initialized	=	.false.	Check the initialization of some variables that must be initialized.

Interfaces

public interface bit_size

Overloading of the intrinsic bit_size function for computing the number of bits of (also) real and character variables.

public interface digit

Compute the number of digits in decimal base of the input integer.

private elemental function digit_I8(n) result(digit)

Compute the number of digits in decimal base of the input integer.
Read more…
Arguments

Type Intent Optional Attributes Name

integer(kind=I8P), intent(in) :: n
Input integer.

Return Value integer(kind=I4P)

Number of digits.
private elemental function digit_I4(n) result(digit)

Compute the number of digits in decimal base of the input integer.
Read more…
Arguments

Type Intent Optional Attributes Name

integer(kind=I4P), intent(in) :: n
Input integer.

Return Value integer(kind=I4P)

Number of digits.
private elemental function digit_I2(n) result(digit)

Compute the number of digits in decimal base of the input integer.
Read more…
Arguments

Type Intent Optional Attributes Name

integer(kind=I2P), intent(in) :: n
Input integer.

Return Value integer(kind=I4P)

Number of digits.
private elemental function digit_I1(n) result(digit)

Compute the number of digits in decimal base of the input integer.
Read more…
Arguments

Type Intent Optional Attributes Name

integer(kind=I1P), intent(in) :: n
Input integer.

Return Value integer(kind=I4P)

Number of digits.

Functions

private elemental function digit_I8(n) result(digit)

Compute the number of digits in decimal base of the input integer.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=I8P),	intent(in)			::	n	Input integer.

Return Value integer(kind=I4P)

Number of digits.

private elemental function digit_I4(n) result(digit)

Compute the number of digits in decimal base of the input integer.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=I4P),	intent(in)			::	n	Input integer.

Return Value integer(kind=I4P)

Number of digits.

private elemental function digit_I2(n) result(digit)

Compute the number of digits in decimal base of the input integer.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=I2P),	intent(in)			::	n	Input integer.

Return Value integer(kind=I4P)

Number of digits.

private elemental function digit_I1(n) result(digit)

Compute the number of digits in decimal base of the input integer.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=I1P),	intent(in)			::	n	Input integer.

Return Value integer(kind=I4P)

Number of digits.

Subroutines

public subroutine check_endian()

Check the type of bit ordering (big or little endian) of the running architecture.

Arguments

None

public subroutine penf_init()

Initialize PENF’s variables that are not initialized into the definition specification.

Arguments

None

public subroutine penf_print(unit, pref, iostat, iomsg)

Print to the specified unit the PENF’s environment data.

Arguments

Type	Intent	Optional		Name
integer(kind=I4P),	intent(in)		::	unit	Logic unit.
character,	intent(in),	optional	::	pref	Prefixing string.
integer(kind=I4P),	intent(out),	optional	::	iostat	IO error.
character,	intent(out),	optional	::	iomsg	IO error message.

penf Module

Contents

Uses

Used by

Contents

Variables

Interfaces

public interface bit_size

public interface digit

private elemental function digit_I8(n) result(digit)

Arguments

Return Value integer(kind=I4P)

private elemental function digit_I4(n) result(digit)

Arguments

Return Value integer(kind=I4P)

private elemental function digit_I2(n) result(digit)

Arguments

Return Value integer(kind=I4P)

private elemental function digit_I1(n) result(digit)

Arguments

Return Value integer(kind=I4P)

Functions

private elemental function digit_I8(n) result(digit)

Arguments

Return Value integer(kind=I4P)

private elemental function digit_I4(n) result(digit)

Arguments

Return Value integer(kind=I4P)

private elemental function digit_I2(n) result(digit)

Arguments

Return Value integer(kind=I4P)

private elemental function digit_I1(n) result(digit)

Arguments

Return Value integer(kind=I4P)

Subroutines

public subroutine check_endian()

Arguments

public subroutine penf_init()

Arguments

public subroutine penf_print(unit, pref, iostat, iomsg)

Arguments