PENF global parameters and variables.
Note
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(len=*), | public, | parameter | :: | FR16P | = | '(E23.15E3)' |
Output format for kind=R8P real. |
character(len=*), | public, | parameter | :: | FR8P | = | '(E23.15E3)' |
Output format for kind=R8P real. |
character(len=*), | public, | parameter | :: | FR4P | = | '(E13.6E2)' |
Output format for kind=R4P real. |
character(len=*), | public, | parameter | :: | FR_P | = | FR8P |
Output format for kind=R_P real. |
character(len=*), | public, | parameter | :: | FI8P | = | '(I20)' |
Output format for kind=I8P integer. |
character(len=*), | public, | parameter | :: | FI8PZP | = | '(I20.19)' |
Output format for kind=I8P integer with zero prefixing. |
character(len=*), | public, | parameter | :: | FI4P | = | '(I11)' |
Output format for kind=I4P integer. |
character(len=*), | public, | parameter | :: | FI4PZP | = | '(I11.10)' |
Output format for kind=I4P integer with zero prefixing. |
character(len=*), | public, | parameter | :: | FI2P | = | '(I6)' |
Output format for kind=I2P integer. |
character(len=*), | public, | parameter | :: | FI2PZP | = | '(I6.5)' |
Output format for kind=I2P integer with zero prefixing. |
character(len=*), | public, | parameter | :: | FI1P | = | '(I4)' |
Output format for kind=I1P integer. |
character(len=*), | public, | parameter | :: | FI1PZP | = | '(I4.3)' |
Output format for kind=I1P integer with zero prefixing. |
character(len=*), | public, | parameter | :: | FI_P | = | FI4P |
Output format for kind=I_P integer. |
character(len=*), | 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(len=*), | 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(len=*), | 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. |