OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
dt_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!|| dt_mod ../engine/source/modules/dt_mod.F
25!||--- called by ------------------------------------------------------
26!|| alemain ../engine/source/ale/alemain.F
27!|| bforc2 ../engine/source/ale/bimat/bforc2.F
28!|| c3forc3 ../engine/source/elements/sh3n/coque3n/c3forc3.F
29!|| c3forc3_crk ../engine/source/elements/xfem/c3forc3_crk.F
30!|| cbaforc3 ../engine/source/elements/shell/coqueba/cbaforc3.F
31!|| cdk6forc3 ../engine/source/elements/sh3n/coquedk6/cdk6forc3.F
32!|| cdkforc3 ../engine/source/elements/sh3n/coquedk/cdkforc3.F
33!|| cforc3 ../engine/source/elements/shell/coque/cforc3.F
34!|| cforc3_crk ../engine/source/elements/xfem/cforc3_crk.F
35!|| cmain3 ../engine/source/materials/mat_share/cmain3.F
36!|| czforc3 ../engine/source/elements/shell/coquez/czforc3.f
37!|| czforc3_crk ../engine/source/elements/xfem/czforc3_crk.F
38!|| eng_qaprint_driver ../engine/source/output/qaprint/eng_qaprint_driver.F
39!|| eng_qaprint_dtinput ../engine/source/output/qaprint/eng_qaprint_dtinput.F
40!|| fail_gene1_c ../engine/source/materials/fail/gene1/fail_gene1_c.F
41!|| forint ../engine/source/elements/forint.F
42!|| forintc ../engine/source/elements/forintc.F
43!|| forintp ../engine/source/elements/forintp.F
44!|| freform ../engine/source/input/freform.F
45!|| ig3duforc3 ../engine/source/elements/ige3d/ig3duforc3.F
46!|| lecinp ../engine/source/input/lecinp.F
47!|| lectur ../engine/source/input/lectur.F
48!|| mmain ../engine/source/materials/mat_share/mmain.F90
49!|| mulaw ../engine/source/materials/mat_share/mulaw.F90
50!|| mulawc ../engine/source/materials/mat_share/mulawc.F90
51!|| pforc3 ../engine/source/elements/beam/pforc3.F
52!|| q4forc2 ../engine/source/elements/solid_2d/quad4/q4forc2.F
53!|| qforc2 ../engine/source/elements/solid_2d/quad/qforc2.F
54!|| radioss2 ../engine/source/engine/radioss2.F
55!|| resol ../engine/source/engine/resol.F
56!|| resol_head ../engine/source/engine/resol_head.F
57!|| s10forc3 ../engine/source/elements/solid/solide10/s10forc3.F
58!|| s10mallgeo3 ../engine/source/elements/solid/solide10/s10mallgeo3.F
59!|| s16forc3 ../engine/source/elements/thickshell/solide16/s16forc3.F
60!|| s20forc3 ../engine/source/elements/solid/solide20/s20forc3.F
61!|| s4forc3 ../engine/source/elements/solid/solide4/s4forc3.F
62!|| s6cforc3 ../engine/source/elements/thickshell/solide6c/s6cforc3.f
63!|| s8cforc3 ../engine/source/elements/thickshell/solide8c/s8cforc3.F
64!|| s8eforc3 ../engine/source/elements/solid/solide8e/s8eforc3.F
65!|| s8sforc3 ../engine/source/elements/solid/solide8s/s8sforc3.F
66!|| s8zforc3 ../engine/source/elements/solid/solide8z/s8zforc3.F
67!|| scforc3 ../engine/source/elements/thickshell/solidec/scforc3.F
68!|| sforc3 ../engine/source/elements/solid/solide/sforc3.F
69!|| sgeodel3 ../engine/source/elements/solid/solide/sgeodel3.F
70!|| smallgeo3 ../engine/source/elements/solid/solide/smallgeo3.f
71!|| sortie_main ../engine/source/output/sortie_main.F
72!|| spstres ../engine/source/elements/sph/spstres.F
73!|| szforc3 ../engine/source/elements/solid/solidez/szforc3.F
74!|| tforc3 ../engine/source/elements/truss/tforc3.f
75!|| tshgeodel3 ../engine/source/elements/thickshell/solidec/tshgeodel3.F
76!|| usermat_shell ../engine/source/materials/mat_share/usermat_shell.F
77!|| usermat_solid ../engine/source/materials/mat_share/usermat_solid.F
78!||====================================================================
79 MODULE dt_mod
80
81 IMPLICIT NONE
82#include "my_real.inc"
83
84 !TYPE definition
85 TYPE dt_
86 INTEGER idel_brick
87 INTEGER nodadt
88 my_real brick_cst_defv_min,brick_cst_col_min ! /DT/BRICK/CST/1
89 my_real brick_del_defv_min,brick_del_defv_max, ! /DT/BRICK/DEL/1
90 . brick_del_asp_max,brick_del_col_min
91 END TYPE dt_
92
93 CONTAINS
94
95C INITIALISATION : CALL DT%INIT_IDEL_BRICK()
96!||====================================================================
97!|| init_idel_brick ../engine/source/modules/dt_mod.F
98!||--- called by ------------------------------------------------------
99!|| freform ../engine/source/input/freform.F
100!||====================================================================
101 SUBROUTINE init_idel_brick(THIS)
102 IMPLICIT NONE
103#include "constant.inc"
104
105 TYPE (DT_), INTENT(INOUT) :: THIS
106
107 this%IDEL_BRICK = 0
108 IF ((this%BRICK_DEL_DEFV_MIN+this%BRICK_DEL_DEFV_MAX+
109 . this%BRICK_DEL_ASP_MAX+this%BRICK_DEL_COL_MIN)>zero) this%IDEL_BRICK = 1
110
111 END SUBROUTINE
112
113 END MODULE dt_mod
114
my_real
#define my_real
Definition cppsort.cpp:32
czforc3
subroutine czforc3(timers, elbuf_str, jft, jlt, nft, npt, itab, mtn, ipri, ithk, neltst, istrain, ipla, dt1, dt2t, pm, geo, partsav, ixc, ityptst, bufmat, tf, npf, iadc, failwave, x, dr, v, vr, f, m, stifn, stifr, fsky, tani, indxof, ismstr, group_param, ipartc, thke, nvc, iofc, ihbe, f11, f12, f13, f14, f21, f22, f23, f24, f31, f32, f33, f34, m11, m12, m13, m14, m21, m22, m23, m24, m31, m32, m33, m34, kfts, fzero, igeo, ipm, ifailure, itask, jthe, temp, fthe, fthesky, iexpan, gresav, grth, igrth, xedge4n, msc, dmelc, jsms, table, iparg, mat_elem, ixfem, knod2elc, sensors, elcutc, inod_crk, iel_crk, nodenr, iadc_crk, nodedge, crknodiad, condn, condnsky, stack, isubstack, xfem_str, crkedge, drape_sh4n, nel, nloc_dmg, indx_drape, igre, jtur, dt, ncycle, snpc, stf, glob_therm, idel7nok, userl_avail, maxfunc, sbufmat)
Definition czforc3.F:115
dt_mod
Definition dt_mod.F:79
dt_mod::init_idel_brick
subroutine init_idel_brick(this)
Definition dt_mod.F:102
s6cforc3
subroutine s6cforc3(timers, output, elbuf_tab, ng, pm, geo, ixs, x, a, v, ms, w, flux, flu1, veul, fv, ale_connect, iparg, tf, npf, bufmat, partsav, dt2t, neltst, ityptst, stifn, fsky, iads, offset, eani, iparts, f11, f21, f31, f12, f22, f32, f13, f23, f33, f14, f24, f34, f15, f25, f35, f16, f26, f36, nel, icp, icsig, nloc_dmg, ipm, istrain, igeo, gresav, grth, igrth, table, mssa, dmels, voln, itask, ioutprt, mat_elem, h3d_strain, temp, fthe, fthesky, condn, condnsky, iexpan, ifthe, icondn, dt, snpc, stf, sbufmat, svis, nsvois, idtmins, iresp, idel7ng, idel7nok, maxfunc, imon_mat, userl_avail, glob_therm, xdp, sensors)
Definition s6cforc3.F:100
smallgeo3
subroutine smallgeo3(ngl, offg, volg, deltax, volg0, itet, nel, ismstr, dt)
Definition smallgeo3.F:41
dt_mod::dt_
Definition dt_mod.F:85
tforc3
subroutine tforc3(elbuf_str, jft, jlt, pm, geo, nct, x, f, v, partsav, bufmat, dt2t, neltst, ityptst, stifn, fsky, iadt, offset, ipartt, tani, fx1, fx2, fy1, fy2, fz1, fz2, nel, gresav, grth, igrth, mstr, dmeltr, ioutprt, ipm, npf, tf, itask, h3d_data, nft, mtn, jsms, igre, preld1, stf_f, dt, sensors)
Definition tforc3.F:59