OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
i2for27p.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!|| i2for27p ../engine/source/interfaces/interf/i2for27p.F
25!||--- called by ------------------------------------------------------
26!|| intti2f ../engine/source/interfaces/interf/intti2f.F
27!||--- calls -----------------------------------------------------
28!|| i2for27p_cin ../engine/source/interfaces/interf/i2for27p_cin.F
29!|| i2for27p_pen ../engine/source/interfaces/interf/i2for27p_pen.F
30!|| i2mom27p_cin ../engine/source/interfaces/interf/i2mom27p_cin.F
31!||--- uses -----------------------------------------------------
32!|| h3d_mod ../engine/share/modules/h3d_mod.F
33!||====================================================================
34 SUBROUTINE i2for27p(
35 . X ,V ,VR ,A ,AR ,
36 . MS ,IN ,STIFN ,STIFR ,WEIGHT ,
37 . IRECTM ,NSV ,IRTLM ,CSTS ,SKEW ,
38 . DR ,DL ,FINI ,FSAV ,FNCONT ,
39 . NSN ,I0 ,I2SIZE ,IADI2 ,FSKYI2 ,
40 . STFN_PEN ,STFR_PEN ,VISC ,PENFLAG ,IROT ,
41 . NOINT ,NODNX_SMS ,DMINT2 ,DT2T ,NELTST ,
42 . ITYPTST ,MMAS ,SMAS ,SINER ,MINER ,
43 . MSR ,IPENA ,ADI ,IDEL2 ,NIR ,
44 . NMN ,H3D_DATA ,DPARA ,MSEGTYP2 ,CSTS_BIS ,
45 . T2FAC_SMS ,FNCONTP ,FTCONTP )
46C-----------------------------------------------
47C M o d u l e s
48C-----------------------------------------------
49 USE h3d_mod
50C-----------------------------------------------
51C I m p l i c i t T y p e s
52C-----------------------------------------------
53#include "implicit_f.inc"
54C-----------------------------------------------
55C D u m m y A r g u m e n t s
56C-----------------------------------------------
57 INTEGER NSN,NMN,NOINT,NELTST,ITYPTST,IDEL2,I0,I2SIZE,PENFLAG,IROT,NIR
58 INTEGER IRECTM(4,*),NSV(*),MSR(*),IRTLM(*),WEIGHT(*),IADI2(4,*),
59 . NODNX_SMS(*),IPENA(*),MSEGTYP2(*)
60 my_real
61 . visc,dt2t
62 my_real
63 . x(3,*),v(3,*),a(3,*),vr(3,*),ar(3,*),ms(*),in(*),fini(6,4,*),
64 . dl(3,4,*),dr(3,4,*),stifn(*),stifr(*),stfn_pen(*),stfr_pen(*),
65 . fsav(*),fncont(3,*),dmint2(4,*),
66 . csts(2,*),smas(*),mmas(*),siner(*),miner(*),adi(*),skew(9,*),
67 . fskyi2(i2size,*),
68 . dpara(7,*),csts_bis(2,*),t2fac_sms(*),
69 . fncontp(3,*),ftcontp(3,*)
70 TYPE (H3D_DATABASE) :: H3D_DATA
71C-----------------------------------------------
72C C o m m o n B l o c k s
73C-----------------------------------------------
74#include "com01_c.inc"
75C-----------------------------------------------
76C L o c a l V a r i a b l e s
77C-----------------------------------------------
78 INTEGER I,ISN,NI,I0BASE,NINDXC,NINDXP
79 INTEGER IADX(NSN),INDXC(NSN),INDXP(NSN)
80C=======================================================================
81 indxc(1:nsn) = 0
82 indxp(1:nsn) = 0
83 iadx(1:nsn) = 0
84 nindxc = 0
85 nindxp = 0
86 i0base = i0
87 ni = 0
88C----------------
89 DO i=1,nsn
90 isn = abs(nsv(i))
91 IF (weight(isn) == 1) THEN
92 ni = ni+1
93 iadx(i) = ni
94 ENDIF
95c
96 IF (ipena(i) == 0) THEN
97 nindxc = nindxc + 1
98 indxc(i) = i
99 ELSE
100 nindxp = nindxp + 1
101 indxp(i) = i
102 ENDIF
103 ENDDO
104c-----------
105 IF (nindxc > 0) THEN
106 i0 = i0base
107 CALL i2for27p_cin(
108 1 nsn ,nmn ,a ,csts ,nsv ,
109 2 ms ,weight ,stifn ,mmas ,fskyi2 ,
110 3 iadi2 ,i0 ,nir ,i2size ,idel2 ,
111 4 smas ,irectm ,x ,v ,fsav ,
112 5 fncont ,irtlm ,indxc ,iadx ,h3d_data ,
113 6 in ,siner ,dpara ,msegtyp2 ,ar ,
114 7 stifr ,csts_bis ,t2fac_sms ,fncontp ,ftcontp )
115c
116 IF (iroddl /= 0) THEN
117 i0 = i0base
118 CALL i2mom27p_cin(
119 1 nsn ,nmn ,ar ,irectm ,csts ,
120 2 msr ,nsv ,irtlm ,in ,ms ,
121 3 a ,x ,weight ,stifr ,fskyi2 ,
122 4 stifn ,iadi2 ,i0 ,nir ,i2size ,
123 5 idel2 ,smas ,siner ,miner ,adi ,
124 6 indxc ,iadx ,h3d_data ,msegtyp2 ,csts_bis )
125 ENDIF
126 ENDIF
127c
128 IF (nindxp > 0) THEN
129 i0 = i0base
130 CALL i2for27p_pen(
131 . x ,v ,vr ,a ,ar ,
132 . ms ,in ,stifn ,stifr ,weight ,
133 . nsv ,irtlm ,csts ,skew ,dl ,
134 . dr ,fini ,fsav ,fncont ,nsn ,
135 . i0 ,i2size ,iadi2 ,fskyi2 ,stfn_pen ,
136 . stfr_pen ,visc ,penflag ,irot ,noint ,
137 . nodnx_sms ,dmint2 ,dt2t ,neltst ,ityptst ,
138 . irectm ,indxp ,iadx ,h3d_data ,msegtyp2 ,
139 . fncontp ,ftcontp )
140c
141 ENDIF
142 i0 = i0base + ni
143c-----------
144 RETURN
145 END SUBROUTINE i2for27p
my_real
#define my_real
Definition cppsort.cpp:32
i2for27p
subroutine i2for27p(x, v, vr, a, ar, ms, in, stifn, stifr, weight, irectm, nsv, irtlm, csts, skew, dr, dl, fini, fsav, fncont, nsn, i0, i2size, iadi2, fskyi2, stfn_pen, stfr_pen, visc, penflag, irot, noint, nodnx_sms, dmint2, dt2t, neltst, ityptst, mmas, smas, siner, miner, msr, ipena, adi, idel2, nir, nmn, h3d_data, dpara, msegtyp2, csts_bis, t2fac_sms, fncontp, ftcontp)
Definition i2for27p.F:46
i2for27p_cin
subroutine i2for27p_cin(nsn, nmn, a, crst, nsv, ms, weight, stifn, mmass, fskyi2, iadi2, i0, nir, i2size, idel2, smass, irect, x, v, fsav, fncont, irtl, indxc, iadx, h3d_data, in, siner, dpara, msegtyp2, ar, stifr, csts_bis, t2fac_sms, fncontp, ftcontp)
Definition i2for27p_cin.F:43
i2for27p_pen
subroutine i2for27p_pen(x, v, vr, a, ar, ms, in, stifn, stifr, weight, nsv, irtl, crst, skew, dx, dr, fini, fsav, fncont, nsn, i0, i2size, iadi2, fskyi2, stfn, stfr, visc, penflag, irotb, noint, nodnx_sms, dmint2, dt2t, neltst, ityptst, irect, indxp, iadx, h3d_data, msegtyp2, fncontp, ftcontp)
Definition i2for27p_pen.F:48
i2mom27p_cin
subroutine i2mom27p_cin(nsn, nmn, ar, irect, crst, msr, nsv, irtl, in, ms, a, x, weight, stifr, fskyi2, stifn, iadi2, i0, nir, i2size, idel2, smass, siner, miner, adi, indxc, iadx, h3d_data, msegtyp2, csts_bis)
Definition i2mom27p_cin.F:37
h3d_mod
Definition h3d_mod.F:308