PENF global parameters and variables.
All module defined entities are public.
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
integer, | public, | parameter | :: | endianL | = | 1 | Little endian parameter. |
integer, | public, | parameter | :: | endianB | = | 0 | Big endian parameter. |
integer, | public, | parameter | :: | ASCII | = | selected_char_kind('default') | ASCII character set kind defined as default set. |
integer, | public, | parameter | :: | UCS4 | = | selected_char_kind('default') | Unicode character set kind defined as default set. |
integer, | public, | parameter | :: | CK | = | selected_char_kind('default') | Default kind character. |
integer, | public, | parameter | :: | R16P | = | selected_real_kind(15, 307) | 15 digits, range ; 64 bits. |
integer, | public, | parameter | :: | R8P | = | selected_real_kind(15, 307) | 15 digits, range ; 64 bits. |
integer, | public, | parameter | :: | R4P | = | selected_real_kind(6, 37) | 6 digits, range ; 32 bits. |
integer, | public, | parameter | :: | R_P | = | R8P | Default real precision. |
integer, | public, | parameter | :: | I8P | = | selected_int_kind(18) | Range , 19 digits plus sign; 64 bits. |
integer, | public, | parameter | :: | I4P | = | selected_int_kind(9) | Range , 10 digits plus sign; 32 bits. |
integer, | public, | parameter | :: | I2P | = | selected_int_kind(4) | Range , 5 digits plus sign; 16 bits. |
integer, | public, | parameter | :: | I1P | = | selected_int_kind(2) | Range , 3 digits plus sign; 8 bits. |
integer, | public, | parameter | :: | I_P | = | I4P | Default integer precision. |
character, | public, | parameter | :: | FR16P | = | '(E23.15E3)' | Output format for kind=R8P real. |
character, | public, | parameter | :: | FR8P | = | '(E23.15E3)' | Output format for kind=R8P real. |
character, | public, | parameter | :: | FR4P | = | '(E13.6E2)' | Output format for kind=R4P real. |
character, | public, | parameter | :: | FR_P | = | FR8P | Output format for kind=R_P real. |
character, | public, | parameter | :: | FI8P | = | '(I20)' | Output format for kind=I8P integer. |
character, | public, | parameter | :: | FI8PZP | = | '(I20.19)' | Output format for kind=I8P integer with zero prefixing. |
character, | public, | parameter | :: | FI4P | = | '(I11)' | Output format for kind=I4P integer. |
character, | public, | parameter | :: | FI4PZP | = | '(I11.10)' | Output format for kind=I4P integer with zero prefixing. |
character, | public, | parameter | :: | FI2P | = | '(I6)' | Output format for kind=I2P integer. |
character, | public, | parameter | :: | FI2PZP | = | '(I6.5)' | Output format for kind=I2P integer with zero prefixing. |
character, | public, | parameter | :: | FI1P | = | '(I4)' | Output format for kind=I1P integer. |
character, | public, | parameter | :: | FI1PZP | = | '(I4.3)' | Output format for kind=I1P integer with zero prefixing. |
character, | public, | parameter | :: | FI_P | = | FI4P | Output format for kind=I_P integer. |
character, | public, | parameter | :: | FI_PZP | = | FI4PZP | Output format for kind=I_P integer with zero prefixing. |
integer, | public, | parameter | :: | DR16P | = | 23 | Number of digits of output format FR8P. |
integer, | public, | parameter | :: | DR8P | = | 23 | Number of digits of output format FR8P. |
integer, | public, | parameter | :: | DR4P | = | 13 | Number of digits of output format FR4P. |
integer, | public, | parameter | :: | DR_P | = | DR8P | Number of digits of output format FR_P. |
integer, | public, | parameter | :: | DI8P | = | 20 | Number of digits of output format I8P. |
integer, | public, | parameter | :: | DI4P | = | 11 | Number of digits of output format I4P. |
integer, | public, | parameter | :: | DI2P | = | 6 | Number of digits of output format I2P. |
integer, | public, | parameter | :: | DI1P | = | 4 | Number of digits of output format I1P. |
integer, | public, | parameter | :: | DI_P | = | DI4P | Number of digits of output format I_P. |
integer, | public, | parameter | :: | CHARACTER_KINDS_LIST(1:3) | = | [ASCII, UCS4, CK] | List of character kinds. |
integer, | public, | parameter | :: | REAL_KINDS_LIST(1:3) | = | [R8P, R4P, R_P] | List of real kinds. |
character, | public, | parameter | :: | REAL_FORMATS_LIST(1:3) | = | [FR8P, FR4P//' ', FR_P] | List of real formats. |
integer, | public, | parameter | :: | INTEGER_KINDS_LIST(1:5) | = | [I8P, I4P, I2P, I1P, I_P] | List of integer kinds. |
character, | public, | parameter | :: | INTEGER_FORMATS_LIST(1:5) | = | [FI8P, FI4P, FI2P//' ', FI1P//' ', FI_P] | List of integer formats. |
real(kind=R8P), | public, | parameter | :: | MinR16P | = | -huge(1._R8P) | Minimum value of kind=R8P real. |
real(kind=R8P), | public, | parameter | :: | MaxR16P | = | huge(1._R8P) | Maximum value of kind=R8P real. |
real(kind=R8P), | public, | parameter | :: | MinR8P | = | -huge(1._R8P) | Minimum value of kind=R8P real. |
real(kind=R8P), | public, | parameter | :: | MaxR8P | = | huge(1._R8P) | Maximum value of kind=R8P real. |
real(kind=R4P), | public, | parameter | :: | MinR4P | = | -huge(1._R4P) | Minimum value of kind=R4P real. |
real(kind=R4P), | public, | parameter | :: | MaxR4P | = | huge(1._R4P) | Maximum value of kind=R4P real. |
real(kind=R_P), | public, | parameter | :: | MinR_P | = | -huge(1._R_P) | Minimum value of kind=R_P real. |
real(kind=R_P), | public, | parameter | :: | MaxR_P | = | huge(1._R_P) | Maximum value of kind=R_P real. |
integer(kind=I8P), | public, | parameter | :: | MinI8P | = | -huge(1_I8P) | Minimum value of kind=I8P integer. |
integer(kind=I4P), | public, | parameter | :: | MinI4P | = | -huge(1_I4P) | Minimum value of kind=I4P integer. |
integer(kind=I2P), | public, | parameter | :: | MinI2P | = | -huge(1_I2P) | Minimum value of kind=I2P integer. |
integer(kind=I1P), | public, | parameter | :: | MinI1P | = | -huge(1_I1P) | Minimum value of kind=I1P integer. |
integer(kind=I_P), | public, | parameter | :: | MinI_P | = | -huge(1_I_P) | Minimum value of kind=I_P integer. |
integer(kind=I8P), | public, | parameter | :: | MaxI8P | = | huge(1_I8P) | Maximum value of kind=I8P integer. |
integer(kind=I4P), | public, | parameter | :: | MaxI4P | = | huge(1_I4P) | Maximum value of kind=I4P integer. |
integer(kind=I2P), | public, | parameter | :: | MaxI2P | = | huge(1_I2P) | Maximum value of kind=I2P integer. |
integer(kind=I1P), | public, | parameter | :: | MaxI1P | = | huge(1_I1P) | Maximum value of kind=I1P integer. |
integer(kind=I_P), | public, | parameter | :: | MaxI_P | = | huge(1_I_P) | Maximum value of kind=I_P integer. |
real(kind=R8P), | public, | parameter | :: | smallR16P | = | tiny(1._R8P) | Smallest representable value of kind=R8P real. |
real(kind=R8P), | public, | parameter | :: | smallR8P | = | tiny(1._R8P) | Smallest representable value of kind=R8P real. |
real(kind=R4P), | public, | parameter | :: | smallR4P | = | tiny(1._R4P) | Smallest representable value of kind=R4P real. |
real(kind=R_P), | public, | parameter | :: | smallR_P | = | tiny(1._R_P) | Smallest representable value of kind=R_P real. |
real(kind=R8P), | public, | parameter | :: | ZeroR16P | = | 0._R8P | |
real(kind=R8P), | public, | parameter | :: | ZeroR8P | = | 0._R8P | |
real(kind=R4P), | public, | parameter | :: | ZeroR4P | = | 0._R4P | |
real(kind=R_P), | public, | parameter | :: | ZeroR_P | = | 0._R_P | |
integer(kind=I1P), | public, | parameter | :: | BIR16P | = | storage_size(MaxR8P) | Number of bits of kind=R8P real. |
integer(kind=I1P), | public, | parameter | :: | BIR8P | = | storage_size(MaxR8P) | Number of bits of kind=R8P real. |
integer(kind=I1P), | public, | parameter | :: | BIR4P | = | storage_size(MaxR4P) | Number of bits of kind=R4P real. |
integer(kind=I1P), | public, | parameter | :: | BIR_P | = | storage_size(MaxR_P) | Number of bits of kind=R_P real. |
integer(kind=I1P), | public, | parameter | :: | BYR16P | = | BIR8P/8_I1P | Number of bytes of kind=R8P real. |
integer(kind=I1P), | public, | parameter | :: | BYR8P | = | BIR8P/8_I1P | Number of bytes of kind=R8P real. |
integer(kind=I1P), | public, | parameter | :: | BYR4P | = | BIR4P/8_I1P | Number of bytes of kind=R4P real. |
integer(kind=I1P), | public, | parameter | :: | BYR_P | = | BIR_P/8_I1P | Number of bytes of kind=R_P real. |
integer(kind=I8P), | public, | parameter | :: | BII8P | = | storage_size(MaxI8P) | Number of bits of kind=I8P integer. |
integer(kind=I4P), | public, | parameter | :: | BII4P | = | storage_size(MaxI4P) | Number of bits of kind=I4P integer. |
integer(kind=I2P), | public, | parameter | :: | BII2P | = | storage_size(MaxI2P) | Number of bits of kind=I2P integer. |
integer(kind=I1P), | public, | parameter | :: | BII1P | = | storage_size(MaxI1P) | Number of bits of kind=I1P integer. |
integer(kind=I_P), | public, | parameter | :: | BII_P | = | storage_size(MaxI_P) | Number of bits of kind=I_P integer. |
integer(kind=I8P), | public, | parameter | :: | BYI8P | = | BII8P/8_I8P | Number of bytes of kind=I8P integer. |
integer(kind=I4P), | public, | parameter | :: | BYI4P | = | BII4P/8_I4P | Number of bytes of kind=I4P integer. |
integer(kind=I2P), | public, | parameter | :: | BYI2P | = | BII2P/8_I2P | Number of bytes of kind=I2P integer. |
integer(kind=I1P), | public, | parameter | :: | BYI1P | = | BII1P/8_I1P | Number of bytes of kind=I1P integer. |
integer(kind=I_P), | public, | parameter | :: | BYI_P | = | BII_P/8_I_P | Number of bytes of kind=I_P integer. |