| 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) |