penf_global_parameters_variables Module

PENF global (exposed) parameters and variables.

Used By

module~~penf_global_parameters_variables~~UsedByGraph module~penf_global_parameters_variables penf_global_parameters_variables module~penf penf module~penf_global_parameters_variables->module~penf module~penf_b_size penf_b_size module~penf_global_parameters_variables->module~penf_b_size module~penf_stringify penf_stringify module~penf_global_parameters_variables->module~penf_stringify module~foxy_xml_tag foxy_xml_tag module~penf->module~foxy_xml_tag module~befor64 befor64 module~penf->module~befor64 module~stringifor stringifor module~penf->module~stringifor module~foxy foxy module~penf->module~foxy module~foxy_xml_file foxy_xml_file module~penf->module~foxy_xml_file module~stringifor_string_t stringifor_string_t module~penf->module~stringifor_string_t module~befor64_pack_data_m befor64_pack_data_m module~penf->module~befor64_pack_data_m module~penf_b_size->module~penf module~penf_b_size->module~penf_stringify module~penf_stringify->module~penf module~foxy_xml_tag->module~foxy module~foxy_xml_tag->module~foxy_xml_file module~befor64->module~stringifor_string_t module~stringifor->module~foxy_xml_tag program~parse_file_simple parse_file_simple module~foxy->program~parse_file_simple program~create_tag create_tag module~foxy->program~create_tag program~add_attributes add_attributes module~foxy->program~add_attributes program~delete_attributes delete_attributes module~foxy->program~delete_attributes program~parse_string_simple parse_string_simple module~foxy->program~parse_string_simple program~indent_tag indent_tag module~foxy->program~indent_tag program~delete_content delete_content module~foxy->program~delete_content program~add_tag add_tag module~foxy->program~add_tag program~delete_tag delete_tag module~foxy->program~delete_tag program~write_tag write_tag module~foxy->program~write_tag module~foxy_xml_file->module~foxy module~stringifor_string_t->module~stringifor module~befor64_pack_data_m->module~befor64
Help

Variables

TypeVisibility AttributesNameInitial
logical, public :: is_initialized =.false.

Check the initialization of some variables that must be initialized.

integer, public, parameter:: endianL =1

Little endian parameter.

integer, public, parameter:: endianB =0

Big endian parameter.

integer, public :: endian =endianL

Bit ordering: Little endian (endianL), or Big endian (endianB).

integer, public, parameter:: R16P =selected_real_kind(15, 307)

Defined as R8P; 64 bits.

integer, public, parameter:: R8P =selected_real_kind(15, 307)

15 digits, range \([10^{-307} , 10^{+307} - 1]\); 64 bits.

integer, public, parameter:: R4P =selected_real_kind(6, 37)

6 digits, range \([10^{-37} , 10^{+37} - 1]\); 32 bits.

integer, public, parameter:: R_P =R8P

Default real precision.

integer, public, parameter:: I8P =selected_int_kind(18)

Range \([-2^{63},+2^{63} - 1]\), 19 digits plus sign; 64 bits.

integer, public, parameter:: I4P =selected_int_kind(9)

Range \([-2^{31},+2^{31} - 1]\), 10 digits plus sign; 32 bits.

integer, public, parameter:: I2P =selected_int_kind(4)

Range \([-2^{15},+2^{15} - 1]\), 5 digits plus sign; 16 bits.

integer, public, parameter:: I1P =selected_int_kind(2)

Range \([-2^{7} ,+2^{7} - 1]\), 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=R16P 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 FR16P.

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:: REAL_KINDS_LIST(1:4) =[R16P, R8P, R4P, R_P]

List of real kinds.

character(len=*), public, parameter:: REAL_FORMATS_LIST(1:4) =[FR16P, 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=R16P), public, parameter:: MinR16P =-huge(1._R16P)

Minimum value of kind=R16P real.

real(kind=R16P), public, parameter:: MaxR16P =huge(1._R16P)

Maximum value of kind=R16P 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 =MinR8P

Minimum value of kind=R_P real.

real(kind=R_P), public, parameter:: MaxR_P =MaxR8P

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 =MinI4P

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 =MaxI4P

Maximum value of kind=I_P integer.

real(kind=R16P), public, parameter:: smallR16P =tiny(1._R16P)

Smallest representable value of kind=R16P 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 =smallR8P

Smallest representable value of kind=R_P real.

real(kind=R16P), public, parameter:: ZeroR16 =nearest(1._R16P, 1._R16P)-nearest(1._R16P, -1._R16P)

Smallest representable difference of kind=R16P real.

real(kind=R8P), public, parameter:: ZeroR8 =nearest(1._R8P, 1._R8P)-nearest(1._R8P, -1._R8P)

Smallest representable difference of kind=R8P real.

real(kind=R4P), public, parameter:: ZeroR4 =nearest(1._R4P, 1._R4P)-nearest(1._R4P, -1._R4P)

Smallest representable difference of kind=R4P real.

real(kind=R_P), public, parameter:: Zero =ZeroR8

Smallest representable difference of kind=R_P real.

integer(kind=I2P), public :: BIR16P

Number of bits of kind=R16P real.

integer(kind=I1P), public :: BIR8P

Number of bits of kind=R8P real.

integer(kind=I1P), public :: BIR4P

Number of bits of kind=R4P real.

integer(kind=I1P), public :: BIR_P

Number of bits of kind=R_P real.

integer(kind=I2P), public :: BYR16P

Number of bytes of kind=R16P real.

integer(kind=I1P), public :: BYR8P

Number of bytes of kind=R8P real.

integer(kind=I1P), public :: BYR4P

Number of bytes of kind=R4P real.

integer(kind=I1P), public :: BYR_P

Number of bytes of kind=R_P real.

integer(kind=I8P), public, parameter:: BII8P =bit_size(MaxI8P)

Number of bits of kind=I8P integer.

integer(kind=I4P), public, parameter:: BII4P =bit_size(MaxI4P)

Number of bits of kind=I4P integer.

integer(kind=I2P), public, parameter:: BII2P =bit_size(MaxI2P)

Number of bits of kind=I2P integer.

integer(kind=I1P), public, parameter:: BII1P =bit_size(MaxI1P)

Number of bits of kind=I1P integer.

integer(kind=I_P), public, parameter:: BII_P =bit_size(MaxI_P)

Number of bits of kind=I_P integer.

integer(kind=I8P), public, parameter:: BYI8P =bit_size(MaxI8P)/8_I8P

Number of bytes of kind=I8P integer.

integer(kind=I4P), public, parameter:: BYI4P =bit_size(MaxI4P)/8_I4P

Number of bytes of kind=I4P integer.

integer(kind=I2P), public, parameter:: BYI2P =bit_size(MaxI2P)/8_I2P

Number of bytes of kind=I2P integer.

integer(kind=I1P), public, parameter:: BYI1P =bit_size(MaxI1P)/8_I1P

Number of bytes of kind=I1P integer.

integer(kind=I_P), public, parameter:: BYI_P =bit_size(MaxI_P)/8_I_P

Number of bytes of kind=I_P integer.