OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
dtmain.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!|| dtmain ../starter/source/materials/time_step/dtmain.F
25!||--- called by ------------------------------------------------------
26!|| ig3dinit3 ../starter/source/elements/ige3d/ig3dinit3.F
27!|| inirig_mat ../starter/source/elements/initia/inirig_mat.F
28!|| multifluid_init3 ../starter/source/multifluid/multifluid_init3.F
29!|| q4init2 ../starter/source/elements/solid_2d/quad4/q4init2.f
30!|| qinit2 ../starter/source/elements/solid_2d/quad/qinit2.F
31!|| s10init3 ../starter/source/elements/solid/solide10/s10init3.F
32!|| s16init3 ../starter/source/elements/thickshell/solide16/s16init3.f
33!|| s20init3 ../starter/source/elements/solid/solide20/s20init3.F
34!|| s4init3 ../starter/source/elements/solid/solide4/s4init3.F
35!|| s6cinit3 ../starter/source/elements/thickshell/solide6c/s6cinit3.F
36!|| s8cinit3 ../starter/source/elements/thickshell/solide8c/s8cinit3.F
37!|| s8zinit3 ../starter/source/elements/solid/solide8z/s8zinit3.F
38!|| scinit3 ../starter/source/elements/thickshell/solidec/scinit3.F
39!|| sinit3 ../starter/source/elements/solid/solide/sinit3.f
40!|| spinit3 ../starter/source/elements/sph/spinit3.F
41!|| suinit3 ../starter/source/elements/elbuf_init/suinit3.F
42!||--- calls -----------------------------------------------------
43!|| dt105law ../starter/source/materials/time_step/dt105law.F
44!|| dt10law ../starter/source/materials/time_step/dt10law.F
45!|| dt11law ../starter/source/materials/time_step/dt11law.F
46!|| dt14law ../starter/source/materials/time_step/dt14law.F
47!|| dt15law ../starter/source/materials/time_step/dt15law.F
48!|| dt16law ../starter/source/materials/time_step/dt16law.F
49!|| dt18law ../starter/source/materials/time_step/dt18law.f
50!|| dt1law ../starter/source/materials/time_step/dt1law.f
51!|| dt21law ../starter/source/materials/time_step/dt21law.F
52!|| dt25law ../starter/source/materials/time_step/dt25law.F
53!|| dt34law ../starter/source/materials/time_step/dt34law.F
54!|| dt37law ../starter/source/materials/time_step/dt37law.f
55!|| dt38law ../starter/source/materials/time_step/dt138aw.F
56!|| dt3law ../starter/source/materials/time_step/dt3law.F
57!|| dt42law ../starter/source/materials/time_step/dt42law.F
58!|| dt51law ../starter/source/materials/time_step/dt51law.f
59!|| dt5law ../starter/source/materials/time_step/dt5law.F
60!|| dt6law ../starter/source/materials/time_step/dt6law.F
61!|| dt70law ../starter/source/materials/time_step/dt70law.F
62!||--- uses -----------------------------------------------------
63!||====================================================================
64 SUBROUTINE dtmain(GEO ,PM ,IPM ,PID ,MAT ,FV ,
65 . EINT ,TEMP ,DELTAX,RK ,RE ,BUFMAT, DDELTAX, AIRE, VOL, DTX,
66 . IGEO ,IGTYP)
67C-----------------------------------------------
68C M o d u l e s
69C-----------------------------------------------
70 USE elbufdef_mod
71C-----------------------------------------------
72C I m p l i c i t T y p e s
73C-----------------------------------------------
74#include "implicit_f.inc"
75C-----------------------------------------------
76C C o m m o n B l o c k s
77C-----------------------------------------------
78#include "vect01_c.inc"
79#include "units_c.inc"
80#include "param_c.inc"
81C-----------------------------------------------
82C D u m m y A r g u m e n t s
83C-----------------------------------------------
84 INTEGER ,INTENT(IN) :: IGTYP
85 INTEGER :: IPM(*), PID(*), MAT(*),IGEO(NPROPGI,*)
86 my_real :: pm(*),geo(*),fv,eint(*),temp(*),deltax(*),rk(*),re(*), ddeltax(*),
87 . aire(*), vol(*), dtx(*)
88 my_real, INTENT(IN) :: bufmat(*)
89C-----------------------------------------------
90C L o c a l V a r i a b l e s
91C-----------------------------------------------
92C=======================================================================
93 SELECT CASE(mtn)
94c
95 CASE (1,2,13,22,28,29,30,31,33,35)
96 CALL dt1law(pm,geo,pid,mat, ddeltax, aire, vol, dtx)
97 CASE (3,4,23)
98 CALL dt3law(pm,eint,geo,pid,mat, ddeltax, aire, vol, dtx)
99 CASE (5,97)
100 CALL dt5law(pm,geo,pid,mat, ddeltax, aire, vol, dtx)
101 CASE (6,17)
102 CALL dt6law(pm,eint,rk,re,geo,pid,mat, ddeltax, aire, vol, dtx)
103 CASE (7,8,9)
104 CASE (10,102)
105 CALL dt10law(pm,geo,pid,mat, ddeltax, aire, vol, dtx)
106 CASE (11)
107 CALL dt11law(ddeltax, dtx)
108 CASE (12,14)
109 CALL dt14law(pm,geo,pid,mat, ddeltax, aire, vol, dtx)
110 CASE (15,24)
111 CALL dt15law(pm,geo,pid,mat, ddeltax, aire, vol, dtx)
112 CASE (16)
113 CALL dt16law(pm,geo,pid,mat, ddeltax, aire, vol, dtx)
114 CASE (18)
115 CALL dt18law(pm,ipm,mat,eint,temp,deltax, dtx)
116 CASE (21)
117 CALL dt21law(pm,geo,pid,mat, ddeltax, aire, vol, dtx)
118 CASE (25)
119 CALL dt25law(pm,geo,pid,mat, ddeltax, aire, vol, dtx)
120 CASE (34)
121 CALL dt34law(pm,geo,pid,mat, ddeltax, aire, vol, dtx)
122 CASE (19,20,26,27,32)
123 CONTINUE
124 CASE (37)
125 CALL dt37law(pm,geo,pid,mat,bufmat,ipm, ddeltax, aire, vol, dtx)
126 CASE (38,88)
127 CALL dt38law(pm,geo,pid,mat, ddeltax, aire, vol, dtx)
128 CASE (42,69)
129 CALL dt42law(pm,geo,pid,mat, ddeltax, aire, vol, dtx, llt )
130 CASE (51)
131 CALL dt51law(pm,geo,pid,mat,bufmat,ipm, ddeltax, aire, vol, dtx)
132 CASE (59,83,116,117)
133 dtx(lft:llt) = ep20
134 WRITE(iout,1000) mtn
135 CASE (120)
136 IF (igtyp == 43)THEN
137 dtx(lft:llt) = ep20
138 WRITE(iout,1000) mtn
139 ELSE
140 CALL dt1law(pm,geo,pid,mat, ddeltax, aire, vol, dtx )
141 ENDIF
142 CASE (105)
143 CALL dt105law(pm,geo,pid,mat, ddeltax, aire, vol, dtx)
144 CASE (70)
145 CALL dt70law(pm,geo,pid,mat, ddeltax, aire, vol, dtx,igeo )
146 CASE DEFAULT
147 CALL dt1law(pm,geo,pid,mat, ddeltax, aire, vol, dtx )
148 END SELECT
149C-----------
150 1000 FORMAT(/,1x,' ELEMENT TIME STEP IS NOT COMPUTED FOR MATERIAL LAW NO',i4,/)
151C-----------
152 RETURN
153 END
my_real
#define my_real
Definition cppsort.cpp:32
dt105law
subroutine dt105law(pm, geo, pid, mat, deltax, aire, vol, dtx)
Definition dt105law.F:32
dt10law
subroutine dt10law(pm, geo, pid, mat, deltax, aire, vol, dtx)
Definition dt10law.F:33
dt11law
subroutine dt11law(deltax, dtx)
Definition dt11law.F:29
dt38law
subroutine dt38law(pm, geo, pid, mat, deltax, aire, vol, dtx)
Definition dt138aw.F:32
dt14law
subroutine dt14law(pm, geo, pid, mat, deltax, aire, vol, dtx)
Definition dt14law.F:32
dt15law
subroutine dt15law(pm, geo, pid, mat, deltax, aire, vol, dtx)
Definition dt15law.F:31
dt16law
subroutine dt16law(pm, geo, pid, mat, deltax, aire, vol, dtx)
Definition dt16law.F:32
dt18law
subroutine dt18law(pm, ipm, mat, eint, theta, deltax, dtx)
Definition dt18law.F:29
dt1law
subroutine dt1law(pm, geo, pid, mat, deltax, aire, vol, dtx)
Definition dt1law.F:32
dt21law
subroutine dt21law(pm, geo, pid, mat, deltax, aire, vol, dtx)
Definition dt21law.F:33
dt25law
subroutine dt25law(pm, geo, pid, mat, deltax, aire, vol, dtx)
Definition dt25law.F:31
dt34law
subroutine dt34law(pm, geo, pid, mat, deltax, aire, vol, dtx)
Definition dt34law.F:32
dt37law
subroutine dt37law(pm, geo, pid, mat, bufmat, ipm, deltax, aire, vol, dtx)
Definition dt37law.F:32
dt3law
subroutine dt3law(pm, eint, geo, pid, mat, deltax, aire, vol, dtx)
Definition dt3law.F:33
dt42law
subroutine dt42law(pm, geo, pid, mat, deltax, aire, vol, dtx, nel)
Definition dt42law.F:32
dt51law
subroutine dt51law(pm, geo, pid, mat, bufmat, ipm, deltax, aire, vol, dtx)
Definition dt51law.F:32
dt5law
subroutine dt5law(pm, geo, pid, mat, deltax, aire, vol, dtx)
Definition dt5law.F:32
dt6law
subroutine dt6law(pm, eint, rk, re, geo, pid, mat, deltax, aire, vol, dtx)
Definition dt6law.F:32
dt70law
subroutine dt70law(pm, geo, pid, mat, deltax, aire, vol, dtx, igeo)
Definition dt70law.F:32
dtmain
subroutine dtmain(geo, pm, ipm, pid, mat, fv, eint, temp, deltax, rk, re, bufmat, ddeltax, aire, vol, dtx, igeo, igtyp)
Definition dtmain.F:67
q4init2
subroutine q4init2(elbuf_str, ms, ixq, pm, x, detonators, geo, veul, ale_connectivity, iparg, dtelem, sigi, igeo, nel, skew, msq, ipart, ipartq, ipm, nsigs, wma, ptquad, bufmat, npf, tf, ipargg, iloadp, facload, partsav, v)
Definition q4init2.F:53
s16init3
subroutine s16init3(elbuf_str, mas, ixs, pm, x, detonators, geo, veul, ale_connectivity, iparg, dtelem, sigi, nel, skew, igeo, stifn, partsav, v, iparts, mss, ixs16, ipart, mssx, sigsp, nsigi, ipm, iuser, nsigs, volnod, bvolnod, vns, bns, vnsx, bnsx, ptsol, bufmat, mcp, mcps, mcpsx, temp, npf, tf, strsglob, straglob, fail_ini, iloadp, facload, rnoise, perturb, mat_param, glob_therm)
Definition s16init3.F:59
sinit3
subroutine sinit3(elbuf_str, mas, ixs, pm, x, detonators, geo, veul, ale_connectivity, iparg_gr, dtelem, sigi, nel, skew, igeo, stifn, partsav, v, iparts, mss, ipart, sigsp, ng, iparg, nsigi, msnf, nvc, mssf, ipm, iuser, nsigs, volnod, bvolnod, vns, bns, in, vr, ins, wma, ptsol, bufmat, mcp, mcps, temp, xrefs, npf, tf, mssa, strsglob, straglob, fail_ini, spbuf, kxsp, ipartsp, nod2sp, sol2sph, irst, iloadp, facload, rnoise, perturb, mat_param, glob_therm)
Definition sinit3.F:75
starter
program starter
Definition starter.F:39