OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
i2for28.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!|| i2for28 ../engine/source/interfaces/interf/i2for28.F
25!||--- called by ------------------------------------------------------
26!|| intti2f ../engine/source/interfaces/interf/intti2f.F
27!||--- calls -----------------------------------------------------
28!|| i2for28_cin ../engine/source/interfaces/interf/i2for28_cin.F
29!|| i2for28_pen ../engine/source/interfaces/interf/i2for28_pen.F
30!||--- uses -----------------------------------------------------
31!|| h3d_mod ../engine/share/modules/h3d_mod.F
32!||====================================================================
33 SUBROUTINE i2for28(
34 . X ,V ,VR ,A ,AR ,
35 . MS ,IN ,STIFN ,STIFR ,WEIGHT ,
36 . IRECTM ,NSV ,IRTLM ,DR ,DL ,
37 . FINI ,STFN_PEN ,STFR_PEN ,FSAV ,FNCONT ,
38 . IPENA ,VISC ,CSTS ,MSR ,ADI ,
39 . SMAS ,SINER ,MMAS ,SAV_FOR_PENA,MS_PENA ,
40 . NOINT ,NODNX_SMS ,DMINT2 ,DT2T ,NELTST ,
41 . ITYPTST ,NSN ,NMN ,IDEL2 ,PENFLAG ,
42 . IROT ,SKEW ,
43 . DPARA ,NMAS ,DMAST ,ADM ,SAV_INER_POFF,
44 . H3D_DATA ,FNCONTP ,FTCONTP )
45C-----------------------------------------------
46C M o d u l e s
47C-----------------------------------------------
48 USE h3d_mod
49C-----------------------------------------------
50C I m p l i c i t T y p e s
51C-----------------------------------------------
52#include "implicit_f.inc"
53C-----------------------------------------------
54C D u m m y A r g u m e n t s
55C-----------------------------------------------
56 INTEGER NSN,NMN,NOINT,NELTST,ITYPTST,IDEL2,PENFLAG,IROT
57 INTEGER IRECTM(4,*),NSV(*),MSR(*),IRTLM(*),WEIGHT(*),
58 . NODNX_SMS(*),IPENA(*)
59 my_real
60 . visc,dt2t
61 my_real
62 . x(3,*),v(3,*),a(3,*),vr(3,*),ar(3,*),ms(*),in(*),fini(6,4,*),
63 . dl(3,4,*),dr(3,4,*),stifn(*),stifr(*),stfn_pen(*),stfr_pen(*),
64 . fsav(*),fncont(3,*),dmint2(4,*),sav_for_pena(8,*),ms_pena(*),
65 . csts(2,*),smas(*),mmas(*),siner(*),adi(*),skew(9,*),fncontp(3,*),
66 . ftcontp(3,*)
67 my_real
68 . dpara(7,*),dmast,adm(*),
69 . nmas(*),sav_iner_poff(*)
70 TYPE (h3d_database) :: h3d_data
71C-----------------------------------------------
72C L o c a l V a r i a b l e s
73C-----------------------------------------------
74 INTEGER I,NI,NINDXC,NINDXP
75 INTEGER INDXC(NSN),INDXP(NSN)
76C=======================================================================
77 INDXC(1:NSN) = 0
78 indxp(1:nsn) = 0
79 nindxc = 0
80 nindxp = 0
81C----------------
82 DO i=1,nsn
83 IF (ipena(i) == 0) THEN
84 nindxc = nindxc + 1
85 indxc(i) = i
86 ELSE
87 nindxp = nindxp + 1
88 indxp(i) = i
89 ENDIF
90 ENDDO
91c-----------
92 IF (nindxc > 0) THEN
93 CALL i2for28_cin(
94 1 nsn ,nmn ,a ,irectm ,dpara ,
95 2 msr ,nsv ,irtlm ,ms ,weight ,
96 3 ar ,in ,x ,stifn ,stifr ,
97 4 fsav ,dmast ,adm ,nmas ,idel2 ,
98 5 smas ,siner ,csts ,fncont ,indxc ,
99 6 sav_iner_poff,h3d_data,fncontp ,ftcontp )
100C
101 ENDIF
102c
103 IF (nindxp > 0) THEN
104 CALL i2for28_pen(
105 . x ,v ,vr ,a ,ar ,
106 . ms_pena ,in ,stifn ,stifr ,weight ,
107 . nsv ,irtlm ,csts ,skew ,dl ,
108 . dr ,fini ,fsav ,fncont ,nsn ,
109 . stfn_pen ,stfr_pen ,visc ,penflag ,irot ,
110 . noint ,nodnx_sms ,dmint2 ,sav_for_pena,irectm ,
111 . dt2t ,neltst ,ityptst ,indxp ,sav_iner_poff,
112 . h3d_data ,fncontp ,ftcontp)
113c
114 ENDIF
115c-----------
116 RETURN
117 END SUBROUTINE i2for28
118C
my_real
#define my_real
Definition cppsort.cpp:32
i2for28
subroutine i2for28(x, v, vr, a, ar, ms, in, stifn, stifr, weight, irectm, nsv, irtlm, dr, dl, fini, stfn_pen, stfr_pen, fsav, fncont, ipena, visc, csts, msr, adi, smas, siner, mmas, sav_for_pena, ms_pena, noint, nodnx_sms, dmint2, dt2t, neltst, ityptst, nsn, nmn, idel2, penflag, irot, skew, dpara, nmas, dmast, adm, sav_iner_poff, h3d_data, fncontp, ftcontp)
Definition i2for28.F:45
i2for28_cin
subroutine i2for28_cin(nsn, nmn, a, irect, dpara, msr, nsv, irtl, ms, weight, ar, in, x, stifn, stifr, fsav, dmast, adm, mmass, idel2, smass, siner, crst, fncont, indxc, miner, h3d_data, fncontp, ftcontp)
Definition i2for28_cin.F:38
i2for28_pen
subroutine i2for28_pen(x, v, vr, a, ar, ms_pena, in, stifn, stifr, weight, nsv, irtl, crst, skew, dx, dr, fini, fsav, fncont, nsn, stfn, stfr, visc, penflag, irot, noint, nodnx_sms, dmint2, sav_for_pena, irect, dt2t, neltst, ityptst, indxp, sav_iner_poff, h3d_data, fncontp, ftcontp)
Definition i2for28_pen.F:43
h3d_mod
Definition h3d_mod.F:308
h3d_mod::h3d_database
Definition h3d_mod.F:435