OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
i2for27.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!|| i2for27 ../engine/source/interfaces/interf/i2for27.F
25!||--- called by ------------------------------------------------------
26!|| intti2f ../engine/source/interfaces/interf/intti2f.F
27!||--- calls -----------------------------------------------------
28!|| i2for27_cin ../engine/source/interfaces/interf/i2for27_cin.F
29!|| i2for27_pen ../engine/source/interfaces/interf/i2for27_pen.F
30!|| i2mom27_cin ../engine/source/interfaces/interf/i2mom27_cin.F
31!||--- uses -----------------------------------------------------
32!|| h3d_mod ../engine/share/modules/h3d_mod.F
33!||====================================================================
34 SUBROUTINE i2for27(
35 . X ,V ,VR ,A ,AR ,
36 . MS ,IN ,STIFN ,STIFR ,WEIGHT ,
37 . IRECTM ,NSV ,IRTLM ,DR ,DL ,
38 . FINI ,STFN_PEN ,STFR_PEN ,FSAV ,FNCONT ,
39 . IPENA ,VISC ,CSTS ,MSR ,ADI ,
40 . SMAS ,SINER ,MMAS ,SAV_FOR_PENA,MS_PENA ,
41 . NOINT ,NODNX_SMS ,DMINT2 ,DT2T ,NELTST ,
42 . ITYPTST ,NSN ,NMN ,IDEL2 ,PENFLAG ,
43 . IROT ,SKEW ,
44 . SAV_INER_POFF,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,PENFLAG,IROT
58 INTEGER IRECTM(4,*),NSV(*),MSR(*),IRTLM(*),WEIGHT(*),
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,*),sav_for_pena(8,*),ms_pena(*),
66 . csts(2,*),smas(*),mmas(*),siner(*),adi(*),skew(9,*),csts_bis(2,*),
67 . t2fac_sms(*),fncontp(3,*) ,ftcontp(3,*)
68 my_real
69 . sav_iner_poff(*),dpara(7,*)
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,NI,NINDXC,NINDXP
79 INTEGER INDXC(NSN),INDXP(NSN)
80C=======================================================================
81 indxc(1:nsn) = 0
82 indxp(1:nsn) = 0
83 nindxc = 0
84 nindxp = 0
85C----------------
86 DO i=1,nsn
87 IF (ipena(i) == 0) THEN
88 nindxc = nindxc + 1
89 indxc(i) = i
90 ELSE
91 nindxp = nindxp + 1
92 indxp(i) = i
93 ENDIF
94 ENDDO
95c-----------
96 IF (nindxc > 0) THEN
97 CALL i2for27_cin(
98 1 nsn ,nmn ,a ,irectm ,csts ,
99 2 msr ,nsv ,irtlm ,ms ,weight ,
100 3 stifn ,mmas ,idel2 ,smas ,x ,
101 4 v ,fsav ,fncont ,indxc ,h3d_data ,
102 5 in ,siner ,dpara ,msegtyp2 ,ar,stifr ,
103 6 csts_bis ,t2fac_sms ,fncontp ,ftcontp )
104c
105 IF (iroddl /= 0) THEN
106 CALL i2mom27_cin(
107 1 nsn ,nmn ,ar ,irectm ,csts ,
108 2 msr ,nsv ,irtlm ,in ,ms ,
109 3 a ,x ,weight ,stifr ,stifn ,
110 4 idel2 ,smas ,siner ,mmas ,adi ,
111 5 indxc ,sav_iner_poff,h3d_data ,msegtyp2 ,csts_bis)
112 ENDIF
113 ENDIF
114c
115 IF (nindxp > 0) THEN
116 CALL i2for27_pen(
117 . x ,v ,vr ,a ,ar ,
118 . ms_pena ,in ,stifn ,stifr ,weight ,
119 . nsv ,irtlm ,csts ,skew ,dl ,
120 . dr ,fini ,fsav ,fncont ,nsn ,
121 . stfn_pen ,stfr_pen ,visc ,penflag ,irot ,
122 . noint ,nodnx_sms ,dmint2 ,sav_for_pena,irectm ,
123 . dt2t ,neltst ,ityptst ,indxp ,sav_iner_poff,
124 . h3d_data ,msegtyp2 ,fncontp ,ftcontp )
125c
126 ENDIF
127c-----------
128 RETURN
129 END SUBROUTINE i2for27
130C
my_real
#define my_real
Definition cppsort.cpp:32
i2for27
subroutine i2for27(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, sav_iner_poff, h3d_data, dpara, msegtyp2, csts_bis, t2fac_sms, fncontp, ftcontp)
Definition i2for27.F:46
i2for27_cin
subroutine i2for27_cin(nsn, nmn, a, irect, crst, msr, nsv, irtl, ms, weight, stifn, mmass, idel2, smass, x, v, fsav, fncont, indxc, h3d_data, in, siner, dpara, msegtyp2, ar, stifr, csts_bis, t2fac_sms, fncontp, ftcontp)
Definition i2for27_cin.F:41
i2for27_pen
subroutine i2for27_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, irotb, noint, nodnx_sms, dmint2, sav_for_pena, irect, dt2t, neltst, ityptst, indxp, sav_iner_poff, h3d_data, msegtyp2, fncontp, ftcontp)
Definition i2for27_pen.F:45
i2mom27_cin
subroutine i2mom27_cin(nsn, nmn, ar, irect, crst, msr, nsv, irtl, in, ms, a, x, weight, stifr, stifn, idel2, smass, siner, nmas, adi, indxc, miner, h3d_data, msegtyp2, csts_bis)
Definition i2mom27_cin.F:36
h3d_mod
Definition h3d_mod.F:308