OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
intbuf_ini_starter.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!|| intbuf_ini_starter ../starter/source/interfaces/intbuf/intbuf_ini_starter.F
25!||--- called by ------------------------------------------------------
26!|| ddsplit ../starter/source/restart/ddsplit/ddsplit.f
27!|| lectur ../starter/source/starter/lectur.F
28!||--- calls -----------------------------------------------------
29!||--- uses -----------------------------------------------------
30!|| message_mod ../starter/share/message_module/message_mod.F
31!||====================================================================
32 SUBROUTINE intbuf_ini_starter(INTBUF_TAB, IPARI, NUMN,
33 . I11FLAG, FLAG_ALLOCATE, PROC ,INTBUF_FRIC_TAB )
34C-----------------------------------------------
35C M o d u l e s
36C-----------------------------------------------
37 USE my_alloc_mod
38 USE intbufdef_mod
39 USE message_mod
40 USE intbuf_fric_mod
41C-----------------------------------------------
42C I m p l i c i t T y p e s
43C-----------------------------------------------
44#include "implicit_f.inc"
45C-----------------------------------------------
46C C o m m o n B l o c k s
47C-----------------------------------------------
48#include "param_c.inc"
49#include "com04_c.inc"
50C-----------------------------------------------
51C M y A l l o c a t e
52C-----------------------------------------------
53C-----------------------------------------------
54C D u m m y A r g u m e n t s
55C-----------------------------------------------
56c my_real
57c .
58 INTEGER IPARI(NPARI,*), NUMN, FLAG_ALLOCATE, I11FLAG, PROC
59 TYPE(intbuf_struct_) INTBUF_TAB(*)
60 TYPE(intbuf_fric_struct_) INTBUF_FRIC_TAB(*)
61C-----------------------------------------------
62C L o c a l V a r i a b l e s
63C-----------------------------------------------
64 INTEGER NIN,ITYP,NSN,NMN,NST,NME,NMT,NRTS,NRTM,MULTIMP,IGAP,
65 . inacti,ifq,mfrot,nuvar,ilagm,ilev,idel7n,intth,itied,
66 . nsne,nmne,nlins,nlinm,iform,nln,nmng,ncont,nconte,multimpe,multimps,iedge,
67 . intkg,intply,nisub,nisubs,nisubm,nisube,l24add,nremnode,
68 . flagremnode,nrtse,nadmsr,iedge4,nrtm_fe,nrtm_ige,nrts_fe,
69 . nrts_ige,nsn_fe,nsn_ige,nmn_fe,nmn_ige,intfric,nremnor,ivis2,
70 . nedge,intnitsche,ithk,iflagloadp,nremnode_edg,nremnode_e2s,
71 . istif_msdt,idel_solid
72C-----------------------------------------------
73
74 DO nin = 1,ninter
75C=======================================================================
76c INIT SIZES TO ZERO
77C=======================================================================
78C=======================================================================
79C INTEGER arrays sizes
80C=======================================================================
81 intbuf_tab(nin)%S_IRTLM = 0
82 intbuf_tab(nin)%S_IRUPT = 0
83 intbuf_tab(nin)%S_INORM = 0
84 intbuf_tab(nin)%S_I_STOK = 0
85 intbuf_tab(nin)%S_I_STOK_E = 0
86 intbuf_tab(nin)%S_IRECTS = 0
87 intbuf_tab(nin)%S_IRECTM = 0
88 intbuf_tab(nin)%S_NSV = 0
89 intbuf_tab(nin)%S_MSR = 0
90 intbuf_tab(nin)%S_CAND_E = 0
91 intbuf_tab(nin)%S_CAND_N = 0
92 intbuf_tab(nin)%S_IELES = 0
93 intbuf_tab(nin)%S_IELEC = 0
94 intbuf_tab(nin)%S_IFPEN = 0
95 intbuf_tab(nin)%S_LISUB = 0
96 intbuf_tab(nin)%S_TYPSUB = 0
97 intbuf_tab(nin)%S_ADDSUBS = 0
98 intbuf_tab(nin)%S_ADDSUBM = 0
99 intbuf_tab(nin)%S_LISUBS = 0
100 intbuf_tab(nin)%S_LISUBM = 0
101 intbuf_tab(nin)%S_INFLG_SUBS = 0
102 intbuf_tab(nin)%S_INFLG_SUBM = 0
103 intbuf_tab(nin)%S_MSEGTYP = 0
104 intbuf_tab(nin)%S_KREMNODE = 0
105 intbuf_tab(nin)%S_REMNODE = 0
106 intbuf_tab(nin)%S_ADCCM = 0
107 intbuf_tab(nin)%S_CHAIN = 0
108 intbuf_tab(nin)%S_NIGE = 0
109!type20
110 intbuf_tab(nin)%S_DAANC6 = 0
111 intbuf_tab(nin)%S_NBINFLG = 0
112 intbuf_tab(nin)%S_MBINFLG = 0
113 intbuf_tab(nin)%S_EBINFLG = 0
114 intbuf_tab(nin)%S_NLG = 0
115 intbuf_tab(nin)%S_ISLINS = 0
116 intbuf_tab(nin)%S_ISLINM = 0
117 intbuf_tab(nin)%S_IXLINS = 0
118 intbuf_tab(nin)%S_IXLINM = 0
119 intbuf_tab(nin)%S_NSVL = 0
120 intbuf_tab(nin)%S_MSRL = 0
121 intbuf_tab(nin)%S_LCAND_N = 0
122 intbuf_tab(nin)%S_LCAND_S = 0
123 intbuf_tab(nin)%S_ADCCM20 = 0
124 intbuf_tab(nin)%S_CHAIN20 = 0
125
126!type1
127 intbuf_tab(nin)%S_ILOCS = 0
128 intbuf_tab(nin)%S_NSEGM = 0
129 intbuf_tab(nin)%S_NRT = 0
130!type3
131 intbuf_tab(nin)%S_IRTLS = 0
132 intbuf_tab(nin)%S_ILOCM = 0
133 intbuf_tab(nin)%S_IRTLOM = 0
134 intbuf_tab(nin)%S_IRTLOS = 0
135 intbuf_tab(nin)%S_NSEGS = 0
136 intbuf_tab(nin)%S_LNSV = 0
137 intbuf_tab(nin)%S_LMSR = 0
138!type4
139 intbuf_tab(nin)%S_IELEM = 0
140!type12
141 intbuf_tab(nin)%S_FCOUNT = 0
142!type14
143 intbuf_tab(nin)%S_KSURF = 0
144 intbuf_tab(nin)%S_IMPACT = 0
145!type21
146 intbuf_tab(nin)%S_MSR21 = 0 !
147 intbuf_tab(nin)%S_MNDD = 0 !
148 intbuf_tab(nin)%S_MSR_L = 0 !
149!type24
150 intbuf_tab(nin)%S_MVOISIN = 0
151 intbuf_tab(nin)%S_NVOISIN = 0
152!type24 & type25
153 intbuf_tab(nin)%S_MSEGLO = 0
154 intbuf_tab(nin)%S_MSEGTYP24 = 0
155!type24
156 intbuf_tab(nin)%S_ISEADD = 0
157 intbuf_tab(nin)%S_ISEDGE = 0
158 intbuf_tab(nin)%S_CAND_T = 0
159 intbuf_tab(nin)%S_ISEG_PXFEM = 0
160 intbuf_tab(nin)%S_ISEG_PLY = 0
161 intbuf_tab(nin)%S_ICONT_I = 0
162 intbuf_tab(nin)%S_IRTSE = 0
163 intbuf_tab(nin)%S_IS2SE = 0
164 intbuf_tab(nin)%S_IS2PT = 0
165 intbuf_tab(nin)%S_ISPT2 = 0
166 intbuf_tab(nin)%S_ISEGPT = 0
167 intbuf_tab(nin)%S_IS2ID = 0 !IS2ID Global ID for T24 E2E Fictive nodes
168!type25
169 intbuf_tab(nin)%S_EVOISIN = 0
170 intbuf_tab(nin)%S_ADMSR = 0
171 intbuf_tab(nin)%S_LEDGE = 0
172 intbuf_tab(nin)%S_LBOUND = 0
173 intbuf_tab(nin)%S_ACTNOR = 0
174 intbuf_tab(nin)%S_FARM = 0
175 intbuf_tab(nin)%S_ADSKYN = 0
176 intbuf_tab(nin)%S_IADNOR = 0
177 intbuf_tab(nin)%S_ISLIDE = 0
178 intbuf_tab(nin)%S_KNOR2MSR = 0
179 intbuf_tab(nin)%S_NOR2MSR = 0
180 intbuf_tab(nin)%S_CAND_OPT_N = 0
181 intbuf_tab(nin)%S_CAND_OPT_E = 0
182 intbuf_tab(nin)%S_IF_ADH = 0
183 intbuf_tab(nin)%S_CANDM_E2E = 0
184 intbuf_tab(nin)%S_CANDS_E2E = 0
185 intbuf_tab(nin)%S_CANDM_E2S = 0
186 intbuf_tab(nin)%S_CANDS_E2S = 0
187 intbuf_tab(nin)%S_ADDSUBE = 0
188 intbuf_tab(nin)%S_LISUBE = 0
189 intbuf_tab(nin)%S_INFLG_SUBE = 0
190 intbuf_tab(nin)%S_KREMNODE_EDG = 0
191 intbuf_tab(nin)%S_REMNODE_EDG = 0
192 intbuf_tab(nin)%S_KREMNODE_E2S = 0
193 intbuf_tab(nin)%S_REMNODE_E2S = 0
194 intbuf_tab(nin)%S_IELEM_M = 0
195 intbuf_tab(nin)%S_PROC_MVOISIN = 0
196
197!type2
198 intbuf_tab(nin)%S_MSEGTYP2 = 0
199C=======================================================================
200C REAL arrays sizes
201C=======================================================================
202 intbuf_tab(nin)%S_CSTS = 0
203 intbuf_tab(nin)%S_DPARA = 0
204 intbuf_tab(nin)%S_NMAS = 0
205 intbuf_tab(nin)%S_SMAS = 0
206 intbuf_tab(nin)%S_SINER = 0
207 intbuf_tab(nin)%S_SPENALTY = 0
208 intbuf_tab(nin)%S_STFR_PENALTY = 0
209 intbuf_tab(nin)%S_AREAS2 = 0
210 intbuf_tab(nin)%S_UVAR = 0
211 intbuf_tab(nin)%S_XM0 = 0
212 intbuf_tab(nin)%S_SKEW = 0
213 intbuf_tab(nin)%S_DSM = 0
214 intbuf_tab(nin)%S_FSM = 0
215 intbuf_tab(nin)%S_RUPT = 0
216 intbuf_tab(nin)%S_FINI = 0
217 intbuf_tab(nin)%S_STFAC = 0
218 intbuf_tab(nin)%S_VARIABLES = 0
219 intbuf_tab(nin)%S_STFNS = 0
220 intbuf_tab(nin)%S_GAP_M = 0
221 intbuf_tab(nin)%S_GAP_S = 0
222 intbuf_tab(nin)%S_STFM = 0
223 intbuf_tab(nin)%S_CAND_P = 0
224 intbuf_tab(nin)%S_XSAV = 0
225 intbuf_tab(nin)%S_CRIT = 0
226 intbuf_tab(nin)%S_FRIC_P = 0
227 intbuf_tab(nin)%S_XFILTR = 0
228 intbuf_tab(nin)%S_FTSAVX = 0
229 intbuf_tab(nin)%S_FTSAVY = 0
230 intbuf_tab(nin)%S_FTSAVZ = 0
231 intbuf_tab(nin)%S_AREAS = 0
232 intbuf_tab(nin)%S_AREAM = 0
233 intbuf_tab(nin)%S_GAP_ML = 0
234 intbuf_tab(nin)%S_GAP_SL = 0
235 intbuf_tab(nin)%S_STFS = 0
236 intbuf_tab(nin)%S_PENIS = 0
237 intbuf_tab(nin)%S_PENIM = 0
238 intbuf_tab(nin)%S_RIGE = 0
239 intbuf_tab(nin)%S_XIGE = 0
240 intbuf_tab(nin)%S_VIGE = 0
241 intbuf_tab(nin)%S_MASSIGE = 0
242!type10
243 intbuf_tab(nin)%S_CAND_F = 0
244!type20
245 intbuf_tab(nin)%S_XA = 0
246 intbuf_tab(nin)%S_VA = 0
247 intbuf_tab(nin)%S_STFA = 0
248 intbuf_tab(nin)%S_AVX_ANCR = 0
249 intbuf_tab(nin)%S_GAP_SH = 0
250 intbuf_tab(nin)%S_CAND_FX = 0
251 intbuf_tab(nin)%S_CAND_FY = 0
252 intbuf_tab(nin)%S_CAND_FZ = 0
253 intbuf_tab(nin)%S_GAP_SE = 0
254 intbuf_tab(nin)%S_GAP_ME = 0
255 intbuf_tab(nin)%S_STF = 0
256 intbuf_tab(nin)%S_STFNE = 0
257 intbuf_tab(nin)%S_CRITX = 0
258 intbuf_tab(nin)%S_PENISE = 0
259 intbuf_tab(nin)%S_PENIME = 0
260 intbuf_tab(nin)%S_PENIA = 0
261 intbuf_tab(nin)%S_ALPHAK = 0
262
263!type1
264 intbuf_tab(nin)%S_CSTS = 0
265 intbuf_tab(nin)%S_N = 0
266
267!type3,4,5,9
268 intbuf_tab(nin)%S_CSTM = 0
269 intbuf_tab(nin)%S_EE = 0
270 intbuf_tab(nin)%S_STFNM = 0
271 intbuf_tab(nin)%S_FRICOS = 0
272 intbuf_tab(nin)%S_FRICOM = 0
273 intbuf_tab(nin)%S_FTSAV = 0
274!type6
275 intbuf_tab(nin)%S_FCONT = 0
276 intbuf_tab(nin)%S_FS = 0
277 intbuf_tab(nin)%S_FM = 0
278 intbuf_tab(nin)%S_RMAS = 0
279 intbuf_tab(nin)%S_ANSMX0 = 0
280!type 8
281 intbuf_tab(nin)%S_T8 = 0
282 intbuf_tab(nin)%S_GAPN = 0
283 intbuf_tab(nin)%S_STF8 = 0
284!type 14
285 intbuf_tab(nin)%S_CIMP = 0
286 intbuf_tab(nin)%S_NIMP = 0
287
288!type 15
289 intbuf_tab(nin)%S_IOLD = 0
290 intbuf_tab(nin)%S_HOLD = 0
291 intbuf_tab(nin)%S_NOLD = 0
292 intbuf_tab(nin)%S_DOLD = 0
293!type 17
294 intbuf_tab(nin)%S_KS = 0
295 intbuf_tab(nin)%S_KM = 0
296 intbuf_tab(nin)%S_FROTS = 0
297 intbuf_tab(nin)%S_FROTM = 0
298!type 21
299 intbuf_tab(nin)%S_NOD_NORMAL = 0
300!type 21
301 intbuf_tab(nin)%S_RCURV = 0
302 intbuf_tab(nin)%S_ANGLM = 0
303 intbuf_tab(nin)%S_FROT_P = 0
304 intbuf_tab(nin)%S_ALPHA0 = 0
305 intbuf_tab(nin)%S_AS = 0
306 intbuf_tab(nin)%S_BS = 0
307 intbuf_tab(nin)%S_THKNOD0 = 0
308!type 24 and type25
309 intbuf_tab(nin)%S_GAPN_M = 0
310 intbuf_tab(nin)%S_SECND_FR = 0
311 intbuf_tab(nin)%S_PENE_OLD = 0
312 intbuf_tab(nin)%S_STIF_OLD = 0
313 intbuf_tab(nin)%S_TIME_S = 0
314 intbuf_tab(nin)%S_GAP_NM = 0
315 intbuf_tab(nin)%S_EDGE8L2 = 0
316 intbuf_tab(nin)%S_NOD_2RY_LGTH = 0
317 intbuf_tab(nin)%S_NOD_MAS_LGTH = 0
318 intbuf_tab(nin)%S_GAP_N0 = 0
319 intbuf_tab(nin)%S_DGAP_NM = 0
320 intbuf_tab(nin)%S_DGAP_M = 0
321 intbuf_tab(nin)%S_DELTA_PMAX_DGAP = 0
322 intbuf_tab(nin)%S_XFIC = 0
323 intbuf_tab(nin)%S_VFIC = 0
324 intbuf_tab(nin)%S_MSFIC = 0
325!type 25
326 intbuf_tab(nin)%S_EDGE_BISECTOR = 0
327 intbuf_tab(nin)%S_PENM = 0
328 intbuf_tab(nin)%S_DISTM = 0
329 intbuf_tab(nin)%S_LBM = 0
330 intbuf_tab(nin)%S_LCM = 0
331 intbuf_tab(nin)%S_VTX_BISECTOR = 0
332 intbuf_tab(nin)%S_KREMNOR = 0
333 intbuf_tab(nin)%S_REMNOR = 0
334 intbuf_tab(nin)%S_CAND_PS = 0
335 intbuf_tab(nin)%S_GAPE = 0
336 intbuf_tab(nin)%S_GAP_E_L = 0
337 intbuf_tab(nin)%S_STFE = 0
338 intbuf_tab(nin)%S_GAPMSAV = 0
339 intbuf_tab(nin)%S_FTSAVX_E = 0
340 intbuf_tab(nin)%S_FTSAVY_E = 0
341 intbuf_tab(nin)%S_FTSAVZ_E = 0
342 intbuf_tab(nin)%S_FTSAVX_E2S = 0
343 intbuf_tab(nin)%S_FTSAVY_E2S = 0
344 intbuf_tab(nin)%S_FTSAVZ_E2S = 0
345 intbuf_tab(nin)%S_IFPEN_E = 0
346 intbuf_tab(nin)%S_IFPEN_E2S = 0
347 intbuf_tab(nin)%S_E2S_NOD_NORMAL = 0
348 intbuf_tab(nin)%S_E2S_ACTNOR = 0
349 intbuf_tab(nin)%S_E2S_ACTNOR = 0
350 intbuf_tab(nin)%S_STIFMSDT_S = 0
351 intbuf_tab(nin)%S_STIFMSDT_M = 0
352 intbuf_tab(nin)%S_STIFMSDT_EDG = 0
353! FRICTION INTERFACE
354 intbuf_tab(nin)%S_IPARTFRICS = 0
355 intbuf_tab(nin)%S_IPARTFRICM = 0
356 intbuf_tab(nin)%S_IREP_FRICM = 0
357 intbuf_tab(nin)%S_DIR_FRICM = 0
358 intbuf_tab(nin)%S_IPARTFRIC_E = 0
359
360!type2
361 intbuf_tab(nin)%S_CSTS_BIS = 0
362!NITSCHE METHOD
363 intbuf_tab(nin)%S_IELNRTS = 0
364 intbuf_tab(nin)%S_ADRECTS = 0
365 intbuf_tab(nin)%S_FACNRTS = 0
366C=======================================================================
367c DEFINE SIZES
368C=======================================================================
369 nrts = ipari(3,nin)
370 nrtm = ipari(4,nin)
371 nme = ipari(4,nin)
372 nsn = ipari(5,nin)
373 nmn = ipari(6,nin)
374 ityp = ipari(7,nin)
375 nst = ipari(8,nin)
376 nmng = ipari(8,nin) !type21
377 nmt = ipari(9,nin)
378 idel7n = ipari(17,nin)
379 ncont = ipari(18,nin)
380 nconte = ncont
381 ilev = ipari(20,nin)
382 igap = ipari(21,nin)
383 inacti = abs(ipari(22,nin)) ! cas INACTI "passant a 0"
384 multimp= ipari(23,nin)
385 mfrot = ipari(30,nin)
386 ifq = ipari(31,nin)
387 ilagm = ipari(33,nin)
388 nuvar = ipari(35,nin)
389 nln = ipari(35,nin)
390 nisub = ipari(36,nin)
391 nisubs = ipari(37,nin)
392 nisubm = ipari(38,nin)
393 intth = ipari(47,nin)
394 iform = ipari(48,nin)
395 nlins = ipari(51,nin)
396 nlinm = ipari(52,nin)
397 itied = ipari(85,nin) ! Type7
398C----- used for int24+edge ficfive nodes
399 nsne = ipari(55,nin)
400 nmne = ipari(56,nin)
401 iedge = ipari(58,nin)
402 l24add = ipari(59,nin)
403 nremnode=ipari(62,nin)
404 nremnode_edg=ipari(94,nin)
405 nremnode_e2s=ipari(96,nin)
406 flagremnode=ipari(63,nin)
407 intkg = ipari(65,nin)
408 intply = ipari(66,nin)
409 nrtse = ipari(52,nin)
410C
411C Type25
412 nadmsr = ipari(67,nin)
413 nedge = ipari(68,nin)
414 nremnor= ipari(81,nin)
415 ivis2 = ipari(14,nin)
416 nisube = ipari(90,nin)
417C
418C TYPE 7, 11, 19: friction interface
419 intfric = ipari(72,nin)
420C
421C Ige
422 nrtm_ige= ipari(73,nin)
423 nrtm_fe = ipari(74,nin)
424 nrts_ige= ipari(75,nin)
425 nrts_fe = ipari(76,nin)
426 nsn_ige = ipari(77,nin)
427 nsn_fe = ipari(78,nin)
428 nmn_ige = ipari(79,nin)
429 nmn_fe = ipari(80,nin)
430C NITSCHE METHOD
431 intnitsche = ipari(86,nin)
432C T25 transient gap for main side
433 ithk = ipari(91,nin)
434
435 iflagloadp = ipari(95,nin)
436
437 istif_msdt = ipari(97,nin)
438 idel_solid = ipari(100,nin)
439
440
441
442cc print*,'-------INTBUF_INI_STARTER NI ITYP PROC',NIN,ITYP,PROC
443
444C=======================================================================
445 IF (ityp == 1) THEN
446C=======================================================================
447 IF(proc==0)THEN
448C---- size integers arrays
449 intbuf_tab(nin)%S_NSV = nsn
450 intbuf_tab(nin)%S_MSR = nmn
451 intbuf_tab(nin)%S_IRECTS = 4*nrts
452 intbuf_tab(nin)%S_IRECTM = 4*nrtm
453 intbuf_tab(nin)%S_IRTLM = nsn
454 intbuf_tab(nin)%S_ILOCS = nsn
455 intbuf_tab(nin)%S_NSEGM = 1+nmn
456 intbuf_tab(nin)%S_NRT = nmt
457
458C---- size real arrays
459 intbuf_tab(nin)%S_STFAC = 1
460 intbuf_tab(nin)%S_VARIABLES = nparir
461 intbuf_tab(nin)%S_CSTS = 2*nsn
462 intbuf_tab(nin)%S_N = 3*nsn
463 ENDIF
464
465C=======================================================================
466 ELSEIF (ityp == 2) THEN
467C=======================================================================
468C---- size integers arrays
469 intbuf_tab(nin)%S_NSV = nsn
470 intbuf_tab(nin)%S_MSR = nmn
471 intbuf_tab(nin)%S_IRECTS = 4*nrts
472 intbuf_tab(nin)%S_IRECTM = 4*nrtm
473 intbuf_tab(nin)%S_IRTLM = nsn
474 IF (ilev == 10 .OR. ilev == 11 .OR. ilev == 12 .OR.
475 . ilev == 20 .OR. ilev == 21 .OR. ilev == 22) THEN
476 intbuf_tab(nin)%S_IRUPT = nsn
477 intbuf_tab(nin)%S_INORM = nsn
478 ELSEIF ((ilev == 27).OR.(ilev == 28)) THEN
479 intbuf_tab(nin)%S_IRUPT = nsn
480 intbuf_tab(nin)%S_MSEGTYP2 = nrtm
481 ENDIF
482 intbuf_tab(nin)%S_MSEGTYP = nrtm
483
484C---- size real arrays
485 intbuf_tab(nin)%S_STFAC = 1
486 intbuf_tab(nin)%S_VARIABLES = nparir
487 intbuf_tab(nin)%S_CSTS = 2*nsn
488 intbuf_tab(nin)%S_DPARA = 7*nsn
489 intbuf_tab(nin)%S_NMAS = 2*nmn
490 IF (idel7n /= 0)THEN
491 intbuf_tab(nin)%S_SMAS = nsn
492 intbuf_tab(nin)%S_SINER = nsn
493 ENDIF
494 IF (ilev==10 .OR. ilev==11 .OR. ilev==12) THEN
495 intbuf_tab(nin)%S_SMAS = nsn
496 intbuf_tab(nin)%S_SINER = nsn
497 intbuf_tab(nin)%S_AREAS2= nsn
498 intbuf_tab(nin)%S_UVAR = nsn*nuvar
499 intbuf_tab(nin)%S_XM0 = nsn*3
500 intbuf_tab(nin)%S_DSM = nsn*3
501 intbuf_tab(nin)%S_FSM = nsn*3
502 ELSEIF (ilev==20 .OR. ilev==21 .OR. ilev==22) THEN
503 intbuf_tab(nin)%S_SMAS = nsn
504 intbuf_tab(nin)%S_SINER = nsn
505 intbuf_tab(nin)%S_AREAS2= nsn
506 intbuf_tab(nin)%S_UVAR = nsn*nuvar
507 intbuf_tab(nin)%S_XM0 = nsn*3
508 intbuf_tab(nin)%S_DSM = nsn*3
509 intbuf_tab(nin)%S_FSM = nsn*3
510 intbuf_tab(nin)%S_RUPT = 6
511 ELSEIF (ilev==25) THEN
512 intbuf_tab(nin)%S_SMAS = nsn
513 intbuf_tab(nin)%S_SINER = nsn
514 intbuf_tab(nin)%S_SPENALTY = nsn
515 intbuf_tab(nin)%S_STFR_PENALTY = nsn
516 intbuf_tab(nin)%S_SKEW = nsn*9
517 intbuf_tab(nin)%S_DSM = nsn*3
518 intbuf_tab(nin)%S_FSM = nsn*3
519 intbuf_tab(nin)%S_FINI = nsn*3
520 ELSEIF (ilev==26) THEN
521 intbuf_tab(nin)%S_SMAS = nsn
522 intbuf_tab(nin)%S_SINER = nsn
523 intbuf_tab(nin)%S_SPENALTY = nsn
524 intbuf_tab(nin)%S_STFR_PENALTY = nsn
525 intbuf_tab(nin)%S_SKEW = nsn*9
526 intbuf_tab(nin)%S_DSM = nsn*12
527 intbuf_tab(nin)%S_FSM = nsn*12
528 intbuf_tab(nin)%S_FINI = nsn*24
529 ELSEIF (ilev==27) THEN
530 intbuf_tab(nin)%S_SMAS = nsn
531 intbuf_tab(nin)%S_SINER = nsn
532 intbuf_tab(nin)%S_SPENALTY = nsn
533 intbuf_tab(nin)%S_STFR_PENALTY = nsn
534 intbuf_tab(nin)%S_SKEW = nsn*9
535 intbuf_tab(nin)%S_DSM = nsn*3
536 intbuf_tab(nin)%S_FSM = nsn*3
537 intbuf_tab(nin)%S_FINI = nsn*6
538 ELSEIF (ilev==28) THEN
539 intbuf_tab(nin)%S_SMAS = nsn
540 intbuf_tab(nin)%S_SINER = nsn
541 intbuf_tab(nin)%S_SPENALTY = nsn
542 intbuf_tab(nin)%S_STFR_PENALTY = nsn
543 intbuf_tab(nin)%S_SKEW = nsn*9
544 intbuf_tab(nin)%S_DSM = nsn*3
545 intbuf_tab(nin)%S_FSM = nsn*3
546 intbuf_tab(nin)%S_FINI = nsn*6
547 ENDIF
548 IF(intth > 0 ) THEN
549 intbuf_tab(nin)%S_AREAS2 = nsn
550 ENDIF
551 intbuf_tab(nin)%S_CSTS_BIS = 2*nsn
552C=======================================================================
553 ELSEIF (ityp == 3) THEN
554C=======================================================================
555 IF(proc==0)THEN
556C---- size integers arrays
557 intbuf_tab(nin)%S_NSV = nsn
558 intbuf_tab(nin)%S_MSR = nmn
559 intbuf_tab(nin)%S_IRECTS = 4*nrts
560 intbuf_tab(nin)%S_IRECTM = 4*nrtm
561 intbuf_tab(nin)%S_IRTLM = nsn
562 intbuf_tab(nin)%S_IRTLS = nmn
563 intbuf_tab(nin)%S_ILOCS = nsn
564 intbuf_tab(nin)%S_ILOCM = nmn
565 intbuf_tab(nin)%S_IRTLOM = nsn
566 intbuf_tab(nin)%S_IRTLOS = nmn
567 intbuf_tab(nin)%S_NSEGS = 1+nsn
568 intbuf_tab(nin)%S_NSEGM = 1+nmn
569 intbuf_tab(nin)%S_LNSV = nst
570 intbuf_tab(nin)%S_LMSR = nmt
571 intbuf_tab(nin)%S_MSEGTYP = nrts+nrtm
572
573C---- size real arrays
574 intbuf_tab(nin)%S_STFAC = 1
575 intbuf_tab(nin)%S_VARIABLES = nparir
576 intbuf_tab(nin)%S_CSTS = 2*nsn
577 intbuf_tab(nin)%S_CSTM = 2*nmn
578 intbuf_tab(nin)%S_STFNS = nsn
579 intbuf_tab(nin)%S_STFNM = nmn
580 intbuf_tab(nin)%S_STFS = nrts
581 intbuf_tab(nin)%S_STFM = nrtm
582 intbuf_tab(nin)%S_FRICOS = 3*nsn
583 intbuf_tab(nin)%S_FRICOM = 3*nmn
584 IF (mfrot/=0)intbuf_tab(nin)%S_FRIC_P = 10
585 IF (ifq/=0) THEN
586 intbuf_tab(nin)%S_XFILTR = 1
587 intbuf_tab(nin)%S_FTSAV = 3*nsn
588 ENDIF
589 intbuf_tab(nin)%S_AREAS = nsn
590 intbuf_tab(nin)%S_AREAM = nmn
591 ENDIF
592C=======================================================================
593 ELSEIF (ityp == 4) THEN
594C=======================================================================
595 IF(proc==0)THEN
596C---- size integers arrays
597 intbuf_tab(nin)%S_NSV = nsn
598 intbuf_tab(nin)%S_MSR = nmn
599 intbuf_tab(nin)%S_IRECTS = 4*nrts
600 intbuf_tab(nin)%S_IRECTM = 4*nrtm
601 intbuf_tab(nin)%S_IRTLM = nsn
602 intbuf_tab(nin)%S_IRTLS = nmn
603 intbuf_tab(nin)%S_ILOCS = nsn
604 intbuf_tab(nin)%S_ILOCM = nmn
605 intbuf_tab(nin)%S_IRTLOM = nsn
606 intbuf_tab(nin)%S_IRTLOS = nmn
607 intbuf_tab(nin)%S_NSEGS = 1+nsn
608 intbuf_tab(nin)%S_NSEGM = 1+nmn
609 intbuf_tab(nin)%S_LNSV = nst
610 intbuf_tab(nin)%S_LMSR = nmt
611 intbuf_tab(nin)%S_IELES = nrts
612 intbuf_tab(nin)%S_IELEM = nrtm
613
614C---- size real arrays
615 intbuf_tab(nin)%S_STFAC = 1
616 intbuf_tab(nin)%S_VARIABLES = nparir
617 intbuf_tab(nin)%S_CSTS = 2*nsn
618 intbuf_tab(nin)%S_CSTM = 2*nmn
619 intbuf_tab(nin)%S_STFNS = nsn
620 intbuf_tab(nin)%S_STFNM = nmn
621 intbuf_tab(nin)%S_STFS = nrts
622 intbuf_tab(nin)%S_STFM = nrtm
623 intbuf_tab(nin)%S_FRICOS = 3*nsn
624 intbuf_tab(nin)%S_FRICOM = 3*nmn
625 IF (mfrot/=0)intbuf_tab(nin)%S_FRIC_P = 10
626 IF (ifq/=0) THEN
627 intbuf_tab(nin)%S_XFILTR = 1
628 intbuf_tab(nin)%S_FTSAV = 3*nsn
629 ENDIF
630 ENDIF
631
632C=======================================================================
633 ELSEIF (ityp == 5) THEN
634C=======================================================================
635 IF(proc==0)THEN
636C---- size integers arrays
637 intbuf_tab(nin)%S_NSV = nsn
638 intbuf_tab(nin)%S_MSR = nmn
639 intbuf_tab(nin)%S_IRECTS = 4*nrts
640 intbuf_tab(nin)%S_IRECTM = 4*nrtm
641 intbuf_tab(nin)%S_IRTLM = nsn
642 intbuf_tab(nin)%S_IRTLS = nmn
643 intbuf_tab(nin)%S_ILOCS = nsn
644 intbuf_tab(nin)%S_ILOCM = nmn
645 intbuf_tab(nin)%S_IRTLOM = nsn
646 intbuf_tab(nin)%S_IRTLOS = nmn
647 intbuf_tab(nin)%S_NSEGS = 1+nsn
648 intbuf_tab(nin)%S_NSEGM = 1+nmn
649 intbuf_tab(nin)%S_LNSV = nst
650 intbuf_tab(nin)%S_LMSR = nmt
651 intbuf_tab(nin)%S_MSEGTYP = nrts+nrtm
652
653C---- size real arrays
654 intbuf_tab(nin)%S_STFAC = 1
655 intbuf_tab(nin)%S_VARIABLES = nparir
656 intbuf_tab(nin)%S_CSTS = 2*nsn
657 intbuf_tab(nin)%S_CSTM = 2*nmn
658 intbuf_tab(nin)%S_STFNS = nsn
659 intbuf_tab(nin)%S_STFNM = nmn
660 intbuf_tab(nin)%S_STFS = nrts
661 intbuf_tab(nin)%S_STFM = nrtm
662 intbuf_tab(nin)%S_FRICOS = 3*nsn
663 intbuf_tab(nin)%S_FRICOM = 3*nmn
664 IF (mfrot/=0)intbuf_tab(nin)%S_FRIC_P = 10
665 IF (ifq/=0) THEN
666 intbuf_tab(nin)%S_XFILTR = 1
667 intbuf_tab(nin)%S_FTSAV = 3*nsn
668 ENDIF
669 intbuf_tab(nin)%S_AREAS = nsn
670 ENDIF
671
672C=======================================================================
673 ELSEIF (ityp == 6) THEN
674C=======================================================================
675 IF(proc==0)THEN
676C---- size integers arrays
677 intbuf_tab(nin)%S_NSV = nsn
678 intbuf_tab(nin)%S_MSR = nmn
679 intbuf_tab(nin)%S_IRECTS = 4*nrts
680 intbuf_tab(nin)%S_IRECTM = 4*nrtm
681 intbuf_tab(nin)%S_IRTLM = nsn
682 intbuf_tab(nin)%S_IRTLS = nmn
683 intbuf_tab(nin)%S_ILOCS = nsn
684 intbuf_tab(nin)%S_ILOCM = nmn
685 intbuf_tab(nin)%S_IRTLOM = nsn
686 intbuf_tab(nin)%S_IRTLOS = nmn
687 intbuf_tab(nin)%S_NSEGS = 1+nsn
688 intbuf_tab(nin)%S_NSEGM = 1+nmn
689 intbuf_tab(nin)%S_LNSV = nst
690 intbuf_tab(nin)%S_LMSR = nmt
691
692C---- size real arrays
693 intbuf_tab(nin)%S_STFAC = 1
694 intbuf_tab(nin)%S_VARIABLES = nparir
695 intbuf_tab(nin)%S_CSTS = 2*nsn
696 intbuf_tab(nin)%S_CSTM = 2*nmn
697 intbuf_tab(nin)%S_STFNS = nsn
698 intbuf_tab(nin)%S_STFNM = nmn
699 intbuf_tab(nin)%S_STFS = nrts
700 intbuf_tab(nin)%S_STFM = nrtm
701 intbuf_tab(nin)%S_FRICOS = 3*nsn
702 intbuf_tab(nin)%S_FRICOM = 3*nmn
703 intbuf_tab(nin)%S_FCONT = 1
704 intbuf_tab(nin)%S_FS = 3*nsn
705 intbuf_tab(nin)%S_FM = 3*nmn
706 intbuf_tab(nin)%S_RMAS = 2
707 intbuf_tab(nin)%S_ANSMX0 = 2
708 ENDIF
709
710C=======================================================================
711 ELSEIF (ityp == 7) THEN !and ITYP == 18
712C=======================================================================
713C---- size integers arrays
714 intbuf_tab(nin)%S_NSV = nsn
715 intbuf_tab(nin)%S_MSR = nmn
716 intbuf_tab(nin)%S_I_STOK = 1
717 !IRECTS is mandatory for auto-impactant interfaces
718 intbuf_tab(nin)%S_IRECTS = 4*nrts
719 intbuf_tab(nin)%S_IRECTM = 4*nrtm
720 intbuf_tab(nin)%S_CAND_E = multimp*ncont
721 intbuf_tab(nin)%S_CAND_N = multimp*ncont
722 IF(intth > 0 ) THEN
723 intbuf_tab(nin)%S_IELES = nrtm
724 intbuf_tab(nin)%S_IELEC = nsn
725 ENDIF
726 IF (ifq /= 0)intbuf_tab(nin)%S_IFPEN = multimp*ncont
727 IF (nisub /= 0) THEN
728 intbuf_tab(nin)%S_LISUB = nisub
729 intbuf_tab(nin)%S_TYPSUB = nisub
730 intbuf_tab(nin)%S_ADDSUBS = nsn+1
731 intbuf_tab(nin)%S_ADDSUBM = nrtm+1
732 intbuf_tab(nin)%S_LISUBS = nisubs
733 intbuf_tab(nin)%S_LISUBM = nisubm
734 intbuf_tab(nin)%S_INFLG_SUBS = nisubs
735 intbuf_tab(nin)%S_INFLG_SUBM = nisubm
736 ENDIF
737 intbuf_tab(nin)%S_MSEGTYP = nrtm
738 IF (flagremnode == 2 ) THEN
739 intbuf_tab(nin)%S_KREMNODE = 2*(nrtm + 1)
740 intbuf_tab(nin)%S_REMNODE = nremnode
741 ENDIF
742
743C---- size real arrays
744 intbuf_tab(nin)%S_STFAC = 1
745 intbuf_tab(nin)%S_VARIABLES = nparir
746 intbuf_tab(nin)%S_STFNS = nsn
747 IF(igap > 0)THEN
748 intbuf_tab(nin)%S_GAP_M = nrtm
749 intbuf_tab(nin)%S_GAP_S = nsn
750 ENDIF
751 intbuf_tab(nin)%S_STFM = nrtm
752
753 IF(itied/=0)
754 . intbuf_tab(nin)%S_CAND_F = 8*multimp*ncont
755
756 IF(inacti == 5 .OR. inacti == 6 .OR. inacti == 7) THEN
757 intbuf_tab(nin)%S_CAND_P = multimp*ncont
758 ENDIF
759 intbuf_tab(nin)%S_XSAV = 3*min(numn+numfakenodigeo,nsn+nmn)
760 intbuf_tab(nin)%S_CRIT = 12
761 IF (mfrot/=0)intbuf_tab(nin)%S_FRIC_P = 10
762 IF (ifq/=0) THEN
763 intbuf_tab(nin)%S_XFILTR = 1
764 intbuf_tab(nin)%S_FTSAVX = multimp*ncont
765 intbuf_tab(nin)%S_FTSAVY = multimp*ncont
766 intbuf_tab(nin)%S_FTSAVZ = multimp*ncont
767 ENDIF
768 IF (intth > 0 ) THEN
769 intbuf_tab(nin)%S_AREAS = nsn
770 ENDIF
771 IF (igap == 3 ) THEN
772 intbuf_tab(nin)%S_GAP_ML = nrtm
773 intbuf_tab(nin)%S_GAP_SL = nsn
774 ENDIF
775 intbuf_tab(nin)%S_NIGE = nsn_ige+nmn_ige
776 intbuf_tab(nin)%S_MASSIGE = nsn_ige+nmn_ige
777 intbuf_tab(nin)%S_RIGE = 3*(nsn_ige+nmn_ige)
778 intbuf_tab(nin)%S_XIGE = 3*(nsn_ige+nmn_ige)
779 intbuf_tab(nin)%S_VIGE = 3*(nsn_ige+nmn_ige)
780 IF (intfric/=0) THEN
781 intbuf_tab(nin)%S_IPARTFRICS = nsn
782 intbuf_tab(nin)%S_IPARTFRICM = nrtm
783 IF(intbuf_fric_tab(intfric)%IORTHFRIC >0) THEN
784 intbuf_tab(nin)%S_IREP_FRICM = nrtm
785 intbuf_tab(nin)%S_DIR_FRICM = 2*nrtm
786 ENDIF
787 ENDIF
788
789C=======================================================================
790 ELSEIF (ityp == 8) THEN
791C=======================================================================
792! IF(PROC==0)THEN
793C---- size integers arrays
794 intbuf_tab(nin)%S_I_STOK = 1
795
796 intbuf_tab(nin)%S_NSV = nsn
797 intbuf_tab(nin)%S_MSR = nmn
798! INTBUF_TAB(NIN)%S_IRECTS = 4*NRTS
799 intbuf_tab(nin)%S_IRECTM = 4*nrtm
800 intbuf_tab(nin)%S_IRTLM = nsn
801! INTBUF_TAB(NIN)%S_IRTLS = NMN
802 intbuf_tab(nin)%S_ILOCS = nsn
803! INTBUF_TAB(NIN)%S_SL8 = NSN
804! INTBUF_TAB(NIN)%S_ILOCM = NMN
805 intbuf_tab(nin)%S_IRTLOM = nsn
806! INTBUF_TAB(NIN)%S_IRTLOS = NMN
807! INTBUF_TAB(NIN)%S_NSEGS = 1+NSN
808 intbuf_tab(nin)%S_NSEGM = 1+nmn
809 intbuf_tab(nin)%S_LNSV = nst
810 intbuf_tab(nin)%S_LMSR = nmt
811
812C---- size real arrays
813 intbuf_tab(nin)%S_STFAC = 1
814 intbuf_tab(nin)%S_VARIABLES = nparir
815 intbuf_tab(nin)%S_CSTS = 2*nsn
816c INTBUF_TAB(NIN)%S_CSTM = 2*NMN
817C INTBUF_TAB(NIN)%S_STFNS = NSN
818 intbuf_tab(nin)%S_STFNM = nmn
819C INTBUF_TAB(NIN)%S_STFS = NRTS
820 intbuf_tab(nin)%S_STFM = nrtm
821C INTBUF_TAB(NIN)%S_FRICOS = 3*NSN
822C INTBUF_TAB(NIN)%S_FRICOM = 3*NMN
823 IF(iform==2)THEN
824 intbuf_tab(nin)%S_FTSAVX = nsn
825 intbuf_tab(nin)%S_FTSAVY = nsn
826 intbuf_tab(nin)%S_FTSAVZ = nsn
827 ENDIF
828 intbuf_tab(nin)%S_GAPN = nrtm
829 intbuf_tab(nin)%S_STF8 = nrtm
830 intbuf_tab(nin)%S_T8 = 1
831! ENDIF
832
833C=======================================================================
834 ELSEIF (ityp == 9) THEN
835C=======================================================================
836C---- size integers arrays
837 intbuf_tab(nin)%S_NSV = nsn
838 intbuf_tab(nin)%S_MSR = nmn
839 intbuf_tab(nin)%S_IRECTS = 4*nrts
840 intbuf_tab(nin)%S_IRECTM = 4*nrtm
841 intbuf_tab(nin)%S_IRTLM = nsn
842 intbuf_tab(nin)%S_IRTLS = nmn
843 intbuf_tab(nin)%S_ILOCS = nsn
844 intbuf_tab(nin)%S_ILOCM = nmn
845 intbuf_tab(nin)%S_IRTLOM = nsn
846 intbuf_tab(nin)%S_IRTLOS = nmn
847 intbuf_tab(nin)%S_NSEGS = 1+nsn
848 intbuf_tab(nin)%S_NSEGM = 1+nmn
849 intbuf_tab(nin)%S_LNSV = nst
850 intbuf_tab(nin)%S_LMSR = nmt
851 intbuf_tab(nin)%S_IELES = nrts
852 intbuf_tab(nin)%S_IELEM = nrtm
853
854C---- size real arrays
855 intbuf_tab(nin)%S_STFAC = 1
856 intbuf_tab(nin)%S_VARIABLES = nparir
857 intbuf_tab(nin)%S_CSTS = 2*nsn
858 intbuf_tab(nin)%S_CSTM = 2*nmn
859 intbuf_tab(nin)%S_STFNS = nsn
860 intbuf_tab(nin)%S_STFNM = nmn
861 intbuf_tab(nin)%S_STFS = nrts
862 intbuf_tab(nin)%S_STFM = 2*nrtm
863 intbuf_tab(nin)%S_FRICOS = 3*nsn
864 intbuf_tab(nin)%S_FRICOM = 3*nmn
865 intbuf_tab(nin)%S_N = 3*nsn
866 IF (mfrot/=0)intbuf_tab(nin)%S_FRIC_P = 10
867 IF (ifq/=0) THEN
868 intbuf_tab(nin)%S_XFILTR = 1
869 intbuf_tab(nin)%S_FTSAV = 3*nsn
870 ENDIF
871
872C=======================================================================
873 ELSEIF (ityp == 10) THEN
874C=======================================================================
875C---- size integers arrays
876 intbuf_tab(nin)%S_NSV = nsn
877 intbuf_tab(nin)%S_MSR = nmn
878 intbuf_tab(nin)%S_I_STOK = 1
879 intbuf_tab(nin)%S_IRECTS = 4*nrts
880 intbuf_tab(nin)%S_IRECTM = 4*nrtm
881 intbuf_tab(nin)%S_CAND_E = multimp*ncont
882 intbuf_tab(nin)%S_CAND_N = multimp*ncont
883 IF (nisub /= 0) THEN
884 intbuf_tab(nin)%S_LISUB = nisub
885 intbuf_tab(nin)%S_ADDSUBS = nsn+1
886 intbuf_tab(nin)%S_ADDSUBM = nrtm+1
887 intbuf_tab(nin)%S_LISUBS = nisubs
888 intbuf_tab(nin)%S_LISUBM = nisubm
889 ENDIF
890 intbuf_tab(nin)%S_MSEGTYP = nrtm
891
892C---- size real arrays
893 intbuf_tab(nin)%S_STFAC = 1
894 intbuf_tab(nin)%S_VARIABLES = nparir
895 intbuf_tab(nin)%S_STFNS = nsn
896 intbuf_tab(nin)%S_GAP_M = nrtm
897 intbuf_tab(nin)%S_GAP_S = nsn
898 intbuf_tab(nin)%S_STFM = nrtm
899 intbuf_tab(nin)%S_CAND_F = 6*multimp*ncont
900 intbuf_tab(nin)%S_XSAV = 3*min(numn,nsn+nmn)
901 intbuf_tab(nin)%S_CRIT = 12
902
903C=======================================================================
904 ELSEIF (ityp == 11) THEN
905C=======================================================================
906C---- size integers arrays
907 intbuf_tab(nin)%S_NSV = nsn
908 intbuf_tab(nin)%S_MSR = nmn
909 IF( i11flag == 0 ) THEN
910 intbuf_tab(nin)%S_IRECTS = 4*nrts
911 intbuf_tab(nin)%S_IRECTM = 4*nrtm
912 ELSE
913 !on I11EDGE we compact IRTS and IRTM on 2*NRTS and 2*NRTM
914 intbuf_tab(nin)%S_IRECTS = 2*nrts
915 intbuf_tab(nin)%S_IRECTM = 2*nrtm
916 ENDIF
917 intbuf_tab(nin)%S_I_STOK = 1
918 intbuf_tab(nin)%S_CAND_E = multimp*ncont
919 intbuf_tab(nin)%S_CAND_N = multimp*ncont
920 intbuf_tab(nin)%S_ADCCM = nrtm
921 intbuf_tab(nin)%S_CHAIN = 2*multimp*ncont
922 IF (mfrot == 2) THEN !IPARI(30)
923 intbuf_tab(nin)%S_IFPEN = multimp*ncont
924 ENDIF
925 intbuf_tab(nin)%S_CAND_MAX = 0
926
927
928C---- size real arrays
929 intbuf_tab(nin)%S_STFAC = 1
930 intbuf_tab(nin)%S_VARIABLES = nparir
931 intbuf_tab(nin)%S_GAP_S = nrts
932 intbuf_tab(nin)%S_GAP_M = nrtm
933 intbuf_tab(nin)%S_STFS = nrts
934 intbuf_tab(nin)%S_STFM = nrtm
935 intbuf_tab(nin)%S_XSAV = 3*min(numn,nsn+nmn)
936 intbuf_tab(nin)%S_PENIS = 2*nrts
937 intbuf_tab(nin)%S_PENIM = 2*nrtm
938 intbuf_tab(nin)%S_CRIT = 12
939 IF (mfrot == 2) THEN
940 intbuf_tab(nin)%S_FTSAVX = multimp*ncont
941 intbuf_tab(nin)%S_FTSAVY = multimp*ncont
942 intbuf_tab(nin)%S_FTSAVZ = multimp*ncont
943 ENDIF
944 IF (igap == 3 ) THEN
945 intbuf_tab(nin)%S_GAP_ML = nrtm
946 intbuf_tab(nin)%S_GAP_SL = nrts
947 ENDIF
948 IF(intth > 0 ) THEN
949 intbuf_tab(nin)%S_IELEC = nrts
950 intbuf_tab(nin)%S_IELES = nrtm
951 intbuf_tab(nin)%S_AREAS = nrts
952 intbuf_tab(nin)%S_AREAM = nrtm
953 ENDIF
954 IF (nisub /= 0) THEN
955 intbuf_tab(nin)%S_LISUB = nisub
956 intbuf_tab(nin)%S_TYPSUB = nisub
957 intbuf_tab(nin)%S_ADDSUBS = nrts+1
958 intbuf_tab(nin)%S_ADDSUBM = nrtm+1
959 intbuf_tab(nin)%S_LISUBS = nisubs
960 intbuf_tab(nin)%S_LISUBM = nisubm
961 intbuf_tab(nin)%S_INFLG_SUBS = nisubs
962 intbuf_tab(nin)%S_INFLG_SUBM = nisubm
963 ENDIF
964
965 IF (intfric/=0) THEN
966 intbuf_tab(nin)%S_IPARTFRICS = nrts
967 intbuf_tab(nin)%S_IPARTFRICM = nrtm
968 ENDIF
969C
970 IF (flagremnode == 2 ) THEN
971 intbuf_tab(nin)%S_KREMNODE = 2*(nrtm + 1)
972 intbuf_tab(nin)%S_REMNODE = nremnode
973 ENDIF
974C=======================================================================
975 ELSEIF (ityp == 12) THEN
976C=======================================================================
977 IF(proc==0)THEN
978C---- size integers arrays
979 intbuf_tab(nin)%S_NSV = nsn
980 intbuf_tab(nin)%S_MSR = nmn
981 intbuf_tab(nin)%S_IRECTS = 4*nrts
982 intbuf_tab(nin)%S_IRECTM = 4*nrtm
983 intbuf_tab(nin)%S_IRTLM = nsn
984 intbuf_tab(nin)%S_IRTLS = nmn
985 intbuf_tab(nin)%S_ILOCS = nsn
986 intbuf_tab(nin)%S_ILOCM = nmn
987 intbuf_tab(nin)%S_NSEGS = 1+nsn
988 intbuf_tab(nin)%S_NSEGM = 1+nmn
989 intbuf_tab(nin)%S_LNSV = nst
990 intbuf_tab(nin)%S_LMSR = nmt
991 intbuf_tab(nin)%S_IELES = nrts
992 intbuf_tab(nin)%S_IELEM = nrtm
993 intbuf_tab(nin)%S_FCOUNT = nsn
994
995C---- size real arrays
996 intbuf_tab(nin)%S_STFAC = 1
997 intbuf_tab(nin)%S_VARIABLES = nparir
998 intbuf_tab(nin)%S_CSTS = 2*nsn
999 intbuf_tab(nin)%S_CSTM = 2*nmn
1000 IF(ilev>0)THEN
1001 intbuf_tab(nin)%S_STFNS = nsn
1002 intbuf_tab(nin)%S_STFNM = nmn
1003 ENDIF
1004 intbuf_tab(nin)%S_NMAS = nmn
1005 ENDIF
1006
1007C=======================================================================
1008 ELSEIF (ityp == 14) THEN
1009C=======================================================================
1010 IF(proc==0)THEN
1011C---- size integers arrays
1012 intbuf_tab(nin)%S_NSV = nsn
1013 intbuf_tab(nin)%S_IMPACT = nsn
1014 intbuf_tab(nin)%S_KSURF = 1
1015
1016C---- size real arrays
1017 intbuf_tab(nin)%S_STFAC = 1
1018 intbuf_tab(nin)%S_VARIABLES = nparir
1019 intbuf_tab(nin)%S_CIMP = 3*nsn
1020 intbuf_tab(nin)%S_NIMP = 3*nsn
1021 ENDIF
1022
1023C=======================================================================
1024 ELSEIF (ityp == 15) THEN
1025C=======================================================================
1026 IF(proc==0)THEN
1027C---- size integers arrays
1028 intbuf_tab(nin)%S_IRECTS = 4*nrts
1029 intbuf_tab(nin)%S_NSV = nsn
1030 intbuf_tab(nin)%S_IMPACT = 4*nrts
1031 intbuf_tab(nin)%S_KSURF = 1
1032
1033C---- size real arrays
1034 intbuf_tab(nin)%S_STFAC = 1
1035 intbuf_tab(nin)%S_VARIABLES = nparir
1036 intbuf_tab(nin)%S_IOLD = 3*4*nrts
1037 intbuf_tab(nin)%S_HOLD = 3*4*nrts
1038 intbuf_tab(nin)%S_NOLD = 3*4*nrts
1039 intbuf_tab(nin)%S_DOLD = 3*4*nrts
1040 ENDIF
1041
1042C=======================================================================
1043 ELSEIF (ityp == 16) THEN
1044C=======================================================================
1045 IF(proc==0)THEN
1046C---- size integers arrays
1047 intbuf_tab(nin)%S_IRECTS = 4*nrts
1048 ncont = nsn
1049 intbuf_tab(nin)%S_CAND_E = multimp*ncont
1050 intbuf_tab(nin)%S_CAND_N = multimp*ncont
1051
1052C---- size real arrays
1053 intbuf_tab(nin)%S_STFAC = 1
1054 intbuf_tab(nin)%S_VARIABLES = nparir
1055 intbuf_tab(nin)%S_XSAV = 3*numn
1056 ENDIF
1057
1058C=======================================================================
1059 ELSEIF (ityp == 17) THEN
1060C=======================================================================
1061C---- size integers arrays
1062 ncont = nsn
1063 intbuf_tab(nin)%S_IRECTS = 4*nrts
1064 intbuf_tab(nin)%S_CAND_E = multimp*ncont
1065 intbuf_tab(nin)%S_CAND_N = multimp*ncont
1066
1067C---- size real arrays
1068 intbuf_tab(nin)%S_STFAC = 1
1069 intbuf_tab(nin)%S_VARIABLES = nparir
1070 intbuf_tab(nin)%S_XSAV = 3*numn
1071 intbuf_tab(nin)%S_KS = 2*nsn
1072 intbuf_tab(nin)%S_KM = 2*nme
1073 intbuf_tab(nin)%S_FROTS = 7*nsn
1074 intbuf_tab(nin)%S_FROTM = 7*nme
1075
1076C=======================================================================
1077 ELSEIF (ityp == 18) THEN
1078C=======================================================================
1079
1080c TYPE 7 + INACTI = 7
1081
1082C=======================================================================
1083 ELSEIF (ityp == 20) THEN
1084C=======================================================================
1085C---- size integers arrays
1086 intbuf_tab(nin)%S_NSV = nsn
1087 intbuf_tab(nin)%S_MSR = nmn
1088 intbuf_tab(nin)%S_I_STOK = 1
1089 intbuf_tab(nin)%S_I_STOK_E = 1
1090 intbuf_tab(nin)%S_IRECTS = 4*nrts
1091 intbuf_tab(nin)%S_IRECTM = 4*nrtm
1092 intbuf_tab(nin)%S_CAND_E = multimp*ncont
1093 intbuf_tab(nin)%S_CAND_N = multimp*ncont
1094 intbuf_tab(nin)%S_DAANC6 = nln * 18 * 2
1095 IF(intth > 0 ) THEN
1096 intbuf_tab(nin)%S_IELES = nrtm
1097 intbuf_tab(nin)%S_IELEC = nsn
1098 ENDIF
1099 IF (ifq /= 0)intbuf_tab(nin)%S_IFPEN = multimp*ncont
1100 IF (nisub /= 0) THEN
1101 intbuf_tab(nin)%S_LISUB = nisub
1102 intbuf_tab(nin)%S_ADDSUBS = nsn+1
1103 intbuf_tab(nin)%S_ADDSUBM = nrtm+1
1104 intbuf_tab(nin)%S_LISUBS = nisubs
1105 intbuf_tab(nin)%S_LISUBM = nisubm
1106 ENDIF
1107 intbuf_tab(nin)%S_NBINFLG = nln
1108 intbuf_tab(nin)%S_MBINFLG = nrtm
1109 intbuf_tab(nin)%S_NLG = nln
1110 intbuf_tab(nin)%S_ISLINS = 2*nlins
1111 intbuf_tab(nin)%S_ISLINM = 2*nlinm
1112 intbuf_tab(nin)%S_IXLINS = 2*nlins
1113 intbuf_tab(nin)%S_IXLINM = 2*nlinm
1114 intbuf_tab(nin)%S_NSVL = nsne
1115 intbuf_tab(nin)%S_MSRL = nmne
1116 intbuf_tab(nin)%S_LCAND_N = multimp*nconte
1117 intbuf_tab(nin)%S_LCAND_S = multimp*nconte
1118 intbuf_tab(nin)%S_ADCCM20 = nlinm
1119 intbuf_tab(nin)%S_CHAIN20 = 2*multimp*nconte
1120
1121C---- size real arrays
1122 intbuf_tab(nin)%S_STFAC = 1
1123 intbuf_tab(nin)%S_VARIABLES = nparir
1124 intbuf_tab(nin)%S_XA = 3*nln
1125 intbuf_tab(nin)%S_VA = 3*nln
1126 intbuf_tab(nin)%S_STFA = nln
1127 IF(igap > 0)THEN
1128 intbuf_tab(nin)%S_GAP_M = nrtm
1129 intbuf_tab(nin)%S_GAP_S = nsn
1130 ENDIF
1131 intbuf_tab(nin)%S_STFM = nrtm
1132 IF(inacti == 5 .OR. inacti == 6 .OR. inacti == 7) THEN
1133 intbuf_tab(nin)%S_CAND_P = multimp*ncont
1134 ENDIF
1135 intbuf_tab(nin)%S_XSAV = 3*(nsn+nmn)
1136 intbuf_tab(nin)%S_PENIS = 2*nsn
1137 intbuf_tab(nin)%S_PENIM = 2*nrtm
1138 intbuf_tab(nin)%S_AVX_ANCR = 9*nln
1139 intbuf_tab(nin)%S_GAP_SH = nrtm
1140 intbuf_tab(nin)%S_CRIT = 12
1141 IF (mfrot/=0)intbuf_tab(nin)%S_FRIC_P = 10
1142 IF (ifq/=0) THEN
1143 intbuf_tab(nin)%S_XFILTR = 1
1144 intbuf_tab(nin)%S_CAND_FX = multimp*ncont
1145 intbuf_tab(nin)%S_CAND_FY = multimp*ncont
1146 intbuf_tab(nin)%S_CAND_FZ = multimp*ncont
1147 ENDIF
1148 IF (intth > 0 ) THEN
1149 intbuf_tab(nin)%S_AREAS = nsn
1150 ENDIF
1151 intbuf_tab(nin)%S_GAP_SE = nlins
1152 intbuf_tab(nin)%S_GAP_ME = nlinm
1153 intbuf_tab(nin)%S_STFS = nlins
1154 intbuf_tab(nin)%S_STF = nlinm
1155 intbuf_tab(nin)%S_STFNE = nsne
1156 intbuf_tab(nin)%S_CRITX = 3*(nsne+nmne)
1157 intbuf_tab(nin)%S_PENISE = 2*nlins
1158 intbuf_tab(nin)%S_PENIME = 2*nlinm
1159 intbuf_tab(nin)%S_PENIA = 5*nln
1160 intbuf_tab(nin)%S_ALPHAK = 3*nln
1161
1162C=======================================================================
1163 ELSEIF (ityp == 21) THEN
1164C=======================================================================
1165C---- size integers arrays
1166 intbuf_tab(nin)%S_NSV = nsn
1167 intbuf_tab(nin)%S_MSR = nmn
1168 intbuf_tab(nin)%S_I_STOK = 1
1169 intbuf_tab(nin)%S_IRECTS = 4*nrts
1170 intbuf_tab(nin)%S_IRECTM = 4*nrtm
1171 intbuf_tab(nin)%S_CAND_E = multimp*ncont
1172 intbuf_tab(nin)%S_CAND_N = multimp*ncont
1173 intbuf_tab(nin)%S_IRTLM = 2*nsn
1174 intbuf_tab(nin)%S_MSR21 = nmng
1175 intbuf_tab(nin)%S_IELES = nrts
1176 intbuf_tab(nin)%S_IFPEN = nsn
1177 IF(intth == 2 .OR. iflagloadp > 0) THEN
1178 intbuf_tab(nin)%S_MNDD = nmng
1179 intbuf_tab(nin)%S_MSR_L = nmng
1180 ENDIF
1181 intbuf_tab(nin)%S_MSEGTYP = nrtm
1182
1183C---- size real arrays
1184 intbuf_tab(nin)%S_STFAC = 1
1185 intbuf_tab(nin)%S_VARIABLES = nparir
1186 intbuf_tab(nin)%S_CSTS = 2*nsn
1187 intbuf_tab(nin)%S_STFNS = nsn
1188 IF(igap==2)THEN
1189 intbuf_tab(nin)%S_GAP_S = 2*nsn !GAP_S0
1190 ELSE
1191 intbuf_tab(nin)%S_GAP_S = nsn
1192 ENDIF
1193 intbuf_tab(nin)%S_STF = nrtm
1194 intbuf_tab(nin)%S_PENIS = nsn !
1195 intbuf_tab(nin)%S_XSAV = 3*(nsn+2) +3*nsn
1196 intbuf_tab(nin)%S_NOD_NORMAL = 3*nmng
1197 intbuf_tab(nin)%S_RCURV = nrtm
1198 intbuf_tab(nin)%S_XM0 = 3*nmng
1199 intbuf_tab(nin)%S_ANGLM = nrtm
1200 intbuf_tab(nin)%S_CRIT = 12
1201 IF (mfrot/=0)intbuf_tab(nin)%S_FROT_P = 10
1202 intbuf_tab(nin)%S_ALPHA0 = 1
1203 intbuf_tab(nin)%S_FTSAVX = nsn
1204 intbuf_tab(nin)%S_FTSAVY = nsn
1205 intbuf_tab(nin)%S_FTSAVZ = nsn
1206 intbuf_tab(nin)%S_AREAS = nsn
1207 IF(intth/=0)THEN
1208 intbuf_tab(nin)%S_AS = nsn
1209 intbuf_tab(nin)%S_BS = nsn
1210 ENDIF
1211 IF(igap>=1)THEN
1212 intbuf_tab(nin)%S_THKNOD0 = nsn
1213 ENDIF
1214 IF (intfric/=0) THEN
1215 intbuf_tab(nin)%S_IPARTFRICS = nsn
1216 intbuf_tab(nin)%S_IPARTFRICM = nrtm
1217 ENDIF
1218C=======================================================================
1219 ELSEIF (ityp == 22) THEN
1220C=======================================================================
1221C---- size integers arrays
1222 intbuf_tab(nin)%S_NSV = nsn
1223 intbuf_tab(nin)%S_MSR = nmn
1224 intbuf_tab(nin)%S_I_STOK = 1
1225 intbuf_tab(nin)%S_IRECTS = 4*nrts
1226 intbuf_tab(nin)%S_IRECTM = 4*nrtm
1227 intbuf_tab(nin)%S_CAND_E = multimp*ncont
1228 intbuf_tab(nin)%S_CAND_N = multimp*ncont
1229 IF(intth > 0 ) THEN
1230 intbuf_tab(nin)%S_IELES = nrtm
1231 intbuf_tab(nin)%S_IELEC = nsn
1232 ENDIF
1233 IF (ifq /= 0)intbuf_tab(nin)%S_IFPEN = multimp*ncont
1234 IF (nisub /= 0) THEN
1235 intbuf_tab(nin)%S_LISUB = nisub
1236 intbuf_tab(nin)%S_ADDSUBS = nsn+1
1237 intbuf_tab(nin)%S_ADDSUBM = nrtm+1
1238 intbuf_tab(nin)%S_LISUBS = nisubs
1239 intbuf_tab(nin)%S_LISUBM = nisubm
1240 ENDIF
1241
1242C---- size real arrays
1243 intbuf_tab(nin)%S_STFAC = 1
1244 intbuf_tab(nin)%S_VARIABLES = nparir
1245 intbuf_tab(nin)%S_STFNS = nsn
1246 IF(igap > 0)THEN
1247 intbuf_tab(nin)%S_GAP_M = nrtm
1248 intbuf_tab(nin)%S_GAP_S = nsn
1249 ENDIF
1250 intbuf_tab(nin)%S_STFM = nrtm
1251 IF(inacti == 5 .OR. inacti == 6 .OR. inacti == 7) THEN
1252 intbuf_tab(nin)%S_CAND_P = multimp*ncont
1253 ENDIF
1254 intbuf_tab(nin)%S_XSAV = 3*min(numn,nsn+nmn)
1255 intbuf_tab(nin)%S_CRIT = 12
1256 IF (mfrot/=0)intbuf_tab(nin)%S_FRIC_P = 10
1257 IF (ifq/=0) THEN
1258 intbuf_tab(nin)%S_XFILTR = 1
1259 intbuf_tab(nin)%S_FTSAVX = multimp*ncont
1260 intbuf_tab(nin)%S_FTSAVY = multimp*ncont
1261 intbuf_tab(nin)%S_FTSAVZ = multimp*ncont
1262 ENDIF
1263 IF (intth > 0 ) THEN
1264 intbuf_tab(nin)%S_AREAS = nsn
1265 ENDIF
1266 IF (igap == 3 ) THEN
1267 intbuf_tab(nin)%S_GAP_ML = nrtm
1268 intbuf_tab(nin)%S_GAP_SL = nsn
1269 ENDIF
1270
1271C=======================================================================
1272 ELSEIF (ityp == 23) THEN
1273C=======================================================================
1274C---- size integers arrays
1275 intbuf_tab(nin)%S_NSV = nsn
1276 intbuf_tab(nin)%S_MSR = nmn
1277 intbuf_tab(nin)%S_I_STOK = 1
1278 intbuf_tab(nin)%S_IRECTS = 4*nrts
1279 intbuf_tab(nin)%S_IRECTM = 4*nrtm
1280 intbuf_tab(nin)%S_CAND_E = multimp*ncont
1281 intbuf_tab(nin)%S_CAND_N = multimp*ncont
1282 intbuf_tab(nin)%S_IFPEN = multimp*ncont
1283 intbuf_tab(nin)%S_MSEGTYP = nrtm
1284
1285C---- size real arrays
1286 intbuf_tab(nin)%S_STFAC = 1
1287 intbuf_tab(nin)%S_VARIABLES = nparir
1288 intbuf_tab(nin)%S_STFNS = nsn
1289 IF(igap > 0)THEN
1290 intbuf_tab(nin)%S_GAP_M = nrtm
1291 intbuf_tab(nin)%S_GAP_S = nsn
1292 ENDIF
1293 intbuf_tab(nin)%S_STFM = nrtm
1294 intbuf_tab(nin)%S_CAND_P = multimp*ncont
1295 intbuf_tab(nin)%S_XSAV = 3*min(numn,nsn+nmn)
1296 intbuf_tab(nin)%S_CRIT = 12
1297 IF (mfrot/=0)intbuf_tab(nin)%S_FRIC_P = 10
1298 intbuf_tab(nin)%S_XFILTR = 1
1299 intbuf_tab(nin)%S_FTSAVX = multimp*ncont
1300 intbuf_tab(nin)%S_FTSAVY = multimp*ncont
1301 intbuf_tab(nin)%S_FTSAVZ = multimp*ncont
1302
1303C=======================================================================
1304 ELSEIF (ityp == 24) THEN
1305C=======================================================================
1306 iedge4 = ipari(59,nin)
1307C---- size integers arrays
1308 intbuf_tab(nin)%S_NSV = nsn
1309 intbuf_tab(nin)%S_MSR = nmn
1310 intbuf_tab(nin)%S_I_STOK = 1
1311 intbuf_tab(nin)%S_IRECTS = 4*nrts
1312 intbuf_tab(nin)%S_IRECTM = 4*nrtm
1313 intbuf_tab(nin)%S_CAND_E = multimp*ncont
1314 intbuf_tab(nin)%S_CAND_N = multimp*ncont
1315 intbuf_tab(nin)%S_IRTLM = 2*nsn
1316 intbuf_tab(nin)%S_MVOISIN = 4*nrtm
1317 intbuf_tab(nin)%S_NVOISIN = 8*nrtm
1318 intbuf_tab(nin)%S_MSEGLO = nrtm
1319 intbuf_tab(nin)%S_MSEGTYP24= nrtm
1320 IF(intth > 0 ) THEN
1321 intbuf_tab(nin)%S_IELES = nrtm
1322 intbuf_tab(nin)%S_IELEC = nsn
1323 ENDIF
1324 IF (nisub /= 0) THEN
1325 intbuf_tab(nin)%S_LISUB = nisub
1326 intbuf_tab(nin)%S_TYPSUB = nisub
1327 intbuf_tab(nin)%S_ADDSUBS = nsn+1
1328 intbuf_tab(nin)%S_ADDSUBM = nrtm+1
1329 intbuf_tab(nin)%S_LISUBS = nisubs
1330 intbuf_tab(nin)%S_LISUBM = nisubm
1331 intbuf_tab(nin)%S_INFLG_SUBS = nisubs
1332 intbuf_tab(nin)%S_INFLG_SUBM = nisubm
1333 ENDIF
1334 IF (flagremnode == 2 ) THEN
1335 intbuf_tab(nin)%S_KREMNODE = 2*(nrtm + 1)
1336 intbuf_tab(nin)%S_REMNODE = nremnode
1337 ENDIF
1338 IF (iedge4 > 0) THEN
1339 intbuf_tab(nin)%S_IRTSE = 5*nrtse
1340 intbuf_tab(nin)%S_IS2SE = 2*nsne
1341 intbuf_tab(nin)%S_IS2PT = nsne
1342 intbuf_tab(nin)%S_ISPT2 = nsn
1343 intbuf_tab(nin)%S_ISEGPT = nsn
1344 intbuf_tab(nin)%S_IS2ID = nsne
1345 ENDIF
1346 IF (iedge > 0) THEN
1347 intbuf_tab(nin)%S_NBINFLG = nsn
1348 intbuf_tab(nin)%S_MBINFLG = nrtm
1349 intbuf_tab(nin)%S_ISEADD = nsn
1350 intbuf_tab(nin)%S_ISEDGE = l24add
1351 intbuf_tab(nin)%S_CAND_T = multimp * ncont
1352 ELSEIF (ilev == 2) THEN
1353 intbuf_tab(nin)%S_NBINFLG = nsn
1354 intbuf_tab(nin)%S_MBINFLG = nrtm
1355 ENDIF
1356 !TYPE24+XFEM
1357 IF(intply > 0)THEN
1358 intbuf_tab(nin)%S_ISEG_PXFEM = nrtm
1359 intbuf_tab(nin)%S_ISEG_PLY = 12*nrtm
1360 ENDIF
1361
1362C---- size real arrays
1363 intbuf_tab(nin)%S_STFAC = 1
1364 intbuf_tab(nin)%S_VARIABLES = nparir
1365 intbuf_tab(nin)%S_STFNS = nsn
1366 IF(igap > 0)THEN
1367 intbuf_tab(nin)%S_GAP_M = nrtm
1368 intbuf_tab(nin)%S_GAP_S = nsn
1369 ENDIF
1370 intbuf_tab(nin)%S_STFM = nrtm
1371 intbuf_tab(nin)%S_XSAV = 3*min(numn,nsn+nmn)
1372 intbuf_tab(nin)%S_GAPN_M = nmn
1373 intbuf_tab(nin)%S_CRIT = 12
1374 IF (mfrot/=0)intbuf_tab(nin)%S_FRIC_P = 10
1375 IF (ifq/=0) intbuf_tab(nin)%S_XFILTR = 1
1376 intbuf_tab(nin)%S_SECND_FR = 6*nsn
1377 IF (intth > 0 )intbuf_tab(nin)%S_AREAS = nsn
1378 intbuf_tab(nin)%S_PENE_OLD = 5*nsn
1379 intbuf_tab(nin)%S_STIF_OLD = 2*nsn
1380 intbuf_tab(nin)%S_TIME_S = nsn
1381 intbuf_tab(nin)%S_GAP_NM = 12*nrtm
1382 IF(iedge > 0 ) intbuf_tab(nin)%S_EDGE8L2 = nsn
1383 IF(nsne > 0 ) THEN
1384 intbuf_tab(nin)%S_XFIC = 3*nsne
1385 intbuf_tab(nin)%S_VFIC = 3*nsne
1386 intbuf_tab(nin)%S_MSFIC = nsne
1387 END IF
1388 IF(intkg > 0 ) THEN
1389 intbuf_tab(nin)%S_NOD_2RY_LGTH = nsn
1390 intbuf_tab(nin)%S_NOD_MAS_LGTH = nmn
1391 ENDIF
1392 IF(intply > 0)THEN
1393 intbuf_tab(nin)%S_GAP_N0 = 12*nrtm
1394 intbuf_tab(nin)%S_DGAP_NM = 4*nrtm
1395 intbuf_tab(nin)%S_DGAP_M = nrtm
1396 intbuf_tab(nin)%S_DELTA_PMAX_DGAP = 1
1397 ENDIF
1398 intbuf_tab(nin)%S_ICONT_I = nsn
1399
1400 IF (intfric/=0) THEN
1401 intbuf_tab(nin)%S_IPARTFRICS = nsn
1402 intbuf_tab(nin)%S_IPARTFRICM = nrtm
1403 IF(intbuf_fric_tab(intfric)%IORTHFRIC >0) THEN
1404 intbuf_tab(nin)%S_IREP_FRICM = nrtm
1405 intbuf_tab(nin)%S_DIR_FRICM = 2*nrtm
1406 ENDIF
1407 ENDIF
1408
1409 IF(intnitsche > 0 ) THEN
1410 intbuf_tab(nin)%S_IELNRTS = nrts
1411 intbuf_tab(nin)%S_ADRECTS = 4*nrts
1412 intbuf_tab(nin)%S_FACNRTS = nrts
1413 ENDIF
1414
1415! Stiffness based on mass and time step
1416 IF(istif_msdt > 0) THEN
1417 intbuf_tab(nin)%S_STIFMSDT_S = nsn
1418 intbuf_tab(nin)%S_STIFMSDT_M = nrtm
1419 ENDIF
1420
1421
1422C=======================================================================
1423 ELSEIF (ityp == 25) THEN
1424C=======================================================================
1425C---- size integers arrays
1426 intbuf_tab(nin)%S_NSV = nsn
1427 intbuf_tab(nin)%S_MSR = nmn
1428 intbuf_tab(nin)%S_I_STOK = 3
1429 IF(iedge/=0) intbuf_tab(nin)%S_I_STOK_E = 2
1430 intbuf_tab(nin)%S_IRECTS = 4*nrts
1431 intbuf_tab(nin)%S_IRECTM = 4*nrtm
1432 intbuf_tab(nin)%S_CAND_E = multimp*ncont
1433 intbuf_tab(nin)%S_CAND_N = multimp*ncont
1434 intbuf_tab(nin)%S_IRTLM = 4*nsn
1435 intbuf_tab(nin)%S_MVOISIN = 4*nrtm
1436 intbuf_tab(nin)%S_NVOISIN = 0
1437 intbuf_tab(nin)%S_EVOISIN = 4*nrtm
1438 intbuf_tab(nin)%S_MSEGLO = nrtm
1439 intbuf_tab(nin)%S_MSEGTYP24= nrtm
1440 IF(intth > 0 ) THEN
1441 intbuf_tab(nin)%S_IELEM = nrtm
1442 intbuf_tab(nin)%S_IELES = nsn
1443 ENDIF
1444 IF (nisub /= 0) THEN
1445 intbuf_tab(nin)%S_LISUB = nisub
1446 intbuf_tab(nin)%S_TYPSUB = nisub
1447 intbuf_tab(nin)%S_ADDSUBS = nsn+1
1448 intbuf_tab(nin)%S_ADDSUBM = nrtm+1
1449 intbuf_tab(nin)%S_LISUBS = nisubs
1450 intbuf_tab(nin)%S_LISUBM = nisubm
1451 intbuf_tab(nin)%S_INFLG_SUBS = nisubs
1452 intbuf_tab(nin)%S_INFLG_SUBM = nisubm
1453 IF (iedge /= 0) THEN
1454 intbuf_tab(nin)%S_ADDSUBE = nedge+1
1455 intbuf_tab(nin)%S_LISUBE = nisube
1456 intbuf_tab(nin)%S_INFLG_SUBE = nisube
1457 ENDIF
1458 ENDIF
1459
1460 IF (flagremnode == 2 ) THEN
1461 intbuf_tab(nin)%S_KREMNODE = 2*(nrtm + 1)
1462 intbuf_tab(nin)%S_REMNODE = nremnode
1463c
1464 intbuf_tab(nin)%S_KREMNOR = nsn + 1
1465 intbuf_tab(nin)%S_REMNOR = nremnor
1466 ENDIF
1467 IF (ilev == 2) THEN
1468C ilev=1: SURFACE1; 2: SURFACE1/SURFACE2; 3: NODE/SURFACE
1469 intbuf_tab(nin)%S_NBINFLG = nsn
1470 intbuf_tab(nin)%S_MBINFLG = nrtm
1471 IF (iedge /= 0) THEN
1472 intbuf_tab(nin)%S_EBINFLG = nedge
1473 ENDIF
1474 ENDIF
1475 IF(iedge/=0)THEN
1476 multimpe=ipari(87,nin)
1477 multimps=ipari(89,nin)
1478 nconte =ipari(88,nin)
1479 intbuf_tab(nin)%S_CANDM_E2E = multimpe*nconte
1480 intbuf_tab(nin)%S_CANDS_E2E = multimpe*nconte
1481 intbuf_tab(nin)%S_CAND_P = multimpe*nconte
1482C IF(INACTI==5) INTBUF_TAB(NIN)%S_CAND_P = MULTIMPE*NCONTE
1483C WRITE(6,*) NCONTE
1484C WRITE(6,*) __FILE__,NIN," S_CAND_P",INTBUF_TAB(NIN)%S_CAND_P
1485
1486 nconte =ipari(88,nin)
1487 intbuf_tab(nin)%S_CANDM_E2S = multimps*nconte
1488 intbuf_tab(nin)%S_CANDS_E2S = multimps*nconte
1489 intbuf_tab(nin)%S_CAND_PS = 4*multimps*nconte
1490C WRITE(6,*) __FILE__,NIN," S_CAND_PS",INTBUF_TAB(NIN)%S_CAND_PS
1491C IF(INACTI==5) INTBUF_TAB(NIN)%S_CAND_PS = 4*MULTIMPS*NCONTE
1492 intbuf_tab(nin)%S_FTSAVX_E = multimpe*nconte
1493 intbuf_tab(nin)%S_FTSAVY_E = multimpe*nconte
1494 intbuf_tab(nin)%S_FTSAVZ_E = multimpe*nconte
1495 intbuf_tab(nin)%S_FTSAVX_E2S = 4*multimps*nconte
1496 intbuf_tab(nin)%S_FTSAVY_E2S = 4*multimps*nconte
1497 intbuf_tab(nin)%S_FTSAVZ_E2S = 4*multimps*nconte
1498 IF (ifq /= 0)intbuf_tab(nin)%S_IFPEN_E = multimpe*nconte
1499 IF (ifq /= 0)intbuf_tab(nin)%S_IFPEN_E2S = multimps*nconte
1500 ELSE
1501 intbuf_tab(nin)%S_CANDM_E2E = 0
1502 intbuf_tab(nin)%S_CANDS_E2E = 0
1503 intbuf_tab(nin)%S_CAND_P = 0
1504 intbuf_tab(nin)%S_CANDM_E2S = 0
1505 intbuf_tab(nin)%S_CANDS_E2S = 0
1506 intbuf_tab(nin)%S_CAND_PS = 0
1507 intbuf_tab(nin)%S_FTSAVX_E = 0
1508 intbuf_tab(nin)%S_FTSAVY_E = 0
1509 intbuf_tab(nin)%S_FTSAVZ_E = 0
1510 intbuf_tab(nin)%S_FTSAVX_E2S = 0
1511 intbuf_tab(nin)%S_FTSAVY_E2S = 0
1512 intbuf_tab(nin)%S_FTSAVZ_E2S = 0
1513 intbuf_tab(nin)%S_IFPEN_E = 0
1514 intbuf_tab(nin)%S_IFPEN_E2S = 0
1515 ENDIF
1516 intbuf_tab(nin)%S_GAPE = nedge
1517 IF(igap==3) intbuf_tab(nin)%S_GAP_E_L = nedge
1518 intbuf_tab(nin)%S_STFE = nedge
1519 intbuf_tab(nin)%S_ADMSR = 4*nrtm
1520 intbuf_tab(nin)%S_LEDGE = nledge*nedge
1521 intbuf_tab(nin)%S_LBOUND = nadmsr
1522 intbuf_tab(nin)%S_ACTNOR = nrtm
1523 intbuf_tab(nin)%S_FARM = 4*multimp*ncont
1524 intbuf_tab(nin)%S_ADSKYN = nadmsr+1
1525 intbuf_tab(nin)%S_IADNOR = 4*nrtm
1526 intbuf_tab(nin)%S_ISLIDE = 4*nsn
1527 intbuf_tab(nin)%S_KNOR2MSR = nadmsr+1
1528 intbuf_tab(nin)%S_NOR2MSR = 4*nrtm
1529 intbuf_tab(nin)%S_CAND_OPT_N= multimp*ncont
1530 intbuf_tab(nin)%S_CAND_OPT_E= multimp*ncont
1531 IF (ivis2==-1) THEN
1532 intbuf_tab(nin)%S_IF_ADH = nsn
1533 ENDIF
1534 intbuf_tab(nin)%S_CANDL_MAX = 0
1535 intbuf_tab(nin)%S_CANDS_MAX = 0
1536C---- size real arrays
1537 intbuf_tab(nin)%S_STFAC = 1
1538 intbuf_tab(nin)%S_VARIABLES = nparir
1539 intbuf_tab(nin)%S_STFNS = nsn
1540 IF(igap > 0)THEN
1541 intbuf_tab(nin)%S_GAP_M = nrtm
1542 intbuf_tab(nin)%S_GAP_S = nsn
1543 ENDIF
1544 IF (igap == 3 ) THEN
1545 intbuf_tab(nin)%S_GAP_ML = nrtm
1546 intbuf_tab(nin)%S_GAP_SL = nsn
1547 ENDIF
1548 intbuf_tab(nin)%S_STFM = nrtm
1549 intbuf_tab(nin)%S_XSAV = 3*min(numn,nsn+nmn)
1550 intbuf_tab(nin)%S_GAPN_M = nmn
1551 intbuf_tab(nin)%S_CRIT = 12
1552 IF (mfrot/=0)intbuf_tab(nin)%S_FRIC_P = 10
1553 IF (ifq/=0) intbuf_tab(nin)%S_XFILTR = 1
1554 intbuf_tab(nin)%S_SECND_FR = 6*nsn
1555 IF (intth > 0 .OR.ivis2 == -1)intbuf_tab(nin)%S_AREAS = nsn
1556 intbuf_tab(nin)%S_PENE_OLD = 5*nsn
1557 intbuf_tab(nin)%S_STIF_OLD = 2*nsn
1558 intbuf_tab(nin)%S_TIME_S = 2*nsn
1559 intbuf_tab(nin)%S_GAP_NM = 4*nrtm
1560 intbuf_tab(nin)%S_ICONT_I = nsn
1561 intbuf_tab(nin)%S_PENM = 4*multimp*ncont
1562 intbuf_tab(nin)%S_DISTM = multimp*ncont
1563 intbuf_tab(nin)%S_LBM = 4*multimp*ncont
1564 intbuf_tab(nin)%S_LCM = 4*multimp*ncont
1565 intbuf_tab(nin)%S_VTX_BISECTOR = 2*3*nadmsr
1566 intbuf_tab(nin)%S_EDGE_BISECTOR = 12*nrtm
1567 IF(iedge/=0)intbuf_tab(nin)%S_E2S_NOD_NORMAL = 3*nadmsr
1568 IF(iedge/=0)intbuf_tab(nin)%S_E2S_ACTNOR = nadmsr
1569
1570 IF (intfric/=0) THEN
1571 intbuf_tab(nin)%S_IPARTFRICS = nsn
1572 intbuf_tab(nin)%S_IPARTFRICM = nrtm
1573 IF(intbuf_fric_tab(intfric)%IORTHFRIC >0) THEN
1574 intbuf_tab(nin)%S_IREP_FRICM = nrtm
1575 intbuf_tab(nin)%S_DIR_FRICM = 2*nrtm
1576 ENDIF
1577 IF (iedge /= 0 )intbuf_tab(nin)%S_IPARTFRIC_E = nedge
1578 ENDIF
1579
1580 IF(ithk==1) intbuf_tab(nin)%S_GAPMSAV = nrtm
1581
1582 IF (flagremnode == 2 .AND.iedge/=0 ) THEN
1583 intbuf_tab(nin)%S_KREMNODE_EDG = 2*(nedge + 1)
1584 intbuf_tab(nin)%S_REMNODE_EDG = nremnode_edg
1585
1586 intbuf_tab(nin)%S_KREMNODE_E2S = 2*(nrtm + 1)
1587 intbuf_tab(nin)%S_REMNODE_E2S = nremnode_e2s
1588 ENDIF
1589! Stiffness based on mass and time step
1590 IF(istif_msdt > 0) THEN
1591 intbuf_tab(nin)%S_STIFMSDT_S = nsn
1592 intbuf_tab(nin)%S_STIFMSDT_M = nrtm
1593 IF(iedge/=0) THEN
1594 intbuf_tab(nin)%S_STIFMSDT_EDG = nedge
1595 ENDIF
1596 ENDIF
1597! Erosion for solids
1598 intbuf_tab(nin)%S_IELEM_M = 2*nrtm
1599 intbuf_tab(nin)%S_PROC_MVOISIN = 4*nrtm
1600
1601 ENDIF !END ALL INTERFACE TYPES
1602
1603C=======================================================================
1604c ALLOCATIONS
1605C=======================================================================
1606 !need to allocate only once at first passage in lectur for
1607 !global structure INTBUF_TAB (FLAG==1),
1608 !no allocation at second passage in ddsplit for local INTBUF_TAB_L (FLAG==2)
1609
1610 IF(flag_allocate == 1)THEN
1611C=======================================================================
1612c ALLOCATE INTEGER ARRAYS
1613C=======================================================================
1614C
1615 CALL my_alloc(intbuf_tab(nin)%IRECTS,intbuf_tab(nin)%S_IRECTS) !KD(10)
1616 intbuf_tab(nin)%IRECTS(1:intbuf_tab(nin)%S_IRECTS) = 0 !int11
1617 CALL my_alloc(intbuf_tab(nin)%IRECTM,intbuf_tab(nin)%S_IRECTM) !KD(11)
1618 intbuf_tab(nin)%IRECTM(1:intbuf_tab(nin)%S_IRECTM) = 0 !int11
1619 CALL my_alloc(intbuf_tab(nin)%NSV,intbuf_tab(nin)%S_NSV) !KD(12)
1620 intbuf_tab(nin)%NSV(1:intbuf_tab(nin)%S_NSV) = 0
1621 CALL my_alloc(intbuf_tab(nin)%MSR,intbuf_tab(nin)%S_MSR) !KD(13)
1622 intbuf_tab(nin)%MSR(1:intbuf_tab(nin)%S_MSR) = 0
1623 CALL my_alloc(intbuf_tab(nin)%IRTLM,intbuf_tab(nin)%S_IRTLM) !KD(14)
1624 intbuf_tab(nin)%IRTLM(1:intbuf_tab(nin)%S_IRTLM) = 0
1625 CALL my_alloc(intbuf_tab(nin)%IRUPT,intbuf_tab(nin)%S_IRUPT) !KD(16)
1626 intbuf_tab(nin)%IRUPT(1:intbuf_tab(nin)%S_IRUPT) = 0
1627 CALL my_alloc(intbuf_tab(nin)%INORM,intbuf_tab(nin)%S_INORM) !KD(17)
1628 intbuf_tab(nin)%INORM(1:intbuf_tab(nin)%S_INORM) = 0
1629 CALL my_alloc(intbuf_tab(nin)%IELEC,intbuf_tab(nin)%S_IELEC) !KD(25)
1630 intbuf_tab(nin)%IELEC(1:intbuf_tab(nin)%S_IELEC) = 0
1631 CALL my_alloc(intbuf_tab(nin)%IELES,intbuf_tab(nin)%S_IELES) !KD(24)
1632 intbuf_tab(nin)%IELES(1:intbuf_tab(nin)%S_IELES) = 0
1633 CALL my_alloc(intbuf_tab(nin)%LISUB,intbuf_tab(nin)%S_LISUB) !KD(28)
1634 CALL my_alloc(intbuf_tab(nin)%TYPSUB,intbuf_tab(nin)%S_TYPSUB)
1635 intbuf_tab(nin)%TYPSUB(1:intbuf_tab(nin)%S_TYPSUB) = 0
1636 CALL my_alloc(intbuf_tab(nin)%ADDSUBS,intbuf_tab(nin)%S_ADDSUBS) !KD(29)
1637 intbuf_tab(nin)%ADDSUBS(1:intbuf_tab(nin)%S_ADDSUBS) = 0
1638 CALL my_alloc(intbuf_tab(nin)%ADDSUBM,intbuf_tab(nin)%S_ADDSUBM) !KD(30)
1639 intbuf_tab(nin)%ADDSUBM(1:intbuf_tab(nin)%S_ADDSUBM) = 0
1640 CALL my_alloc(intbuf_tab(nin)%LISUBS,intbuf_tab(nin)%S_LISUBS) !KD(31)
1641 intbuf_tab(nin)%LISUBS(1:intbuf_tab(nin)%S_LISUBS) = 0
1642 CALL my_alloc(intbuf_tab(nin)%LISUBM,intbuf_tab(nin)%S_LISUBM) !KD(32)
1643 intbuf_tab(nin)%LISUBM(1:intbuf_tab(nin)%S_LISUBM) = 0
1644 CALL my_alloc(intbuf_tab(nin)%INFLG_SUBS,intbuf_tab(nin)%S_INFLG_SUBS)
1645 intbuf_tab(nin)%INFLG_SUBS(1:intbuf_tab(nin)%S_INFLG_SUBS) = 0
1646 CALL my_alloc(intbuf_tab(nin)%INFLG_SUBM,intbuf_tab(nin)%S_INFLG_SUBM)
1647 intbuf_tab(nin)%INFLG_SUBM(1:intbuf_tab(nin)%S_INFLG_SUBM) = 0
1648 CALL my_alloc(intbuf_tab(nin)%ADDSUBE,intbuf_tab(nin)%S_ADDSUBE)
1649 intbuf_tab(nin)%ADDSUBE(1:intbuf_tab(nin)%S_ADDSUBE) = 0
1650 CALL my_alloc(intbuf_tab(nin)%LISUBE,intbuf_tab(nin)%S_LISUBE)
1651 intbuf_tab(nin)%LISUBE(1:intbuf_tab(nin)%S_LISUBE) = 0
1652 CALL my_alloc(intbuf_tab(nin)%INFLG_SUBE,intbuf_tab(nin)%S_INFLG_SUBE)
1653 intbuf_tab(nin)%INFLG_SUBE(1:intbuf_tab(nin)%S_INFLG_SUBE) = 0
1654 CALL my_alloc(intbuf_tab(nin)%MSEGTYP,intbuf_tab(nin)%S_MSEGTYP)!KD(48)
1655 intbuf_tab(nin)%MSEGTYP(1:intbuf_tab(nin)%S_MSEGTYP) = 0
1656 CALL my_alloc(intbuf_tab(nin)%CAND_E,intbuf_tab(nin)%S_CAND_E) !KD(14)
1657 intbuf_tab(nin)%CAND_E(1:intbuf_tab(nin)%S_CAND_E) = 0 !type16
1658 CALL my_alloc(intbuf_tab(nin)%CAND_N,intbuf_tab(nin)%S_CAND_N) !KD(15)
1659 intbuf_tab(nin)%CAND_N(1:intbuf_tab(nin)%S_CAND_N) = 0 !type16
1660 CALL my_alloc(intbuf_tab(nin)%I_STOK,intbuf_tab(nin)%S_I_STOK) !KD(1)
1661 IF(intbuf_tab(nin)%S_I_STOK>0)intbuf_tab(nin)%I_STOK(1:intbuf_tab(nin)%S_I_STOK) = 0 !inter NE 7
1662 CALL my_alloc(intbuf_tab(nin)%I_STOK_E,intbuf_tab(nin)%S_I_STOK_E) !KD(2)
1663 IF(intbuf_tab(nin)%S_I_STOK_E>0)intbuf_tab(nin)%I_STOK_E(1) = 0 !inter NE 7
1664 CALL my_alloc(intbuf_tab(nin)%IFPEN,intbuf_tab(nin)%S_IFPEN) !KD(27)
1665 intbuf_tab(nin)%IFPEN(1:intbuf_tab(nin)%S_IFPEN) = 0 !int7 itrc
1666 CALL my_alloc(intbuf_tab(nin)%IFPEN_E,intbuf_tab(nin)%S_IFPEN_E)
1667 intbuf_tab(nin)%IFPEN_E(1:intbuf_tab(nin)%S_IFPEN_E) = 0 !int25 E2E
1668 CALL my_alloc(intbuf_tab(nin)%IFPEN_E2S,intbuf_tab(nin)%S_IFPEN_E2S)
1669 intbuf_tab(nin)%IFPEN_E2S(1:intbuf_tab(nin)%S_IFPEN_E2S) = 0 !int25 E2E
1670 CALL my_alloc(intbuf_tab(nin)%KREMNODE,intbuf_tab(nin)%S_KREMNODE) !KD(49)
1671 intbuf_tab(nin)%KREMNODE(1:intbuf_tab(nin)%S_KREMNODE) = 0 !
1672 CALL my_alloc(intbuf_tab(nin)%REMNODE,intbuf_tab(nin)%S_REMNODE) !KD(50)
1673 intbuf_tab(nin)%REMNODE(1:intbuf_tab(nin)%S_REMNODE) = 0 !
1674 CALL my_alloc(intbuf_tab(nin)%KREMNOR,intbuf_tab(nin)%S_KREMNOR)
1675 intbuf_tab(nin)%KREMNOR(1:intbuf_tab(nin)%S_KREMNOR) = 0 !
1676 CALL my_alloc(intbuf_tab(nin)%REMNOR,intbuf_tab(nin)%S_REMNOR)
1677 intbuf_tab(nin)%REMNOR(1:intbuf_tab(nin)%S_REMNOR) = 0 !
1678 CALL my_alloc(intbuf_tab(nin)%KREMNODE_EDG,intbuf_tab(nin)%S_KREMNODE_EDG)
1679 intbuf_tab(nin)%KREMNODE_EDG(1:intbuf_tab(nin)%S_KREMNODE_EDG) = 0 !
1680 CALL my_alloc(intbuf_tab(nin)%REMNODE_EDG,intbuf_tab(nin)%S_REMNODE_EDG)
1681 intbuf_tab(nin)%REMNODE_EDG(1:intbuf_tab(nin)%S_REMNODE_EDG) = 0 !
1682 CALL my_alloc(intbuf_tab(nin)%KREMNODE_E2S,intbuf_tab(nin)%S_KREMNODE_E2S)
1683 intbuf_tab(nin)%KREMNODE_E2S(1:intbuf_tab(nin)%S_KREMNODE_E2S) = 0 !
1684 CALL my_alloc(intbuf_tab(nin)%REMNODE_E2S,intbuf_tab(nin)%S_REMNODE_E2S)
1685 intbuf_tab(nin)%REMNODE_E2S(1:intbuf_tab(nin)%S_REMNODE_E2S) = 0 !
1686 CALL my_alloc(intbuf_tab(nin)%ADCCM,intbuf_tab(nin)%S_ADCCM) !KD(16)
1687 intbuf_tab(nin)%ADCCM(1:intbuf_tab(nin)%S_ADCCM) = 0 !
1688 CALL my_alloc(intbuf_tab(nin)%CHAIN,intbuf_tab(nin)%S_CHAIN) !KD(17)
1689 intbuf_tab(nin)%CHAIN(1:intbuf_tab(nin)%S_CHAIN) = 0 !
1690 CALL my_alloc(intbuf_tab(nin)%NIGE,intbuf_tab(nin)%S_NIGE)
1691 intbuf_tab(nin)%NIGE(1:intbuf_tab(nin)%S_NIGE) = 0 !
1692!type20
1693 CALL my_alloc(intbuf_tab(nin)%DAANC6,intbuf_tab(nin)%S_DAANC6) !kd(16)
1694 intbuf_tab(nin)%DAANC6(1:intbuf_tab(nin)%S_DAANC6) = 0
1695 CALL my_alloc(intbuf_tab(nin)%NBINFLG,intbuf_tab(nin)%S_NBINFLG) !KD(33)
1696 intbuf_tab(nin)%NBINFLG(1:intbuf_tab(nin)%S_NBINFLG) = 0 !
1697 CALL my_alloc(intbuf_tab(nin)%MBINFLG,intbuf_tab(nin)%S_MBINFLG) !KD(34)
1698 intbuf_tab(nin)%MBINFLG(1:intbuf_tab(nin)%S_MBINFLG) = 0
1699 CALL my_alloc(intbuf_tab(nin)%EBINFLG,intbuf_tab(nin)%S_EBINFLG) !KD(34)
1700 intbuf_tab(nin)%EBINFLG(1:intbuf_tab(nin)%S_EBINFLG) = 0
1701 CALL my_alloc(intbuf_tab(nin)%NLG,intbuf_tab(nin)%S_NLG) !KD(35)
1702 intbuf_tab(nin)%NLG(1:intbuf_tab(nin)%S_NLG) = 0
1703 CALL my_alloc(intbuf_tab(nin)%ISLINS,intbuf_tab(nin)%S_ISLINS) !KD(36)
1704 intbuf_tab(nin)%ISLINS(1:intbuf_tab(nin)%S_ISLINS) = 0
1705 CALL my_alloc(intbuf_tab(nin)%ISLINM,intbuf_tab(nin)%S_ISLINM) !KD(37)
1706 intbuf_tab(nin)%ISLINM(1:intbuf_tab(nin)%S_ISLINM) = 0
1707 CALL my_alloc(intbuf_tab(nin)%IXLINS,intbuf_tab(nin)%S_IXLINS) !KD(40)
1708 intbuf_tab(nin)%IXLINS(1:intbuf_tab(nin)%S_IXLINS) = 0
1709 CALL my_alloc(intbuf_tab(nin)%IXLINM,intbuf_tab(nin)%S_IXLINM) !KD(41)
1710 intbuf_tab(nin)%IXLINM(1:intbuf_tab(nin)%S_IXLINM) = 0
1711 CALL my_alloc(intbuf_tab(nin)%NSVL,intbuf_tab(nin)%S_NSVL) !KD(42)
1712 intbuf_tab(nin)%NSVL(1:intbuf_tab(nin)%S_NSVL) = 0
1713 CALL my_alloc(intbuf_tab(nin)%MSRL,intbuf_tab(nin)%S_MSRL) !KD(43)
1714 intbuf_tab(nin)%MSRL(1:intbuf_tab(nin)%S_MSRL) = 0
1715 CALL my_alloc(intbuf_tab(nin)%LCAND_N,intbuf_tab(nin)%S_LCAND_N) !KD(44)
1716 intbuf_tab(nin)%LCAND_N(1:intbuf_tab(nin)%S_LCAND_N) = 0
1717 CALL my_alloc(intbuf_tab(nin)%LCAND_S,intbuf_tab(nin)%S_LCAND_S) !KD(45)
1718 intbuf_tab(nin)%LCAND_S(1:intbuf_tab(nin)%S_LCAND_S) = 0
1719 CALL my_alloc(intbuf_tab(nin)%ADCCM20,intbuf_tab(nin)%S_ADCCM20) !KD(46)
1720 intbuf_tab(nin)%ADCCM20(1:intbuf_tab(nin)%S_ADCCM20) = 0
1721 CALL my_alloc(intbuf_tab(nin)%CHAIN20,intbuf_tab(nin)%S_CHAIN20) !KD(47)
1722 intbuf_tab(nin)%CHAIN20(1:intbuf_tab(nin)%S_CHAIN20) = 0
1723!type1
1724 CALL my_alloc(intbuf_tab(nin)%ILOCS,intbuf_tab(nin)%S_ILOCS) !KD(16)
1725 intbuf_tab(nin)%ILOCS(1:intbuf_tab(nin)%S_ILOCS) = 0
1726 CALL my_alloc(intbuf_tab(nin)%NSEGM,intbuf_tab(nin)%S_NSEGM) !KD(21)
1727 intbuf_tab(nin)%NSEGM(1:intbuf_tab(nin)%S_NSEGM) = 0
1728 CALL my_alloc(intbuf_tab(nin)%NRT,intbuf_tab(nin)%S_NRT+1) !KD(23)
1729 intbuf_tab(nin)%NRT(1:intbuf_tab(nin)%S_NRT+1) = 0
1730!type2
1731 CALL my_alloc(intbuf_tab(nin)%MSEGTYP2,intbuf_tab(nin)%S_MSEGTYP2)
1732 intbuf_tab(nin)%MSEGTYP2(1:intbuf_tab(nin)%S_MSEGTYP2) = 0
1733!type3
1734 CALL my_alloc(intbuf_tab(nin)%IRTLS,intbuf_tab(nin)%S_IRTLS) !KD(15)
1735 intbuf_tab(nin)%IRTLS(1:intbuf_tab(nin)%S_IRTLS) = 0 !invoi3
1736 CALL my_alloc(intbuf_tab(nin)%ILOCM,intbuf_tab(nin)%S_ILOCM) !KD(17)
1737 intbuf_tab(nin)%ILOCM(1:intbuf_tab(nin)%S_ILOCM) = 0 !invoi3
1738 CALL my_alloc(intbuf_tab(nin)%IRTLOM,intbuf_tab(nin)%S_IRTLOM) !KD(18)
1739 intbuf_tab(nin)%IRTLOM(1:intbuf_tab(nin)%S_IRTLOM) = 0 !invoi3
1740 CALL my_alloc(intbuf_tab(nin)%IRTLOS,intbuf_tab(nin)%S_IRTLOS) !KD(19)
1741 intbuf_tab(nin)%IRTLOS(1:intbuf_tab(nin)%S_IRTLOS) = 0 !invoi3
1742 CALL my_alloc(intbuf_tab(nin)%NSEGS,intbuf_tab(nin)%S_NSEGS) !KD(20)
1743 intbuf_tab(nin)%NSEGS(1:intbuf_tab(nin)%S_NSEGS) = 0 !invoi3
1744 CALL my_alloc(intbuf_tab(nin)%LNSV,intbuf_tab(nin)%S_LNSV) !KD(22)
1745 intbuf_tab(nin)%LNSV(1:intbuf_tab(nin)%S_LNSV) = 0 !i3sti3
1746 CALL my_alloc(intbuf_tab(nin)%LMSR,intbuf_tab(nin)%S_LMSR) !KD(23)
1747 intbuf_tab(nin)%LMSR(1:intbuf_tab(nin)%S_LMSR) = 0 !i3sti3
1748!type4
1749 CALL my_alloc(intbuf_tab(nin)%IELEM,intbuf_tab(nin)%S_IELEM) !KD(25)
1750 intbuf_tab(nin)%IELEM(1:intbuf_tab(nin)%S_IELEM) = 0
1751!type12
1752 CALL my_alloc(intbuf_tab(nin)%FCOUNT,intbuf_tab(nin)%S_FCOUNT) !KD(26)
1753 intbuf_tab(nin)%FCOUNT(1:intbuf_tab(nin)%S_FCOUNT) = 0
1754!type14
1755 CALL my_alloc(intbuf_tab(nin)%KSURF,intbuf_tab(nin)%S_KSURF) !KD(11)
1756 intbuf_tab(nin)%KSURF(1:intbuf_tab(nin)%S_KSURF) = 0
1757 CALL my_alloc(intbuf_tab(nin)%IMPACT,intbuf_tab(nin)%S_IMPACT) !KD(13)
1758 intbuf_tab(nin)%IMPACT(1:intbuf_tab(nin)%S_IMPACT) = 0
1759!type21
1760 CALL my_alloc(intbuf_tab(nin)%MSR21,intbuf_tab(nin)%S_MSR21) !KD(28)
1761 intbuf_tab(nin)%MSR21(1:intbuf_tab(nin)%S_MSR21) = 0
1762 CALL my_alloc(intbuf_tab(nin)%MNDD,intbuf_tab(nin)%S_MNDD) !KD(28)
1763 intbuf_tab(nin)%MNDD(1:intbuf_tab(nin)%S_MNDD) = 0
1764 CALL my_alloc(intbuf_tab(nin)%MSR_L,intbuf_tab(nin)%S_MSR_L) !KD(29)
1765 intbuf_tab(nin)%MSR_L(1:intbuf_tab(nin)%S_MSR_L) = 0
1766!type24
1767 CALL my_alloc(intbuf_tab(nin)%MVOISIN,intbuf_tab(nin)%S_MVOISIN) !KD(17)
1768 intbuf_tab(nin)%MVOISIN(1:intbuf_tab(nin)%S_MVOISIN) = 0
1769
1770 CALL my_alloc(intbuf_tab(nin)%NVOISIN,intbuf_tab(nin)%S_NVOISIN) !KD(18)
1771 intbuf_tab(nin)%NVOISIN(1:intbuf_tab(nin)%S_NVOISIN) = 0
1772
1773 CALL my_alloc(intbuf_tab(nin)%MSEGLO,intbuf_tab(nin)%S_MSEGLO) !KD(19)
1774 intbuf_tab(nin)%MSEGLO(1:intbuf_tab(nin)%S_MSEGLO) = 0
1775
1776 CALL my_alloc(intbuf_tab(nin)%MSEGTYP24,intbuf_tab(nin)%S_MSEGTYP24) !KD(20)
1777 intbuf_tab(nin)%MSEGTYP24(1:intbuf_tab(nin)%S_MSEGTYP24) = 0
1778
1779 CALL my_alloc(intbuf_tab(nin)%IRTSE,intbuf_tab(nin)%S_IRTSE)
1780 intbuf_tab(nin)%IRTSE(1:intbuf_tab(nin)%S_IRTSE) = 0
1781
1782 CALL my_alloc(intbuf_tab(nin)%IS2SE,intbuf_tab(nin)%S_IS2SE)
1783 intbuf_tab(nin)%IS2SE(1:intbuf_tab(nin)%S_IS2SE) = 0
1784
1785 CALL my_alloc(intbuf_tab(nin)%IS2PT,intbuf_tab(nin)%S_IS2PT)
1786 intbuf_tab(nin)%IS2PT(1:intbuf_tab(nin)%S_IS2PT) = 0
1787
1788 CALL my_alloc(intbuf_tab(nin)%ISPT2,intbuf_tab(nin)%S_ISPT2)
1789 intbuf_tab(nin)%ISPT2(1:intbuf_tab(nin)%S_ISPT2) = 0
1790
1791 CALL my_alloc(intbuf_tab(nin)%ISEGPT,intbuf_tab(nin)%S_ISEGPT)
1792 intbuf_tab(nin)%ISEGPT(1:intbuf_tab(nin)%S_ISEGPT) = 0
1793
1794 CALL my_alloc(intbuf_tab(nin)%IS2ID,intbuf_tab(nin)%S_IS2ID)
1795 ! IS2ID global ID of Fictive nodes
1796 intbuf_tab(nin)%IS2ID(1:intbuf_tab(nin)%S_IS2ID) = 0
1797C---------to be cleaned later
1798 CALL my_alloc(intbuf_tab(nin)%ISEADD,intbuf_tab(nin)%S_ISEADD) !KD(35)
1799 intbuf_tab(nin)%ISEADD(1:intbuf_tab(nin)%S_ISEADD) = 0
1800 CALL my_alloc(intbuf_tab(nin)%ISEDGE,intbuf_tab(nin)%S_ISEDGE) !KD(36)
1801 intbuf_tab(nin)%ISEDGE(1:intbuf_tab(nin)%S_ISEDGE) = 0
1802 CALL my_alloc(intbuf_tab(nin)%CAND_T,intbuf_tab(nin)%S_CAND_T) !KD(37)
1803 intbuf_tab(nin)%CAND_T(1:intbuf_tab(nin)%S_CAND_T) = 0
1804 CALL my_alloc(intbuf_tab(nin)%ISEG_PXFEM,intbuf_tab(nin)%S_ISEG_PXFEM) !KD(40)
1805 intbuf_tab(nin)%ISEG_PXFEM(1:intbuf_tab(nin)%S_ISEG_PXFEM) = 0
1806 CALL my_alloc(intbuf_tab(nin)%ISEG_PLY,intbuf_tab(nin)%S_ISEG_PLY) !KD(41)
1807 intbuf_tab(nin)%ISEG_PLY(1:intbuf_tab(nin)%S_ISEG_PLY) = 0
1808 CALL my_alloc(intbuf_tab(nin)%ICONT_I,intbuf_tab(nin)%S_ICONT_I) !KD(41)
1809 intbuf_tab(nin)%ICONT_I(1:intbuf_tab(nin)%S_ICONT_I) = 0
1810!type25
1811 CALL my_alloc(intbuf_tab(nin)%EVOISIN,intbuf_tab(nin)%S_EVOISIN)
1812 intbuf_tab(nin)%EVOISIN(1:intbuf_tab(nin)%S_EVOISIN) = 0
1813 CALL my_alloc(intbuf_tab(nin)%ADMSR,intbuf_tab(nin)%S_ADMSR)
1814 intbuf_tab(nin)%ADMSR(1:intbuf_tab(nin)%S_ADMSR) = 0
1815 CALL my_alloc(intbuf_tab(nin)%LEDGE,intbuf_tab(nin)%S_LEDGE)
1816 intbuf_tab(nin)%LEDGE(1:intbuf_tab(nin)%S_LEDGE) = 0
1817 CALL my_alloc(intbuf_tab(nin)%LBOUND,intbuf_tab(nin)%S_LBOUND)
1818 intbuf_tab(nin)%LBOUND(1:intbuf_tab(nin)%S_LBOUND) = 0
1819 CALL my_alloc(intbuf_tab(nin)%ACTNOR,intbuf_tab(nin)%S_ACTNOR)
1820 intbuf_tab(nin)%ACTNOR(1:intbuf_tab(nin)%S_ACTNOR) = 0
1821! CALL MY_ALLOC(INTBUF_TAB(NIN)%FARM,INTBUF_TAB(NIN)%S_FARM) !KD(18)
1822! INTBUF_TAB(NIN)%FARM(1:INTBUF_TAB(NIN)%S_FARM) = 0
1823 CALL my_alloc(intbuf_tab(nin)%ADSKYN,intbuf_tab(nin)%S_ADSKYN)
1824 intbuf_tab(nin)%ADSKYN(1:intbuf_tab(nin)%S_ADSKYN) = 0
1825 CALL my_alloc(intbuf_tab(nin)%IADNOR,intbuf_tab(nin)%S_IADNOR)
1826 intbuf_tab(nin)%IADNOR(1:intbuf_tab(nin)%S_IADNOR) = 0
1827 CALL my_alloc(intbuf_tab(nin)%ISLIDE,intbuf_tab(nin)%S_ISLIDE)
1828 intbuf_tab(nin)%ISLIDE(1:intbuf_tab(nin)%S_ISLIDE) = 0
1829 CALL my_alloc(intbuf_tab(nin)%KNOR2MSR,intbuf_tab(nin)%S_KNOR2MSR)
1830 intbuf_tab(nin)%KNOR2MSR(1:intbuf_tab(nin)%S_KNOR2MSR) = 0
1831 CALL my_alloc(intbuf_tab(nin)%NOR2MSR,intbuf_tab(nin)%S_NOR2MSR)
1832 intbuf_tab(nin)%NOR2MSR(1:intbuf_tab(nin)%S_NOR2MSR) = 0
1833 CALL my_alloc(intbuf_tab(nin)%CAND_OPT_N,intbuf_tab(nin)%S_CAND_OPT_N)
1834 intbuf_tab(nin)%CAND_OPT_N(1:intbuf_tab(nin)%S_CAND_OPT_N) = 0
1835 CALL my_alloc(intbuf_tab(nin)%CAND_OPT_E,intbuf_tab(nin)%S_CAND_OPT_E)
1836 intbuf_tab(nin)%CAND_OPT_E(1:intbuf_tab(nin)%S_CAND_OPT_E) = 0
1837 CALL my_alloc(intbuf_tab(nin)%IF_ADH,intbuf_tab(nin)%S_IF_ADH)
1838 intbuf_tab(nin)%IF_ADH(1:intbuf_tab(nin)%S_IF_ADH) = 0
1839 CALL my_alloc(intbuf_tab(nin)%CANDM_E2E,intbuf_tab(nin)%S_CANDM_E2E) !KD(44)
1840 intbuf_tab(nin)%CANDM_E2E(1:intbuf_tab(nin)%S_CANDM_E2E) = 0
1841 CALL my_alloc(intbuf_tab(nin)%CANDS_E2E,intbuf_tab(nin)%S_CANDS_E2E) !KD(44)
1842 intbuf_tab(nin)%CANDS_E2E(1:intbuf_tab(nin)%S_CANDS_E2E) = 0
1843 CALL my_alloc(intbuf_tab(nin)%CANDM_E2S,intbuf_tab(nin)%S_CANDM_E2S) !KD(44)
1844 intbuf_tab(nin)%CANDM_E2S(1:intbuf_tab(nin)%S_CANDM_E2S) = 0
1845 CALL my_alloc(intbuf_tab(nin)%CANDS_E2S,intbuf_tab(nin)%S_CANDS_E2S) !KD(44)
1846 intbuf_tab(nin)%CANDS_E2S(1:intbuf_tab(nin)%S_CANDS_E2S) = 0
1847 CALL my_alloc(intbuf_tab(nin)%IELEM_M,intbuf_tab(nin)%S_IELEM_M)
1848 intbuf_tab(nin)%IELEM_M(1:intbuf_tab(nin)%S_IELEM_M) = 0
1849 CALL my_alloc(intbuf_tab(nin)%PROC_MVOISIN,intbuf_tab(nin)%S_PROC_MVOISIN)
1850 intbuf_tab(nin)%PROC_MVOISIN(1:intbuf_tab(nin)%S_PROC_MVOISIN) = 0
1851!type7 11 19 24 25 : friction parts
1852 CALL my_alloc(intbuf_tab(nin)%IPARTFRICS,intbuf_tab(nin)%S_IPARTFRICS)
1853 intbuf_tab(nin)%IPARTFRICS(1:intbuf_tab(nin)%S_IPARTFRICS) = 0
1854 CALL my_alloc(intbuf_tab(nin)%IPARTFRICM,intbuf_tab(nin)%S_IPARTFRICM)
1855 intbuf_tab(nin)%IPARTFRICM(1:intbuf_tab(nin)%S_IPARTFRICM) = 0
1856 CALL my_alloc(intbuf_tab(nin)%IREP_FRICM,intbuf_tab(nin)%S_IREP_FRICM)
1857 intbuf_tab(nin)%IREP_FRICM(1:intbuf_tab(nin)%S_IREP_FRICM) = 0
1858 CALL my_alloc(intbuf_tab(nin)%IPARTFRIC_E,intbuf_tab(nin)%S_IPARTFRIC_E)
1859 intbuf_tab(nin)%IPARTFRIC_E(1:intbuf_tab(nin)%S_IPARTFRIC_E) = 0
1860!Nitsche Method
1861 CALL my_alloc(intbuf_tab(nin)%IELNRTS,intbuf_tab(nin)%S_IELNRTS)
1862 intbuf_tab(nin)%IELNRTS(1:intbuf_tab(nin)%S_IELNRTS) = 0
1863 CALL my_alloc(intbuf_tab(nin)%ADRECTS,intbuf_tab(nin)%S_ADRECTS)
1864 intbuf_tab(nin)%ADRECTS(1:intbuf_tab(nin)%S_ADRECTS) = 0
1865 CALL my_alloc(intbuf_tab(nin)%FACNRTS,intbuf_tab(nin)%S_FACNRTS)
1866 intbuf_tab(nin)%FACNRTS(1:intbuf_tab(nin)%S_FACNRTS) = 0
1867C=======================================================================
1868c ALLOCATE REAL ARRAYS
1869C=======================================================================
1870 CALL my_alloc(intbuf_tab(nin)%STFAC,intbuf_tab(nin)%S_STFAC) !JD(10)
1871 CALL my_alloc(intbuf_tab(nin)%VARIABLES,intbuf_tab(nin)%S_VARIABLES ) !JD(11)
1872 CALL my_alloc(intbuf_tab(nin)%CSTS,intbuf_tab(nin)%S_CSTS) !JD(12)
1873 intbuf_tab(nin)%CSTS(1:intbuf_tab(nin)%S_CSTS) = 0
1874 CALL my_alloc(intbuf_tab(nin)%DPARA,intbuf_tab(nin)%S_DPARA) !JD(21)
1875 intbuf_tab(nin)%DPARA(1:intbuf_tab(nin)%S_DPARA) = 0 !inint3 NTY==2.AND.ISEARCH==1
1876 CALL my_alloc(intbuf_tab(nin)%NMAS,intbuf_tab(nin)%S_NMAS) !JD(22)
1877 intbuf_tab(nin)%NMAS(1:intbuf_tab(nin)%S_NMAS) = 0 !ILEV=0
1878 CALL my_alloc(intbuf_tab(nin)%SMAS,intbuf_tab(nin)%S_SMAS) !JD(23)
1879 intbuf_tab(nin)%SMAS(1:intbuf_tab(nin)%S_SMAS) = 0 !ILEV=0
1880 CALL my_alloc(intbuf_tab(nin)%SINER,intbuf_tab(nin)%S_SINER) !JD(24)
1881 intbuf_tab(nin)%SINER(1:intbuf_tab(nin)%S_SINER) = 0 !ILEV=0
1882 CALL my_alloc(intbuf_tab(nin)%AREAS2,intbuf_tab(nin)%S_AREAS2) !JD(31)
1883 intbuf_tab(nin)%AREAS2(1:intbuf_tab(nin)%S_AREAS2) = 0 !ILEV=0
1884 CALL my_alloc(intbuf_tab(nin)%UVAR,intbuf_tab(nin)%S_UVAR) !JD(32)
1885 intbuf_tab(nin)%UVAR(1:intbuf_tab(nin)%S_UVAR) = 0
1886 CALL my_alloc(intbuf_tab(nin)%XM0,intbuf_tab(nin)%S_XM0) !JD(33)
1887 intbuf_tab(nin)%XM0(1:intbuf_tab(nin)%S_XM0) = 0
1888 CALL my_alloc(intbuf_tab(nin)%SPENALTY,intbuf_tab(nin)%S_SPENALTY) !JD(25)
1889 intbuf_tab(nin)%SPENALTY(1:intbuf_tab(nin)%S_SPENALTY) = 0
1890 CALL my_alloc(intbuf_tab(nin)%STFR_PENALTY,intbuf_tab(nin)%S_STFR_PENALTY) !JD(26)
1891 intbuf_tab(nin)%STFR_PENALTY(1:intbuf_tab(nin)%S_STFR_PENALTY) = 0
1892 CALL my_alloc(intbuf_tab(nin)%SKEW,intbuf_tab(nin)%S_SKEW) !JD(33)+ILEV25
1893 intbuf_tab(nin)%SKEW(1:intbuf_tab(nin)%S_SKEW) = 0
1894 CALL my_alloc(intbuf_tab(nin)%DSM,intbuf_tab(nin)%S_DSM) !JD(34)
1895 intbuf_tab(nin)%DSM(1:intbuf_tab(nin)%S_DSM) = 0
1896 CALL my_alloc(intbuf_tab(nin)%FSM,intbuf_tab(nin)%S_FSM) !JD(35)
1897 intbuf_tab(nin)%FSM(1:intbuf_tab(nin)%S_FSM) = 0
1898 CALL my_alloc(intbuf_tab(nin)%RUPT,intbuf_tab(nin)%S_RUPT) !JD(36)
1899 intbuf_tab(nin)%RUPT(1:intbuf_tab(nin)%S_RUPT) = 0
1900 CALL my_alloc(intbuf_tab(nin)%FINI,intbuf_tab(nin)%S_FINI) !JD(36)+ILEV25
1901 intbuf_tab(nin)%FINI(1:intbuf_tab(nin)%S_FINI) = 0
1902 CALL my_alloc(intbuf_tab(nin)%STFNS,intbuf_tab(nin)%S_STFNS ) !JD(14)
1903 intbuf_tab(nin)%STFNS(1:intbuf_tab(nin)%S_STFNS) = 0
1904 CALL my_alloc(intbuf_tab(nin)%STFM,intbuf_tab(nin)%S_STFM ) !JD(17)
1905 intbuf_tab(nin)%STFM(1:intbuf_tab(nin)%S_STFM) = 0
1906 CALL my_alloc(intbuf_tab(nin)%STFS,intbuf_tab(nin)%S_STFS ) !JD(16)
1907 intbuf_tab(nin)%STFS(1:intbuf_tab(nin)%S_STFS) = 0
1908 CALL my_alloc(intbuf_tab(nin)%PENIM,intbuf_tab(nin)%S_PENIM ) !JD(21)
1909 intbuf_tab(nin)%PENIM(1:intbuf_tab(nin)%S_PENIM) = 0
1910 CALL my_alloc(intbuf_tab(nin)%PENIS,intbuf_tab(nin)%S_PENIS ) !JD(20)
1911 intbuf_tab(nin)%PENIS(1:intbuf_tab(nin)%S_PENIS) = 0
1912 CALL my_alloc(intbuf_tab(nin)%GAP_M,intbuf_tab(nin)%S_GAP_M ) !JD(15)
1913 intbuf_tab(nin)%GAP_M(1:intbuf_tab(nin)%S_GAP_M) = 0
1914 CALL my_alloc(intbuf_tab(nin)%GAP_S,intbuf_tab(nin)%S_GAP_S ) !JD(16)
1915 intbuf_tab(nin)%GAP_S(1:intbuf_tab(nin)%S_GAP_S) = 0
1916 CALL my_alloc(intbuf_tab(nin)%XSAV,intbuf_tab(nin)%S_XSAV) !JD(19)
1917 intbuf_tab(nin)%XSAV(1:intbuf_tab(nin)%S_XSAV) = 0
1918 CALL my_alloc(intbuf_tab(nin)%CRIT,intbuf_tab(nin)%S_CRIT ) !JD(24)
1919 intbuf_tab(nin)%CRIT(1:intbuf_tab(nin)%S_CRIT) = 0 !ILEV=0
1920 CALL my_alloc(intbuf_tab(nin)%FRIC_P,intbuf_tab(nin)%S_FRIC_P) !JD(25)
1921 intbuf_tab(nin)%FRIC_P(1:intbuf_tab(nin)%S_FRIC_P) = 0
1922 CALL my_alloc(intbuf_tab(nin)%XFILTR,intbuf_tab(nin)%S_XFILTR ) !JD(26)
1923 intbuf_tab(nin)%XFILTR(1:intbuf_tab(nin)%S_XFILTR) = 0
1924 CALL my_alloc(intbuf_tab(nin)%AREAS,intbuf_tab(nin)%S_AREAS) !JD(30)
1925 intbuf_tab(nin)%AREAS(1:intbuf_tab(nin)%S_AREAS) = 0 !ilev=0
1926 CALL my_alloc(intbuf_tab(nin)%AREAM,intbuf_tab(nin)%S_AREAM)
1927 intbuf_tab(nin)%AREAM(1:intbuf_tab(nin)%S_AREAM) = 0
1928 CALL my_alloc(intbuf_tab(nin)%GAP_SL,intbuf_tab(nin)%S_GAP_SL ) !JD(31)
1929 intbuf_tab(nin)%GAP_SL(1:intbuf_tab(nin)%S_GAP_SL) = 0
1930 CALL my_alloc(intbuf_tab(nin)%GAP_ML,intbuf_tab(nin)%S_GAP_ML ) !JD(32)
1931 intbuf_tab(nin)%GAP_ML(1:intbuf_tab(nin)%S_GAP_ML) = 0
1932 CALL my_alloc(intbuf_tab(nin)%CAND_P,intbuf_tab(nin)%S_CAND_P ) !JD(18)
1933 intbuf_tab(nin)%CAND_P(1:intbuf_tab(nin)%S_CAND_P) = 0
1934
1935 CALL my_alloc(intbuf_tab(nin)%FTSAVX,intbuf_tab(nin)%S_FTSAVX ) !JD(27)
1936 intbuf_tab(nin)%FTSAVX(1:intbuf_tab(nin)%S_FTSAVX) = 0
1937 CALL my_alloc(intbuf_tab(nin)%FTSAVY,intbuf_tab(nin)%S_FTSAVY ) !JD(28)
1938 intbuf_tab(nin)%FTSAVY(1:intbuf_tab(nin)%S_FTSAVY) = 0
1939 CALL my_alloc(intbuf_tab(nin)%FTSAVZ,intbuf_tab(nin)%S_FTSAVZ ) !JD(29)
1940 intbuf_tab(nin)%FTSAVZ(1:intbuf_tab(nin)%S_FTSAVZ) = 0
1941C
1942! CALL MY_ALLOC(INTBUF_TAB(NIN)%FTSAVX_E,INTBUF_TAB(NIN)%S_FTSAVX_E )
1943! INTBUF_TAB(NIN)%FTSAVX_E(1:INTBUF_TAB(NIN)%S_FTSAVX_E) = 0
1944! CALL my_alloc(intbuf_tab(nin)%FTSAVY_E,intbuf_tab(nin)%S_FTSAVY_E )
1945! INTBUF_TAB(NIN)%FTSAVY_E(1:INTBUF_TAB(NIN)%S_FTSAVY_E) = 0
1946! CALL my_alloc(intbuf_tab(nin)%FTSAVZ_E,intbuf_tab(nin)%S_FTSAVZ _e)
1947! intbuf_tab(nin)%FTSAVZ_E(1:intbuf_tab(nin)%S_FTSAVZ_E) = 0
1948! CALL MY_ALLOC(INTBUF_TAB(NIN)%FTSAVX_E2S,INTBUF_TAB(NIN)%S_FTSAVX_E2S )
1949! INTBUF_TAB(NIN)%FTSAVX_E2S(1:INTBUF_TAB(NIN)%S_FTSAVX_E2S) = 0
1950! CALL MY_ALLOC(INTBUF_TAB(NIN)%FTSAVY_E2S,INTBUF_TAB(NIN)%S_FTSAVY_E2S )
1951! INTBUF_TAB(NIN)%FTSAVY_E2S(1:INTBUF_TAB(NIN)%S_FTSAVY_E2S) = 0
1952! CALL MY_ALLOC(INTBUF_TAB(NIN)%FTSAVZ_E2S,INTBUF_TAB(NIN)%S_FTSAVZ _E2S)
1953! INTBUF_TAB(NIN)%FTSAVZ_E2S(1:INTBUF_TAB(NIN)%S_FTSAVZ_E2S) = 0
1954C
1955 CALL my_alloc(intbuf_tab(nin)%RIGE,intbuf_tab(nin)%S_RIGE )
1956 intbuf_tab(nin)%RIGE(1:intbuf_tab(nin)%S_RIGE) = 0
1957 CALL my_alloc(intbuf_tab(nin)%XIGE,intbuf_tab(nin)%S_XIGE )
1958 intbuf_tab(nin)%XIGE(1:intbuf_tab(nin)%S_XIGE) = 0
1959 CALL my_alloc(intbuf_tab(nin)%VIGE,intbuf_tab(nin)%S_VIGE )
1960 intbuf_tab(nin)%VIGE(1:intbuf_tab(nin)%S_VIGE) = 0
1961 CALL my_alloc(intbuf_tab(nin)%MASSIGE,intbuf_tab(nin)%S_MASSIGE )
1962 intbuf_tab(nin)%MASSIGE(1:intbuf_tab(nin)%S_MASSIGE) = 0
1963!type10
1964 CALL my_alloc(intbuf_tab(nin)%CAND_F,intbuf_tab(nin)%S_CAND_F ) !JD(18)
1965 intbuf_tab(nin)%CAND_F(1:intbuf_tab(nin)%S_CAND_F) = 0
1966!type20
1967 CALL my_alloc(intbuf_tab(nin)%XA,intbuf_tab(nin)%S_XA ) !JD(12)
1968 intbuf_tab(nin)%XA(1:intbuf_tab(nin)%S_XA) = 0
1969 CALL my_alloc(intbuf_tab(nin)%VA,intbuf_tab(nin)%S_VA ) !JD(13)
1970 intbuf_tab(nin)%VA(1:intbuf_tab(nin)%S_VA) = 0
1971 CALL my_alloc(intbuf_tab(nin)%STFA,intbuf_tab(nin)%S_STFA ) !JD(14)
1972 CALL my_alloc(intbuf_tab(nin)%AVX_ANCR,intbuf_tab(nin)%S_AVX_ANCR ) !JD(22)
1973 intbuf_tab(nin)%AVX_ANCR(1:intbuf_tab(nin)%S_AVX_ANCR) = 0
1974 CALL my_alloc(intbuf_tab(nin)%GAP_SH,intbuf_tab(nin)%S_GAP_SH ) !JD(23)
1975 CALL my_alloc(intbuf_tab(nin)%CAND_FX,intbuf_tab(nin)%S_CAND_FX ) !JD(27)
1976 CALL my_alloc(intbuf_tab(nin)%CAND_FY,intbuf_tab(nin)%S_CAND_FY ) !JD(28)
1977 CALL my_alloc(intbuf_tab(nin)%CAND_FZ,intbuf_tab(nin)%S_CAND_FZ ) !JD(29)
1978 CALL my_alloc(intbuf_tab(nin)%GAP_SE,intbuf_tab(nin)%S_GAP_SE ) !JD(37)
1979 CALL my_alloc(intbuf_tab(nin)%GAP_ME,intbuf_tab(nin)%S_GAP_ME ) !JD(37)
1980 CALL my_alloc(intbuf_tab(nin)%STF,intbuf_tab(nin)%S_STF ) !JD(37)
1981 CALL my_alloc(intbuf_tab(nin)%STFNE,intbuf_tab(nin)%S_STFNE ) !JD(38)
1982 CALL my_alloc(intbuf_tab(nin)%CRITX,intbuf_tab(nin)%S_CRITX ) !JD(39)
1983 intbuf_tab(nin)%CRITX(1:intbuf_tab(nin)%S_CRITX) = 0
1984 CALL my_alloc(intbuf_tab(nin)%PENISE,intbuf_tab(nin)%S_PENISE ) !JD(40)
1985 CALL my_alloc(intbuf_tab(nin)%PENIME,intbuf_tab(nin)%S_PENIME ) !JD(41)
1986 CALL my_alloc(intbuf_tab(nin)%PENIA,intbuf_tab(nin)%S_PENIA ) !JD(42)
1987 CALL my_alloc(intbuf_tab(nin)%ALPHAK,intbuf_tab(nin)%S_ALPHAK ) !JD(43)
1988!type1
1989 CALL my_alloc(intbuf_tab(nin)%N,intbuf_tab(nin)%S_N ) !JD(20)
1990 intbuf_tab(nin)%N(1:intbuf_tab(nin)%S_N) = 0
1991
1992!type3,4,5,9
1993 CALL my_alloc(intbuf_tab(nin)%CSTM,intbuf_tab(nin)%S_CSTM ) !JD(13)
1994 intbuf_tab(nin)%CSTM(1:intbuf_tab(nin)%S_CSTM) = 0
1995 CALL my_alloc(intbuf_tab(nin)%EE,intbuf_tab(nin)%S_EE ) !JD(14)
1996 intbuf_tab(nin)%EE(1:intbuf_tab(nin)%S_EE) = 0
1997 CALL my_alloc(intbuf_tab(nin)%STFNM,intbuf_tab(nin)%S_STFNM ) !JD(15)
1998 intbuf_tab(nin)%STFNM(1:intbuf_tab(nin)%S_STFNM) = 0
1999 CALL my_alloc(intbuf_tab(nin)%FRICOS,intbuf_tab(nin)%S_FRICOS ) !JD(18)
2000 intbuf_tab(nin)%FRICOS(1:intbuf_tab(nin)%S_FRICOS) = 0
2001 CALL my_alloc(intbuf_tab(nin)%FRICOM,intbuf_tab(nin)%S_FRICOM ) !JD(19)
2002 intbuf_tab(nin)%FRICOM(1:intbuf_tab(nin)%S_FRICOM) = 0
2003 CALL my_alloc(intbuf_tab(nin)%FTSAV,intbuf_tab(nin)%S_FTSAV ) !JD(27)
2004 intbuf_tab(nin)%FTSAV(1:intbuf_tab(nin)%S_FTSAV) = 0
2005!type6
2006 CALL my_alloc(intbuf_tab(nin)%FCONT,intbuf_tab(nin)%S_FCONT ) !JD(20)
2007 intbuf_tab(nin)%FCONT(1:intbuf_tab(nin)%S_FCONT) = 0
2008 CALL my_alloc(intbuf_tab(nin)%FS,intbuf_tab(nin)%S_FS ) !JD(21)
2009 intbuf_tab(nin)%FS(1:intbuf_tab(nin)%S_FS) = 0
2010 CALL my_alloc(intbuf_tab(nin)%FM,intbuf_tab(nin)%S_FM ) !JD(22)
2011 intbuf_tab(nin)%FM(1:intbuf_tab(nin)%S_FM) = 0
2012 CALL my_alloc(intbuf_tab(nin)%RMAS,intbuf_tab(nin)%S_RMAS ) !JD(23)
2013 intbuf_tab(nin)%RMAS(1:intbuf_tab(nin)%S_RMAS) = 0
2014 CALL my_alloc(intbuf_tab(nin)%ANSMX0,intbuf_tab(nin)%S_ANSMX0 ) !JD(24)
2015 intbuf_tab(nin)%ANSMX0(1:intbuf_tab(nin)%S_ANSMX0) = 0
2016!type8
2017 CALL my_alloc(intbuf_tab(nin)%GAPN,intbuf_tab(nin)%S_GAPN) !JD(31)
2018 intbuf_tab(nin)%GAPN(1:intbuf_tab(nin)%S_GAPN) = 0
2019 CALL my_alloc(intbuf_tab(nin)%STF8,intbuf_tab(nin)%S_STF8 ) !JD(32)
2020 intbuf_tab(nin)%STF8(1:intbuf_tab(nin)%S_STF8) = 0
2021!type14
2022 CALL my_alloc(intbuf_tab(nin)%CIMP,intbuf_tab(nin)%S_CIMP) !JD(12)
2023 intbuf_tab(nin)%CIMP(1:intbuf_tab(nin)%S_CIMP) = 0
2024 CALL my_alloc(intbuf_tab(nin)%NIMP,intbuf_tab(nin)%S_NIMP ) !JD(13)
2025 intbuf_tab(nin)%NIMP(1:intbuf_tab(nin)%S_NIMP) = 0
2026!type15
2027 CALL my_alloc(intbuf_tab(nin)%IOLD,intbuf_tab(nin)%S_IOLD) !JD(12)
2028 intbuf_tab(nin)%IOLD(1:intbuf_tab(nin)%S_IOLD) = 0
2029 CALL my_alloc(intbuf_tab(nin)%HOLD,intbuf_tab(nin)%S_HOLD ) !JD(13)
2030 intbuf_tab(nin)%HOLD(1:intbuf_tab(nin)%S_HOLD) = 0
2031 CALL my_alloc(intbuf_tab(nin)%NOLD,intbuf_tab(nin)%S_NOLD) !JD(14)
2032 intbuf_tab(nin)%NOLD(1:intbuf_tab(nin)%S_NOLD) = 0
2033 CALL my_alloc(intbuf_tab(nin)%DOLD,intbuf_tab(nin)%S_DOLD ) !JD(15)
2034 intbuf_tab(nin)%DOLD(1:intbuf_tab(nin)%S_DOLD) = 0
2035!type17
2036 CALL my_alloc(intbuf_tab(nin)%KS,intbuf_tab(nin)%S_KS) !JD(16)
2037 intbuf_tab(nin)%KS(1:intbuf_tab(nin)%S_KS) = 0
2038 CALL my_alloc(intbuf_tab(nin)%KM,intbuf_tab(nin)%S_KM ) !JD(17)
2039 intbuf_tab(nin)%KM(1:intbuf_tab(nin)%S_KM) = 0
2040 CALL my_alloc(intbuf_tab(nin)%FROTS,intbuf_tab(nin)%S_FROTS) !JD(18)
2041 intbuf_tab(nin)%FROTS(1:intbuf_tab(nin)%S_FROTS) = 0
2042 CALL my_alloc(intbuf_tab(nin)%FROTM,intbuf_tab(nin)%S_FROTM ) !JD(19)
2043 intbuf_tab(nin)%FROTM(1:intbuf_tab(nin)%S_FROTM) = 0
2044!type21
2045 CALL my_alloc(intbuf_tab(nin)%NOD_NORMAL,intbuf_tab(nin)%S_NOD_NORMAL) !JD(21)
2046 intbuf_tab(nin)%NOD_NORMAL(1:intbuf_tab(nin)%S_NOD_NORMAL) = 0
2047!type21
2048 CALL my_alloc(intbuf_tab(nin)%RCURV,intbuf_tab(nin)%S_RCURV) !JD(21)
2049 intbuf_tab(nin)%RCURV(1:intbuf_tab(nin)%S_RCURV) = 0
2050 CALL my_alloc(intbuf_tab(nin)%ANGLM,intbuf_tab(nin)%S_ANGLM ) !JD(23)
2051 intbuf_tab(nin)%ANGLM(1:intbuf_tab(nin)%S_ANGLM) = 0
2052 CALL my_alloc(intbuf_tab(nin)%FROT_P,intbuf_tab(nin)%S_FROT_P) !JD(25)
2053 intbuf_tab(nin)%FROT_P(1:intbuf_tab(nin)%S_FROT_P) = 0
2054 CALL my_alloc(intbuf_tab(nin)%ALPHA0,intbuf_tab(nin)%S_ALPHA0 ) !JD(26)
2055 intbuf_tab(nin)%ALPHA0(1:intbuf_tab(nin)%S_ALPHA0) = 0
2056 CALL my_alloc(intbuf_tab(nin)%AS,intbuf_tab(nin)%S_AS ) !JD(31)
2057 intbuf_tab(nin)%AS(1:intbuf_tab(nin)%S_AS) = 0
2058 CALL my_alloc(intbuf_tab(nin)%BS,intbuf_tab(nin)%S_BS ) !JD(32)
2059 intbuf_tab(nin)%BS(1:intbuf_tab(nin)%S_BS) = 0
2060 CALL my_alloc(intbuf_tab(nin)%THKNOD0,intbuf_tab(nin)%S_THKNOD0 ) !JD(33)
2061 intbuf_tab(nin)%THKNOD0(1:intbuf_tab(nin)%S_THKNOD0) = 0
2062!type24
2063 CALL my_alloc(intbuf_tab(nin)%GAPN_M,intbuf_tab(nin)%S_GAPN_M) !JD(22)
2064 intbuf_tab(nin)%GAPN_M(1:intbuf_tab(nin)%S_GAPN_M) = 0
2065 CALL my_alloc(intbuf_tab(nin)%SECND_FR,intbuf_tab(nin)%S_SECND_FR) !JD(27)
2066 intbuf_tab(nin)%SECND_FR(1:intbuf_tab(nin)%S_SECND_FR) = 0
2067 CALL my_alloc(intbuf_tab(nin)%PENE_OLD,intbuf_tab(nin)%S_PENE_OLD ) !JD(31)
2068 intbuf_tab(nin)%PENE_OLD(1:intbuf_tab(nin)%S_PENE_OLD) = 0
2069 CALL my_alloc(intbuf_tab(nin)%STIF_OLD,intbuf_tab(nin)%S_STIF_OLD) !JD(32)
2070 intbuf_tab(nin)%STIF_OLD(1:intbuf_tab(nin)%S_STIF_OLD) = 0
2071 CALL my_alloc(intbuf_tab(nin)%TIME_S,intbuf_tab(nin)%S_TIME_S ) !JD(33)
2072 intbuf_tab(nin)%TIME_S(1:intbuf_tab(nin)%S_TIME_S) = 0
2073 CALL my_alloc(intbuf_tab(nin)%GAP_NM,intbuf_tab(nin)%S_GAP_NM ) !JD(34)
2074 intbuf_tab(nin)%GAP_NM(1:intbuf_tab(nin)%S_GAP_NM) = 0
2075C----------to be cleaned
2076 CALL my_alloc(intbuf_tab(nin)%EDGE8L2,intbuf_tab(nin)%S_EDGE8L2 ) !JD(35)
2077 intbuf_tab(nin)%EDGE8L2(1:intbuf_tab(nin)%S_EDGE8L2) = 0
2078 CALL my_alloc(intbuf_tab(nin)%XFIC,intbuf_tab(nin)%S_XFIC )
2079 intbuf_tab(nin)%XFIC(1:intbuf_tab(nin)%S_XFIC) = 0
2080 CALL my_alloc(intbuf_tab(nin)%VFIC,intbuf_tab(nin)%S_VFIC )
2081 intbuf_tab(nin)%VFIC(1:intbuf_tab(nin)%S_VFIC) = 0
2082 CALL my_alloc(intbuf_tab(nin)%MSFIC,intbuf_tab(nin)%S_MSFIC)
2083 intbuf_tab(nin)%MSFIC(1:intbuf_tab(nin)%S_MSFIC) = 0
2084 CALL my_alloc(intbuf_tab(nin)%NOD_2RY_LGTH,intbuf_tab(nin)%S_NOD_2RY_LGTH) !JD(42)
2085 intbuf_tab(nin)%NOD_2RY_LGTH(1:intbuf_tab(nin)%S_NOD_2RY_LGTH) = 0
2086 CALL my_alloc(intbuf_tab(nin)%NOD_MAS_LGTH,intbuf_tab(nin)%S_NOD_MAS_LGTH ) !JD(43)
2087 intbuf_tab(nin)%NOD_MAS_LGTH(1:intbuf_tab(nin)%S_NOD_MAS_LGTH) = 0
2088 CALL my_alloc(intbuf_tab(nin)%GAP_N0,intbuf_tab(nin)%S_GAP_N0 ) !JD(36)
2089 intbuf_tab(nin)%GAP_N0(1:intbuf_tab(nin)%S_GAP_N0) = 0
2090 CALL my_alloc(intbuf_tab(nin)%DGAP_NM,intbuf_tab(nin)%S_DGAP_NM ) !JD(37)
2091 intbuf_tab(nin)%DGAP_NM(1:intbuf_tab(nin)%S_DGAP_NM) = 0
2092 CALL my_alloc(intbuf_tab(nin)%DGAP_M,intbuf_tab(nin)%S_DGAP_M ) !JD(38)
2093 intbuf_tab(nin)%DGAP_M(1:intbuf_tab(nin)%S_DGAP_M) = 0
2094 CALL my_alloc(intbuf_tab(nin)%DELTA_PMAX_DGAP,intbuf_tab(nin)%S_DELTA_PMAX_DGAP ) !JD(39)
2095 intbuf_tab(nin)%DELTA_PMAX_DGAP(1:intbuf_tab(nin)%S_DELTA_PMAX_DGAP) = 0
2096!type25
2097! CALL MY_ALLOC(INTBUF_TAB(NIN)%EDGE_BISECTOR,INTBUF_TAB(NIN)%S_EDGE_BISECTOR)
2098! INTBUF_TAB(NIN)%EDGE_BISECTOR(1:INTBUF_TAB(NIN)%S_EDGE_BISECTOR) = 0
2099! CALL MY_ALLOC(INTBUF_TAB(NIN)%E2S_NOD_NORMAL,INTBUF_TAB(NIN)%S_E2S_NOD_NORMAL)
2100! INTBUF_TAB(NIN)%E2S_NOD_NORMAL(1:INTBUF_TAB(NIN)%S_E2S_NOD_NORMAL )= 0
2101! CALL MY_ALLOC(INTBUF_TAB(NIN)%E2S_ACTNOR,INTBUF_TAB(NIN)%S_E2S_ACTNOR)
2102! INTBUF_TAB(NIN)%E2S_ACTNOR(1:INTBUF_TAB(NIN)%S_E2S_ACTNOR )= 0
2103! CALL my_alloc(intbuf_tab(nin)%PENM,intbuf_tab(nin)%S_PENM)
2104! INTBUF_TAB(NIN)%PENM(1:INTBUF_TAB(NIN)%S_PENM) = 0
2105! CALL MY_ALLOC(INTBUF_TAB(NIN)%DISTM,INTBUF_TAB(NIN)%S_DISTM)
2106! INTBUF_TAB(NIN)%DISTM(1:INTBUF_TAB(NIN)%S_DISTM) = 0
2107! CALL MY_ALLOC(INTBUF_TAB(NIN)%LBM,INTBUF_TAB(NIN)%S_LBM)
2108! INTBUF_TAB(NIN)%LBM(1:INTBUF_TAB(NIN)%S_LBM) = 0
2109! CALL MY_ALLOC(INTBUF_TAB(NIN)%LCM,INTBUF_TAB(NIN)%S_LCM)
2110! INTBUF_TAB(NIN)%LCM(1:INTBUF_TAB(NIN)%S_LCM) = 0
2111! CALL MY_ALLOC(INTBUF_TAB(NIN)%VTX_BISECTOR,INTBUF_TAB(NIN)%S_VTX_BISECTOR)
2112! INTBUF_TAB(NIN)%VTX_BISECTOR(1:INTBUF_TAB(NIN)%S_VTX_BISECTOR) = 0
2113 CALL my_alloc(intbuf_tab(nin)%CAND_PS,intbuf_tab(nin)%S_CAND_PS ) !JD(18)
2114 intbuf_tab(nin)%CAND_PS(1:intbuf_tab(nin)%S_CAND_PS) = 0
2115 CALL my_alloc(intbuf_tab(nin)%GAPE,intbuf_tab(nin)%S_GAPE ) !JD(18)
2116 intbuf_tab(nin)%GAPE(1:intbuf_tab(nin)%S_GAPE) = 0
2117 CALL my_alloc(intbuf_tab(nin)%GAP_E_L,intbuf_tab(nin)%S_GAP_E_L ) !JD(18)
2118 intbuf_tab(nin)%GAP_E_L(1:intbuf_tab(nin)%S_GAP_E_L) = 0
2119 CALL my_alloc(intbuf_tab(nin)%STFE,intbuf_tab(nin)%S_STFE ) !JD(18)
2120 intbuf_tab(nin)%STFE(1:intbuf_tab(nin)%S_STFE) = 0
2121 CALL my_alloc(intbuf_tab(nin)%STIFMSDT_S,intbuf_tab(nin)%S_STIFMSDT_S )
2122 intbuf_tab(nin)%STIFMSDT_S(1:intbuf_tab(nin)%S_STIFMSDT_S) = 0
2123 CALL my_alloc(intbuf_tab(nin)%STIFMSDT_M,intbuf_tab(nin)%S_STIFMSDT_M )
2124 intbuf_tab(nin)%STIFMSDT_M(1:intbuf_tab(nin)%S_STIFMSDT_M) = 0
2125 CALL my_alloc(intbuf_tab(nin)%STIFMSDT_EDG,intbuf_tab(nin)%S_STIFMSDT_EDG )
2126 intbuf_tab(nin)%STIFMSDT_EDG(1:intbuf_tab(nin)%S_STIFMSDT_EDG) = 0
2127!type2
2128 CALL my_alloc(intbuf_tab(nin)%CSTS_BIS,intbuf_tab(nin)%S_CSTS_BIS)
2129 intbuf_tab(nin)%CSTS_BIS(1:intbuf_tab(nin)%S_CSTS_BIS) = 0
2130! Orthotropic Friction
2131 CALL my_alloc(intbuf_tab(nin)%DIR_FRICM,intbuf_tab(nin)%S_DIR_FRICM)
2132 intbuf_tab(nin)%DIR_FRICM(1:intbuf_tab(nin)%S_DIR_FRICM) = 0
2133! type25
2134 CALL my_alloc(intbuf_tab(nin)%GAPMSAV,intbuf_tab(nin)%S_GAPMSAV )
2135 intbuf_tab(nin)%GAPMSAV(1:intbuf_tab(nin)%S_GAPMSAV) = 0
2136 ENDIF
2137C=======================================================================
2138c END ALLOCATIONS
2139C=======================================================================
2140 ENDDO ! NIN = 1,NINTER
2141C-----
2142 RETURN
2143
2144 END SUBROUTINE intbuf_ini_starter
2145!||====================================================================
2146!|| int8_ini ../starter/source/interfaces/intbuf/intbuf_ini_starter.F
2147!||--- called by ------------------------------------------------------
2148!|| lectur ../starter/source/starter/lectur.f
2149!||--- uses -----------------------------------------------------
2150!||====================================================================
2151 SUBROUTINE int8_ini(INTBUF_TAB, IPARI, NBT8)
2152C-----------------------------------------------
2153C M o d u l e s
2154C-----------------------------------------------
2155 USE intbufdef_mod
2156C-----------------------------------------------
2157C I m p l i c i t T y p e s
2158C-----------------------------------------------
2159#include "implicit_f.inc"
2160C-----------------------------------------------
2161C C o m m o n B l o c k s
2162C-----------------------------------------------
2163#include "param_c.inc"
2164#include "com04_c.inc"
2165C-----------------------------------------------
2166C D u m m y A r g u m e n t s
2167C-----------------------------------------------
2168c my_real
2169c .
2170 INTEGER IPARI(NPARI,*),NBT8
2171 TYPE(intbuf_struct_) INTBUF_TAB(*)
2172
2173
2174C-----------------------------------------------
2175C L o c a l V a r i a b l e s
2176C-----------------------------------------------
2177 INTEGER NIN,ITYP,NSN,NMN
2178 INTEGER P,Q,I
2179C-----------------------------------------------
2180 nbt8 = 0
2181 DO nin = 1,ninter
2182 IF(ipari(7,nin) == 8) THEN
2183 nbt8 = nbt8+1
2184 ENDIF
2185 ENDDO
2186 END SUBROUTINE int8_ini
ddsplit
subroutine ddsplit(p, cep, cel, igeo, mat_elem, ipm, icode, iskew, iskn, insel, ibcslag, ipart, iparts, ipartq, ipartc, ipartt, ipartp, ipartr, iparttg, detonators, ipartx, npc, ixtg, group_param_tab, ixtg6, ixs, ixs10, ixs20, ixs16, ixq, ixc, ixt, ixp, ixr, itab, itabm1, gjbufi, nale, ale_connectivity, kxx, ixx, ibcl, ibfv, las, laccelm, nnlink, lllink, iparg, igrav, lgrav, ibvel, lbvel, iactiv, factiv, kinet, ipari, nprw, lprw, iexmad, npby, lpby, ixri, nstrf, ljoint, pornod, monvol, icontact, lagbuf, fr_iad, x, d, v, vr, dr, thke, dampr, damp, ms, in, tf, pm, skew, xframe, geo, eani, bufmat, bufgeo, bufsf, brmpc, gjbufr, w, veul, fill, dfill, wb, dsav, asav, msnf, spbuf, fac, vel, fsav, fzero, xlas, accelm, fbvel, gravfac, fr_wave, failwave, parts0, elbuf, rwl, rwsav, rby, rivet, secbuf, rvolu, rconx, nloc_dmg, fvmain, libagale, lenthg, lbufmat, lbufgeo, lbufsf, lenxlas, lnom_opt, lenlas, lenvolu, npts, cne, lcne, addcne, cni2, lcni2g, addcni2, cepi2, celi2, i2nsnt, probint, ddstat, pm1shf, dd_iad, kxsp, ixsp, nod2sp, cepsp, nthwa, nairwa, nmnt, l_mul_lag1, l_mul_lag, lwaspio, ipartsp, ispcond, pm1sph, wma, eigipm, eigibuf, eigrpm, iflow, rflow, memflow, iexlnk, fasolfr, iparth, fxbipm, fxbrpm, fxbnod, fxbmod, fxbglm, fxbcpm, fxbcps, fxblm, fxbfls, fxbdls, fxbdep, fxbvit, fxbacc, fxbelm, fxbsig, fxbgrvi, fxbgrvr, iadll, lll, ibmpc, lambda, lrbagale, iskwp, nskwp, isensp, nsensp, iaccp, naccp, ipart_state, mcp, temp, unitab, intstamp, iframe, clusters, partsav, ibft, fbft, ibcv, fconv, irbe3, lrbe3, frbe3, front_rm, rbym, irbym, lcrbym, inoise, fnoise, ms0, admsms, nom_sect, ispsym, sh4tree, sh3tree, ipadmesh, ibfflux, fbfflux, sh4trim, sh3trim, padmesh, msc, mstg, inc, intg, ptg, mcpc, mcptg, rcontact, acontact, pcontact, mscnd, incnd, mssa, mstr, msp, msrt, ibcr, fradia, dmelc, dmeltg, dmels, dmeltr, dmelp, dmelrt, res_sms, isphio, lprtsph, lonfsph, vsphio, sphveln, alph, ifill, ims, irbe2, lrbe2, ms_ply, zi_ply, inod_pxfem, iel_pxfem, icodply, iskwply, addcne_pxfem, cne_pxfem, cel_pxfem, ithvar, xdp, table, celsph, icfield, lcfield, cfield, msz2, itask, diag_sms, iloadp, lloadp, loadp, inod_crkxfem, iel_crkxfem, addcne_crkxfem, cne_crkxfem, cel_crkxfem, ibufssg_io, intercep, ibordnode, iedgesh, ibordedge, linale, nodedge, iedge, cep_crkxfem, iedge_tmp, crknodiad, elbuf_tab, nom_opt, lgauge, gauge, igaup, ngaup, nodlevxf, frontb_r2r, dflow, vflow, wflow, sph2sol, sol2sph, irst, elcutc, nodenr, kxfenod2elc, enrtag, intbuf_tab, i11flag, xfem_tab, lenthgr, rthbuf, ixig3d, kxig3d, knot, ipartig3d, wige, ncrkpart, indx_crk, crklvset, crkshell, crksky, crkavx, crkedge, sensors, stack, xfem_phantom, t8, tab_ump, poin_ump, sol2sph_typ, addcsrect, csrect, drape, loads, itagnd, icnds10, addcncnd, cepcnd, celcnd, cncnd, nativ_sms, i24maxnsne, multi_fvm, segquadfr, intbuf_fric_tab, subset, igrnod, igrbric, igrquad, igrsh4n, igrsh3n, igrtruss, igrbeam, igrspring, igrpart, igrsurf, igrslin, poin_part_shell, poin_part_tri, poin_part_sol, mid_pid_shell, mid_pid_tri, mid_pid_sol, tag_nm, nindx_nm, indx_nm, tag_scratch, nindx_scrt, indx_scrt, flag_24_25, numnod_l, tag_skn, multiple_skew, igrsurf_proc, knotlocpc, knotlocel, ale_elm, size_ale_elm, pinch_data, tag_skins6, ibcscyc, lbcscyc, t_monvol, indx_s, indx_q, indx_tg, face_elm_s, face_elm_q, face_elm_tg, nbr_th_monvol, ebcs_tab, kloadpinter, loadpinter, dgaploadint, s_loadpinter, len_cep, dynain_data, drapeg, user_windows, output, interfaces, number_load_cyl, loads_per_proc, python, dpl0cld, vel0cld, names_and_titles, bcs_per_proc, constraint_struct, glob_therm, pblast)
Definition ddsplit.F:336
int8_ini
subroutine int8_ini(intbuf_tab, ipari, nbt8)
Definition intbuf_ini_starter.F:2152
intbuf_ini_starter
subroutine intbuf_ini_starter(intbuf_tab, ipari, numn, i11flag, flag_allocate, proc, intbuf_fric_tab)
Definition intbuf_ini_starter.F:34
min
#define min(a, b)
Definition macros.h:20
message_mod
Definition message_mod.F:1249
lectur
subroutine lectur(multi_fvm, lsubmodel, is_dyna, detonators, ebcs_tab, seatbelt_converted_elements, nb_seatbelt_shells, nb_dyna_include, user_windows, output, mat_elem, names_and_titles, defaults, glob_therm, pblast, sensor_user_struct)
Definition lectur.F:533
starter
program starter
Definition starter.F:39