penf Module

Portability Environment for Fortran poor people.


Uses

  • module~~penf~~UsesGraph module~penf penf module~penf_allocatable_memory penf_allocatable_memory module~penf->module~penf_allocatable_memory module~penf_b_size penf_b_size module~penf->module~penf_b_size module~penf_global_parameters_variables penf_global_parameters_variables module~penf->module~penf_global_parameters_variables module~penf_stringify penf_stringify module~penf->module~penf_stringify module~penf_allocatable_memory->module~penf_global_parameters_variables module~penf_allocatable_memory->module~penf_stringify iso_c_binding iso_c_binding module~penf_allocatable_memory->iso_c_binding module~penf_b_size->module~penf_global_parameters_variables module~penf_stringify->module~penf_b_size module~penf_stringify->module~penf_global_parameters_variables iso_fortran_env iso_fortran_env module~penf_stringify->iso_fortran_env

Used by


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.

     use penf
 print FI4P, digit(100_I8P)

    Arguments

    Type IntentOptional 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.

     use penf
 print FI4P, digit(100_I4P)

    Arguments

    Type IntentOptional 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.

     use penf
 print FI4P, digit(100_I2P)

    Arguments

    Type IntentOptional 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.

     use penf
 print FI4P, digit(100_I1P)

    Arguments

    Type IntentOptional 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.

Read more…

Arguments

Type IntentOptional 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 IntentOptional 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 IntentOptional 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 IntentOptional 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.

Read more…

Arguments

None

public subroutine penf_init()

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

Read more…

Arguments

None

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

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

Read more…

Arguments

Type IntentOptional Attributes Name
integer(kind=I4P), intent(in) :: unit

Logic unit.
character(len=*), intent(in), optional :: pref

Prefixing string.
integer(kind=I4P), intent(out), optional :: iostat

IO error.
character(len=*), intent(out), optional :: iomsg

IO error message.