penf_global_parameters_variables Module

  1. penf_global_parameters_variables.F90
  2. penf_global_parameters_variables

Contents

Variables


Variables

TypeVisibilityAttributesNameInitial
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, public, parameter:: FR16P ='(E23.15E3)'
character, public, parameter:: FR8P ='(E23.15E3)'
character, public, parameter:: FR4P ='(E13.6E2)'
character, public, parameter:: FR_P =FR8P
character, public, parameter:: FI8P ='(I20)'
character, public, parameter:: FI8PZP ='(I20.19)'
character, public, parameter:: FI4P ='(I11)'
character, public, parameter:: FI4PZP ='(I11.10)'
character, public, parameter:: FI2P ='(I6)'
character, public, parameter:: FI2PZP ='(I6.5)'
character, public, parameter:: FI1P ='(I4)'
character, public, parameter:: FI1PZP ='(I4.3)'
character, public, parameter:: FI_P =FI4P
character, 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, 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, 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