OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
i9main2.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!|| i9main2 ../engine/source/interfaces/int09/i9main2.F
25!||--- called by ------------------------------------------------------
26!|| intal1 ../engine/source/ale/inter/intal1.F
27!||--- calls -----------------------------------------------------
28!|| i9avel ../engine/source/interfaces/int09/i9avel.F
29!|| i9frms ../engine/source/interfaces/int09/i9frms.F
30!|| i9imp2 ../engine/source/interfaces/int09/i9imp2.F
31!|| invoi2 ../engine/source/interfaces/inter2d/invoi2.F
32!||--- uses -----------------------------------------------------
33!|| intbufdef_mod ../common_source/modules/interfaces/intbufdef_mod.F90
34!||====================================================================
35 SUBROUTINE i9main2(IPARI,INTBUF_TAB ,X ,V ,
36 1 A ,ISKEW ,SKEW ,LCOD ,FN ,
37 2 FT ,MS ,MSMN ,MSMT ,ITAB ,
38 3 FSAV )
39C-----------------------------------------------
40C M o d u l e s
41C-----------------------------------------------
42 USE intbufdef_mod
43C-----------------------------------------------
44C I m p l i c i t T y p e s
45C-----------------------------------------------
46#include "implicit_f.inc"
47C-----------------------------------------------
48C C o m m o n B l o c k s
49C-----------------------------------------------
50#include "param_c.inc"
51C-----------------------------------------------
52C D u m m y A r g u m e n t s
53C-----------------------------------------------
54 INTEGER IPARI(*), ISKEW(*), LCOD(*), ITAB(*)
55 my_real X(*), V(*), A(*), SKEW(*), FN(*), MSMN(*),FT(*), MSMT(*), MS(*), FSAV(NTHVKI,*)
56 TYPE(INTBUF_STRUCT_) INTBUF_TAB
57C-----------------------------------------------
58C L o c a l V a r i a b l e s
59C-----------------------------------------------
60 INTEGER NG, IGIMP, NGROUS
61 INTEGER :: NMN,NSN
62 my_real STARTT, FRIC, GAP, STOPT
63C-----------------------------------------------
64C P r e c o n d i t i o n s
65C-----------------------------------------------
66 nmn =ipari(6)
67 IF(nmn == 0)RETURN
68C-----------------------------------------------
69C B o d y
70C-----------------------------------------------
71 nsn =ipari(5)
72 nmn =ipari(6)
73 fric =intbuf_tab%VARIABLES(1)
74 gap =intbuf_tab%VARIABLES(2)
75C-----------------------------------------------------
76C SEARCH FOR IMPACTED POINTS
77C-----------------------------------------------------
78 CALL invoi2(x ,intbuf_tab%IRECTM,intbuf_tab%LMSR,intbuf_tab%MSR,
79 . intbuf_tab%NSV,
80 1 intbuf_tab%ILOCS,intbuf_tab%IRTLM,intbuf_tab%NSEGM,nsn )
81 CALL i9imp2(x ,v ,a ,intbuf_tab%IRECTM,intbuf_tab%MSR,
82 1 intbuf_tab%NSV,intbuf_tab%ILOCS,intbuf_tab%IRTLM,nsn ,
83 . intbuf_tab%CSTS,
84 2 intbuf_tab%VARIABLES(1),intbuf_tab%N)
85C-----------------------------------------------------
86C MASSES AND CUMULATIVES FORCES
87C-----------------------------------------------------
88 CALL i9frms
89 1 (x ,skew ,a ,fn ,ft ,
90 2 intbuf_tab%IRECTM,intbuf_tab%LMSR,intbuf_tab%CSTS,intbuf_tab%MSR,
91 . intbuf_tab%NSV,
92 3 intbuf_tab%ILOCS,intbuf_tab%IRTLM,ms ,intbuf_tab%N,lcod ,
93 4 iskew ,fric ,msmn ,msmt, nmn, nsn )
94C-----------------------------------------------------
95C ACCELERATION (MAIN) AND VELOCITIES (SECOND)
96C-----------------------------------------------------
97 CALL i9avel
98 1 (x ,skew ,a ,fn ,ft ,
99 2 intbuf_tab%IRECTM,intbuf_tab%LMSR,intbuf_tab%CSTS,intbuf_tab%MSR,
100 . intbuf_tab%NSV,
101 3 intbuf_tab%ILOCS,intbuf_tab%IRTLM,lcod ,v ,iskew ,
102 4 intbuf_tab%N,ms ,intbuf_tab%VARIABLES(1),msmn ,msmt ,
103 5 intbuf_tab%STFNS,itab ,fsav, nmn, nsn )
104C
105 RETURN
106 END
i9avel
subroutine i9avel(x, skew, a, fn, ft, irect, lmsr, crst, msr, nsv, iloc, irtl, lcode, v, iskew, nor, ms, frigap, msmn, msmt, efric, itab, fsav, nmn, nsn)
Definition i9avel.F:41
i9frms
subroutine i9frms(x, skew, a, fn, ft, irect, lmsr, crst, msr, nsv, iloc, irtl, ms, nor, lcode, iskew, fric, msmn, msmt, nmn, nsn)
Definition i9frms.F:35
i9imp2
subroutine i9imp2(x, v, a, irect, msr, nsv, iloc, irtl, nsn, cst, frigap, nor)
Definition i9imp2.F:31
i9main2
subroutine i9main2(ipari, intbuf_tab, x, v, a, iskew, skew, lcod, fn, ft, ms, msmn, msmt, itab, fsav)
Definition i9main2.F:39
invoi2
subroutine invoi2(x, irect, lmsr, msr, nsv, iloc, irtl, nseg, nsn, nrt)
Definition invoi2.F:30