OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
intti12.F File Reference
#include "implicit_f.inc"
#include "param_c.inc"
#include "scr06_c.inc"
#include "units_c.inc"
#include "mvsiz_p.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine intti12a (ipari, x, wa, itab, segvar, test, skew, iskwn, intbuf_tab)
subroutine intti12f (ipari, intbuf_tab, x, v, a, ms, itab, weight, stifn, wa, skew)
subroutine intti12v (ipari, intbuf_tab, x, v, a, ms, weight, wa, skew)

Function/Subroutine Documentation

◆ intti12a()

subroutine intti12a ( integer, dimension(*) ipari,
x,
wa,
integer, dimension(*) itab,
type(t_segvar) segvar,
integer test,
skew,
integer, dimension(*) iskwn,
type(intbuf_struct_) intbuf_tab )

Definition at line 44 of file intti12.F.

45C-----------------------------------------------
46C D e s c r i p t i o n
47C-----------------------------------------------
48C FLUID/FLUID INTERFACE DERIVATED FROM TYPE 2 & 5 (SLIDING)
49C-----------------------------------------------
50C M o d u l e s
51C-----------------------------------------------
52 USE segvar_mod
53 USE ale_mod
54 USE intbufdef_mod
55C-----------------------------------------------
56C I m p l i c i t T y p e s
57C-----------------------------------------------
58#include "implicit_f.inc"
59C-----------------------------------------------
60C D u m m y A r g u m e n t s
61C-----------------------------------------------
62 INTEGER IPARI(*),ITAB(*),TEST,ISKWN(*)
63 my_real x(*),wa(*),skew(*)
64
65 TYPE(INTBUF_STRUCT_) INTBUF_TAB
66 TYPE(t_segvar) :: SEGVAR
67C-----------------------------------------------
68C C o m m o n B l o c k s
69C-----------------------------------------------
70#include "param_c.inc"
71#include "scr06_c.inc"
72#include "units_c.inc"
73#include "mvsiz_p.inc"
74C-----------------------------------------------
75C L o c a l V a r i a b l e s
76C-----------------------------------------------
77
78 INTEGER ITIED,NOINT,NGROUS,NGROUM,NG,
79 . L1 ,L2 ,L3 ,L4,L5,L6
80 INTEGER JCODV(ALE%GLOBAL%LCONV),CODTOT,I,ITEST,ILEV,IREF,ICEN
81 INTEGER, DIMENSION(MVSIZ) :: IX1,IX2,IX3,IX4
82 my_real
83 . GAP
84 my_real, DIMENSION(MVSIZ) :: X1,X2,X3,X4,XI
85 my_real, DIMENSION(MVSIZ) :: Y1,Y2,Y3,Y4,YI
86 my_real, DIMENSION(MVSIZ) :: Z1,Z2,Z3,Z4,ZI
87 my_real, DIMENSION(MVSIZ) :: XFACE,N1,N2,N3
88 my_real, DIMENSION(MVSIZ) :: SSC,TTC,AREA,THK,ALP
89 my_real, DIMENSION(MVSIZ) :: X0,Y0,Z0,ANS
90 my_real, DIMENSION(MVSIZ) :: XX1,XX2,XX3,XX4
91 my_real, DIMENSION(MVSIZ) :: YY1,YY2,YY3,YY4
92 my_real, DIMENSION(MVSIZ) :: ZZ1,ZZ2,ZZ3,ZZ4
93 my_real, DIMENSION(MVSIZ) :: XI1,XI2,XI3,XI4
94 my_real, DIMENSION(MVSIZ) :: YI1,YI2,YI3,YI4
95 my_real, DIMENSION(MVSIZ) :: ZI1,ZI2,ZI3,ZI4
96 my_real, DIMENSION(MVSIZ) :: XN1,XN2,XN3,XN4
97 my_real, DIMENSION(MVSIZ) :: YN1,YN2,YN3,YN4
98 my_real, DIMENSION(MVSIZ) :: ZN1,ZN2,ZN3,ZN4
99 my_real, DIMENSION(MVSIZ) :: XP,YP,ZP
100 my_real, DIMENSION(MVSIZ) :: H1,H2,H3,H4
101 INTEGER :: NRTS, NRTM, NSN, NMN, NST, MST
102 INTEGER :: LFT, LLT, NFT
103C-----------------------------------------------
104 ITEST =0
105
106 NRTS =IPARI(3)
107 NRTM =IPARI(4)
108 NSN =IPARI(5)
109 NMN =IPARI(6)
110 NST =IPARI(8)
111 MST =IPARI(9)
112 NOINT =IPARI(15)
113 ILEV=IPARI(20)
114 IREF=IPARI(21)
115 ICEN=IPARI(22)
116 CALL VARCONDEC(JCODV,IPARI(30),CODTOT)
117
118 NGROUS=1+(NSN-1)/NVSIZ
119 NGROUM=1+(NMN-1)/NVSIZ
120
121 ITIED=INT(INTBUF_TAB%VARIABLES(1))
122 GAP =INTBUF_TAB%VARIABLES(2)
123.OR. IF(ITIED==0 ITIED==3)THEN
124 L1=1
125 L2=L1+3*NSN
126 L3=L2+3*NMN
127 CALL I12GATHCOR(X,WA(L1),WA(L2),NSN,NMN,INTBUF_TAB%NSV,INTBUF_TAB%MSR)
128
129 DO NG=1,NGROUS
130 NFT=(NG-1)*NVSIZ
131 LFT=1
132 LLT=MIN0(NVSIZ,NSN-NFT)
133 !----------------------------------------------!
134 ! FIND NEAREST NODE !
135 !----------------------------------------------!
136 CALL I12LOC3(
137 1 WA(L1), WA(L2), INTBUF_TAB%IRECTM,INTBUF_TAB%LMSR,
138 2 INTBUF_TAB%MSR, INTBUF_TAB%NSV, INTBUF_TAB%ILOCS, INTBUF_TAB%NSEGM,
139 3 LFT, LLT, NFT)
140
141 !----------------------------------------------!
142 ! FIND MAIN SEGMENT
143 !----------------------------------------------!
144 CALL I12MSR3(
145 1 WA(L1), WA(L2), INTBUF_TAB%IRECTM,INTBUF_TAB%LMSR,
146 2 INTBUF_TAB%MSR, INTBUF_TAB%NSV, INTBUF_TAB%ILOCS, INTBUF_TAB%IRTLM,
147 3 INTBUF_TAB%NSEGM, LFT, LLT, NFT)
148 ENDDO
149
150 IF(ILEV>0)
151 & CALL I12ROT3(WA(L1),WA(L2),X,SKEW,ISKWN,ILEV,IREF,ICEN,NSN,NMN,
152 & INTBUF_TAB%STFNS,INTBUF_TAB%STFNM)
153
154 DO NG=1,NGROUS
155 NFT=(NG-1)*NVSIZ
156 LFT=1
157 LLT=MIN0(NVSIZ,NSN-NFT)
158 CALL I12COR3(
159 1 WA(L1), WA(L2), INTBUF_TAB%IRECTM,INTBUF_TAB%MSR,
160 2 INTBUF_TAB%IRTLM, ILEV, X, INTBUF_TAB%STFNS,
161 3 IX1, IX2, IX3, IX4,
162 4 X1, X2, X3, X4,
163 5 XI, Y1, Y2, Y3,
164 6 Y4, YI, Z1, Z2,
165 7 Z3, Z4, ZI, XFACE,
166 8 LFT, LLT, NFT)
167 !-----------------------------------------------------------!
168 ! CALCUL COORDONNEES ISOPARAMETRIQUES S & T NOEUD SECONDARY !
169 !-----------------------------------------------------------!
170 CALL I3CST3(
171 1 X1, X2, X3, X4,
172 2 XI, Y1, Y2, Y3,
173 3 Y4, YI, Z1, Z2,
174 4 Z3, Z4, ZI, XFACE,
175 5 N1, N2, N3, SSC,
176 6 TTC, X0, Y0, Z0,
177 7 XX1, XX2, XX3, XX4,
178 8 YY1, YY2, YY3, YY4,
179 9 ZZ1, ZZ2, ZZ3, ZZ4,
180 A XI1, XI2, XI3, XI4,
181 B YI1, YI2, YI3, YI4,
182 C ZI1, ZI2, ZI3, ZI4,
183 D XN1, XN2, XN3, XN4,
184 E YN1, YN2, YN3, YN4,
185 F ZN1, ZN2, ZN3, ZN4,
186 G AREA, LFT, LLT)
187 !-----------------------------------------------------------!
188 ! VERIFIE QUE LE NOEUD EST SUR LA FACETTE ET STOCKE S & T !
189 !-----------------------------------------------------------!
190 CALL I12DIS3(
191 1 INTBUF_TAB%CSTS, INTBUF_TAB%NSV, ITAB, GAP,
192 2 NOINT, ITEST, INTBUF_TAB%FCOUNT,SSC,
193 3 TTC, LFT, LLT, NFT)
194 ENDDO
195 IF(ITEST>0)THEN
196 WRITE(IOUT,'(A,I8,A,I8,A)')
197 . ' *** WARNING INTERFACE',NOINT,' : ',
198 . ITEST,' SECONDARY NODES LIE OUTSIDE OF MAIN SEGMENT'
199 TEST=1
200 ENDIF
201.OR. ENDIF !(ITIED==0 ITIED==3)
202
203.AND..AND. IF(CODTOT/=0 ALE%GLOBAL%INCOMP==0 ITIED/=3)THEN
204 L1=1
205 L2=L1+NSN*ALE%GLOBAL%NVCONV
206 L3=L2+NSN*ALE%GLOBAL%NVCONV
207 L4=L3+NRTM
208 L5=L4+NMN*ALE%GLOBAL%NVCONV
209 L6=L5+NMN
210 !-----------------------------------------------------------------!
211 ! ECHANGE DES INFORMATIONS ENTRE LES TWO FACES DE l'INTERFACE !
212 !-----------------------------------------------------------------!
213 ! 1- Transforme Valeurs elementaires en valeurs nodales cote second.
214 !-----------------------------------------------------------------!
215 CALL I12NOD3(NRTS,INTBUF_TAB%IELES,INTBUF_TAB%IRECTS,SEGVAR,JCODV,
216 . WA(L1),INTBUF_TAB%FCOUNT,NSN)
217 ! 2- Valeurs MAIN -> SECONDARY
218 !-----------------------------------------------------------------!
219 CALL I12M2S(NSN ,INTBUF_TAB%IRECTS,INTBUF_TAB%IRTLM,WA(L2),NRTM,NRTS,
220 . INTBUF_TAB%IELEM,INTBUF_TAB%IELES,SEGVAR,JCODV)
221 ! 3- Valeurs Nodales SECONDARY -> MAIN
222 !-----------------------------------------------------------------!
223 CALL I12S2M(NSN,INTBUF_TAB%IRTLM,NRTM,JCODV,WA(L1),WA(L3),
224 . NMN,WA(L4),INTBUF_TAB%IRECTM,WA(L5),INTBUF_TAB%MSR,
225 . SEGVAR,INTBUF_TAB%IELEM,NOINT)
226 ENDIF
227
228 RETURN
my_real
#define my_real
Definition cppsort.cpp:32
ale_mod
Definition ale_mod.F:149
segvar_mod
Definition segvar_mod.F:61

◆ intti12f()

subroutine intti12f ( integer, dimension(*) ipari,
type(intbuf_struct_) intbuf_tab,
x,
v,
a,
ms,
integer, dimension(*) itab,
integer, dimension(*) weight,
stifn,
wa,
skew )

Definition at line 241 of file intti12.F.

243C INTERFACE FLUIDE/FLUIDE DERIVEE DES INTERFACE 2 ET 5 (SLIDING)
244C-----------------------------------------------
245C M o d u l e s
246C-----------------------------------------------
247 USE intbufdef_mod
248C-----------------------------------------------
249C I m p l i c i t T y p e s
250C-----------------------------------------------
251#include "implicit_f.inc"
252C-----------------------------------------------
253C D u m m y A r g u m e n t s
254C-----------------------------------------------
255 INTEGER IPARI(*), ITAB(*),WEIGHT(*)
256 my_real
257 . x(*), v(*), a(*), ms(*), stifn(*),wa(*),skew(*)
258
259 TYPE(INTBUF_STRUCT_) INTBUF_TAB
260C-----------------------------------------------
261C C o m m o n B l o c k s
262C-----------------------------------------------
263#include "param_c.inc"
264C-----------------------------------------------
265C L o c a l V a r i a b l e s
266C-----------------------------------------------
267 INTEGER ITIED,NOINT,NGROUS,NGROUM,NG
268 INTEGER ILEV,IREF
269 my_real
270 . gap
271 INTEGER :: NRTS, NRTM, NSN, NMN, NST, MST
272
273C-----------------------------------------------
274
275 nrts =ipari(3)
276 nrtm =ipari(4)
277 nsn =ipari(5)
278 nmn =ipari(6)
279 nst =ipari(8)
280 mst =ipari(9)
281 noint =ipari(15)
282 ilev =ipari(20)
283 iref =ipari(21)
284
285 ngrous=1+(nsn-1)/nvsiz
286 ngroum=1+(nmn-1)/nvsiz
287
288 itied=int(intbuf_tab%VARIABLES(1))
289 !-----------------------------------------------------------------!
290 ! CONDITIONS PERIODIQUES !
291 ! TRANSFORMATIONS DES ACCELERATIONS SECONDARYS !
292 !-----------------------------------------------------------------!
293 IF(itied==2)CALL in12r(a,intbuf_tab%VARIABLES(1),intbuf_tab%NSV,
294 . nsn,1,intbuf_tab%FCOUNT)
295 !-----------------------------------------------------------------!
296 ! CALCUL FORCES COTE MAIN (IDEM TYPE 2) !
297 !-----------------------------------------------------------------!
298 CALL i12for3(
299 1 nsn ,nmn ,a ,intbuf_tab%IRECTM,intbuf_tab%CSTS,
300 2 intbuf_tab%MSR,intbuf_tab%NSV,intbuf_tab%IRTLM,ms ,weight ,
301 3 stifn ,intbuf_tab%NMAS,intbuf_tab%FCOUNT,skew ,wa ,
302 4 intbuf_tab%STFNS,intbuf_tab%STFNM,ilev,iref)
303 RETURN
i12for3
subroutine i12for3(nsn, nmn, a, irect, crst, msr, nsv, irtl, ms, weight, stifn, mmass, tagkine, skew, wa, tets, tetm, ilev, iref)
Definition i12for3.F:34
in12r
subroutine in12r(x, frigap, nsv, nsn, flag)
Definition in12r.F:30

◆ intti12v()

subroutine intti12v ( integer, dimension(*) ipari,
type(intbuf_struct_) intbuf_tab,
x,
v,
a,
ms,
integer, dimension(*) weight,
wa,
skew )

Definition at line 317 of file intti12.F.

319C-----------------------------------------------
320C M o d u l e s
321C-----------------------------------------------
322 USE intbufdef_mod
323!-----------------------------------------------------------------!
324! INTERFACE FLUIDE/FLUIDE DERIVEE DES INTERFACE 2 ET 5 (SLIDING) !
325!-----------------------------------------------------------------!
326C-----------------------------------------------
327C I m p l i c i t T y p e s
328C-----------------------------------------------
329#include "implicit_f.inc"
330C-----------------------------------------------
331C D u m m y A r g u m e n t s
332C-----------------------------------------------
333 INTEGER IPARI(*), WEIGHT(*)
334 my_real
335 . x(*), v(*), a(*),ms(*),wa(*),skew(*)
336
337 TYPE(INTBUF_STRUCT_) INTBUF_TAB
338C-----------------------------------------------
339C C o m m o n B l o c k s
340C-----------------------------------------------
341C-----------------------------------------------
342C L o c a l V a r i a b l e s
343C-----------------------------------------------
344 INTEGER
345 . ITIED,ILEV,IREF
346 INTEGER :: NRTS, NRTM, NSN, NMN, NST, MST
347
348C-----------------------------------------------
349 nrts =ipari(3)
350 nrtm =ipari(4)
351 nsn =ipari(5)
352 nmn =ipari(6)
353 nst =ipari(8)
354 mst =ipari(9)
355 ilev =ipari(20)
356 iref =ipari(21)
357
358 itied=int(intbuf_tab%VARIABLES(1))
359 !-----------------------------------------------------------------!
360 ! BC MAIN ET IMPOSE VITESSE ET ACC COTE SECONDARY !
361 ! VITESSE DE GRILLE (CAS TIED) FAIT DS INTERF 1 !
362 !-----------------------------------------------------------------!
363 CALL i12vit3(nsn ,nmn ,
364 2 a ,intbuf_tab%IRECTM,
365 3 intbuf_tab%CSTS,intbuf_tab%MSR,intbuf_tab%NSV,intbuf_tab%IRTLM,
366 4 v ,ms ,weight ,intbuf_tab%NMAS,intbuf_tab%FCOUNT,
367 5 skew ,wa ,intbuf_tab%STFNS,intbuf_tab%STFNM,ilev,iref)
368
369 IF(itied==2)THEN
370 CALL in12r(a,intbuf_tab%VARIABLES(1),intbuf_tab%NSV,nsn,2,intbuf_tab%FCOUNT)
371 CALL in12r(v,intbuf_tab%VARIABLES(1),intbuf_tab%NSV,nsn,2,intbuf_tab%FCOUNT)
372 ENDIF
373
374 RETURN
i12vit3
subroutine i12vit3(nsn, nmn, a, irect, crst, msr, nsv, irtl, v, ms, weight, mmass, tagkine, skew, wa, tets, tetm, ilev, iref)
Definition i12vit3.F:33