pars Module


Uses


Variables

Type Visibility Attributes Name Initial
integer, public, parameter :: max_n_of_cpus = 100000
integer, public, parameter :: MAX_N_GROUPS = 100
integer, public, parameter :: MAX_N_OF_CHAINS = 100
integer, public, parameter :: n_CPU_str_max = 20
integer, public, parameter :: N_MEM_max = 1000
integer, public, parameter :: N_MEM_max_element_components = 600
integer, public, parameter :: N_MEM_SAVE_max = 500
integer, public, parameter :: N_MEM_LIBs_max = 200
integer, public, parameter :: N_MEM_shelf_max = 200
integer, public, parameter :: n_ext_fields_max = 4
integer, public, parameter :: n_fields_defs_max = 6
integer, public, parameter :: n_max_DB_IO_off_fields = 20
integer, public, parameter :: n_max_jobstr = 10
integer, public, parameter :: num_of_alternative_locations = 4+2*n_max_jobstr
integer, public, parameter :: n_debugs_max = 100
integer, public, parameter :: max_n_ofs = 10000
integer, public, parameter :: max_open_ofs = 10000
integer, public, parameter :: repfile_index = 10001
integer, public, parameter :: logfile_index = 10002
integer, public, parameter :: max_io_units = 40
integer, public, parameter :: io_units_shift = max_io_units+20
integer, public, parameter :: max_io_vars_open = 500
integer, public, parameter :: max_active_sections = 10
integer, public, parameter :: n_QP_actions_MAX = 10
integer, public, parameter :: DP = selected_real_kind(14, 200)
integer, public, parameter :: SP = selected_real_kind(14, 200)
integer, public, parameter :: SP6 = selected_real_kind(6, 30)
integer, public, parameter :: SP = selected_real_kind(6, 30)
integer, public, parameter :: SP6 = selected_real_kind(6, 30)
integer, public, parameter :: IP = int32
integer, public, parameter :: IPL = int64
integer, public, parameter :: nf90_SP = nf90_double
integer, public, parameter :: nf90_SP = nf90_float
integer, public, parameter :: LP = selected_int_kind(2)
integer, public, parameter :: DP_YIO = DP
integer, public, parameter :: SP_YIO = SP
integer, public, parameter :: IP_YIO = IP+100
integer, public, parameter :: LP_YIO = LP+100
integer, public, parameter :: CR_YIO = 0
integer, public, parameter :: schlen = 100
integer, public, parameter :: lchlen = 500
integer, public, parameter :: msg_len = 50
integer, public, parameter :: DB_menu_length = 30+msg_len
real(kind=SP), public, parameter :: pi = 3.141592653589793238462643383279502884197_SP
real(kind=DP), public, parameter :: pi_DP = 3.141592653589793238462643383279502884197_DP
real(kind=SP), public, parameter :: zero_dfl = 1.E-5_SP
real(kind=DP), public, parameter :: zero_dfl_DP = 1.E-5_DP
real(kind=SP), public, parameter :: infinity_dfl = HUGE(1._SP)
real(kind=SP), public, parameter :: tiny_dfl = TINY(1._SP)
real(kind=SP), public, parameter :: rZERO = 0._SP
real(kind=SP), public, parameter :: rONE = 1._SP
real(kind=SP), public, parameter :: VAR_EMPTY = -9.9999999_SP
complex(kind=SP), public, parameter :: cI = (0._SP, 1._SP)
complex(kind=SP), public, parameter :: cONE = (1._SP, 0._SP)
complex(kind=SP), public, parameter :: cZERO = (0._SP, 0._SP)
complex(kind=DP), public, parameter :: cI_DP = (0._DP, 1._DP)
complex(kind=DP), public, parameter :: cONE_DP = (1._DP, 0._DP)
complex(kind=DP), public, parameter :: cZERO_DP = (0._DP, 0._DP)


📚 Documentation Pages
⏱️ Real-Time
🔗 Code API