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

Function/Subroutine Documentation

◆ intfop2()

subroutine intfop2 ( type(output_), intent(inout) output,
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 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
my_real
#define my_real
Definition cppsort.cpp:32
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
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
int_stoptime
subroutine int_stoptime(this, event)
Definition timer_interf.F:118
int_startime
subroutine int_startime(this, event)
Definition timer_interf.F:78