OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
intfop2.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!|| intfop2 ../engine/source/interfaces/interf/intfop2.F
25!||--- called by ------------------------------------------------------
26!|| resol ../engine/source/engine/resol.F
27!||--- calls -----------------------------------------------------
28!|| i10mainf ../engine/source/interfaces/int10/i10mainf.F
29!|| i11mainf ../engine/source/interfaces/int11/i11mainf.F
30!|| i20mainf ../engine/source/interfaces/int20/i20mainf.F
31!|| i21mainf ../engine/source/interfaces/int21/i21mainf.f
32!|| i22mainf ../engine/source/interfaces/int22/i22mainf.F
33!|| i23mainf ../engine/source/interfaces/int23/i23mainf.F
34!|| i24mainf ../engine/source/interfaces/int24/i24main.F
35!|| i25mainf ../engine/source/interfaces/int25/i25mainf.F
36!|| i7mainf ../engine/source/interfaces/int07/i7mainf.F
37!|| int18_law151_nsv_shift ../common_source/interf/int18_law151_nsv_shift.F
38!|| int_startime ../engine/source/system/timer_interf.f
39!|| int_stoptime ../engine/source/system/timer_interf.f
40!|| my_barrier ../engine/source/system/machine.F
41!||--- uses -----------------------------------------------------
42!|| ale_connectivity_mod ../common_source/modules/ale/ale_connectivity_mod.f
43!|| array_mod ../common_source/modules/array_mod.f
44!|| elbufdef_mod ../common_source/modules/mat_elem/elbufdef_mod.f90
45!|| groupdef_mod ../common_source/modules/groupdef_mod.F
46!|| h3d_mod ../engine/share/modules/h3d_mod.F
47!|| int18_law151_nsv_shift_mod ../common_source/interf/int18_law151_nsv_shift.F
48!|| intbuf_fric_mod ../common_source/modules/interfaces/intbuf_fric_mod.F90
49!|| intbufdef_mod ../common_source/modules/interfaces/intbufdef_mod.F90
50!|| interfaces_mod ../common_source/modules/interfaces/interfaces_mod.F90
51!|| intstamp_mod ../engine/share/modules/intstamp_mod.F
52!|| metric_mod ../common_source/modules/interfaces/metric_mod.F
53!|| multi_fvm_mod ../common_source/modules/ale/multi_fvm_mod.F90
54!|| output_mod ../common_source/modules/output/output_mod.F90
55!|| sensor_mod ../common_source/modules/sensor_mod.f90
56!|| timer_mod ../engine/source/system/timer_mod.F90
57!||====================================================================
58 SUBROUTINE intfop2(OUTPUT, TIMERS,
59 1 IPARI ,X ,A ,IGROUPS ,ALE_CONNECTIVITY,
60 2 ICODT ,FSAV ,V ,MS ,DT2T ,
61 3 NELTST ,ITYPTST ,ITAB ,STIFN ,TF ,
62 4 FSKYI ,ISKY ,VR ,FCONT ,SECFCUM ,
63 5 JTASK ,NISKYFI ,KINET ,NEWFRONT ,NSTRF ,
64 6 ICONTACT ,VISCN ,XCELL ,
65 8 NUM_IMP ,NS_IMP ,NE_IMP ,IND_IMP ,NT_IMP ,
66 9 FR_I18 ,IGRBRIC ,EMINX ,
67 A IXS ,IXS16 ,IXS20 ,FNCONT ,FTCONT ,
68 B IAD_ELEM ,FR_ELEM ,RCONTACT ,ACONTACT ,PCONTACT ,
69 C TEMP ,FTHE ,FTHESKYI ,IPARG ,NSENSOR ,
70 D PM ,INTSTAMP ,WEIGHT ,NISKYFIE ,IRLEN20 ,
71 E ISLEN20 ,IRLEN20T ,ISLEN20T ,IRLEN20E ,ISLEN20E ,
72 F MSKYI_SMS ,ISKYI_SMS ,NODNX_SMS ,INT18ADD ,FCONTG ,
73 G FNCONTG ,FTCONTG ,NODGLOB ,MS0 ,NPC ,
74 H WA ,SENSOR_TAB ,QFRICINT ,NCONT ,INDEXCONT ,
75 I TAGCONT ,INOD_PXFEM ,MS_PLY ,WAGAP ,ELBUF_TAB ,
76 J CONDN ,CONDNSKYI ,NV46 ,
77 K SFBSAV6 ,FBSAV6 ,NODADT_THERM,THEACCFACT,
78 L ISENSINT ,NISUBMAX ,NB25_CANDT,NB25_IMPCT ,
79 M NB25_DST1 ,NB25_DST2 ,IXIG3D ,KXIG3D ,WIGE ,
80 N KNOT ,IGEO ,MULTI_FVM ,H3D_DATA ,
81 P PSKIDS ,T2MAIN_SMS ,FORNEQS ,KNOTLOCPC,KNOTLOCEL,
82 Q APINCH ,STIFPINCH ,T2FAC_SMS ,TAGNCONT ,
83 R KLOADPINTER,LOADPINTER ,LOADP_HYD_INTER,DGAPLOADINT,S_LOADPINTER,
84 S INTERFACES,XCELL_REMOTE)
85C-----------------------------------------------
86C M o d u l e s
87C-----------------------------------------------
88 USE output_mod
89 USE timer_mod
90 USE elbufdef_mod
91 USE intstamp_mod
92 USE intbufdef_mod
93 USE multi_fvm_mod
94 USE h3d_mod
95 USE intbuf_fric_mod
96 USE metric_mod
97 USE groupdef_mod
98 USE ale_connectivity_mod
99 USE sensor_mod
100 USE interfaces_mod
101 USE array_mod
102 USE int18_law151_nsv_shift_mod , ONLY : int18_law151_nsv_shift
103C-----------------------------------------------
104C I m p l i c i t T y p e s
105C-----------------------------------------------
106#include "implicit_f.inc"
107#include "comlock.inc"
108C-----------------------------------------------
109C C o m m o n B l o c k s
110C-----------------------------------------------
111#include "com01_c.inc"
112#include "com04_c.inc"
113#include "com08_c.inc"
114#include "task_c.inc"
115#include "param_c.inc"
116#include "warn_c.inc"
117#include "units_c.inc"
118#include "parit_c.inc"
119#include "impl1_c.inc"
120#include "timeri_c.inc"
121#include "tabsiz_c.inc"
122C-----------------------------------------------
123C D u m m y A r g u m e n t s
124C-----------------------------------------------
125 TYPE(output_), intent(inout) :: output
126 TYPE(timer_), INTENT(INOUT) :: TIMERS
127 INTEGER ,INTENT(IN) :: NSENSOR
128 INTEGER NELTST,ITYPTST,NEWFRONT(*),NSTRF(*),
129 . IRLEN20, ISLEN20, IRLEN20T, ISLEN20T,
130 . IRLEN20E, ISLEN20E,INT18ADD(*),NCONT,NV46,SFBSAV6,IGROUPS(NUMELS)
131 INTEGER IPARI(NPARI,*), ICODT(*),ITAB(*),
132 . ISKY(*), JTASK, NISKYFI(*),ICONTACT(*),
133 . IPARG(NPARG,*),INOD_PXFEM(*),TAGNCONT(NLOADP_HYD_INTER,*)
134
135 INTEGER, TARGET :: FR_I18(NSPMD+2,*)
136 INTEGER, TARGET :: KINET(*)
137 INTEGER IAD_ELEM(2,*),FR_ELEM(*), NISKYFIE(*)
138 INTEGER NUM_IMP(*),NS_IMP(*),NE_IMP(*),IND_IMP(*),NT_IMP
139 INTEGER IXS(*) ,IXS16(*) ,IXS20(*)
140 INTEGER WEIGHT(*), ISKYI_SMS(*), NODNX_SMS(*), NODGLOB(*), NPC(*)
141 INTEGER INDEXCONT(*),TAGCONT(*),
142 . NISUBMAX,
143 . NB25_CANDT(PARASIZ),NB25_IMPCT(PARASIZ),
144 . NB25_DST1(PARASIZ) ,NB25_DST2(PARASIZ)
145 INTEGER KXIG3D(NIXIG3D,*),IXIG3D(*),IGEO(NPROPGI,*),T2MAIN_SMS(6,*)
146 INTEGER , INTENT(IN) :: S_LOADPINTER
147 INTEGER , INTENT(IN) :: KLOADPINTER(NINTER+1),LOADPINTER(S_LOADPINTER),
148 . LOADP_HYD_INTER(NLOADP_HYD)
149 INTEGER ,INTENT(IN) :: NODADT_THERM
150 my_real ,intent(in) :: theaccfact
151 my_real ,INTENT(IN) :: dgaploadint(s_loadpinter)
152 my_real
153 . eminx(*)
154 my_real dt2t,
155 . a(*), fsav(nthvki,*) ,ms0(*),
156 . stifn(*), tf(*),fskyi(lskyi,nfskyi),vr(3,*),fcont(3,*),
157 . secfcum(7,numnod,nsect),
158 . viscn(*), fncont(3,*),ftcont(3,*),rcontact(*),temp(*),
159 . ftheskyi(lskyi),pm(npropm,*),fthe(*),
160 . acontact(*), pcontact(*), mskyi_sms(*),
161 . fcontg(3,*),fncontg(3,*),ftcontg(3,*),wa(*),
162 . qfricint(*),ms_ply(*),wagap(*),condn(*),condnskyi(lskyi),
163 . wige(*),knot(*),pskids(*),forneqs(3,*),knotlocpc(*),knotlocel(*),
164 . apinch(3,*),stifpinch(*),t2fac_sms(*)
165 my_real, TARGET :: x(3*numnod),v(3*numnod),ms(numnod),xcell(3,sxcell)
166 TYPE(intstamp_data) INTSTAMP(*)
167 TYPE (ELBUF_STRUCT_), DIMENSION(NGROUP) :: ELBUF_TAB
168 DOUBLE PRECISION FBSAV6(12,6,SFBSAV6)
169 INTEGER ISENSINT(NISUBMAX+1,NINTER)
170 TYPE(MULTI_FVM_STRUCT), INTENT(INOUT), TARGET :: MULTI_FVM
171 TYPE(h3d_database) :: H3D_DATA
172 TYPE(t_ale_connectivity), INTENT(IN) :: ALE_CONNECTIVITY
173 TYPE (SENSOR_STR_) ,DIMENSION(NSENSOR) :: SENSOR_TAB
174 TYPE (INTERFACES_) ,INTENT(INOUT):: INTERFACES
175 TYPE(array_type), DIMENSION(NINTER), INTENT(in) :: XCELL_REMOTE !< remote data structure for interface 18
176C-----------------------------------------------
177 TYPE (GROUP_) , DIMENSION(NGRBRIC) :: IGRBRIC
178C-----------------------------------------------
179C L o c a l V a r i a b l e s
180C-----------------------------------------------
181 INTEGER N, LINDMAX,IAD,IDUM,NRTMDIM, NI18,
182 . IAD17, IGN, IGE, NME, NMES, ISTAMP,NN1,NN2,ISENS
183C
184 INTEGER NB_JLT(PARASIZ),NB_JLT_NEW(PARASIZ),NB_STOK_N(PARASIZ),NTH
185 INTEGER INTEREFRIC
186 SAVE NB_JLT,NB_JLT_NEW,NB_STOK_N
187 my_real
188 . PCT,PCT1,PCT2, TS, BID
189c INTEGER, ALLOCATABLE, DIMENSION(:) :: ISENSINT
190
191 my_real, DIMENSION(:),ALLOCATABLE, TARGET :: xe,ve,mse
192 my_real, DIMENSION(:),POINTER :: ptr_x,ptr_v,ptr_ms
193 INTEGER, DIMENSION(:), POINTER :: PTR_KINET
194
195
196 SAVE xe,ve,mse
197 INTEGER :: NTY
198C-----------------------------------------------
199 bid = zero
200C-----------------------------------------------
201C
202C Interface Statistics
203 IF (debug(3)>=1.AND.ncycle==0) THEN
204 nb_jlt(jtask) = 0
205 nb_jlt_new(jtask) = 0
206 nb_stok_n(jtask) = 0
207 ENDIF
208C
209 ni18 = 0
210 iad17 = 1
211 ! If law151+int18 : shift NSV array
212 IF( multi_fvm%IS_INT18_LAW151 ) THEN
213 CALL int18_law151_nsv_shift('+',jtask-1,nthread,multi_fvm,ipari,interfaces%INTBUF_TAB,npari,ninter,numnod)
214 CALL my_barrier()
215 ENDIF
216C
217 IF (impl_s==1) iad=1
218 DO n=1,ninter
219 IF(imonm > 0 ) THEN
220!$OMP MASTER
221 CALL int_startime(interfaces%INTBUF_TAB(n)%METRIC,i_main_forces)
222!$OMP END MASTER
223 ENDIF
224
225 nty =ipari(7,n)
226C LINDMAX = NCONT*MULTIMP
227 lindmax = ipari(18,n)*ipari(23,n)
228 IF(jtask == 1) THEN
229 IF(int18add(ninter+1) >= 0) THEN
230 int18add(n+1) = int18add(n)
231 ENDIF
232 ENDIF
233C
234 isens = 0
235 IF(nty == 7.OR.nty == 11.OR.nty == 21.OR.nty == 24.OR.nty == 25)
236 . isens = ipari(64,n) ! INTERFACE SENSOR NUMBER
237 IF (isens > 0) THEN ! IF INTERFACE IS ACTIVATED BY SENSOR
238 ts = sensor_tab(isens)%TSTART
239 ELSE
240 ts = tt
241 ENDIF
242 interefric = h3d_data%N_CSE_FRIC_INTER (n)
243C
244 nth = n
245C----- INTER/TYPE19 -> output redirected for TYPE7 and TYPE11
246 IF (ipari(71,n)>0) nth = ipari(71,n)
247C
248C-----------------------------------------------------------------------
249 IF((nty == 7.AND.tt>=ts).OR.nty == 17) THEN
250C-----------------------------------------------------------------------
251 IF(ipari(22,n)==7)THEN ! si inacti==7
252 nrtmdim=ipari(4,n)
253 ni18 = ni18 + 1
254 IF(int18add(ninter+1) >= 0.and.jtask == 1
255 . .and.ipari(34,n)==-2)THEN
256 int18add(n+1) = int18add(n) + lindmax
257 ENDIF
258 ELSEIF(ipari(44,n)/=0)THEN
259 nrtmdim=ipari(4,n)
260 ELSE
261 nrtmdim=0
262 END IF
263C
264 nn1 = ninter+nrwall+nrbody+nsect+njoint
265 . +nvolu+nrbag+nfxbody+1
266 nn2 = ninter+nrwall+nrbody+nsect+njoint+1
267
268 IF(interfaces%INTBUF_TAB(n)%S_NIGE/=0) THEN
269 ALLOCATE(xe(3*(numnod+interfaces%INTBUF_TAB(n)%S_NIGE)))
270 xe(1:3*numnod) = x(1:3*numnod)
271 xe(3*numnod+1:3*(numnod+interfaces%INTBUF_TAB(n)%S_NIGE)) =
272 * interfaces%INTBUF_TAB(n)%XIGE(1:3*interfaces%INTBUF_TAB(n)%S_NIGE)
273 ALLOCATE(ve(3*(numnod+interfaces%INTBUF_TAB(n)%S_NIGE)))
274 ve(1:3*numnod) = v(1:3*numnod)
275 ve(3*numnod+1:3*(numnod+interfaces%INTBUF_TAB(n)%S_NIGE)) =
276 * interfaces%INTBUF_TAB(n)%VIGE(1:3*interfaces%INTBUF_TAB(n)%S_NIGE)
277 ALLOCATE(mse(numnod+interfaces%INTBUF_TAB(n)%S_NIGE))
278 mse(1:numnod) = ms(1:numnod)
279 mse(numnod+1:numnod+interfaces%INTBUF_TAB(n)%S_NIGE) =
280 * interfaces%INTBUF_TAB(n)%MASSIGE(1:interfaces%INTBUF_TAB(n)%S_NIGE)
281 ptr_x => xe
282 ptr_v => ve
283 ptr_ms => mse
284 ptr_kinet => kinet(1:numnod)
285 ELSEIF (multi_fvm%IS_USED .AND. ipari(22,n) == 7) THEN
286 ptr_x => multi_fvm%X_APPEND
287 ptr_v => multi_fvm%V_APPEND
288 ptr_ms => multi_fvm%MASS_APPEND
289 ptr_kinet => multi_fvm%KINET_APPEND
290 CALL my_barrier()
291 ELSE
292 ptr_x => x
293 ptr_v => v
294 ptr_ms => ms
295 ptr_kinet => kinet(1:numnod)
296 ENDIF
297
298 IF(impl_s /= 1)THEN
299 CALL i7mainf(output,timers,
300 1 ipari ,ptr_x ,a ,ale_connectivity,xcell ,
301 2 icodt ,fsav(1,nth) ,ptr_v ,ptr_ms ,dt2t ,
302 3 neltst ,ityptst ,itab ,stifn ,fskyi ,
303 4 isky ,fcont ,n ,lindmax ,ptr_kinet ,
304 5 jtask ,nb_jlt(jtask ) ,nb_jlt_new(jtask),nb_stok_n(jtask),elbuf_tab ,
305 6 niskyfi(n) ,newfront(n) ,nstrf ,secfcum ,igroups ,
306 7 icontact ,viscn ,idum ,
307 9 idum ,idum ,idum ,fsav(1,nn1) ,nrtmdim ,
308 a igrbric ,
309 b eminx ,ixs ,ixs16 ,ixs20 ,fncont ,
310 c ftcont ,iad_elem ,fr_elem ,rcontact ,acontact ,
311 d pcontact ,temp ,fthe ,ftheskyi ,
312 e pm ,iparg ,iad17 ,mskyi_sms ,iskyi_sms ,
313 f nodnx_sms ,ms0 ,qfricint ,npc ,tf ,
314 g condn ,condnskyi ,interfaces%INTBUF_TAB(n),nodadt_therm ,theaccfact ,
315 h fbsav6 ,isensint(1,n) ,sfbsav6 ,ixig3d ,
316 i kxig3d ,wige ,knot ,igeo ,multi_fvm ,
317 j h3d_data ,interfaces%INTBUF_FRIC_TAB,knotlocpc ,knotlocel ,jtask ,
318 k tagncont ,kloadpinter ,loadpinter ,loadp_hyd_inter ,dgaploadint ,
319 l s_loadpinter ,interefric ,xcell_remote(n)%SIZE_MY_REAL_ARRAY_1D,xcell_remote(n)%MY_REAL_ARRAY_1D)
320 ELSE
321 CALL i7mainf(output, timers,
322 1 ipari ,ptr_x ,a ,ale_connectivity,xcell ,
323 2 icodt ,fsav(1,nth) ,ptr_v ,ptr_ms ,dt2t ,
324 3 neltst ,ityptst ,itab ,stifn ,fskyi ,
325 4 isky ,fcont ,n ,lindmax ,ptr_kinet ,
326 5 jtask ,nb_jlt(jtask) ,nb_jlt_new(jtask) ,nb_stok_n(jtask),elbuf_tab ,
327 6 niskyfi(n) ,newfront(n) ,nstrf ,secfcum ,igroups ,
328 7 icontact ,viscn ,num_imp(n) ,
329 9 ns_imp(iad),ne_imp(iad) ,ind_imp(iad) ,fsav(1,nn1) ,nrtmdim ,
330 a igrbric ,
331 b eminx ,ixs ,ixs16 ,ixs20 ,fncont ,
332 c ftcont ,iad_elem ,fr_elem ,rcontact ,acontact ,
333 d pcontact ,temp ,fthe ,ftheskyi ,
334 e pm ,iparg ,iad17 ,mskyi_sms ,iskyi_sms ,
335 f nodnx_sms ,ms0 ,qfricint ,npc ,tf ,
336 g condn ,condnskyi ,interfaces%INTBUF_TAB(n),nodadt_therm,theaccfact ,
337 h fbsav6 ,isensint(1,n) ,sfbsav6 ,ixig3d ,
338 i kxig3d ,wige ,knot ,igeo ,multi_fvm,
339 j h3d_data ,interfaces%INTBUF_FRIC_TAB,knotlocpc ,knotlocel ,jtask ,
340 k tagncont ,kloadpinter ,loadpinter ,loadp_hyd_inter ,dgaploadint ,
341 l s_loadpinter,interefric ,xcell_remote(n)%SIZE_MY_REAL_ARRAY_1D,xcell_remote(n)%MY_REAL_ARRAY_1D)
342 iad=iad+num_imp(n)
343 END IF
344 IF(nty == 17 .AND. ipari(33,n) == 0)THEN ! ILAGM == 0
345 ign =ipari(36,n)
346 ige =ipari(34,n)
347 nmes =igrbric(ign)%NENTITY
348 nme =igrbric(ige)%NENTITY
349 iad17 = iad17+6*(nme+nmes)
350 END IF
351 IF(interfaces%INTBUF_TAB(n)%S_NIGE/=0) THEN
352 DEALLOCATE(xe,ve,mse)
353 ENDIF
354C-----------------------------------------------------------------------
355 ELSEIF(nty==10)THEN
356C-----------------------------------------------------------------------
357C
358 IF(impl_s/=1)THEN
359 CALL i10mainf(output,
360 1 ipari(1,n),x ,a ,
361 2 icodt ,fsav(1,n) ,v ,ms ,dt2t ,
362 3 neltst ,ityptst ,itab ,stifn ,fskyi ,
363 4 isky ,fcont ,lindmax ,
364 5 jtask,nb_jlt(jtask),nb_jlt_new(jtask),nb_stok_n(jtask),
365 6 niskyfi(n),nstrf , secfcum ,viscn ,n ,
366 . fsav(1,ninter+nrwall+nrbody+nsect+njoint+nvolu+nrbag+nfxbody) ,
367 9 idum ,idum ,idum ,idum ,fncont ,
368 a ftcont ,mskyi_sms ,iskyi_sms ,nodnx_sms ,
369 b icontact ,interfaces%INTBUF_TAB(n),fbsav6,isensint(1,n),sfbsav6 ,
370 c h3d_data ,nodadt_therm)
371 ELSE
372 CALL i10mainf(output,
373 1 ipari(1,n),x ,a ,
374 2 icodt ,fsav(1,n) ,v ,ms ,dt2t ,
375 3 neltst ,ityptst ,itab ,stifn ,fskyi ,
376 4 isky ,fcont ,lindmax ,
377 5 jtask,nb_jlt(jtask),nb_jlt_new(jtask),nb_stok_n(jtask),
378 6 niskyfi(n),nstrf , secfcum ,viscn ,n ,
379 . fsav(1,ninter+nrwall+nrbody+nsect+njoint+nvolu+nrbag+nfxbody) ,
380 9 num_imp(n),ns_imp(iad) ,ne_imp(iad) ,ind_imp(iad),fncont ,
381 a ftcont ,mskyi_sms ,iskyi_sms ,nodnx_sms ,
382 b icontact ,interfaces%INTBUF_TAB(n),fbsav6,isensint(1,n),sfbsav6 ,
383 c h3d_data ,nodadt_therm)
384
385 iad=iad+num_imp(n)
386 ENDIF
387C-----------------------------------------------------------------------
388 ELSEIF(nty==11.AND.tt>=ts)THEN
389C-----------------------------------------------------------------------
390C
391 nn1 = ninter+nrwall+nrbody+nsect+njoint
392 . +nvolu+nrbag+nfxbody+1
393C
394 IF(impl_s/=1)THEN
395 CALL i11mainf(output,timers,
396 1 ipari(1,n) ,x ,a ,
397 2 icodt ,fsav(1,nth) ,v ,ms ,dt2t ,
398 3 neltst ,ityptst ,itab ,stifn ,fskyi ,
399 4 isky ,fcont ,n ,lindmax ,jtask ,
400 5 nb_jlt(jtask),nb_jlt_new(jtask),nb_stok_n(jtask) ,niskyfi(n) ,
401 6 newfront(n),nstrf,secfcum, viscn ,idum ,idum ,
402 7 idum ,mskyi_sms ,iskyi_sms ,nodnx_sms,icontact ,
403 8 interfaces%INTBUF_TAB(n),pm ,temp , fthe ,ftheskyi,
404 9 npc , tf ,condn ,condnskyi ,fbsav6 ,
405 a isensint(1,n),sfbsav6 ,fsav(1,nn1) ,h3d_data ,interfaces%INTBUF_FRIC_TAB,
406 b jtask ,tagncont ,kloadpinter ,loadpinter,loadp_hyd_inter,
407 c dgaploadint,s_loadpinter ,nodadt_therm)
408 ELSE
409 CALL i11mainf(output,timers,
410 1 ipari(1,n) ,x ,a ,
411 2 icodt ,fsav(1,nth) ,v ,ms ,dt2t ,
412 3 neltst ,ityptst ,itab ,stifn ,fskyi ,
413 4 isky ,fcont ,n ,lindmax ,jtask ,
414 5 nb_jlt(jtask),nb_jlt_new(jtask),nb_stok_n(jtask) ,niskyfi(n) ,
415 6 newfront(n),nstrf,secfcum, viscn ,num_imp(n),ns_imp(iad),
416 7 ne_imp(iad),mskyi_sms ,iskyi_sms ,nodnx_sms,icontact ,
417 8 interfaces%INTBUF_TAB(n),pm ,temp , fthe ,ftheskyi ,
418 9 npc , tf ,condn ,condnskyi ,fbsav6 ,
419 a isensint(1,n),sfbsav6 ,fsav(1,nn1) ,h3d_data ,interfaces%INTBUF_FRIC_TAB,
420 b jtask ,tagncont ,kloadpinter ,loadpinter,loadp_hyd_inter,
421 c dgaploadint,s_loadpinter ,nodadt_therm)
422 ENDIF
423C-----------------------------------------------------------------------
424 ELSEIF(nty == 20) THEN
425C-----------------------------------------------------------------------
426 IF(ipari(22,n)==7)THEN ! si inacti==7
427 nrtmdim=ipari(4,n)
428 ni18 = ni18 + 1
429 ELSEIF(ipari(44,n)/=0)THEN
430 nrtmdim=ipari(4,n)
431 ELSE
432 nrtmdim=0
433 END IF
434C
435 nn1 = ninter+nrwall+nrbody+nsect+njoint
436 . +nvolu+nrbag+nfxbody+1
437 nn2 = ninter+nrwall+nrbody+nsect+njoint+1
438
439 IF(impl_s == 0) iad=1
440
441 CALL i20mainf(output,timers,
442 1 ipari(1,n),x ,a ,
443 2 icodt ,fsav(1,n) ,v ,ms ,dt2t ,
444 3 neltst ,ityptst ,itab ,stifn ,fskyi ,
445 4 isky ,fcont ,n ,lindmax ,kinet ,
446 5 jtask ,nb_jlt(jtask),nb_jlt_new(jtask) ,nb_stok_n(jtask),
447 6 niskyfi(n),newfront(n) , nstrf ,secfcum ,icontact ,
448 7 viscn ,num_imp(n) ,
449 9 ns_imp(iad),ne_imp(iad) ,ind_imp(iad) ,fsav(1,nn1),nrtmdim ,
450 a fsav(1,nn2),
451 b eminx ,ixs ,ixs16 ,ixs20 ,fncont ,
452 c ftcont ,iad_elem ,fr_elem ,rcontact ,acontact ,
453 d pcontact ,temp ,fthe ,ftheskyi ,
454 e pm ,iparg ,iad17 ,weight ,niskyfie(n) ,
455 f irlen20 ,islen20 ,irlen20t ,islen20t ,irlen20e ,
456 g islen20e ,mskyi_sms ,iskyi_sms ,nodnx_sms ,npc ,
457 h tf ,interfaces%INTBUF_TAB(n),fbsav6,isensint(1,n) ,sfbsav6 ,
458 i h3d_data ,theaccfact)
459
460 IF(impl_s == 1) iad=iad+num_imp(n)
461
462C-----------------------------------------------------------------------
463 ELSEIF(nty == 21.AND.tt>=ts) THEN
464C-----------------------------------------------------------------------
465 IF(ipari(44,n)/=0)THEN
466 nrtmdim=ipari(4,n)
467 ELSE
468 nrtmdim=0
469 END IF
470C
471 istamp=ipari(43,n)
472 CALL i21mainf(output, timers,
473 1 ipari ,interfaces%INTBUF_TAB(n) ,x ,a ,
474 2 icodt ,fsav(1,n) ,v ,ms ,itab ,
475 3 stifn ,fskyi ,isky ,fcontg ,n ,
476 4 lindmax ,
477 + jtask ,nb_jlt(jtask),nb_jlt_new(jtask),nb_stok_n(jtask),
478 5 nstrf ,secfcum ,icontact ,viscn ,idum ,
479 6 idum ,idum ,idum ,nrtmdim ,fncontg ,
480 7 ftcontg ,rcontact ,acontact ,pcontact ,intstamp(istamp),
481 8 weight ,temp ,fthe ,ftheskyi ,mskyi_sms ,
482 9 iskyi_sms ,nodnx_sms ,nodglob ,npc ,tf ,
483 a qfricint ,ncont ,indexcont ,tagcont ,condn ,
484 b condnskyi ,dt2t ,neltst ,ityptst ,kinet ,
485 c fbsav6 ,isensint(1,n),sfbsav6 ,niskyfi(n) ,h3d_data ,
486 d pskids ,tagncont ,kloadpinter,loadpinter ,loadp_hyd_inter,
487 e dgaploadint,s_loadpinter,interefric ,nodadt_therm,theaccfact ,
488 f interfaces%INTBUF_FRIC_TAB)
489C-----------------------------------------------------------------------
490C
491C-----------------------------------------------------------------------
492 ELSEIF(nty == 22) THEN
493C-----------------------------------------------------------------------
494 nrtmdim=ipari(4,n)
495C
496 nn1 = ninter+nrwall+nrbody+nsect+njoint
497 . +nvolu+nrbag+nfxbody+1
498 nn2 = ninter+nrwall+nrbody+nsect+njoint+1
499 CALL i22mainf(output,timers,
500 1 ipari ,interfaces%INTBUF_TAB(n) ,x ,a ,
501 2 icodt ,fsav(1,n) ,v ,ms ,dt2t ,
502 3 neltst ,ityptst ,itab ,stifn ,fskyi ,
503 4 isky ,fcont ,n ,lindmax ,kinet ,
504 5 jtask ,nb_jlt(jtask) ,nb_jlt_new(jtask) ,nb_stok_n(jtask) ,
505 6 niskyfi(n) ,newfront(n) ,nstrf ,secfcum ,icontact ,
506 7 viscn ,idum ,
507 9 idum ,idum ,idum ,fsav(1,nn1) ,nrtmdim ,
508 a fsav(1,nn2) ,igrbric ,
509 b eminx ,ixs ,ixs16 ,ixs20 ,fncont ,
510 c ftcont ,iad_elem ,fr_elem ,rcontact ,acontact ,
511 d pcontact ,temp ,fthe ,ftheskyi ,
512 e pm ,iparg ,iad17 ,mskyi_sms ,iskyi_sms ,
513 f nodnx_sms ,ms0 ,elbuf_tab ,nv46 ,fbsav6 ,
514 g isensint(1,n),sfbsav6 ,h3d_data )
515
516C-----------------------------------------------------------------------
517 ELSEIF(nty == 23) THEN
518C-----------------------------------------------------------------------
519 IF(ipari(44,n)/=0)THEN
520 nrtmdim=ipari(4,n)
521 ELSE
522 nrtmdim=0
523 END IF
524C
525 CALL i23mainf(output,timers,
526 1 ipari ,interfaces%INTBUF_TAB(n) ,x ,a ,
527 2 icodt ,fsav(1,n) ,v ,ms ,itab ,
528 3 stifn ,fskyi ,isky ,fcont ,n ,
529 4 lindmax ,
530 + jtask ,nb_jlt(jtask),nb_jlt_new(jtask),nb_stok_n(jtask),
531 5 nstrf ,secfcum ,icontact ,viscn ,idum ,
532 6 idum ,idum ,idum ,nrtmdim ,fncont ,
533 7 ftcont ,rcontact ,acontact ,pcontact ,kinet ,
534 8 weight ,mskyi_sms ,iskyi_sms ,nodnx_sms ,nodglob ,
535 9 npc ,tf ,niskyfi(n) ,newfront(n),wa ,
536 a fbsav6,isensint(1,n) ,sfbsav6 ,dt2t ,h3d_data )
537C-----------------------------------------------------------------------
538 ELSEIF(nty == 24.AND.tt>=ts) THEN
539C-----------------------------------------------------------------------
540 IF(ipari(44,n)/=0)THEN
541 nrtmdim=ipari(4,n)
542 ELSE
543 nrtmdim=0
544 END IF
545C
546 nn1 = ninter+nrwall+nrbody+nsect+njoint
547 . +nvolu+nrbag+nfxbody+1
548 nn2 = ninter+nrwall+nrbody+nsect+njoint+1
549 IF(impl_s/=1)THEN
550 CALL i24mainf(output,timers,
551 1 ipari ,interfaces%INTBUF_TAB(n),x ,a ,
552 2 icodt ,fsav(1,n) ,v ,ms ,dt2t ,
553 3 neltst ,ityptst ,itab ,stifn ,fskyi ,
554 4 isky ,fcont ,n ,lindmax ,kinet ,
555 5 jtask ,nb_jlt(jtask),nb_jlt_new(jtask),nb_stok_n(jtask),
556 6 niskyfi(n),newfront(n) , nstrf ,secfcum ,icontact ,
557 7 viscn ,idum ,
558 9 idum ,idum ,idum ,fsav(1,nn1) ,nrtmdim ,
559 a fsav(1,nn2),
560 b eminx ,ixs ,ixs16 ,ixs20 ,fncont ,
561 c ftcont ,iad_elem ,fr_elem ,rcontact ,acontact ,
562 d pcontact ,temp ,fthe ,ftheskyi ,
563 e pm ,iparg ,iad17 ,mskyi_sms ,iskyi_sms ,
564 f nodnx_sms ,ms0 ,inod_pxfem ,ms_ply ,wagap ,
565 g fbsav6 ,isensint(1,n),
566 h sfbsav6 ,h3d_data ,interfaces%INTBUF_FRIC_TAB ,t2main_sms,forneqs ,
567 i t2fac_sms ,npc ,tf ,tagncont ,kloadpinter ,
568 j loadpinter ,loadp_hyd_inter,dgaploadint,s_loadpinter,interefric,
569 k interfaces,nisubmax)
570
571 ELSE
572 CALL i24mainf(output, timers,
573 1 ipari ,interfaces%INTBUF_TAB(n),x ,a ,
574 2 icodt ,fsav(1,n) ,v ,ms ,dt2t ,
575 3 neltst ,ityptst ,itab ,stifn ,fskyi ,
576 4 isky ,fcont ,n ,lindmax ,kinet ,
577 5 jtask ,nb_jlt(jtask),nb_jlt_new(jtask) ,nb_stok_n(jtask),
578 6 niskyfi(n),newfront(n) , nstrf ,secfcum ,icontact ,
579 7 viscn ,num_imp(n) ,
580 9 ns_imp(iad),ne_imp(iad) ,ind_imp(iad) ,fsav(1,nn1),nrtmdim ,
581 a fsav(1,nn2),
582 b eminx ,ixs ,ixs16 ,ixs20 ,fncont ,
583 c ftcont ,iad_elem ,fr_elem ,rcontact ,acontact ,
584 d pcontact ,temp ,fthe ,ftheskyi ,
585 e pm ,iparg ,iad17 ,mskyi_sms ,iskyi_sms ,
586 f nodnx_sms ,ms0 ,inod_pxfem ,ms_ply ,wagap ,
587 g fbsav6 ,isensint(1,n),
588 h sfbsav6 ,h3d_data ,interfaces%INTBUF_FRIC_TAB ,t2main_sms,forneqs ,
589 i t2fac_sms ,npc ,tf ,tagncont ,kloadpinter ,
590 j loadpinter ,loadp_hyd_inter,dgaploadint,s_loadpinter,interefric,
591 k interfaces,nisubmax)
592 iad=iad+num_imp(n)
593 END IF
594C-----------------------------------------------------------------------
595 ELSEIF(nty == 25.AND.tt>=ts) THEN
596C-----------------------------------------------------------------------
597 IF(ipari(44,n)/=0)THEN
598 nrtmdim=ipari(4,n)
599 ELSE
600 nrtmdim=0
601 END IF
602C
603 nn1 = ninter+nrwall+nrbody+nsect+njoint
604 . +nvolu+nrbag+nfxbody+1
605 nn2 = ninter+nrwall+nrbody+nsect+njoint+1
606C
607 lindmax = interfaces%INTBUF_TAB(n)%I_STOK(2)
608 IF(ipari(58,n)/=0) lindmax=max(lindmax,
609 . interfaces%INTBUF_TAB(n)%I_STOK_E(1),interfaces%INTBUF_TAB(n)%I_STOK_E(2))
610 CALL i25mainf(output,timers,
611 1 ipari ,interfaces%INTBUF_TAB(n),x ,a ,
612 2 icodt ,fsav(1,n) ,v ,ms ,dt2t ,
613 3 neltst ,ityptst ,itab ,stifn ,fskyi ,
614 4 isky ,fcont ,n ,lindmax ,kinet ,
615 5 jtask ,nb25_impct(jtask),
616 6 niskyfi(n),newfront(n) , nstrf ,secfcum ,icontact ,
617 7 viscn ,idum ,
618 9 idum ,idum ,idum ,fsav(1,nn1) ,nrtmdim ,
619 a fsav(1,nn2),
620 b eminx ,ixs ,ixs16 ,ixs20 ,fncont ,
621 c ftcont ,iad_elem ,fr_elem ,rcontact ,acontact ,
622 d pcontact ,temp ,fthe ,ftheskyi ,
623 e pm ,iparg ,iad17 ,mskyi_sms ,iskyi_sms ,
624 f nodnx_sms ,ms0 ,inod_pxfem ,ms_ply ,wagap ,
625 g fbsav6 ,isensint(1,n),nodadt_therm,theaccfact ,
626 h sfbsav6 ,h3d_data ,interfaces%INTBUF_FRIC_TAB,niskyfie(n),
627 i apinch ,stifpinch ,npc ,tf , condn ,
628 j condnskyi ,qfricint ,tagncont ,kloadpinter,loadpinter ,
629 k loadp_hyd_inter,dgaploadint,s_loadpinter,interefric,interfaces)
630
631 IF(impl_s == 1) iad=iad+num_imp(n)
632C-----------------------------------------------------------------------
633 ELSE
634C-----------------------------------------------------------------------
635 ENDIF
636C-----------------------------------------------------------------------
637c DEALLOCATE(ISENSINT)
638 IF(imonm > 0) THEN
639!$OMP MASTER
640 CALL int_stoptime(interfaces%INTBUF_TAB(n)%METRIC,i_main_forces)
641!$OMP END MASTER
642 ENDIF
643 ENDDO
644C
645 ! If law151+int18 : shift NSV array
646 IF( multi_fvm%IS_INT18_LAW151 ) THEN
647 CALL my_barrier()
648 CALL int18_law151_nsv_shift('-',jtask-1,nthread,multi_fvm,ipari,interfaces%INTBUF_TAB,npari,ninter,numnod)
649 ENDIF
650C
651 IF (debug(3)>=1) THEN
652 IF(mod(ncycle+1,debug(3))==0)THEN
653 IF (nb_jlt(jtask)==0) THEN
654 pct = hundred
655 pct1= zero
656 ELSE
657 pct = hundred*nb_jlt_new(jtask)/nb_jlt(jtask)
658 pct1 = hundred - hundred*nb_stok_n(jtask)/nb_jlt(jtask)
659 ENDIF
660#include "lockon.inc"
661 WRITE(istdo,
662 . '(A,I6,A,I4,A,I4,A,I10,A,I10,2X,F5.2,A,A,I10,4X,F5.2,A)')
663 . ' NCYCLE = ',ncycle,
664 . ' NSPMD = ',ispmd+1,
665 . ' ITASK = ',jtask,
666 . ' CANDIDATS = ',nb_jlt(jtask),
667 . ' OPT CAND = ',nb_stok_n(jtask),pct1,'%',
668 . ' IMPACTS = ',nb_jlt_new(jtask),pct,'%'
669#include "lockoff.inc"
670 nb_jlt_new(jtask) = 0
671 nb_jlt(jtask) = 0
672 nb_stok_n(jtask) = 0
673 ENDIF
674
675C
676C INTERFACE TYPE25
677 IF(ninter25 /= 0)THEN
678 IF(mod(ncycle+1,debug(3))==0)THEN
679 IF(nb25_candt(1)==0)THEN
680 pct2 = hundred
681 ELSE
682 pct2 = hundred * nb25_dst2(jtask) / nb25_candt(1)
683 END IF
684#include "lockon.inc"
685 WRITE(istdo,
686 . '(A,I6,A,I4,A,I4,A,I10,A,I10,2X,F6.2,A,A,I10,A,I10)')
687 . ' NCYCLE = ',ncycle,
688 . ' NSPMD = ',ispmd+1,
689 . ' ITASK = ',jtask,
690 . ' CANDIDATS = ',nb25_candt(jtask),
691 . ' OPT CAND VS NEW IMPACTS = ',nb25_dst2(jtask),pct2,'%',
692 . ' CAND VS OLD IMPACTS = ',nb25_dst1(jtask),
693 . ' IMPACTS = ',nb25_impct(jtask)
694#include "lockoff.inc"
695C
696 CALL my_barrier
697C
698 nb25_impct(jtask) = 0
699 nb25_candt(jtask) = 0
700 nb25_dst1(jtask) = 0
701 nb25_dst2(jtask) = 0
702 ENDIF
703 ENDIF
704
705 ENDIF
706C
707 RETURN
708 END
i10mainf
subroutine i10mainf(output, ipari, x, a, icodt, fsav, v, ms, dt2t, neltst, ityptst, itab, stifn, fskyi, isky, fcont, lindmax, jtask, nb_jlt, nb_jlt_new, nb_stok_n, niskyfi, nstrf, secfcum, viscn, nin, fsavsub, num_imp, ns_imp, ne_imp, ind_imp, fncont, ftcont, mskyi_sms, iskyi_sms, nodnx_sms, icontact, intbuf_tab, fbsav6, isensint, dimfb, h3d_data, nodadt_therm)
Definition i10mainf.F:51
i11mainf
subroutine i11mainf(output, timers, ipari, x, a, icodt, fsav, v, ms, dt2t, neltst, ityptst, itab, stifn, fskyi, isky, fcont, nin, lindmax, jtask, nb_jlt, nb_jlt_new, nb_stok_n, niskyfi, newfront, nstrf, secfcum, viscn, num_imp, ns_imp, ne_imp, mskyi_sms, iskyi_sms, nodnx_sms, icontact, intbuf_tab, pm, temp, fthe, ftheskyi, npc, tf, condn, condnskyi, fbsav6, isensint, dimfb, fsavsub, h3d_data, intbuf_fric_tab, itask, tagncont, kloadpinter, loadpinter, loadp_hyd_inter, dgaploadint, s_loadpinter, nodadt_therm)
Definition i11mainf.F:62
i20mainf
subroutine i20mainf(output, timers, ipari, x, a, icodt, fsav, v, ms, dt2t, neltst, ityptst, itab, stifn, fskyi, isky, fcont, nin, lindmax, kinet, jtask, nb_jlt, nb_jlt_new, nb_stok_n, niskyfi, newfront, nstrf, secfcum, icontact, viscn, num_imp, ns_imp, ne_imp, ind_imp, fsavsub, nrtmdim, fsavbag, eminx, ixs, ixs16, ixs20, fncont, ftcont, iad_elem, fr_elem, rcontact, acontact, pcontact, temp, fthe, ftheskyi, pm, iparg, iad17, weight, niskyfie, irlen20, islen20, irlen20t, islen20t, irlen20e, islen20e, mskyi_sms, iskyi_sms, nodnx_sms, npc, tf, intbuf_tab, fbsav6, isensint, dimfb, h3d_data, theaccfact)
Definition i20mainf.F:81
i21mainf
subroutine i21mainf(output, timers, ipari, intbuf_tab, x, a, icodt, fsav, v, ms, itab, stifn, fskyi, isky, fcont, nin, lindmax, jtask, nb_jlt, nb_jlt_new, nb_stok_n, nstrf, secfcum, icontact, viscn, num_imp, ns_imp, ne_imp, ind_imp, nrtmdim, fncont, ftcont, rcontact, acontact, pcontact, intstamp, weight, temp, fthe, ftheskyi, mskyi_sms, iskyi_sms, nodnx_sms, nodglob, npc, tf, qfricint, ncont, indexcont, tagcont, condn, condnskyi, dt2t, neltst, ityptst, kinet, fbsav6, isensint, dimfb, niskyfi, h3d_data, pskids, tagncont, kloadpinter, loadpinter, loadp_hyd_inter, dgaploadint, s_loadpinter, interefric, nodadt_therm, theaccfact, intbuf_fric_tab)
Definition i21mainf.F:66
i22mainf
subroutine i22mainf(output, timers, ipari, intbuf_tab, x, a, icodt, fsav, v, ms, dt2t, neltst, ityptst, itab, stifn, fskyi, isky, fcont, nin, lindmax, kinet, jtask, nb_jlt, nb_jlt_new, nb_stok_n, niskyfi, newfront, nstrf, secfcum, icontact, viscn, num_imp, ns_imp, ne_imp, ind_imp, fsavsub, nrtmdim, fsavbag, igrbric, eminx, ixs, ixs16, ixs20, fncont, ftcont, iad_elem, fr_elem, rcontact, acontact, pcontact, temp, fthe, ftheskyi, pm, iparg, iad17, mskyi_sms, iskyi_sms, nodnx_sms, ms0, elbuf_tab, nv46, fbsav6, isensint, dimfb, h3d_data)
Definition i22mainf.F:63
i23mainf
subroutine i23mainf(output, timers, ipari, intbuf_tab, x, a, icodt, fsav, v, ms, itab, stifn, fskyi, isky, fcont, nin, lindmax, jtask, nb_jlt, nb_jlt_new, nb_stok_n, nstrf, secfcum, icontact, viscn, num_imp, ns_imp, ne_imp, ind_imp, nrtmdim, fncont, ftcont, rcontact, acontact, pcontact, kinet, weight, mskyi_sms, iskyi_sms, nodnx_sms, nodglob, npc, tf, niskyfi, newfront, mwag, fbsav6, isensint, dimfb, dt2t, h3d_data)
Definition i23mainf.F:57
i24mainf
subroutine i24mainf(output, timers, ipari, intbuf_tab, x, a, icodt, fsav, v, ms, dt2t, neltst, ityptst, itab, stifn, fskyi, isky, fcont, nin, lindmax, kinet, jtask, nb_jlt, nb_jlt_new, nb_stok_n, niskyfi, newfront, nstrf, secfcum, icontact, viscn, num_imp, ns_imp, ne_imp, ind_imp, fsavsub, nrtmdim, fsavbag, eminx, ixs, ixs16, ixs20, fncont, ftcont, iad_elem, fr_elem, rcontact, acontact, pcontact, temp, fthe, ftheskyi, pm, iparg, iad17, mskyi_sms, iskyi_sms, nodnx_sms, ms0, inod_pxfem, ms_ply, wagap, fbsav6, isensint, dimfb, h3d_data, intbuf_fric_tab, t2main_sms, forneqs, t2fac_sms, npc, tf, tagncont, kloadpinter, loadpinter, loadp_hyd_inter, dgaploadint, s_loadpinter, interefric, interfaces, nisubmax)
Definition i24main.F:77
i25mainf
subroutine i25mainf(output, timers, ipari, intbuf_tab, x, a, icodt, fsav, v, ms, dt2t, neltst, ityptst, itab, stifn, fskyi, isky, fcont, nin, lindmax, kinet, jtask, nb_impct, niskyfi, newfront, nstrf, secfcum, icontact, viscn, num_imp, ns_imp, ne_imp, ind_imp, fsavsub, nrtmdim, fsavbag, eminx, ixs, ixs16, ixs20, fncont, ftcont, iad_elem, fr_elem, rcontact, acontact, pcontact, temp, fthe, ftheskyi, pm, iparg, iad17, mskyi_sms, iskyi_sms, nodnx_sms, ms0, inod_pxfem, ms_ply, wagap, fbsav6, isensint, nodadt_therm, theaccfact, dimfb, h3d_data, intbuf_fric_tab, niskyfie, apinch, stifpinch, npc, tf, condn, condnskyi, qfricint, tagncont, kloadpinter, loadpinter, loadp_hyd_inter, dgaploadint, s_loadpinter, interefric, interfaces)
Definition i25mainf.F:84
i7mainf
subroutine i7mainf(output, timers, ipari, x, a, ale_connectivity, xcell, icodt, fsav, v, ms, dt2t, neltst, ityptst, itab, stifn, fskyi, isky, fcont, nin, lindmax, kinet, jtask, nb_jlt, nb_jlt_new, nb_stok_n, elbuf_tab, niskyfi, newfront, nstrf, secfcum, igroups, icontact, viscn, num_imp, ns_imp, ne_imp, ind_imp, fsavsub, nrtmdim, igrbric, eminx, ixs, ixs16, ixs20, fncont, ftcont, iad_elem, fr_elem, rcontact, acontact, pcontact, temp, fthe, ftheskyi, pm, iparg, iad17, mskyi_sms, iskyi_sms, nodnx_sms, ms0, qfricint, npc, tf, condn, condnskyi, intbuf_tab, nodadt_therm, theaccfact, fbsav6, isensint, dimfb, ixig3d, kxig3d, wige, knot, igeo, multi_fvm, h3d_data, intbuf_fric_tab, knotlocpc, knotlocel, itask, tagncont, kloadpinter, loadpinter, loadp_hyd_inter, dgaploadint, s_loadpinter, interefric, s_xcell_remote, xcell_remote)
Definition i7mainf.F:89
intfop2
subroutine intfop2(output, timers, ipari, x, a, igroups, ale_connectivity, icodt, fsav, v, ms, dt2t, neltst, ityptst, itab, stifn, tf, fskyi, isky, vr, fcont, secfcum, jtask, niskyfi, kinet, newfront, nstrf, icontact, viscn, xcell, num_imp, ns_imp, ne_imp, ind_imp, nt_imp, fr_i18, igrbric, eminx, ixs, ixs16, ixs20, fncont, ftcont, iad_elem, fr_elem, rcontact, acontact, pcontact, temp, fthe, ftheskyi, iparg, nsensor, pm, intstamp, weight, niskyfie, irlen20, islen20, irlen20t, islen20t, irlen20e, islen20e, mskyi_sms, iskyi_sms, nodnx_sms, int18add, fcontg, fncontg, ftcontg, nodglob, ms0, npc, wa, sensor_tab, qfricint, ncont, indexcont, tagcont, inod_pxfem, ms_ply, wagap, elbuf_tab, condn, condnskyi, nv46, sfbsav6, fbsav6, nodadt_therm, theaccfact, isensint, nisubmax, nb25_candt, nb25_impct, nb25_dst1, nb25_dst2, ixig3d, kxig3d, wige, knot, igeo, multi_fvm, h3d_data, pskids, t2main_sms, forneqs, knotlocpc, knotlocel, apinch, stifpinch, t2fac_sms, tagncont, kloadpinter, loadpinter, loadp_hyd_inter, dgaploadint, s_loadpinter, interfaces, xcell_remote)
Definition intfop2.F:85
max
#define max(a, b)
Definition macros.h:21
ale_connectivity_mod
Definition ale_connectivity_mod.F:225
array_mod
Definition array_mod.F:51
groupdef_mod
Definition groupdef_mod.F:668
h3d_mod
Definition h3d_mod.F:311
int18_law151_nsv_shift_mod
Definition int18_law151_nsv_shift.F:30
int18_law151_nsv_shift_mod::int18_law151_nsv_shift
subroutine int18_law151_nsv_shift(mode, itask, nthread, multi_fvm, ipari, intbuf_tab, npari, ninter, numnod, opt_int_id)
Definition int18_law151_nsv_shift.F:49
intstamp_mod
Definition intstamp_mod.F:38
metric_mod
Definition metric_mod.F:42
metric_mod::i_main_forces
integer, parameter i_main_forces
Definition metric_mod.F:56
my_barrier
subroutine my_barrier
Definition machine.F:31
ale_connectivity_mod::t_ale_connectivity
Definition ale_connectivity_mod.F:256
array_mod::array_type
Definition array_mod.F:61
h3d_mod::h3d_database
Definition h3d_mod.F:438
intstamp_mod::intstamp_data
Definition intstamp_mod.F:46
int_stoptime
subroutine int_stoptime(this, event)
Definition timer_interf.F:118
int_startime
subroutine int_startime(this, event)
Definition timer_interf.F:78