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