OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
intfop2.F File Reference
#include "implicit_f.inc"
#include "comlock.inc"
#include "com01_c.inc"
#include "com04_c.inc"
#include "com08_c.inc"
#include "task_c.inc"
#include "param_c.inc"
#include "warn_c.inc"
#include "units_c.inc"
#include "parit_c.inc"
#include "impl1_c.inc"
#include "timeri_c.inc"
#include "tabsiz_c.inc"
#include "lockon.inc"
#include "lockoff.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine intfop2 (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)

Function/Subroutine Documentation

◆ intfop2()

subroutine intfop2 ( type(timer_), intent(inout) timers,
integer, dimension(npari,*) ipari,
dimension(3*numnod), target x,
a,
integer, dimension(numels) igroups,
type(t_ale_connectivity), intent(in) ale_connectivity,
integer, dimension(*) icodt,
fsav,
dimension(3*numnod), target v,
dimension(numnod), target ms,
dt2t,
integer neltst,
integer ityptst,
integer, dimension(*) itab,
stifn,
tf,
fskyi,
integer, dimension(*) isky,
vr,
fcont,
secfcum,
integer jtask,
integer, dimension(*) niskyfi,
integer, dimension(*), target kinet,
integer, dimension(*) newfront,
integer, dimension(*) nstrf,
integer, dimension(*) icontact,
viscn,
dimension(3,sxcell), target xcell,
integer, dimension(*) num_imp,
integer, dimension(*) ns_imp,
integer, dimension(*) ne_imp,
integer, dimension(*) ind_imp,
integer nt_imp,
integer, dimension(nspmd+2,*), target fr_i18,
type (group_), dimension(ngrbric) igrbric,
eminx,
integer, dimension(*) ixs,
integer, dimension(*) ixs16,
integer, dimension(*) ixs20,
fncont,
ftcont,
integer, dimension(2,*) iad_elem,
integer, dimension(*) fr_elem,
rcontact,
acontact,
pcontact,
temp,
fthe,
ftheskyi,
integer, dimension(nparg,*) iparg,
integer, intent(in) nsensor,
pm,
type(intstamp_data), dimension(*) intstamp,
integer, dimension(*) weight,
integer, dimension(*) niskyfie,
integer irlen20,
integer islen20,
integer irlen20t,
integer islen20t,
integer irlen20e,
integer islen20e,
mskyi_sms,
integer, dimension(*) iskyi_sms,
integer, dimension(*) nodnx_sms,
integer, dimension(*) int18add,
fcontg,
fncontg,
ftcontg,
integer, dimension(*) nodglob,
ms0,
integer, dimension(*) npc,
wa,
type (sensor_str_), dimension(nsensor) sensor_tab,
qfricint,
integer ncont,
integer, dimension(*) indexcont,
integer, dimension(*) tagcont,
integer, dimension(*) inod_pxfem,
ms_ply,
wagap,
type (elbuf_struct_), dimension(ngroup) elbuf_tab,
condn,
condnskyi,
integer nv46,
integer sfbsav6,
double precision, dimension(12,6,sfbsav6) fbsav6,
integer, intent(in) nodadt_therm,
intent(in) theaccfact,
integer, dimension(nisubmax+1,ninter) isensint,
integer nisubmax,
integer, dimension(parasiz) nb25_candt,
integer, dimension(parasiz) nb25_impct,
integer, dimension(parasiz) nb25_dst1,
integer, dimension(parasiz) nb25_dst2,
integer, dimension(*) ixig3d,
integer, dimension(nixig3d,*) kxig3d,
wige,
knot,
integer, dimension(npropgi,*) igeo,
type(multi_fvm_struct), intent(inout), target multi_fvm,
type(h3d_database) h3d_data,
pskids,
integer, dimension(6,*) t2main_sms,
forneqs,
knotlocpc,
knotlocel,
apinch,
stifpinch,
t2fac_sms,
integer, dimension(nloadp_hyd_inter,*) tagncont,
integer, dimension(ninter+1), intent(in) kloadpinter,
integer, dimension(s_loadpinter), intent(in) loadpinter,
integer, dimension(nloadp_hyd), intent(in) loadp_hyd_inter,
dimension(s_loadpinter), intent(in) dgaploadint,
integer, intent(in) s_loadpinter,
type (interfaces_), intent(inout) interfaces,
type(array_type), dimension(ninter), intent(in) xcell_remote )
Parameters
[in]xcell_remoteremote data structure for interface 18

Definition at line 58 of file intfop2.F.

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