penf_global_parameters_variables Module


Variables

Type Visibility Attributes Name Initial
integer, public, parameter :: endianL = 1
integer, public, parameter :: endianB = 0
integer, public, parameter :: ASCII = selected_char_kind('default')
integer, public, parameter :: UCS4 = selected_char_kind('default')
integer, public, parameter :: CK = selected_char_kind('default')
integer, public, parameter :: R16P = selected_real_kind(15, 307)
integer, public, parameter :: R8P = selected_real_kind(15, 307)
integer, public, parameter :: R4P = selected_real_kind(6, 37)
integer, public, parameter :: R_P = R8P
integer, public, parameter :: I8P = selected_int_kind(18)
integer, public, parameter :: I4P = selected_int_kind(9)
integer, public, parameter :: I2P = selected_int_kind(4)
integer, public, parameter :: I1P = selected_int_kind(2)
integer, public, parameter :: I_P = I4P
character(len=*), public, parameter :: FR16P = '(E23.15E3)'
character(len=*), public, parameter :: FR8P = '(E23.15E3)'
character(len=*), public, parameter :: FR4P = '(E13.6E2)'
character(len=*), public, parameter :: FR_P = FR8P
character(len=*), public, parameter :: FI8P = '(I20)'
character(len=*), public, parameter :: FI8PZP = '(I20.19)'
character(len=*), public, parameter :: FI4P = '(I11)'
character(len=*), public, parameter :: FI4PZP = '(I11.10)'
character(len=*), public, parameter :: FI2P = '(I6)'
character(len=*), public, parameter :: FI2PZP = '(I6.5)'
character(len=*), public, parameter :: FI1P = '(I4)'
character(len=*), public, parameter :: FI1PZP = '(I4.3)'
character(len=*), public, parameter :: FI_P = FI4P
character(len=*), public, parameter :: FI_PZP = FI4PZP
integer, public, parameter :: DR16P = 23
integer, public, parameter :: DR8P = 23
integer, public, parameter :: DR4P = 13
integer, public, parameter :: DR_P = DR8P
integer, public, parameter :: DI8P = 20
integer, public, parameter :: DI4P = 11
integer, public, parameter :: DI2P = 6
integer, public, parameter :: DI1P = 4
integer, public, parameter :: DI_P = DI4P
integer, public, parameter :: CHARACTER_KINDS_LIST(1:3) = [ASCII, UCS4, CK]
integer, public, parameter :: REAL_KINDS_LIST(1:3) = [R8P, R4P, R_P]
character(len=*), public, parameter :: REAL_FORMATS_LIST(1:3) = [FR8P, FR4P//' ', FR_P]
integer, public, parameter :: INTEGER_KINDS_LIST(1:5) = [I8P, I4P, I2P, I1P, I_P]
character(len=*), public, parameter :: INTEGER_FORMATS_LIST(1:5) = [FI8P, FI4P, FI2P//' ', FI1P//' ', FI_P]
real(kind=R8P), public, parameter :: MinR16P = -huge(1._R8P)
real(kind=R8P), public, parameter :: MaxR16P = huge(1._R8P)
real(kind=R8P), public, parameter :: MinR8P = -huge(1._R8P)
real(kind=R8P), public, parameter :: MaxR8P = huge(1._R8P)
real(kind=R4P), public, parameter :: MinR4P = -huge(1._R4P)
real(kind=R4P), public, parameter :: MaxR4P = huge(1._R4P)
real(kind=R_P), public, parameter :: MinR_P = -huge(1._R_P)
real(kind=R_P), public, parameter :: MaxR_P = huge(1._R_P)
integer(kind=I8P), public, parameter :: MinI8P = -huge(1_I8P)
integer(kind=I4P), public, parameter :: MinI4P = -huge(1_I4P)
integer(kind=I2P), public, parameter :: MinI2P = -huge(1_I2P)
integer(kind=I1P), public, parameter :: MinI1P = -huge(1_I1P)
integer(kind=I_P), public, parameter :: MinI_P = -huge(1_I_P)
integer(kind=I8P), public, parameter :: MaxI8P = huge(1_I8P)
integer(kind=I4P), public, parameter :: MaxI4P = huge(1_I4P)
integer(kind=I2P), public, parameter :: MaxI2P = huge(1_I2P)
integer(kind=I1P), public, parameter :: MaxI1P = huge(1_I1P)
integer(kind=I_P), public, parameter :: MaxI_P = huge(1_I_P)
real(kind=R8P), public, parameter :: smallR16P = tiny(1._R8P)
real(kind=R8P), public, parameter :: smallR8P = tiny(1._R8P)
real(kind=R4P), public, parameter :: smallR4P = tiny(1._R4P)
real(kind=R_P), public, parameter :: smallR_P = tiny(1._R_P)
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)
integer(kind=I1P), public, parameter :: BIR8P = storage_size(MaxR8P)
integer(kind=I1P), public, parameter :: BIR4P = storage_size(MaxR4P)
integer(kind=I1P), public, parameter :: BIR_P = storage_size(MaxR_P)
integer(kind=I1P), public, parameter :: BYR16P = BIR8P/8_I1P
integer(kind=I1P), public, parameter :: BYR8P = BIR8P/8_I1P
integer(kind=I1P), public, parameter :: BYR4P = BIR4P/8_I1P
integer(kind=I1P), public, parameter :: BYR_P = BIR_P/8_I1P
integer(kind=I8P), public, parameter :: BII8P = storage_size(MaxI8P)
integer(kind=I4P), public, parameter :: BII4P = storage_size(MaxI4P)
integer(kind=I2P), public, parameter :: BII2P = storage_size(MaxI2P)
integer(kind=I1P), public, parameter :: BII1P = storage_size(MaxI1P)
integer(kind=I_P), public, parameter :: BII_P = storage_size(MaxI_P)
integer(kind=I8P), public, parameter :: BYI8P = BII8P/8_I8P
integer(kind=I4P), public, parameter :: BYI4P = BII4P/8_I4P
integer(kind=I2P), public, parameter :: BYI2P = BII2P/8_I2P
integer(kind=I1P), public, parameter :: BYI1P = BII1P/8_I1P
integer(kind=I_P), public, parameter :: BYI_P = BII_P/8_I_P