OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
constant_mod.F
Go to the documentation of this file.
1Copyright> OpenRadioss
2Copyright> Copyright (C) 1986-2025 Altair Engineering Inc.
3Copyright>
4Copyright> This program is free software: you can redistribute it and/or modify
5Copyright> it under the terms of the GNU Affero General Public License as published by
6Copyright> the Free Software Foundation, either version 3 of the License, or
7Copyright> (at your option) any later version.
8Copyright>
9Copyright> This program is distributed in the hope that it will be useful,
10Copyright> but WITHOUT ANY WARRANTY; without even the implied warranty of
11Copyright> MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12Copyright> GNU Affero General Public License for more details.
13Copyright>
14Copyright> You should have received a copy of the GNU Affero General Public License
15Copyright> along with this program. If not, see <https://www.gnu.org/licenses/>.
16Copyright>
17Copyright>
18Copyright> Commercial Alternative: Altair Radioss Software
19Copyright>
20Copyright> As an alternative to this open-source version, Altair also offers Altair Radioss
21Copyright> software under a commercial license. Contact Altair to discuss further if the
22Copyright> commercial version may interest you: https://www.altair.com/radioss/.
23!||====================================================================
24!|| constant_mod ../common_source/modules/constant_mod.F
25!||--- called by ------------------------------------------------------
26!|| alevec ../engine/source/output/anim/generate/monvol_anim.F90
27!|| alevflu ../engine/source/output/anim/generate/monvol_anim.F90
28!|| alew8 ../engine/source/ale/grid/alew8.F90
29!|| allocbuf_auto ../engine/source/elements/elbuf/allocbuf_auto.F
30!|| anim_nodal_ssp_elems ../engine/source/output/anim/generate/anim_nodal_ssp_elems.F90
31!|| animbale ../engine/source/output/anim/generate/monvol_anim.F90
32!|| animcale ../engine/source/output/anim/generate/monvol_anim.F90
33!|| anivflow ../engine/source/output/anim/generate/monvol_anim.F90
34!|| anivflowp ../engine/source/output/anim/generate/monvol_anim.F90
35!|| arruda_boyce ../starter/source/materials/mat/mat092/law92_nlsqf.F90
36!|| arruda_boyce_dyda ../starter/source/materials/mat/mat092/law92_nlsqf.F90
37!|| bcs_nrf ../engine/source/boundary_conditions/bcs_nrf.F90
38!|| bcs_wall_trigger ../engine/source/boundary_conditions/bcs_wall_trigger.F90
39!|| brent_algo ../common_source/modules/root_finding_algo_mod.F90
40!|| brokmann_crack_init ../starter/source/materials/fail/windshield_alter/brokmann_crack_init.F90
41!|| brokmann_elem_renum ../starter/source/materials/fail/windshield_alter/brokmann_elem_spmd_renum.F90
42!|| brokmann_random ../starter/source/materials/fail/windshield_alter/brokmann_random.F90
43!|| calculp2 ../starter/source/materials/mat/mat057/calculp2.F90
44!|| check_sorting_criteria ../engine/source/interfaces/intsort/check_sorting_criteria.F90
45!|| chk_shell_offset ../starter/source/elements/shell/shell_offset/chk_shell_offset.F90
46!|| clipping_weiler_atherton ../common_source/tools/clipping/polygon_clipping_mod.F90
47!|| compaction ../common_source/eos/compaction.F90
48!|| compaction2 ../common_source/eos/compaction2.F90
49!|| compaction_tab ../common_source/eos/compaction_tab.F90
50!|| compaction_tab_init ../common_source/eos/compaction_tab.F90
51!|| compute_voxel_dimensions ../engine/source/interfaces/intsort/voxel_dimensions.F90
52!|| construct_multimat_eos ../common_source/modules/multimat_param_mod.F90
53!|| crack_depth_init ../starter/source/materials/fail/windshield_alter/crack_depth_init.F90
54!|| create_plane_clause ../starter/source/model/sets/create_plane_clause.F90
55!|| crityld2000 ../starter/source/materials/mat/mat087/law87_upd.F90
56!|| damping_funct_ini ../engine/source/assembly/damping_funct_ini.f90
57!|| damping_range_compute_param ../starter/source/general_controls/damping/damping_range_compute_param.F90
58!|| damping_range_init ../starter/source/general_controls/damping/damping_range_init.F90
59!|| damping_range_shell ../engine/source/general_controls/damping/damping_range_shell.F90
60!|| damping_range_shell_mom ../engine/source/general_controls/damping/damping_range_shell_mom.F90
61!|| damping_range_solid ../engine/source/general_controls/damping/damping_range_solid.F90
62!|| damping_vref_compute_dampa ../engine/source/assembly/damping_vref_compute_dampa.F90
63!|| damping_vref_rby ../engine/source/assembly/damping_vref_rby.F90
64!|| damping_vref_rby_stiff ../engine/source/assembly/damping_vref_rby_stiff.F90
65!|| damping_vref_sum6_rby ../engine/source/assembly/damping_vref_sum6_rby.F90
66!|| defbeam_sect_new ../starter/source/properties/beam/defbeam_sect_new.F90
67!|| detach_node ../engine/source/engine/node_spliting/detach_node.f90
68!|| detach_node_from_interfaces ../engine/source/engine/node_spliting/detach_node.F90
69!|| detach_node_from_shells ../engine/source/engine/node_spliting/detach_node.F90
70!|| detonation_times_printout ../starter/source/initial_conditions/detonation/detonation_times_printout.F90
71!|| dim_shell_offsetp ../starter/source/elements/shell/shell_offset/dim_shell_offsetp.F90
72!|| dttherm ../engine/source/time_step/dttherm.F90
73!|| ebcs11_propellant ../engine/source/boundary_conditions/ebcs/ebcs11_propellant.F90
74!|| ebcs12_cyclic ../engine/source/boundary_conditions/ebcs/ebcs12_cyclic.F90
75!|| ebcs8_inlet ../engine/source/boundary_conditions/ebcs/ebcs8_inlet.F90
76!|| ebcs_cyclic_surface_matching_2d ../starter/source/boundary_conditions/ebcs/ebcs_cyclic_surface_matching_2d.F90
77!|| ebcs_cyclic_surface_matching_3d ../starter/source/boundary_conditions/ebcs/ebcs_cyclic_surface_matching_3d.F90
78!|| eikonal_compute_adjacent ../starter/source/initial_conditions/detonation/eikonal_compute_adjacent.F90
79!|| eikonal_fast_marching_method ../starter/source/initial_conditions/detonation/eikonal_fast_marching_method.F90
80!|| eikonal_godunov_operator_2d ../starter/source/initial_conditions/detonation/eikonal_godunov_operator_2d.F90
81!|| eikonal_godunov_operator_3d ../starter/source/initial_conditions/detonation/eikonal_godunov_operator_3d.F90
82!|| eikonal_init_mixture_vel ../starter/source/initial_conditions/detonation/eikonal_ini_mixture_vel.F90
83!|| eikonal_init_sorting ../starter/source/initial_conditions/detonation/eikonal_init_sorting.F90
84!|| eikonal_init_start_list_2d ../starter/source/initial_conditions/detonation/eikonal_init_start_list_2d.F90
85!|| eikonal_remove_first ../starter/source/initial_conditions/detonation/eikonal_remove_first.f90
86!|| eikonal_solver ../starter/source/initial_conditions/detonation/eikonal_solver.F90
87!|| eos_table_copy ../starter/source/materials/tools/eos_table_copy.F90
88!|| eosexponential ../common_source/eos/eosexponential.F90
89!|| eoslinear ../common_source/eos/eoslinear.F
90!|| eosmain51 ../engine/source/materials/mat/mat051/eosmain51.F90
91!|| eospolyno ../common_source/eos/eospolyno.F
92!|| fail_composite_c ../engine/source/materials/fail/composite/fail_composite_c.F90
93!|| fail_composite_s ../engine/source/materials/fail/composite/fail_composite_s.F90
94!|| fail_gene1_b ../engine/source/materials/fail/gene1/fail_gene1_b.F90
95!|| fail_gene1_ib ../engine/source/materials/fail/gene1/fail_gene1_ib.F90
96!|| fail_inievo_b ../engine/source/materials/fail/inievo/fail_inievo_b.F90
97!|| fail_inievo_ib ../engine/source/materials/fail/inievo/fail_inievo_ib.F90
98!|| fail_lemaitre_c ../engine/source/materials/fail/lemaitre/fail_lemaitre_c.F90
99!|| fail_lemaitre_s ../engine/source/materials/fail/lemaitre/fail_lemaitre_s.f90
100!|| fail_spalling_s ../engine/source/materials/fail/spalling/fail_spalling_s.F90
101!|| fail_tab2_b ../engine/source/materials/fail/tabulated/fail_tab2_b.F90
102!|| fail_tab2_ib ../engine/source/materials/fail/tabulated/fail_tab2_ib.F90
103!|| fail_visual_b ../engine/source/materials/fail/visual/fail_visual_b.F90
104!|| fail_visual_ib ../engine/source/materials/fail/visual/fail_visual_ib.F90
105!|| fill_voxel_local ../engine/source/interfaces/intsort/fill_voxel.F90
106!|| fill_voxel_local_partial ../engine/source/interfaces/intsort/fill_voxel.F90
107!|| fill_voxel_remote ../engine/source/interfaces/intsort/fill_voxel.F90
108!|| find_segment_in_list ../engine/source/engine/node_spliting/detach_node.F90
109!|| force ../engine/source/loads/general/force.F90
110!|| fpcont2_max_output ../engine/source/output/h3d/h3d_results/fpcont2_max_output.F90
111!|| fpcont2_min_output ../engine/source/output/h3d/h3d_results/fpcont2_min_output.f90
112!|| fractal_dmg_init ../starter/source/materials/fail/fractal/fractal_dmg_init.F90
113!|| fractal_elem_renum ../starter/source/materials/fail/fractal/fractal_elem_spmd_renum.F90
114!|| fractal_element_neighbor ../starter/source/materials/fail/fractal/fractal_element_neighbor.f90
115!|| func_table_copy ../starter/source/materials/tools/func_table_copy.F90
116!|| get_convexity_normals ../engine/source/interfaces/interf/get_convexity_normals.F90
117!|| get_list_remnode ../starter/source/interfaces/inter3d1/get_list_remnode.F90
118!|| get_neighbour_surface ../engine/source/interfaces/interf/get_neighbour_surface.F90
119!|| get_neighbour_surface_from_remote_proc ../engine/source/interfaces/interf/get_neighbour_surface_from_remote_proc.F90
120!|| get_preload_axial ../engine/source/elements/spring/preload_axial.F90
121!|| get_segment_interface_id ../engine/source/interfaces/interf/get_segment_interface_id.F90
122!|| get_segment_normal ../engine/source/interfaces/interf/get_segment_normal.F90
123!|| get_segment_orientation ../engine/source/interfaces/interf/get_segment_orientation.F90
124!|| get_volume_area ../engine/source/airbag/get_volume_area.F90
125!|| glob_therm_init ../starter/source/constraints/thermic/glob_therm_init.F90
126!|| granular51 ../engine/source/materials/mat/mat051/granular51.F90
127!|| h3d_oned_scalar ../engine/source/output/h3d/h3d_results/h3d_oned_scalar.F90
128!|| h3d_quad_scalar_1 ../engine/source/output/h3d/h3d_results/h3d_quad_scalar_1.F90
129!|| hm_preread_inivel ../starter/source/initial_conditions/general/inivel/hm_preread_inivel.F90
130!|| hm_preread_skw ../starter/source/tools/skew/hm_preread_skw.F90
131!|| hm_read_bcs_nrf ../starter/source/boundary_conditions/hm_read_bcs_nrf.F90
132!|| hm_read_bcs_wall ../starter/source/boundary_conditions/hm_read_bcs_wall.F90
133!|| hm_read_ebcs_cyclic ../starter/source/boundary_conditions/ebcs/hm_read_ebcs_cyclic.F90
134!|| hm_read_ebcs_propellant ../starter/source/boundary_conditions/ebcs/hm_read_ebcs_propellant.F90
135!|| hm_read_eos_compaction ../starter/source/materials/eos/hm_read_eos_compaction.F90
136!|| hm_read_eos_compaction2 ../starter/source/materials/eos/hm_read_eos_compaction2.F90
137!|| hm_read_eos_compaction_tab ../starter/source/materials/eos/hm_read_eos_compaction_tab.F90
138!|| hm_read_eos_exponential ../starter/source/materials/eos/hm_read_eos_exponential.F90
139!|| hm_read_eos_osborne ../starter/source/materials/eos/hm_read_eos_osborne.F
140!|| hm_read_eos_powderburn ../starter/source/materials/eos/hm_read_eos_powderburn.F90
141!|| hm_read_fail_composite ../starter/source/materials/fail/composite/hm_read_fail_composite.F90
142!|| hm_read_fail_lemaitre ../starter/source/materials/fail/lemaitre/hm_read_fail_lemaitre.F90
143!|| hm_read_fail_spalling ../starter/source/materials/fail/spalling/hm_read_fail_spalling.F90
144!|| hm_read_fractal_dmg ../starter/source/materials/fail/fractal/hm_read_fractal_dmg.F90
145!|| hm_read_inivol ../starter/source/initial_conditions/inivol/hm_read_inivol.F90
146!|| hm_read_mat ../starter/source/materials/mat/hm_read_mat.F90
147!|| hm_read_mat02_jc ../starter/source/materials/mat/mat002/hm_read_mat02_jc.F90
148!|| hm_read_mat02_predef ../starter/source/materials/mat/mat002/hm_read_mat02_predef.F90
149!|| hm_read_mat02_zerilli ../starter/source/materials/mat/mat002/hm_read_mat02_zerilli.F90
150!|| hm_read_mat102 ../starter/source/materials/mat/mat102/hm_read_mat102.F
151!|| hm_read_mat105 ../starter/source/materials/mat/mat105/hm_read_mat105.F90
152!|| hm_read_mat106 ../starter/source/materials/mat/mat106/hm_read_mat106.F90
153!|| hm_read_mat125 ../starter/source/materials/mat/mat125/hm_read_mat125.F90
154!|| hm_read_mat126 ../starter/source/materials/mat/mat126/hm_read_mat126.F90
155!|| hm_read_mat127 ../starter/source/materials/mat/mat127/hm_read_mat127.F90
156!|| hm_read_mat128 ../starter/source/materials/mat/mat128/hm_read_mat128.F90
157!|| hm_read_mat129 ../starter/source/materials/mat/mat129/hm_read_mat129.F90
158!|| hm_read_mat130 ../starter/source/materials/mat/mat130/hm_read_mat130.F90
159!|| hm_read_mat133 ../starter/source/materials/mat/mat133/hm_read_mat133.F90
160!|| hm_read_mat134 ../starter/source/materials/mat/mat134/hm_read_mat134.F90
161!|| hm_read_mat163 ../starter/source/materials/mat/mat163/hm_read_mat163.F90
162!|| hm_read_mat169_arup ../starter/source/materials/mat/mat169/hm_read_mat169.F90
163!|| hm_read_mat50 ../starter/source/materials/mat/mat050/hm_read_mat50.F90
164!|| hm_read_mat57 ../starter/source/materials/mat/mat057/hm_read_mat57.F90
165!|| hm_read_mat81 ../starter/source/materials/mat/mat081/hm_read_mat81.F90
166!|| hm_read_mat87 ../starter/source/materials/mat/mat087/hm_read_mat87.F90
167!|| hm_read_mat88 ../starter/source/materials/mat/mat088/hm_read_mat88.F90
168!|| hm_read_preload_axial ../starter/source/loads/general/preload/hm_read_preload_axial.F90
169!|| hm_read_therm_stress ../starter/source/materials/therm/hm_read_therm_stress.F90
170!|| i24intarea_fic ../engine/source/interfaces/int24/i24intarea_fic.F90
171!|| i2_surfi ../starter/source/interfaces/inter3d1/i2_surfi.F90
172!|| idealgas ../common_source/eos/idealgas.F
173!|| idealgas_vt ../common_source/eos/idealgas_vt.F
174!|| iniebcs_propellant_get_cp ../starter/source/boundary_conditions/ebcs/iniebcs_propellant.F90
175!|| iniphase ../starter/source/initial_conditions/inivol/iniphase.F
176!|| init_bcs_nrf ../starter/source/boundary_conditions/init_bcs_nrf.F90
177!|| init_inivol ../starter/source/initial_conditions/inivol/init_inivol.F90
178!|| init_inivol_2d_polygons ../starter/source/initial_conditions/inivol/init_inivol_2D_polygons.F90
179!|| init_rwall_penalty ../starter/source/constraints/general/rwall/init_rwall_penalty.F90
180!|| initemp_shell ../starter/source/materials/therm/initemp_shell.F90
181!|| inivel_dt2 ../engine/source/loads/general/inivel/inivel_dt2.F90
182!|| inivel_start ../engine/source/loads/general/inivel/inivel_start.F90
183!|| inivol_set ../starter/source/initial_conditions/inivol/inivol_set.F
184!|| inter11_duplicate_edge ../engine/source/engine/node_spliting/detach_node.F90
185!|| inter7_candidate_pairs ../engine/source/interfaces/intsort/inter7_candidate_pairs.F90
186!|| inter7_collision_detection ../engine/source/interfaces/intsort/inter7_collision_detection.F90
187!|| inter7_filter_cand ../engine/source/interfaces/intsort/inter7_filter_cand.F90
188!|| inter7_penetration ../engine/source/interfaces/intsort/inter7_penetration.F90
189!|| inter_component_bound ../engine/source/interfaces/generic/inter_component_bound.F90
190!|| inter_init_component ../engine/source/interfaces/generic/inter_init_component.F90
191!|| inter_init_node_color ../engine/source/interfaces/generic/inter_init_node_color.F90
192!|| inter_save_candidate ../starter/source/interfaces/inter3d1/inter_save_candidate.F90
193!|| inter_sh_offset_ini ../engine/source/interfaces/shell_offset/inter_offset_ini.F90
194!|| intersectpt ../common_source/tools/clipping/polygon_clipping_mod.F90
195!|| jcook51 ../engine/source/materials/mat/mat051/jcook51.F90
196!|| jwl_eos_delta ../engine/source/materials/mat/mat041/jwl_eos_mod.F90
197!|| law133_upd ../starter/source/materials/mat/mat133/law133_upd.F90
198!|| law163_upd ../starter/source/materials/mat/mat163/law163_upd.F90
199!|| law190_upd ../starter/source/materials/mat/mat190/law190_upd.F90
200!|| law42c_ini ../starter/source/materials/mat/mat042/law42c_ini.F90
201!|| law81_upd ../starter/source/materials/mat/mat081/law81_upd.F90
202!|| law87_upd ../starter/source/materials/mat/mat087/law87_upd.F90
203!|| law92_guess ../starter/source/materials/mat/mat092/law92_nlsqf.F90
204!|| law92_nlsqf ../starter/source/materials/mat/mat092/law92_nlsqf.F90
205!|| lszk ../common_source/eos/lszk.F
206!|| m21law ../engine/source/materials/mat/mat021/m21law.F
207!|| m36init ../starter/source/materials/mat/mat036/m36init.F90
208!|| m5in2 ../starter/source/initial_conditions/detonation/m5in2.F
209!|| m5in2t ../starter/source/initial_conditions/detonation/m5in2t.F
210!|| m5in3 ../starter/source/initial_conditions/detonation/m5in3.F
211!|| margin_reduction ../starter/source/interfaces/inter3d1/margin.F90
212!|| mat25_crasurv_c ../engine/source/materials/mat/mat025/mat25_crasurv_c.F90
213!|| mat25_crasurv_s ../engine/source/materials/mat/mat025/mat25_crasurv_s.F90
214!|| mat25_tsaiwu_c ../engine/source/materials/mat/mat025/mat25_tsaiwu_c.F90
215!|| mat25_tsaiwu_s ../engine/source/materials/mat/mat025/mat25_tsaiwu_s.F90
216!|| mat87c_hansel ../engine/source/materials/mat/mat087/mat87c_hansel.F90
217!|| mat87c_swift_voce ../engine/source/materials/mat/mat087/mat87c_swift_voce.F90
218!|| mat87c_tabulated ../engine/source/materials/mat/mat087/mat87c_tabulated.F90
219!|| mat87c_tabulated_3dir_ortho ../engine/source/materials/mat/mat087/mat87c_tabulated_3dir_ortho.F90
220!|| mat_table_table_copy ../starter/source/materials/tools/mat_table_table_copy.F90
221!|| minter1d_rat ../common_source/eos/minter1d_rat.F
222!|| mmain ../engine/source/materials/mat_share/mmain.F90
223!|| monotone_in_rate_signed_highfix ../starter/source/materials/mat/mat088/hm_read_mat88.F90
224!|| mrqcof_law92 ../starter/source/materials/mat/mat092/law92_nlsqf.F90
225!|| mrqmin_law92 ../starter/source/materials/mat/mat092/law92_nlsqf.F90
226!|| mulaw ../engine/source/materials/mat_share/mulaw.F90
227!|| mulaw8 ../engine/source/materials/mat_share/mulaw8.F90
228!|| mulawc ../engine/source/materials/mat_share/mulawc.F90
229!|| multi_muscl_compute_pressure ../engine/source/multifluid/multi_muscl_compute_pressure.F90
230!|| multi_solve_eint ../engine/source/multifluid/multi_solve_eint.F90
231!|| multifluid_global_tdet ../starter/source/multifluid/multifluid_global_tdet.F
232!|| murnaghan ../common_source/eos/murnaghan.F
233!|| nasg ../common_source/eos/nasg.F
234!|| newman_raju ../common_source/fail/newman_raju.F90
235!|| noble_abel ../common_source/eos/noble_abel.F
236!|| offset_nproj ../engine/source/interfaces/shell_offset/offset_nproj.F90
237!|| osborne ../common_source/eos/osborne.F
238!|| output_allocate_noda_pext ../common_source/modules/output/output_mod.F90
239!|| pblast_load ../common_source/modules/loads/pblast_mod.F90
240!|| pblast_parameters__air_burst ../common_source/modules/loads/pblast_mod.F90
241!|| pblast_parameters__free_air ../common_source/modules/loads/pblast_mod.F90
242!|| pblast_parameters__surface_burst ../common_source/modules/loads/pblast_mod.F90
243!|| polygon_addpoint ../common_source/tools/clipping/polygon_mod.F90
244!|| polygon_create ../common_source/tools/clipping/polygon_mod.F90
245!|| polygon_is_point_inside ../common_source/tools/clipping/polygon_clipping_mod.F90
246!|| polygon_list_destroy ../common_source/tools/clipping/polygon_mod.F90
247!|| polygon_setclockwise ../common_source/tools/clipping/polygon_clipping_mod.F90
248!|| polygon_zeroing ../common_source/tools/clipping/polygon_mod.F90
249!|| powder_burn ../common_source/eos/powder_burn.F
250!|| preload_axial ../engine/source/elements/spring/preload_axial.F90
251!|| preload_solid_ini ../engine/source/elements/solid/solide/preload_solid_ini.F90
252!|| prodmat ../engine/source/materials/tools/prodmat.F
253!|| prodmatvect ../starter/source/materials/mat/mat087/law87_upd.F90
254!|| puff ../common_source/eos/puff.F
255!|| r_yld2000 ../starter/source/materials/mat/mat087/law87_upd.F90
256!|| random_walk_dmg ../starter/source/materials/fail/fractal/random_walk_dmg.F90
257!|| rbe3f_pen ../engine/source/constraints/general/rbe3/rbe3f_pen.F90
258!|| rbe3fpen_ininp ../engine/source/constraints/general/rbe3/rbe3pen_init.F90
259!|| rbe3pen_init ../engine/source/constraints/general/rbe3/rbe3pen_init.F90
260!|| read_common_data ../common_source/modules/boundary_conditions/ebcs_mod.F90
261!|| read_mat25_crasurv ../starter/source/materials/mat/mat025/read_mat25_crasurv.F90
262!|| read_mat25_tsaiwu ../starter/source/materials/mat/mat025/read_mat25_tsaiwu.F90
263!|| read_sensor_python ../starter/source/tools/sensor/hm_read_sensor_python.F90
264!|| redef3 ../engine/source/elements/spring/redef3.F90
265!|| redef_seatbelt ../engine/source/tools/seatbelts/redef_seatbelt.F90
266!|| resol_alloc_phase10 ../engine/source/engine/resol_alloc.F90
267!|| resol_alloc_phase4 ../engine/source/engine/resol_alloc.F90
268!|| resol_alloc_phase5 ../engine/source/engine/resol_alloc.F90
269!|| resol_alloc_phase6 ../engine/source/engine/resol_alloc.F90
270!|| resol_alloc_phase7 ../engine/source/engine/resol_alloc.F90
271!|| resol_alloc_phase9 ../engine/source/engine/resol_alloc.F90
272!|| retractor_table_inv ../engine/source/tools/seatbelts/retractor_table_inv.F90
273!|| retractor_table_inv2 ../engine/source/tools/seatbelts/retractor_table_inv2.F90
274!|| rgwal0_pen ../engine/source/constraints/general/rwall/rgwall_pen.F90
275!|| rwall_fpen ../engine/source/constraints/general/rwall/rgwall_pen.F90
276!|| s10get_x0 ../engine/source/elements/solid/solide10/s10get_x0.F90
277!|| s20temp ../starter/source/elements/solid/solide20/s20temp.F90
278!|| s6chour_ctl ../engine/source/elements/thickshell/solide6c/s6chour_ctl.F90
279!|| s6fint_reg ../engine/source/elements/solid/solide6z/s6fint_reg.F90
280!|| s6for_distor ../engine/source/elements/thickshell/solide6c/s6for_distor.F90
281!|| s6zdefo3 ../engine/source/elements/solid/solide6z/s6zdefo3.F90
282!|| s6zderi3 ../engine/source/elements/solid/solide6z/s6zderi3.F90
283!|| s6zfint3 ../engine/source/elements/solid/solide6z/s6zfint3.F90
284!|| s6zforc3 ../engine/source/elements/solid/solide6z/s6zforc3.f90
285!|| s6zhour3 ../engine/source/elements/solid/solide6z/s6zhourg3.F90
286!|| s6zinit3 ../starter/source/elements/solid/solide6z/s6zinit3.F90
287!|| s6zrcoor3 ../engine/source/elements/solid/solide6z/s6zrcoor3.F90
288!|| sdistor_ini ../engine/source/elements/solid/solide/sdistror_ini.F90
289!|| select_s2s ../starter/source/interfaces/inter3d1/select_s2s.F90
290!|| sensor_python ../engine/source/tools/sensor/sensor_python.F90
291!|| set_new_node_values ../engine/source/engine/node_spliting/detach_node.F90
292!|| sfor_3n2s3 ../engine/source/elements/solid/solide/sfor_4n2s4.F90
293!|| sfor_4n2s4 ../engine/source/elements/solid/solide/sfor_4n2s4.F90
294!|| sfor_ns2s4 ../engine/source/elements/solid/solide/sfor_ns2s4.F90
295!|| sfor_visn6 ../engine/source/elements/thickshell/solide6c/sfor_visn6.F90
296!|| sh_offset_jonct_chk ../starter/source/elements/shell/shell_offset/sh_offset_jonkt_chk.F90
297!|| sh_offset_nproj ../starter/source/elements/shell/shell_offset/shell_offset_nproj.F90
298!|| sh_offset_setn ../starter/source/elements/shell/shell_offset/sh_offset_setn.F90
299!|| shell_offset_ini ../starter/source/elements/shell/shell_offset/shell_offset_ini.F90
300!|| shell_offset_wm_ini ../engine/source/elements/shell/shell_offset_wm_ini.F90
301!|| shell_offsetp ../starter/source/elements/shell/shell_offset/shell_offsetp.f90
302!|| shour_ctl ../engine/source/elements/solid/solidez/shour_ctl.F90
303!|| sigeps01 ../starter/source/materials/mat/mat001/sigeps01.F90
304!|| sigeps100 ../engine/source/materials/mat/mat100/sigeps100.F90
305!|| sigeps106 ../engine/source/materials/mat/mat106/sigeps106.F90
306!|| sigeps106c ../engine/source/materials/mat/mat106/sigeps106c.F90
307!|| sigeps125 ../engine/source/materials/mat/mat125/sigeps125.F90
308!|| sigeps125c ../engine/source/materials/mat/mat125/sigeps125c.F90
309!|| sigeps126 ../engine/source/materials/mat/mat126/sigeps126.F90
310!|| sigeps127 ../engine/source/materials/mat/mat127/sigeps127.F90
311!|| sigeps127c ../engine/source/materials/mat/mat127/sigeps127c.F90
312!|| sigeps128c ../engine/source/materials/mat/mat128/sigeps128c.F90
313!|| sigeps128s ../engine/source/materials/mat/mat128/sigeps128s.F90
314!|| sigeps129s ../engine/source/materials/mat/mat129/sigeps129s.F90
315!|| sigeps130 ../engine/source/materials/mat/mat130/sigeps130.F90
316!|| sigeps133 ../engine/source/materials/mat/mat133/sigeps133.F90
317!|| sigeps134s ../engine/source/materials/mat/mat134/sigeps134s.F90
318!|| sigeps163 ../engine/source/materials/mat/mat163/sigeps163.F90
319!|| sigeps169_connect ../engine/source/materials/mat/mat169/sigeps169_connect.F90
320!|| sigeps50s ../engine/source/materials/mat/mat050/sigeps50s.F90
321!|| sigeps51 ../engine/source/materials/mat/mat051/sigeps51.F90
322!|| sigeps51_boundary_material ../engine/source/materials/mat/mat051/sigeps51_boundary_material.F90
323!|| sigeps57c ../engine/source/materials/mat/mat057/sigeps57c.F90
324!|| sigeps81 ../engine/source/materials/mat/mat081/sigeps81.F90
325!|| sigeps87c ../engine/source/materials/mat/mat087/sigeps87c.F90
326!|| sigeps88 ../engine/source/materials/mat/mat088/sigeps88.f90
327!|| sigeps88c ../engine/source/materials/mat/mat088/sigeps88c.F90
328!|| sph_crit_voxel ../engine/source/elements/sph/sph_crit_voxel.F90
329!|| spmd_exch_flow_tracking_data ../engine/source/ale/grid/spmd_exch_flow_tracking_data.F90
330!|| spmd_exch_flow_tracking_data2 ../engine/source/ale/grid/spmd_exch_flow_tracking_data2.F90
331!|| spmd_exch_flow_tracking_data3 ../engine/source/ale/grid/spmd_exch_flow_tracking_data3.F90
332!|| spmd_exch_flow_tracking_data4 ../engine/source/ale/grid/spmd_exch_flow_tracking_data4.F90
333!|| spmd_exch_output_noda_pext ../engine/source/mpi/output/spmd_exch_output_noda_pext.F
334!|| spmd_exchange_component ../engine/source/mpi/interfaces/spmd_exch_component.F90
335!|| spmd_gather_nodal_scalar ../engine/source/mpi/nodes/spmd_gather_nodal_scalar.F
336!|| spmd_update_frontier_int25 ../engine/source/mpi/interfaces/spmd_update_frontier_int25.F90
337!|| spmd_xv_inter_type1 ../engine/source/mpi/nodes/spmd_sd_xv_inter1.f90
338!|| stiffgas ../common_source/eos/stiffgas.F
339!|| stifint_icontrol ../starter/source/interfaces/interf1/stifint_icontrol.F90
340!|| sz_dt1 ../engine/source/elements/solid/solidez/sz_dt1.F90
341!|| table_mat2d_intersect ../starter/source/materials/mat/mat088/hm_read_mat88.F90
342!|| table_mat_vinterp_c1 ../engine/source/materials/tools/table_mat_vinterp_c1.F90
343!|| tabulated ../common_source/eos/tabulated.F
344!|| test_jc_shell_detach ../engine/source/engine/node_spliting/detach_node.F90
345!|| thsechecksum ../engine/source/output/th/thchecksum.F90
346!|| tillotson ../common_source/eos/tillotson.F
347!|| update_neighbour_segment ../engine/source/interfaces/interf/update_neighbour_segment.F90
348!|| updfail ../starter/source/materials/updfail.F90
349!|| velrot_explicit ../engine/source/constraints/general/rbody/velrot_explicit.F90
350!|| visc_plas ../engine/source/materials/visc/visc_plas.F90
351!|| xyz16 ../engine/source/output/anim/generate/monvol_anim.F90
352!|| xyznor16 ../engine/source/output/anim/generate/monvol_anim.F90
353!|| zeroing_matparam ../common_source/modules/mat_elem/matparam_def_mod.F90
354!||====================================================================
355 module constant_mod
356 implicit none
357#include "my_real.inc"
358 my_real, parameter :: infinity = 1e20
359 my_real, parameter :: zero = 0.
360 my_real, parameter :: one = 1.
361 my_real, parameter :: two = 2.
362 my_real, parameter :: three = 3.
363 my_real, parameter :: four = 4.
364 my_real, parameter :: five = 5.
365 my_real, parameter :: six = 6.
366 my_real, parameter :: seven = 7.
367 my_real, parameter :: eight = 8.
368 my_real, parameter :: nine = 9.
369 my_real, parameter :: ten = 10.
370 my_real, parameter :: eleven = 11.
371 my_real, parameter :: twelve = 12.
372 my_real, parameter :: fourteen = 14.
373 my_real, parameter :: fifteen = 15.
374 my_real, parameter :: sixteen = 16.
375 my_real, parameter :: eighteen = 18.
376 my_real, parameter :: twenty = 20.
377 my_real, parameter :: twenty4 = 24.
378 my_real, parameter :: twenty5 = 25.
379 my_real, parameter :: twenty7 = 27.
380 my_real, parameter :: thirty = 30.
381 my_real, parameter :: thirty2 = 32.
382 my_real, parameter :: thirty6 = 36.
383 my_real, parameter :: forty = 40.
384 my_real, parameter :: forty5 = 45.
385 my_real, parameter :: forty8 = 48.
386 my_real, parameter :: fifty = 50.
387 my_real, parameter :: fifty4 = 54.
388 my_real, parameter :: sixty4 = 64.
389 my_real, parameter :: eighty = 80.
390 my_real, parameter :: ninety = 90.
391 my_real, parameter :: eighty16 = 96.
392 my_real, parameter :: eighty19 = 99.
393 my_real, parameter :: hundred = 100.
394 my_real, parameter :: hundred28 = 128.
395 my_real, parameter :: hundred50 = 150.
396 my_real, parameter :: hundred80 = 180.
397 my_real, parameter :: three100 = 300.
398 my_real, parameter :: twohundred25 = 225.
399 my_real, parameter :: twohundred95 = 295.
400 my_real, parameter :: twohundred98 = 298.
401 my_real, parameter :: twohundred93 = 293.
402 my_real, parameter :: threehundred24 = 324.
403 my_real, parameter :: fivehundred12 = 512.
404 my_real, parameter :: two1000 = 2000.
405 my_real, parameter :: three1000 = 3000.
406 my_real, parameter :: ep02 = hundred
407 my_real, parameter :: ep03 = ep02 * ten
408 my_real, parameter :: ep04 = ep03 * ten
409 my_real, parameter :: ep05 = ep04 * ten
410 my_real, parameter :: ep06 = ep05 * ten
411 my_real, parameter :: ep07 = ep06 * ten
412 my_real, parameter :: ep08 = ep07 * ten
413 my_real, parameter :: ep09 = ep08 * ten
414 my_real, parameter :: ep10 = ep09 * ten
415 my_real, parameter :: ep11 = ep10 * ten
416 my_real, parameter :: ep12 = ep11 * ten
417 my_real, parameter :: ep13 = ep12 * ten
418 my_real, parameter :: ep14 = ep13 * ten
419 my_real, parameter :: ep15 = ep14 * ten
420 my_real, parameter :: ep16 = ep15 * ten
421 my_real, parameter :: ep17 = ep16 * ten
422 my_real, parameter :: ep18 = ep17 * ten
423 my_real, parameter :: ep19 = ep18 * ten
424 my_real, parameter :: ep20 = ep19 * ten
425 my_real, parameter :: ep21 = ep20 * ten
426 my_real, parameter :: ep29 = ep20 * ep09
427 my_real, parameter :: ep30 = ep20 * ep10
428 my_real, parameter :: ep31 = ep30 * ten
429 my_real, parameter :: ep35 = ep30 * ep05
430 my_real, parameter :: ep36 = ep30 * ep06
431 my_real, parameter :: ep37 = ep30 * ep07
432 my_real, parameter :: em01 = one / ten
433 my_real, parameter :: em02 = one / ep02
434 my_real, parameter :: em03 = one / ep03
435 my_real, parameter :: em04 = one / ep04
436 my_real, parameter :: em05 = one / ep05
437 my_real, parameter :: em06 = one / ep06
438 my_real, parameter :: em07 = one / ep07
439 my_real, parameter :: em08 = one / ep08
440 my_real, parameter :: em09 = one / ep09
441 my_real, parameter :: em10 = one / ep10
442 my_real, parameter :: em11 = one / ep11
443 my_real, parameter :: em12 = one / ep12
444 my_real, parameter :: em13 = one / ep13
445 my_real, parameter :: em14 = one / ep14
446 my_real, parameter :: em15 = one / ep15
447 my_real, parameter :: em16 = one / ep16
448 my_real, parameter :: em17 = one / ep17
449 my_real, parameter :: em18 = one / ep18
450 my_real, parameter :: em19 = one / ep19
451 my_real, parameter :: em20 = one / ep20
452 my_real, parameter :: em30 = one / ep30
453 my_real, parameter :: em35 = one / ep35
454 my_real, parameter :: zep1 = em01
455 my_real, parameter :: zep2 = two / ten
456 my_real, parameter :: zep3 = three / ten
457 my_real, parameter :: zep4 = four / ten
458 my_real, parameter :: zep5 = five / ten
459 my_real, parameter :: zep6 = one - zep4
460 my_real, parameter :: zep7 = one - zep3
461 my_real, parameter :: zep8 = one - zep2
462 my_real, parameter :: zep9 = one - zep1
463 my_real, parameter :: zep01 = em02
464 my_real, parameter :: zep02 = two / ep02
465 my_real, parameter :: zep03 = three / ep02
466 my_real, parameter :: zep04 = four / ep02
467 my_real, parameter :: zep05 = five / ep02
468 my_real, parameter :: zep06 = zep1 - zep04
469 my_real, parameter :: zep07 = zep1 - zep03
470 my_real, parameter :: zep08 = zep1 - zep02
471 my_real, parameter :: zep09 = zep1 - zep01
472 my_real, parameter :: twoem3 = two / ep03
473 my_real, parameter :: threeem3 = three / ep03
474 my_real, parameter :: fourem3 = four / ep03
475 my_real, parameter :: fiveem3 = five / ep03
476 my_real, parameter :: sixem3 = zep01 - fourem3
477 my_real, parameter :: sevenem3 = zep01 - threeem3
478 my_real, parameter :: eightem3 = zep01 - twoem3
479 my_real, parameter :: nineem3 = zep01 - em03
480 my_real, parameter :: twoem4 = two / ep04
481 my_real, parameter :: threeem4 = three / ep04
482 my_real, parameter :: fourem4 = four / ep04
483 my_real, parameter :: fiveem4 = five / ep04
484 my_real, parameter :: sixem4 = em03 - fourem4
485 my_real, parameter :: sevenem4 = em03 - threeem4
486 my_real, parameter :: eightem4 = em03 - twoem4
487 my_real, parameter :: nineem4 = em03 - em04
488 my_real, parameter :: twoem5 = two / ep05
489 my_real, parameter :: threeem5 = three / ep05
490 my_real, parameter :: fourem5 = four / ep05
491 my_real, parameter :: fiveem5 = five / ep05
492 my_real, parameter :: sixem5 = em04 - fourem5
493 my_real, parameter :: sevenem5 = em04 - threeem5
494 my_real, parameter :: eightem5 = em04 - twoem5
495 my_real, parameter :: nineem5 = em04 - em05
496 my_real, parameter :: twoem6 = two / ep06
497 my_real, parameter :: threeem6 = three / ep06
498 my_real, parameter :: fourem6 = four / ep06
499 my_real, parameter :: fiveem6 = five / ep06
500 my_real, parameter :: sixem6 = em05 - fourem6
501 my_real, parameter :: sevenem6 = em05 - threeem6
502 my_real, parameter :: eightem6 = em05 - twoem6
503 my_real, parameter :: nineem6 = em05 - em06
504 my_real, parameter :: twoep30 = two *ep30
505 my_real, parameter :: threeep30 = three *ep30
506 my_real, parameter :: fourep30 = four*ep30
507 my_real, parameter :: zep9ep30 = nine *ep29
508 my_real, parameter :: onep1ep30 = eleven * ep29
509 my_real, parameter :: half = one/two
510 my_real, parameter :: third = one/three
511 my_real, parameter :: fourth = one/four
512 my_real, parameter :: one_fifth = one/five
513 my_real, parameter :: one_over_6 = one/six
514 my_real, parameter :: one_over_7 = one/seven
515 my_real, parameter :: one_over_8 = one/eight
516 my_real, parameter :: one_over_9 = one/nine
517 my_real, parameter :: one_over_12 = one/twelve
518 my_real, parameter :: one_over_16 = one/sixteen
519 my_real, parameter :: one_over_64 = one/sixty4
520 my_real, parameter :: one_over_512 = one/fivehundred12
521 my_real, parameter :: two_third = two/three
522 my_real, parameter :: three_half = three/two
523 my_real, parameter :: three_over_4 = three/four
524 my_real, parameter :: three_over_14 = three/fourteen
525 my_real, parameter :: three_over_16 = three/sixteen
526 my_real, parameter :: four_over_3 = four/three
527 my_real, parameter :: four_over_5 = four/five
528 my_real, parameter :: four_over_9 = four/nine
529 my_real, parameter :: five_over_3 = five/three
530 my_real, parameter :: five_over_4 = five/four
531 my_real, parameter :: five_over_6 = five/six
532 my_real, parameter :: six_over_5 = six/five
533 my_real, parameter :: seven_half = seven/two
534 my_real, parameter :: seven_over_5 = seven/five
535 my_real, parameter :: seven_over_9 = seven/nine
536 my_real, parameter :: nine_over_2 = nine/two
537 my_real, parameter :: nine_over_10 = nine/ten
538 my_real, parameter :: nine_over_16 = nine/sixteen
539 my_real, parameter :: nine_over_20 = nine/twenty
540 my_real, parameter :: zep11 = zep1 + zep01
541 my_real, parameter :: zep12 = zep1 + zep02
542 my_real, parameter :: zep13 = zep1 + zep03
543 my_real, parameter :: zep14 = zep1 + zep04
544 my_real, parameter :: zep15 = zep1 + zep05
545 my_real, parameter :: zep16 = zep1 + zep06
546 my_real, parameter :: zep17 = zep1 + zep07
547 my_real, parameter :: zep18 = zep1 + zep08
548 my_real, parameter :: zep19 = zep1 + zep09
549 my_real, parameter :: zep21 = zep2 + zep01
550 my_real, parameter :: zep23 = zep2 + zep03
551 my_real, parameter :: zep25 = zep2 + zep05
552 my_real, parameter :: zep26 = zep2 + zep06
553 my_real, parameter :: zep213 = zep21 + threeem3
554 my_real, parameter :: zep29 = zep2 + zep09
555 my_real, parameter :: zep33 = zep3 + zep03
556 my_real, parameter :: zep34 = zep3 + zep04
557 my_real, parameter :: zep35 = zep3 + zep05
558 my_real, parameter :: zep37 = zep3 + zep07
559 my_real, parameter :: zep38 = zep3 + zep08
560 my_real, parameter :: zep333 = zep33 + threeem3
561 my_real, parameter :: zep373 = zep37 + threeem3
562 my_real, parameter :: zep41 = zep4 + zep01
563 my_real, parameter :: zep4187 = zep41 + eightem3 + sevenem4
564 my_real, parameter :: zep43 = zep4 + zep03
565 my_real, parameter :: zep45 = zep4 + zep05
566 my_real, parameter :: zep46 = zep4 + zep06
567 my_real, parameter :: zep47 = zep4 + zep07
568 my_real, parameter :: zep499 = zep4 + zep09 + nineem3
569 my_real, parameter :: zep475 = zep4 + zep07 + fiveem3
570 my_real, parameter :: zep62 = one - zep38
571 my_real, parameter :: zep65 = one - zep35
572 my_real, parameter :: zep66 = one - zep34
573 my_real, parameter :: zep67 = one - zep33
574 my_real, parameter :: zep71 = one - zep29
575 my_real, parameter :: zep74 = one - zep26
576 my_real, parameter :: zep707 = one - zep3 + sevenem3
577 my_real, parameter :: zep81 = one - zep19
578 my_real, parameter :: zep82 = one - zep18
579 my_real, parameter :: zep84 = one - zep16
580 my_real, parameter :: zep85 = one - zep15
581 my_real, parameter :: zep87 = one - zep13
582 my_real, parameter :: zep89 = one - zep11
583 my_real, parameter :: zep92 = one - zep08
584 my_real, parameter :: zep93 = one - zep07
585 my_real, parameter :: zep94 = one - zep06
586 my_real, parameter :: zep95 = one - zep05
587 my_real, parameter :: zep96 = one - zep04
588 my_real, parameter :: zep97 = one - zep03
589 my_real, parameter :: zep98 = one - zep02
590 my_real, parameter :: zep99 = one - zep01
591 my_real, parameter :: zep995 = one - fiveem3
592 my_real, parameter :: zep997 = one - threeem3
593 my_real, parameter :: zep999 = one - em03
594 my_real, parameter :: zep9999 = one - em04
595 my_real, parameter :: zep99999 = one - em05
596 my_real, parameter :: zep931 = zep93 + em03
597 my_real, parameter :: zep015 = zep15 / ten
598 my_real, parameter :: zep015625 = one / sixty4
599 my_real, parameter :: zep025 = one / forty
600 my_real, parameter :: zep037 = zep03 + sevenem3
601 my_real, parameter :: zep072169 = zep07 + twoem3 + em04 + sixem5 + nineem6
602 my_real, parameter :: zep075 = three / forty
603 my_real, parameter :: onep01 = one + zep01
604 my_real, parameter :: onep001 = one + em03
605 my_real, parameter :: onep0001 = one + em04
606 my_real, parameter :: onep00001 = one + em05
607 my_real, parameter :: onep02 = one + zep02
608 my_real, parameter :: onep03 = one + zep03
609 my_real, parameter :: onep04 = one + zep04
610 my_real, parameter :: onep05 = one + zep05
611 my_real, parameter :: onep06 = one + zep06
612 my_real, parameter :: onep08 = one + zep08
613 my_real, parameter :: onep09 = one + zep09
614 my_real, parameter :: onep1 = one + zep1
615 my_real, parameter :: onep11 = onep1 + zep01
616 my_real, parameter :: onep12 = onep1 + zep02
617 my_real, parameter :: onep13 = onep1 + zep03
618 my_real, parameter :: onep14 = onep1 + zep04
619 my_real, parameter :: onep15 = onep1 + zep05
620 my_real, parameter :: onep16 = onep1 + zep06
621 my_real, parameter :: onep17 = onep1 + zep07
622 my_real, parameter :: onep18 = onep1 + zep08
623 my_real, parameter :: onep19 = onep1 + zep09
624 my_real, parameter :: onep136 = onep13 + sixem3
625 my_real, parameter :: onep138 = onep13 + eightem3
626 my_real, parameter :: onep2 = one + zep2
627 my_real, parameter :: onep21 = onep2 + zep01
628 my_real, parameter :: onep23 = onep2 + zep03
629 my_real, parameter :: onep24 = onep2 + zep04
630 my_real, parameter :: onep25 = five / four
631 my_real, parameter :: onep26 = onep2 + zep06
632 my_real, parameter :: onep27 = onep2 + zep07
633 my_real, parameter :: onep28 = onep2 + zep08
634 my_real, parameter :: onep251 = onep25 + em03
635 my_real, parameter :: onep252 = onep25 + twoem3
636 my_real, parameter :: onep3 = one + zep3
637 my_real, parameter :: onep31 = onep3 + zep01
638 my_real, parameter :: onep32 = onep3 + zep02
639 my_real, parameter :: onep33 = onep3 + zep03
640 my_real, parameter :: onep34 = onep3 + zep04
641 my_real, parameter :: onep35 = onep3 + zep05
642 my_real, parameter :: onep36 = onep3 + zep06
643 my_real, parameter :: onep37 = onep3 + zep07
644 my_real, parameter :: onep38 = onep3 + zep08
645 my_real, parameter :: onep39 = onep3 + zep09
646 my_real, parameter :: onep333 = onep33 + threeem3
647 my_real, parameter :: onep3348= onep33 + fourem3 + eightem4
648 my_real, parameter :: onep369 = onep36 + nineem3
649 my_real, parameter :: onep4 = one + zep4
650 my_real, parameter :: onep41 = onep4 + zep01
651 my_real, parameter :: onep42 = onep4 + zep02
652 my_real, parameter :: onep44 = onep4 + zep04
653 my_real, parameter :: onep45 = onep4 + zep05
654 my_real, parameter :: onep46 = onep4 + zep06
655 my_real, parameter :: onep48 = onep4 + zep08
656 my_real, parameter :: onep49 = onep4 + zep09
657 my_real, parameter :: onep414 = onep41 + fourem3
658 my_real, parameter :: onep484 = onep48 + fourem3
659 my_real, parameter :: onep5 = three_half
660 my_real, parameter :: onep51 = onep5 + zep01
661 my_real, parameter :: onep52 = onep5 + zep02
662 my_real, parameter :: onep57 = onep5 + zep07
663 my_real, parameter :: onep59 = onep5 + zep09
664 my_real, parameter :: onep6 = one + zep6
665 my_real, parameter :: onep62 = onep6 + zep02
666 my_real, parameter :: onep65 = onep6 + zep05
667 my_real, parameter :: onep66 = onep6 + zep06
668 my_real, parameter :: onep67 = onep6 + zep07
669 my_real, parameter :: onep68 = onep6 + zep08
670 my_real, parameter :: onep7 = one + zep7
671 my_real, parameter :: onep72 = onep7 + zep02
672 my_real, parameter :: onep73 = onep7 + zep03
673 my_real, parameter :: onep75 = onep7 + zep05
674 my_real, parameter :: onep78 = onep7 + zep08
675 my_real, parameter :: onep732 = onep73 + twoem3
676 my_real, parameter :: onep8 = one + zep8
677 my_real, parameter :: onep82 = onep8 + zep02
678 my_real, parameter :: onep84 = onep8 + zep04
679 my_real, parameter :: onep88 = onep8 + zep08
680 my_real, parameter :: onep833 = onep8 + zep03 + threeem3
681 my_real, parameter :: onep8688 = onep8 + zep06 + eightem3 + eightem4
682 my_real, parameter :: onep9 = one + zep9
683 my_real, parameter :: onep92 = onep9 + zep02
684 my_real, parameter :: onep96 = onep9 + zep06
685 my_real, parameter :: onep98 = onep9 + zep08
686 my_real, parameter :: twop03 = two + zep03
687 my_real, parameter :: twop05 = two + zep05
688 my_real, parameter :: twop06 = two + zep06
689 my_real, parameter :: twop07 = two + zep07
690 my_real, parameter :: twop08 = two + zep08
691 my_real, parameter :: twop1 = two + zep1
692 my_real, parameter :: twop2 = two + zep2
693 my_real, parameter :: twop30 = two + zep3
694 my_real, parameter :: twop4 = two + zep4
695 my_real, parameter :: twop5 = five / two
696 my_real, parameter :: twop60 = two + zep6
697 my_real, parameter :: twop8 = two + zep8
698 my_real, parameter :: twop11 = twop1 + zep01
699 my_real, parameter :: twop12 = twop1 + zep02
700 my_real, parameter :: twop13 = twop1 + zep03
701 my_real, parameter :: twop16 = twop1 + zep06
702 my_real, parameter :: twop19 = twop1 + zep09
703 my_real, parameter :: twop23 = twop2 + zep03
704 my_real, parameter :: twop24 = twop2 + zep04
705 my_real, parameter :: twop25 = twop2 + zep05
706 my_real, parameter :: twop33 = twop30 + zep03
707 my_real, parameter :: twop38 = twop30 + zep08
708 my_real, parameter :: twop45 = twop4 + zep05
709 my_real, parameter :: twop47 = twop4 + zep07
710 my_real, parameter :: twop52 = twop5 + zep02
711 my_real, parameter :: twop83 = twop8 + zep03
712 my_real, parameter :: twop84 = twop8 + zep04
713 my_real, parameter :: twop85 = twop8 + zep05
714 my_real, parameter :: twop185 = twop1 + zep08 + fiveem3
715 my_real, parameter :: twop261 = twop2 + zep06 + em03
716 my_real, parameter :: twop645 = twop60 + zep04 + fiveem3
717 my_real, parameter :: threep02 = three + zep02
718 my_real, parameter :: threep06 = three + zep06
719 my_real, parameter :: threep14 = three + zep14
720 my_real, parameter :: threep15 = three + zep15
721 my_real, parameter :: threep25 = three + zep2 + zep05
722 my_real, parameter :: threep27 = three + zep2 + zep07
723 my_real, parameter :: threep44 = three + zep4 + zep04
724 my_real, parameter :: threep46 = three + zep4 + zep06
725 my_real, parameter :: threep52 = three + zep5 + zep02
726 my_real, parameter :: threep72 = three + zep7 + zep02
727 my_real, parameter :: threep76 = three + zep7 + zep06
728 my_real, parameter :: threep8 = three + zep8
729 my_real, parameter :: threep94 = three + zep9 + zep04
730 my_real, parameter :: threep266 = three + zep2 + zep06 + sixem3
731 my_real, parameter :: threep464 = three + zep4 + zep06 + fourem3
732 my_real, parameter :: threep4641= threep464 + em04
733 my_real, parameter :: fourp186 = four + zep1 + zep08 + sixem3
734 my_real, parameter :: fourp40 = four + zep4
735 my_real, parameter :: fourp76 = four + zep7 + zep06
736 my_real, parameter :: fivep5 = five + zep5
737 my_real, parameter :: fivep56 = five + zep5 + zep06
738 my_real, parameter :: fivep76 = five + zep7 + zep06
739 my_real, parameter :: sip2832 = six + zep2 + zep08 + threeem3 + twoem4
740 my_real, parameter :: ninep24 = nine + zep2 + zep04
741 my_real, parameter :: ninep38 = nine + zep3 + zep08
742 my_real, parameter :: ninep793 = nine + zep7 + zep09 + threeem3
743 my_real, parameter :: elevenp5 = eleven + zep5
744 my_real, parameter :: eleven_p225 = eleven + zep2 + zep02+fiveem3
745 my_real, parameter :: twelvep6 = twelve + zep6
746 my_real, parameter :: fourteenp2 = fourteen + zep2
747 my_real, parameter :: sixteenp5 = sixteen + zep5
748 my_real, parameter :: o88p9844 = 88. + zep9 + zep08 + fourem3 + fourem4
749 my_real, parameter :: eightp314em5 = 8314. * em08
750 my_real, parameter :: onep2ep30 = onep2 * ep30
751 my_real, parameter :: zep999ep31 = zep999 * ep31
752 my_real, parameter :: zep54 = one - zep46
753 my_real, parameter :: onep001em32 = 1001. * em35
754 my_real, parameter :: ninep637em5 = 9637. * em08
755 my_real, parameter :: onep3em5 = onep3 * em05
756 my_real, parameter :: zep426667 = hundred28 / three100
757 my_real, parameter :: zep222 = ten / forty5
758 my_real, parameter :: zep00666666667 = two / three100
759 my_real, parameter :: zep01666666667 = five / three100
760 my_real, parameter :: zep444 = hundred / twohundred25
761 my_real, parameter :: onep222 = one + zep222
762 my_real, parameter :: onep8333 = one + twenty5 / thirty
763 my_real, parameter :: twop444 = two + zep444
764 my_real, parameter :: twop6666666667= eight / three
765 my_real, parameter :: twop6667 = twop6666666667
766 my_real, parameter :: fivep333 = sixteen / three
767 my_real, parameter :: zep1381966= zep13 + eightem3 + em04 + nineem5 + sixem6 + six *em07
768 my_real, parameter :: zep5854102= zep5 + zep08 + fiveem3 + fourem4 + em05 + two * em07
769 my_real, parameter :: r_igc = 8.314472
770 my_real, parameter :: stefboltz= 5.6704 / ep08
771 my_real, parameter :: sqr2 = sqrt(two)
772 my_real, parameter :: sqr3 = sqrt(three)
773 my_real, parameter :: sqr5 = sqrt(five)
774 my_real, parameter :: sqr6 = sqrt(six)
775 my_real, parameter :: sqr7 = sqrt(seven)
776 my_real, parameter :: sqr3_2 = sqrt(three_half)
777 my_real, parameter :: sqr4_3 = two * sqrt(third)
778 my_real, parameter :: sqr16_3 = two * sqr4_3
779 my_real, parameter :: pi = atan2(zero,-one)
780 my_real, parameter :: invpi = one / pi
781 my_real, parameter :: em3 = em03
782 my_real, parameter :: em4 = em04
783 my_real, parameter :: em5 = em05
784 my_real, parameter :: em6 = em06
785 my_real, parameter :: em7 = em07
786 my_real, parameter :: em8 = em08
787 my_real, parameter :: em9 = em09
788 my_real, parameter :: ep9 = ep09
789 my_real, parameter :: zep80 = zep8
790 my_real, parameter :: zep90 = zep9
791 my_real, parameter :: unp20 = onep2
792 my_real, parameter :: unp30 = onep3
793 my_real, parameter :: unp70 = onep7
794 my_real, parameter :: unp90 = onep9
795 my_real, parameter :: unem3 = em03
796 my_real, parameter :: unem4 = em04
797 my_real, parameter :: unem5 = em05
798 my_real, parameter :: unem6 = em06
799 my_real, parameter :: twoem2 = zep02
800 my_real, parameter :: fiveem2 = zep05
801 my_real, parameter :: nineem2 = zep09
802 my_real, parameter :: zep3571429 = half- one_over_7 ! labatto position for shell
803 my_real, parameter :: zep2142857 = half- two*one_over_7
804 my_real, parameter :: zep0714286 = half- three*one_over_7
805 my_real, parameter :: zep375 = half- one_over_8
806 my_real, parameter :: zep3888889 = half- one_over_9
807 my_real, parameter :: zep2777778 = half- two*one_over_9
808 my_real, parameter :: zep1666667 = half- three*one_over_9
809 my_real, parameter :: zep0555555 = half- four*one_over_9
810 end module constant_mod
my_real
#define my_real
Definition cppsort.cpp:32
constant_mod
Definition constant_mod.F:355
starter
program starter
Definition starter.F:39