OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
intbuf_ini.F File Reference
#include "implicit_f.inc"
#include "param_c.inc"
#include "com04_c.inc"
#include "units_c.inc"
#include "com01_c.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine intbuf_ini (intbuf_tab)
subroutine intbuf_ini_t8 (t8)

Function/Subroutine Documentation

◆ intbuf_ini()

subroutine intbuf_ini ( type(intbuf_struct_), dimension(*) intbuf_tab)

Definition at line 38 of file intbuf_ini.F.

39C-----------------------------------------------
40C M o d u l e s
41C-----------------------------------------------
42 USE intbufdef_mod
43 USE message_mod
44C-----------------------------------------------
45C I m p l i c i t T y p e s
46C-----------------------------------------------
47#include "implicit_f.inc"
48C-----------------------------------------------
49C C o m m o n B l o c k s
50C-----------------------------------------------
51#include "param_c.inc"
52#include "com04_c.inc"
53#include "units_c.inc"
54C-----------------------------------------------
55C M y A l l o c a t e
56C-----------------------------------------------
57C-----------------------------------------------
58C D u m m y A r g u m e n t s
59C-----------------------------------------------
60 INTEGER, DIMENSION(:),ALLOCATABLE :: INTBUF_SIZE
61 TYPE(INTBUF_STRUCT_) INTBUF_TAB(*)
62C-----------------------------------------------
63C L o c a l V a r i a b l e s
64C-----------------------------------------------
65 INTEGER I,N,NI,SIZ,L_INTBUF_SIZE
66 INTEGER VAL_TEST
67C=======================================================================
68 ALLOCATE(intbuf_size(l_intbuf_size_max))
69 intbuf_size(1:l_intbuf_size_max) = 0
70
71 DO ni= 1, ninter
72
73 CALL read_i_c(l_intbuf_size,1)
74
75 ! read all arrays sizes of structure INTBUF_TAB
76 CALL read_i_c(intbuf_size,l_intbuf_size)
77
78 n = 1
79C=======================================================================
80c READ INTEGER SIZES
81C=======================================================================
82 intbuf_tab(ni)%S_IRECTS = intbuf_size(n)
83 n = n+1
84 intbuf_tab(ni)%S_IRECTM = intbuf_size(n)
85 n = n+1
86 intbuf_tab(ni)%S_NSV = intbuf_size(n)
87 n = n+1
88 intbuf_tab(ni)%S_MSR = intbuf_size(n)
89 n = n+1
90 intbuf_tab(ni)%S_IRTLM = intbuf_size(n)
91 n = n+1
92 intbuf_tab(ni)%S_IRUPT = intbuf_size(n)
93 n = n+1
94 intbuf_tab(ni)%S_INORM = intbuf_size(n)
95 n = n+1
96 intbuf_tab(ni)%S_IELEC = intbuf_size(n)
97 n = n+1
98 intbuf_tab(ni)%S_IELES = intbuf_size(n)
99 n = n+1
100 intbuf_tab(ni)%S_LISUB = intbuf_size(n)
101 n = n+1
102 intbuf_tab(ni)%S_TYPSUB = intbuf_size(n)
103 n = n+1
104 intbuf_tab(ni)%S_ADDSUBS = intbuf_size(n)
105 n = n+1
106 intbuf_tab(ni)%S_ADDSUBM = intbuf_size(n)
107 n = n+1
108 intbuf_tab(ni)%S_LISUBS = intbuf_size(n)
109 n = n+1
110 intbuf_tab(ni)%S_LISUBM = intbuf_size(n)
111 n = n+1
112 intbuf_tab(ni)%S_INFLG_SUBS = intbuf_size(n)
113 n = n+1
114 intbuf_tab(ni)%S_INFLG_SUBM = intbuf_size(n)
115 n = n+1
116 intbuf_tab(ni)%S_ADDSUBE = intbuf_size(n)
117 n = n+1
118 intbuf_tab(ni)%S_LISUBE = intbuf_size(n)
119 n = n+1
120 intbuf_tab(ni)%S_INFLG_SUBE = intbuf_size(n)
121 n = n+1
122 intbuf_tab(ni)%S_MSEGTYP = intbuf_size(n)
123 n = n+1
124 intbuf_tab(ni)%S_CAND_E = intbuf_size(n)
125 n = n+1
126 intbuf_tab(ni)%S_CAND_N = intbuf_size(n)
127 n = n+1
128 intbuf_tab(ni)%S_I_STOK = intbuf_size(n)
129 n = n+1
130 intbuf_tab(ni)%S_I_STOK_E = intbuf_size(n)
131 n = n+1
132 intbuf_tab(ni)%S_IFPEN = intbuf_size(n)
133 n = n+1
134 intbuf_tab(ni)%S_KREMNODE = intbuf_size(n)
135 n = n+1
136 intbuf_tab(ni)%S_REMNODE = intbuf_size(n)
137 n = n+1
138 intbuf_tab(ni)%S_KREMNOR = intbuf_size(n)
139 n = n+1
140 intbuf_tab(ni)%S_REMNOR = intbuf_size(n)
141 n = n+1
142 intbuf_tab(ni)%S_ADCCM = intbuf_size(n)
143 n = n+1
144 intbuf_tab(ni)%S_CHAIN = intbuf_size(n)
145 n = n+1
146 intbuf_tab(ni)%S_NIGE = intbuf_size(n)
147!type20
148 n = n+1
149 intbuf_tab(ni)%S_DAANC6 = intbuf_size(n)
150 n = n+1
151 intbuf_tab(ni)%S_NBINFLG = intbuf_size(n)
152 n = n+1
153 intbuf_tab(ni)%S_MBINFLG = intbuf_size(n)
154 n = n+1
155 intbuf_tab(ni)%S_EBINFLG = intbuf_size(n)
156 n = n+1
157 intbuf_tab(ni)%S_NLG = intbuf_size(n)
158 n = n+1
159 intbuf_tab(ni)%S_ISLINS = intbuf_size(n)
160 n = n+1
161 intbuf_tab(ni)%S_ISLINM = intbuf_size(n)
162 n = n+1
163 intbuf_tab(ni)%S_IXLINS = intbuf_size(n)
164 n = n+1
165 intbuf_tab(ni)%S_IXLINM = intbuf_size(n)
166 n = n+1
167 intbuf_tab(ni)%S_NSVL = intbuf_size(n)
168 n = n+1
169 intbuf_tab(ni)%S_MSRL = intbuf_size(n)
170 n = n+1
171 intbuf_tab(ni)%S_LCAND_N = intbuf_size(n)
172 n = n+1
173 intbuf_tab(ni)%S_LCAND_S = intbuf_size(n)
174 n = n+1
175 intbuf_tab(ni)%S_ADCCM20 = intbuf_size(n)
176 n = n+1
177 intbuf_tab(ni)%S_CHAIN20 = intbuf_size(n)
178!type1
179 n = n+1
180 intbuf_tab(ni)%S_ILOCS = intbuf_size(n)
181 n = n+1
182 intbuf_tab(ni)%S_NSEGM = intbuf_size(n)
183 n = n+1
184 intbuf_tab(ni)%S_NRT = intbuf_size(n)
185 n = n+1
186!type2
187 intbuf_tab(ni)%S_MSEGTYP2 = intbuf_size(n)
188!type3
189 n = n+1
190 intbuf_tab(ni)%S_IRTLS = intbuf_size(n)
191 n = n+1
192 intbuf_tab(ni)%S_ILOCM = intbuf_size(n)
193 n = n+1
194 intbuf_tab(ni)%S_IRTLOM = intbuf_size(n)
195 n = n+1
196 intbuf_tab(ni)%S_IRTLOS = intbuf_size(n)
197 n = n+1
198 intbuf_tab(ni)%S_NSEGS = intbuf_size(n)
199 n = n+1
200 intbuf_tab(ni)%S_LNSV = intbuf_size(n)
201 n = n+1
202 intbuf_tab(ni)%S_LMSR = intbuf_size(n)
203!type4
204 n = n+1
205 intbuf_tab(ni)%S_IELEM = intbuf_size(n)
206!type12
207 n = n+1
208 intbuf_tab(ni)%S_FCOUNT = intbuf_size(n)
209!type14
210 n = n+1
211 intbuf_tab(ni)%S_KSURF = intbuf_size(n)
212 n = n+1
213 intbuf_tab(ni)%S_IMPACT = intbuf_size(n)
214!type21
215 n = n+1
216 intbuf_tab(ni)%S_MSR21 = intbuf_size(n)
217 n = n+1
218 intbuf_tab(ni)%S_MNDD = intbuf_size(n)
219 n = n+1
220 intbuf_tab(ni)%S_MSR_L = intbuf_size(n)
221!type24
222 n = n+1
223 intbuf_tab(ni)%S_MVOISIN = intbuf_size(n)
224 n = n+1
225 intbuf_tab(ni)%S_NVOISIN = intbuf_size(n)
226!type24 & 25
227 n = n+1
228 intbuf_tab(ni)%S_MSEGLO = intbuf_size(n)
229 n = n+1
230 intbuf_tab(ni)%S_MSEGTYP24 = intbuf_size(n)
231!type24
232C---------will be cleaned after
233 n = n+1
234 intbuf_tab(ni)%S_ISEADD = intbuf_size(n)
235 n = n+1
236 intbuf_tab(ni)%S_ISEDGE = intbuf_size(n)
237 n = n+1
238 intbuf_tab(ni)%S_CAND_T = intbuf_size(n)
239 n = n+1
240 intbuf_tab(ni)%S_ISEG_PXFEM = intbuf_size(n)
241 n = n+1
242 intbuf_tab(ni)%S_ISEG_PLY = intbuf_size(n)
243 n = n+1
244 intbuf_tab(ni)%S_ICONT_I = intbuf_size(n)
245 n = n+1
246 intbuf_tab(ni)%S_IRTSE = intbuf_size(n)
247 n = n+1
248 intbuf_tab(ni)%S_IS2SE = intbuf_size(n)
249 n = n+1
250 intbuf_tab(ni)%S_IS2PT = intbuf_size(n)
251 n = n+1
252 intbuf_tab(ni)%S_ISPT2 = intbuf_size(n)
253 n = n+1
254 intbuf_tab(ni)%S_ISEGPT = intbuf_size(n)
255 n = n+1
256 intbuf_tab(ni)%S_IS2ID = intbuf_size(n)
257!type25
258 n = n+1
259 intbuf_tab(ni)%S_EVOISIN = intbuf_size(n)
260 n = n+1
261 intbuf_tab(ni)%S_ADMSR = intbuf_size(n)
262 n = n+1
263 intbuf_tab(ni)%S_LEDGE = intbuf_size(n)
264 n = n+1
265 intbuf_tab(ni)%S_LBOUND = intbuf_size(n)
266 n = n+1
267 intbuf_tab(ni)%S_ACTNOR = intbuf_size(n)
268 n = n+1
269 intbuf_tab(ni)%S_FARM = intbuf_size(n)
270 n = n+1
271 intbuf_tab(ni)%S_ADSKYN = intbuf_size(n)
272 n = n+1
273 intbuf_tab(ni)%S_IADNOR = intbuf_size(n)
274 n = n+1
275 intbuf_tab(ni)%S_ISLIDE = intbuf_size(n)
276 n = n+1
277 intbuf_tab(ni)%S_KNOR2MSR = intbuf_size(n)
278 n = n+1
279 intbuf_tab(ni)%S_NOR2MSR = intbuf_size(n)
280 n = n+1
281 intbuf_tab(ni)%S_CAND_OPT_N = intbuf_size(n)
282 n = n+1
283 intbuf_tab(ni)%S_CAND_OPT_E = intbuf_size(n)
284 n = n+1
285 intbuf_tab(ni)%S_IF_ADH = intbuf_size(n)
286 n = n+1
287 intbuf_tab(ni)%S_CANDM_E2E = intbuf_size(n)
288 n = n+1
289 intbuf_tab(ni)%S_CANDS_E2E = intbuf_size(n)
290 n = n+1
291 intbuf_tab(ni)%S_CANDM_E2S = intbuf_size(n)
292 n = n+1
293 intbuf_tab(ni)%S_CANDS_E2S = intbuf_size(n)
294 n = n+1
295 intbuf_tab(ni)%S_IFPEN_E = intbuf_size(n)
296 n = n+1
297 intbuf_tab(ni)%S_IFPEN_E2S = intbuf_size(n)
298!friction
299 n = n+1
300 intbuf_tab(ni)%S_IPARTFRICS = intbuf_size(n)
301 n = n+1
302 intbuf_tab(ni)%S_IPARTFRICM = intbuf_size(n)
303 n = n+1
304 intbuf_tab(ni)%S_IPARTFRIC_E = intbuf_size(n)
305 n = n+1
306 intbuf_tab(ni)%S_IELNRTS = intbuf_size(n)
307 n = n+1
308 intbuf_tab(ni)%S_ADRECTS = intbuf_size(n)
309 n = n+1
310 intbuf_tab(ni)%S_FACNRTS = intbuf_size(n)
311 n = n+1
312 intbuf_tab(ni)%S_IREP_FRICM = intbuf_size(n)
313 n = n+1
314 intbuf_tab(ni)%S_E2S_ACTNOR = intbuf_size(n)
315 n = n+1
316 intbuf_tab(ni)%S_KREMNODE_EDG = intbuf_size(n)
317 n = n+1
318 intbuf_tab(ni)%S_REMNODE_EDG = intbuf_size(n)
319 n = n+1
320 intbuf_tab(ni)%S_KREMNODE_E2S = intbuf_size(n)
321 n = n+1
322 intbuf_tab(ni)%S_REMNODE_E2S = intbuf_size(n)
323 n = n+1
324 intbuf_tab(ni)%S_IELEM_M = intbuf_size(n)
325 n = n+1
326 intbuf_tab(ni)%S_PROC_MVOISIN = intbuf_size(n)
327
328C=======================================================================
329c READ REAL SIZES
330C=======================================================================
331 n = n+1
332 intbuf_tab(ni)%S_STFAC = intbuf_size(n)
333 n = n+1
334 intbuf_tab(ni)%S_VARIABLES = intbuf_size(n)
335 n = n+1
336 intbuf_tab(ni)%S_CSTS = intbuf_size(n)
337 n = n+1
338 intbuf_tab(ni)%S_DPARA = intbuf_size(n)
339 n = n+1
340 intbuf_tab(ni)%S_NMAS = intbuf_size(n)
341 n = n+1
342 intbuf_tab(ni)%S_AREAS2 = intbuf_size(n)
343 n = n+1
344 intbuf_tab(ni)%S_SMAS = intbuf_size(n)
345 n = n+1
346 intbuf_tab(ni)%S_SINER = intbuf_size(n)
347 n = n+1
348 intbuf_tab(ni)%S_UVAR = intbuf_size(n)
349 n = n+1
350 intbuf_tab(ni)%S_XM0 = intbuf_size(n)
351 n = n+1
352 intbuf_tab(ni)%S_SPENALTY = intbuf_size(n)
353 n = n+1
354 intbuf_tab(ni)%S_STFR_PENALTY = intbuf_size(n)
355 n = n+1
356 intbuf_tab(ni)%S_SKEW = intbuf_size(n)
357 n = n+1
358 intbuf_tab(ni)%S_DSM = intbuf_size(n)
359 n = n+1
360 intbuf_tab(ni)%S_FSM = intbuf_size(n)
361 n = n+1
362 intbuf_tab(ni)%S_RUPT = intbuf_size(n)
363 n = n+1
364 intbuf_tab(ni)%S_FINI = intbuf_size(n)
365 n = n+1
366 intbuf_tab(ni)%S_STFNS = intbuf_size(n)
367 n = n+1
368 intbuf_tab(ni)%S_STFM = intbuf_size(n)
369 n = n+1
370 intbuf_tab(ni)%S_STFS = intbuf_size(n)
371 n = n+1
372 intbuf_tab(ni)%S_PENIM = intbuf_size(n)
373 n = n+1
374 intbuf_tab(ni)%S_PENIS = intbuf_size(n)
375 n = n+1
376 intbuf_tab(ni)%S_STIFMSDT_S = intbuf_size(n)
377 n = n+1
378 intbuf_tab(ni)%S_STIFMSDT_M = intbuf_size(n)
379 n = n+1
380 intbuf_tab(ni)%S_GAP_M = intbuf_size(n)
381 n = n+1
382 intbuf_tab(ni)%S_GAP_S = intbuf_size(n)
383 n = n+1
384 intbuf_tab(ni)%S_XSAV = intbuf_size(n)
385 n = n+1
386 intbuf_tab(ni)%S_CRIT = intbuf_size(n)
387 n = n+1
388 intbuf_tab(ni)%S_FRIC_P = intbuf_size(n)
389 n = n+1
390 intbuf_tab(ni)%S_XFILTR = intbuf_size(n)
391 n = n+1
392 intbuf_tab(ni)%S_AREAS = intbuf_size(n)
393 n = n+1
394 intbuf_tab(ni)%S_AREAM = intbuf_size(n)
395 n = n+1
396 intbuf_tab(ni)%S_GAP_ML = intbuf_size(n)
397 n = n+1
398 intbuf_tab(ni)%S_GAP_SL = intbuf_size(n)
399 n = n+1
400 intbuf_tab(ni)%S_CAND_P = intbuf_size(n)
401 n = n+1
402 intbuf_tab(ni)%S_CAND_PS = intbuf_size(n)
403 n = n+1
404 intbuf_tab(ni)%S_GAPE = intbuf_size(n)
405 n = n+1
406 intbuf_tab(ni)%S_GAP_E_L = intbuf_size(n)
407 n = n+1
408 intbuf_tab(ni)%S_STFE = intbuf_size(n)
409 n = n+1
410 intbuf_tab(ni)%S_STIFMSDT_EDG = intbuf_size(n)
411 n = n+1
412 intbuf_tab(ni)%S_FTSAVX = intbuf_size(n)
413 n = n+1
414 intbuf_tab(ni)%S_FTSAVY = intbuf_size(n)
415 n = n+1
416 intbuf_tab(ni)%S_FTSAVZ = intbuf_size(n)
417 n = n+1
418 intbuf_tab(ni)%S_RIGE = intbuf_size(n)
419 n = n+1
420 intbuf_tab(ni)%S_XIGE = intbuf_size(n)
421 n = n+1
422 intbuf_tab(ni)%S_VIGE = intbuf_size(n)
423 n = n+1
424 intbuf_tab(ni)%S_MASSIGE = intbuf_size(n)
425!type10
426 n = n+1
427 intbuf_tab(ni)%S_CAND_F = intbuf_size(n)
428!type20
429 n = n+1
430 intbuf_tab(ni)%S_XA = intbuf_size(n)
431 n = n+1
432 intbuf_tab(ni)%S_VA = intbuf_size(n)
433 n = n+1
434 intbuf_tab(ni)%S_STFA = intbuf_size(n)
435 n = n+1
436 intbuf_tab(ni)%S_AVX_ANCR = intbuf_size(n)
437 n = n+1
438 intbuf_tab(ni)%S_GAP_SH = intbuf_size(n)
439 n = n+1
440 intbuf_tab(ni)%S_CAND_FX = intbuf_size(n)
441 n = n+1
442 intbuf_tab(ni)%S_CAND_FY = intbuf_size(n)
443 n = n+1
444 intbuf_tab(ni)%S_CAND_FZ = intbuf_size(n)
445 n = n+1
446 intbuf_tab(ni)%S_GAP_SE = intbuf_size(n)
447 n = n+1
448 intbuf_tab(ni)%S_GAP_ME = intbuf_size(n)
449 n = n+1
450 intbuf_tab(ni)%S_STF = intbuf_size(n)
451 n = n+1
452 intbuf_tab(ni)%S_STFNE = intbuf_size(n)
453 n = n+1
454 intbuf_tab(ni)%S_CRITX = intbuf_size(n)
455 n = n+1
456 intbuf_tab(ni)%S_PENISE = intbuf_size(n)
457 n = n+1
458 intbuf_tab(ni)%S_PENIME = intbuf_size(n)
459 n = n+1
460 intbuf_tab(ni)%S_PENIA = intbuf_size(n)
461 n = n+1
462 intbuf_tab(ni)%S_ALPHAK = intbuf_size(n)
463!type1
464 n = n+1
465 intbuf_tab(ni)%S_N = intbuf_size(n)
466!type 3,4,5,9
467 n = n+1
468 intbuf_tab(ni)%S_CSTM = intbuf_size(n)
469 n = n+1
470 intbuf_tab(ni)%S_EE = intbuf_size(n)
471 n = n+1
472 intbuf_tab(ni)%S_STFNM = intbuf_size(n)
473 n = n+1
474 intbuf_tab(ni)%S_FRICOS = intbuf_size(n)
475 n = n+1
476 intbuf_tab(ni)%S_FRICOM = intbuf_size(n)
477 n = n+1
478 intbuf_tab(ni)%S_FTSAV = intbuf_size(n)
479!type6
480 n = n+1
481 intbuf_tab(ni)%S_FCONT = intbuf_size(n)
482 n = n+1
483 intbuf_tab(ni)%S_FS = intbuf_size(n)
484 n = n+1
485 intbuf_tab(ni)%S_FM = intbuf_size(n)
486 n = n+1
487 intbuf_tab(ni)%S_RMAS = intbuf_size(n)
488 n = n+1
489 intbuf_tab(ni)%S_ANSMX0 = intbuf_size(n)
490!type8
491 n = n+1
492 intbuf_tab(ni)%S_T8 = intbuf_size(n)
493 n = n+1
494 intbuf_tab(ni)%S_GAPN = intbuf_size(n)
495 n = n+1
496 intbuf_tab(ni)%S_STF8 = intbuf_size(n)
497!type14
498 n = n+1
499 intbuf_tab(ni)%S_CIMP = intbuf_size(n)
500 n = n+1
501 intbuf_tab(ni)%S_NIMP = intbuf_size(n)
502!type14
503 n = n+1
504 intbuf_tab(ni)%S_IOLD = intbuf_size(n)
505 n = n+1
506 intbuf_tab(ni)%S_HOLD = intbuf_size(n)
507 n = n+1
508 intbuf_tab(ni)%S_NOLD = intbuf_size(n)
509 n = n+1
510 intbuf_tab(ni)%S_DOLD = intbuf_size(n)
511!type17
512 n = n+1
513 intbuf_tab(ni)%S_KS = intbuf_size(n)
514 n = n+1
515 intbuf_tab(ni)%S_KM = intbuf_size(n)
516 n = n+1
517 intbuf_tab(ni)%S_FROTS = intbuf_size(n)
518 n = n+1
519 intbuf_tab(ni)%S_FROTM = intbuf_size(n)
520!type21
521 n = n+1
522 intbuf_tab(ni)%S_NOD_NORMAL = intbuf_size(n)
523!type21
524 n = n+1
525 intbuf_tab(ni)%S_RCURV = intbuf_size(n)
526 n = n+1
527 intbuf_tab(ni)%S_ANGLM = intbuf_size(n)
528 n = n+1
529 intbuf_tab(ni)%S_FROT_P = intbuf_size(n)
530 n = n+1
531 intbuf_tab(ni)%S_ALPHA0 = intbuf_size(n)
532 n = n+1
533 intbuf_tab(ni)%S_AS = intbuf_size(n)
534 n = n+1
535 intbuf_tab(ni)%S_BS = intbuf_size(n)
536 n = n+1
537 intbuf_tab(ni)%S_THKNOD0 = intbuf_size(n)
538!type24 & 25
539 n = n+1
540 intbuf_tab(ni)%S_GAPN_M = intbuf_size(n)
541 n = n+1
542 intbuf_tab(ni)%S_SECND_FR = intbuf_size(n)
543 n = n+1
544 intbuf_tab(ni)%S_PENE_OLD = intbuf_size(n)
545 n = n+1
546 intbuf_tab(ni)%S_STIF_OLD = intbuf_size(n)
547 n = n+1
548 intbuf_tab(ni)%S_TIME_S = intbuf_size(n)
549 n = n+1
550 intbuf_tab(ni)%S_GAP_NM = intbuf_size(n)
551C-----to be cleaned after
552 n = n+1
553 intbuf_tab(ni)%S_EDGE8L2 = intbuf_size(n)
554 n = n+1
555 intbuf_tab(ni)%S_NOD_2RY_LGTH = intbuf_size(n)
556 n = n+1
557 intbuf_tab(ni)%S_NOD_MAS_LGTH = intbuf_size(n)
558 n = n+1
559 intbuf_tab(ni)%S_GAP_N0 = intbuf_size(n)
560 n = n+1
561 intbuf_tab(ni)%S_DGAP_NM = intbuf_size(n)
562 n = n+1
563 intbuf_tab(ni)%S_DGAP_M = intbuf_size(n)
564 n = n+1
565 intbuf_tab(ni)%S_DELTA_PMAX_DGAP = intbuf_size(n)
566 n = n+1
567 intbuf_tab(ni)%S_XFIC = intbuf_size(n)
568 n = n+1
569 intbuf_tab(ni)%S_VFIC = intbuf_size(n)
570 n = n+1
571 intbuf_tab(ni)%S_MSFIC = intbuf_size(n)
572!type25
573 n = n+1
574 intbuf_tab(ni)%S_EDGE_BISECTOR = intbuf_size(n)
575 n = n+1
576 intbuf_tab(ni)%S_PENM = intbuf_size(n)
577 n = n+1
578 intbuf_tab(ni)%S_DISTM = intbuf_size(n)
579 n = n+1
580 intbuf_tab(ni)%S_LBM = intbuf_size(n)
581 n = n+1
582 intbuf_tab(ni)%S_LCM = intbuf_size(n)
583 n = n+1
584 intbuf_tab(ni)%S_VTX_BISECTOR = intbuf_size(n)
585 n = n+1
586 intbuf_tab(ni)%S_FTSAVX_E = intbuf_size(n)
587 n = n+1
588 intbuf_tab(ni)%S_FTSAVY_E = intbuf_size(n)
589 n = n+1
590 intbuf_tab(ni)%S_FTSAVZ_E = intbuf_size(n)
591 n = n+1
592 intbuf_tab(ni)%S_FTSAVX_E2S = intbuf_size(n)
593 n = n+1
594 intbuf_tab(ni)%S_FTSAVY_E2S = intbuf_size(n)
595 n = n+1
596 intbuf_tab(ni)%S_FTSAVZ_E2S = intbuf_size(n)
597!type2
598 n = n+1
599 intbuf_tab(ni)%S_CSTS_BIS = intbuf_size(n)
600 n = n+1
601 intbuf_tab(ni)%S_DIR_FRICM = intbuf_size(n)
602!type25
603 n = n+1
604 intbuf_tab(ni)%S_GAPMSAV = intbuf_size(n)
605 n = n+1
606 intbuf_tab(ni)%S_E2S_NOD_NORMAL = intbuf_size(n)
607
608C=======================================================================
609 IF(n /= l_intbuf_size)THEN
610 WRITE(istdo,'(A)')
611 . ' ** Internal error in routine INTBUF_INI'
612 CALL arret(2)
613 END IF
614C=======================================================================
615c READ INTEGER ARRAYS
616C=======================================================================
617 siz = intbuf_tab(ni)%S_IRECTS
618 ALLOCATE(intbuf_tab(ni)%IRECTS(siz))
619 IF(siz>0)THEN
620 CALL read_i_c(intbuf_tab(ni)%IRECTS,siz)
621 ENDIF
622
623 siz = intbuf_tab(ni)%S_IRECTM
624 ALLOCATE(intbuf_tab(ni)%IRECTM(siz))
625 IF(siz>0)THEN
626 CALL read_i_c(intbuf_tab(ni)%IRECTM,siz)
627 ENDIF
628
629 siz = intbuf_tab(ni)%S_NSV
630 ALLOCATE(intbuf_tab(ni)%NSV(siz))
631 IF(siz>0)THEN
632 CALL read_i_c(intbuf_tab(ni)%NSV,siz)
633 ENDIF
634
635 siz = intbuf_tab(ni)%S_MSR
636 ALLOCATE(intbuf_tab(ni)%MSR(siz))
637 IF(siz>0)THEN
638 CALL read_i_c(intbuf_tab(ni)%MSR,siz)
639 ENDIF
640
641 siz = intbuf_tab(ni)%S_IRTLM
642 ALLOCATE(intbuf_tab(ni)%IRTLM(siz))
643 IF(siz>0)THEN
644 CALL read_i_c(intbuf_tab(ni)%IRTLM,siz)
645 ENDIF
646
647 siz = intbuf_tab(ni)%S_IRUPT
648 ALLOCATE(intbuf_tab(ni)%IRUPT(siz))
649 IF(siz>0)THEN
650 CALL read_i_c(intbuf_tab(ni)%IRUPT,siz)
651 ENDIF
652
653 siz = intbuf_tab(ni)%S_MSEGTYP2
654 ALLOCATE(intbuf_tab(ni)%MSEGTYP2(siz))
655 IF(siz>0)THEN
656 CALL read_i_c(intbuf_tab(ni)%MSEGTYP2,siz)
657 ENDIF
658
659 siz = intbuf_tab(ni)%S_INORM
660 ALLOCATE(intbuf_tab(ni)%INORM(siz))
661 IF(siz>0)THEN
662 CALL read_i_c(intbuf_tab(ni)%INORM,siz)
663 ENDIF
664
665 siz = intbuf_tab(ni)%S_IELEC
666 ALLOCATE(intbuf_tab(ni)%IELEC(siz))
667 IF(siz>0)THEN
668 CALL read_i_c(intbuf_tab(ni)%IELEC,siz)
669 ENDIF
670
671 siz = intbuf_tab(ni)%S_IELES
672 ALLOCATE(intbuf_tab(ni)%IELES(siz))
673 IF(siz>0)THEN
674 CALL read_i_c(intbuf_tab(ni)%IELES,siz)
675 ENDIF
676
677 siz = intbuf_tab(ni)%S_LISUB
678 ALLOCATE(intbuf_tab(ni)%LISUB(siz))
679 IF(siz>0)THEN
680 CALL read_i_c(intbuf_tab(ni)%LISUB,siz)
681 ENDIF
682
683 siz = intbuf_tab(ni)%S_TYPSUB
684 ALLOCATE(intbuf_tab(ni)%TYPSUB(siz))
685 IF(siz>0)THEN
686 CALL read_i_c(intbuf_tab(ni)%TYPSUB,siz)
687 ENDIF
688
689 siz = intbuf_tab(ni)%S_ADDSUBS
690 ALLOCATE(intbuf_tab(ni)%ADDSUBS(siz))
691 IF(siz>0)THEN
692 CALL read_i_c(intbuf_tab(ni)%ADDSUBS,siz)
693 ENDIF
694
695 siz = intbuf_tab(ni)%S_ADDSUBM
696 ALLOCATE(intbuf_tab(ni)%ADDSUBM(siz))
697 IF(siz>0)THEN
698 CALL read_i_c(intbuf_tab(ni)%ADDSUBM,siz)
699 ENDIF
700
701 siz = intbuf_tab(ni)%S_LISUBS
702 ALLOCATE(intbuf_tab(ni)%LISUBS(siz))
703 IF(siz>0)THEN
704 CALL read_i_c(intbuf_tab(ni)%LISUBS,siz)
705 ENDIF
706
707 siz = intbuf_tab(ni)%S_LISUBM
708 ALLOCATE(intbuf_tab(ni)%LISUBM(siz+1))
709 IF(siz>0)THEN
710 CALL read_i_c(intbuf_tab(ni)%LISUBM,siz)
711 !sentinel value to avoid invalid read in i*for3.F
712 intbuf_tab(ni)%LISUBM(siz+1) = huge(siz)
713 ENDIF
714
715 siz = intbuf_tab(ni)%S_INFLG_SUBS
716 ALLOCATE(intbuf_tab(ni)%INFLG_SUBS(siz))
717 IF(siz>0)THEN
718 CALL read_i_c(intbuf_tab(ni)%INFLG_SUBS,siz)
719 ENDIF
720
721 siz = intbuf_tab(ni)%S_INFLG_SUBM
722 ALLOCATE(intbuf_tab(ni)%INFLG_SUBM(siz))
723 IF(siz>0)THEN
724 CALL read_i_c(intbuf_tab(ni)%INFLG_SUBM,siz)
725 ENDIF
726
727 siz = intbuf_tab(ni)%S_ADDSUBE
728 ALLOCATE(intbuf_tab(ni)%ADDSUBE(siz))
729 IF(siz>0)THEN
730 CALL read_i_c(intbuf_tab(ni)%ADDSUBE,siz)
731 ENDIF
732
733 siz = intbuf_tab(ni)%S_LISUBE
734 ALLOCATE(intbuf_tab(ni)%LISUBE(siz))
735 IF(siz>0)THEN
736 CALL read_i_c(intbuf_tab(ni)%LISUBE,siz)
737 ENDIF
738
739 siz = intbuf_tab(ni)%S_INFLG_SUBE
740 ALLOCATE(intbuf_tab(ni)%INFLG_SUBE(siz))
741 IF(siz>0)THEN
742 CALL read_i_c(intbuf_tab(ni)%INFLG_SUBE,siz)
743 ENDIF
744
745 siz = intbuf_tab(ni)%S_CAND_E
746 ALLOCATE(intbuf_tab(ni)%CAND_E(siz))
747 IF(siz>0)THEN
748 CALL read_i_c(intbuf_tab(ni)%CAND_E,siz)
749 ENDIF
750
751 siz = intbuf_tab(ni)%S_CAND_N
752 ALLOCATE(intbuf_tab(ni)%CAND_N(siz))
753 IF(siz>0)THEN
754 CALL read_i_c(intbuf_tab(ni)%CAND_N,siz)
755 ENDIF
756
757 siz = intbuf_tab(ni)%S_I_STOK
758 ALLOCATE(intbuf_tab(ni)%I_STOK(siz))
759 IF(siz>0)THEN
760 CALL read_i_c(intbuf_tab(ni)%I_STOK,siz)
761 ENDIF
762
763!type20
764 siz = intbuf_tab(ni)%S_LCAND_N
765 ALLOCATE(intbuf_tab(ni)%LCAND_N(siz))
766 IF(siz>0)THEN
767 CALL read_i_c(intbuf_tab(ni)%LCAND_N,siz)
768 ENDIF
769
770 siz = intbuf_tab(ni)%S_LCAND_S
771 ALLOCATE(intbuf_tab(ni)%LCAND_S(siz))
772 IF(siz>0)THEN
773 CALL read_i_c(intbuf_tab(ni)%LCAND_S,siz)
774 ENDIF
775
776!fin type20
777
778 siz = intbuf_tab(ni)%S_I_STOK_E
779 ALLOCATE(intbuf_tab(ni)%I_STOK_E(siz))
780 IF(siz>0)THEN
781 CALL read_i_c(intbuf_tab(ni)%I_STOK_E,siz)
782 ENDIF
783
784 siz = intbuf_tab(ni)%S_IFPEN
785 ALLOCATE(intbuf_tab(ni)%IFPEN(siz))
786 IF(siz>0)THEN
787 CALL read_i_c(intbuf_tab(ni)%IFPEN,siz)
788 ENDIF
789
790 siz = intbuf_tab(ni)%S_IPARTFRICS
791 ALLOCATE(intbuf_tab(ni)%IPARTFRICS(siz))
792 IF(siz>0)THEN
793 CALL read_i_c(intbuf_tab(ni)%IPARTFRICS,siz)
794 ENDIF
795
796 siz = intbuf_tab(ni)%S_IPARTFRICM
797 ALLOCATE(intbuf_tab(ni)%IPARTFRICM(siz))
798 IF(siz>0)THEN
799 CALL read_i_c(intbuf_tab(ni)%IPARTFRICM,siz)
800 ENDIF
801
802 siz = intbuf_tab(ni)%S_IPARTFRIC_E
803 ALLOCATE(intbuf_tab(ni)%IPARTFRIC_E(siz))
804 IF(siz>0)THEN
805 CALL read_i_c(intbuf_tab(ni)%IPARTFRIC_E,siz)
806 ENDIF
807
808 siz = intbuf_tab(ni)%S_IREP_FRICM
809 ALLOCATE(intbuf_tab(ni)%IREP_FRICM(siz))
810 IF(siz>0)THEN
811 CALL read_i_c(intbuf_tab(ni)%IREP_FRICM,siz)
812 ENDIF
813
814 siz = intbuf_tab(ni)%S_KREMNODE
815 ALLOCATE(intbuf_tab(ni)%KREMNODE(siz))
816 IF(siz>0)THEN
817 CALL read_i_c(intbuf_tab(ni)%KREMNODE,siz)
818 ENDIF
819
820 siz = intbuf_tab(ni)%S_REMNODE
821 ALLOCATE(intbuf_tab(ni)%REMNODE(siz))
822 IF(siz>0)THEN
823 CALL read_i_c(intbuf_tab(ni)%REMNODE,siz)
824 ENDIF
825
826 siz = intbuf_tab(ni)%S_KREMNOR
827 ALLOCATE(intbuf_tab(ni)%KREMNOR(siz))
828 IF(siz>0)THEN
829 CALL read_i_c(intbuf_tab(ni)%KREMNOR,siz)
830 ENDIF
831
832 siz = intbuf_tab(ni)%S_REMNOR
833 ALLOCATE(intbuf_tab(ni)%REMNOR(siz))
834 IF(siz>0)THEN
835 CALL read_i_c(intbuf_tab(ni)%REMNOR,siz)
836 ENDIF
837
838 siz = intbuf_tab(ni)%S_KREMNODE_EDG
839 ALLOCATE(intbuf_tab(ni)%KREMNODE_EDG(siz))
840 IF(siz>0)THEN
841 CALL read_i_c(intbuf_tab(ni)%KREMNODE_EDG,siz)
842 ENDIF
843
844 siz = intbuf_tab(ni)%S_REMNODE_EDG
845 ALLOCATE(intbuf_tab(ni)%REMNODE_EDG(siz))
846 IF(siz>0)THEN
847 CALL read_i_c(intbuf_tab(ni)%REMNODE_EDG,siz)
848 ENDIF
849
850 siz = intbuf_tab(ni)%S_KREMNODE_E2S
851 ALLOCATE(intbuf_tab(ni)%KREMNODE_E2S(siz))
852 IF(siz>0)THEN
853 CALL read_i_c(intbuf_tab(ni)%KREMNODE_E2S,siz)
854 ENDIF
855
856 siz = intbuf_tab(ni)%S_REMNODE_E2S
857 ALLOCATE(intbuf_tab(ni)%REMNODE_E2S(siz))
858 IF(siz>0)THEN
859 CALL read_i_c(intbuf_tab(ni)%REMNODE_E2S,siz)
860 ENDIF
861
862 siz = intbuf_tab(ni)%S_ADCCM
863 ALLOCATE(intbuf_tab(ni)%ADCCM(siz))
864 IF(siz>0)THEN
865 CALL read_i_c(intbuf_tab(ni)%ADCCM,siz)
866 ENDIF
867
868 siz = intbuf_tab(ni)%S_CHAIN
869 ALLOCATE(intbuf_tab(ni)%CHAIN(siz))
870 IF(siz>0)THEN
871 CALL read_i_c(intbuf_tab(ni)%CHAIN,siz)
872 ENDIF
873
874 siz = intbuf_tab(ni)%S_NIGE
875 ALLOCATE(intbuf_tab(ni)%NIGE(siz))
876 IF(siz>0)THEN
877 CALL read_i_c(intbuf_tab(ni)%NIGE,siz)
878 ENDIF
879
880!type20
881 siz = intbuf_tab(ni)%S_NBINFLG
882 ALLOCATE(intbuf_tab(ni)%NBINFLG(siz))
883 IF(siz>0)THEN
884 CALL read_i_c(intbuf_tab(ni)%NBINFLG,siz)
885 ENDIF
886
887 siz = intbuf_tab(ni)%S_MBINFLG
888 ALLOCATE(intbuf_tab(ni)%MBINFLG(siz))
889 IF(siz>0)THEN
890 CALL read_i_c(intbuf_tab(ni)%MBINFLG,siz)
891 ENDIF
892
893 siz = intbuf_tab(ni)%S_EBINFLG
894 ALLOCATE(intbuf_tab(ni)%EBINFLG(siz))
895 IF(siz>0)THEN
896 CALL read_i_c(intbuf_tab(ni)%EBINFLG,siz)
897 ENDIF
898
899 siz = intbuf_tab(ni)%S_NLG
900 ALLOCATE(intbuf_tab(ni)%NLG(siz))
901 IF(siz>0)THEN
902 CALL read_i_c(intbuf_tab(ni)%NLG,siz)
903 ENDIF
904
905 siz = intbuf_tab(ni)%S_DAANC6
906 ALLOCATE(intbuf_tab(ni)%DAANC6(siz))
907 IF(siz>0)THEN
908 CALL read_i_c(intbuf_tab(ni)%DAANC6,siz)
909 ENDIF
910
911 siz = intbuf_tab(ni)%S_ISLINS
912 ALLOCATE(intbuf_tab(ni)%ISLINS(siz))
913 IF(siz>0)THEN
914 CALL read_i_c(intbuf_tab(ni)%ISLINS,siz)
915 ENDIF
916
917 siz = intbuf_tab(ni)%S_ISLINM
918 ALLOCATE(intbuf_tab(ni)%ISLINM(siz))
919 IF(siz>0)THEN
920 CALL read_i_c(intbuf_tab(ni)%ISLINM,siz)
921 ENDIF
922
923 siz = intbuf_tab(ni)%S_IXLINS
924 ALLOCATE(intbuf_tab(ni)%IXLINS(siz))
925 IF(siz>0)THEN
926 CALL read_i_c(intbuf_tab(ni)%IXLINS,siz)
927 ENDIF
928
929 siz = intbuf_tab(ni)%S_IXLINM
930 ALLOCATE(intbuf_tab(ni)%IXLINM(siz))
931 IF(siz>0)THEN
932 CALL read_i_c(intbuf_tab(ni)%IXLINM,siz)
933 ENDIF
934
935 siz = intbuf_tab(ni)%S_MSRL
936 ALLOCATE(intbuf_tab(ni)%MSRL(siz))
937 IF(siz>0)THEN
938 CALL read_i_c(intbuf_tab(ni)%MSRL,siz)
939 ENDIF
940
941 siz = intbuf_tab(ni)%S_NSVL
942 ALLOCATE(intbuf_tab(ni)%NSVL(siz))
943 IF(siz>0)THEN
944 CALL read_i_c(intbuf_tab(ni)%NSVL,siz)
945 ENDIF
946
947 siz = intbuf_tab(ni)%S_ADCCM20
948 ALLOCATE(intbuf_tab(ni)%ADCCM20(siz))
949 IF(siz>0)THEN
950 CALL read_i_c(intbuf_tab(ni)%ADCCM20,siz)
951 ENDIF
952
953 siz = intbuf_tab(ni)%S_CHAIN20
954 ALLOCATE(intbuf_tab(ni)%CHAIN20(siz))
955 IF(siz>0)THEN
956 CALL read_i_c(intbuf_tab(ni)%CHAIN20,siz)
957 ENDIF
958!fin type20
959
960!type1
961 siz = intbuf_tab(ni)%S_ILOCS
962 ALLOCATE(intbuf_tab(ni)%ILOCS(siz))
963 IF(siz>0)THEN
964 CALL read_i_c(intbuf_tab(ni)%ILOCS,siz)
965 ENDIF
966
967 siz = intbuf_tab(ni)%S_NSEGM
968 ALLOCATE(intbuf_tab(ni)%NSEGM(siz))
969 IF(siz>0)THEN
970 CALL read_i_c(intbuf_tab(ni)%NSEGM,siz)
971 ENDIF
972
973 siz = intbuf_tab(ni)%S_NRT
974 ALLOCATE(intbuf_tab(ni)%NRT(siz))
975 IF(siz>0)THEN
976 CALL read_i_c(intbuf_tab(ni)%NRT,siz)
977 ENDIF
978!type3
979 siz = intbuf_tab(ni)%S_IRTLS
980 ALLOCATE(intbuf_tab(ni)%IRTLS(siz))
981 IF(siz>0)THEN
982 CALL read_i_c(intbuf_tab(ni)%IRTLS,siz)
983 ENDIF
984
985 siz = intbuf_tab(ni)%S_ILOCM
986 ALLOCATE(intbuf_tab(ni)%ILOCM(siz))
987 IF(siz>0)THEN
988 CALL read_i_c(intbuf_tab(ni)%ILOCM,siz)
989 ENDIF
990
991 siz = intbuf_tab(ni)%S_IRTLOM
992 ALLOCATE(intbuf_tab(ni)%IRTLOM(siz))
993 IF(siz>0)THEN
994 CALL read_i_c(intbuf_tab(ni)%IRTLOM,siz)
995 ENDIF
996
997 siz = intbuf_tab(ni)%S_IRTLOS
998 ALLOCATE(intbuf_tab(ni)%IRTLOS(siz))
999 IF(siz>0)THEN
1000 CALL read_i_c(intbuf_tab(ni)%IRTLOS,siz)
1001 ENDIF
1002
1003 siz = intbuf_tab(ni)%S_NSEGS
1004 ALLOCATE(intbuf_tab(ni)%NSEGS(siz))
1005 IF(siz>0)THEN
1006 CALL read_i_c(intbuf_tab(ni)%NSEGS,siz)
1007 ENDIF
1008
1009 siz = intbuf_tab(ni)%S_LNSV
1010 ALLOCATE(intbuf_tab(ni)%LNSV(siz))
1011 IF(siz>0)THEN
1012 CALL read_i_c(intbuf_tab(ni)%LNSV,siz)
1013 ENDIF
1014
1015 siz = intbuf_tab(ni)%S_LMSR
1016 ALLOCATE(intbuf_tab(ni)%LMSR(siz))
1017 IF(siz>0)THEN
1018 CALL read_i_c(intbuf_tab(ni)%LMSR,siz)
1019 ENDIF
1020
1021!type4
1022 siz = intbuf_tab(ni)%S_IELEM
1023 ALLOCATE(intbuf_tab(ni)%IELEM(siz))
1024 IF(siz>0)THEN
1025 CALL read_i_c(intbuf_tab(ni)%IELEM,siz)
1026 ENDIF
1027
1028!type12
1029 siz = intbuf_tab(ni)%S_FCOUNT
1030 ALLOCATE(intbuf_tab(ni)%FCOUNT(siz))
1031 IF(siz>0)THEN
1032 CALL read_i_c(intbuf_tab(ni)%FCOUNT,siz)
1033 ENDIF
1034
1035!type14
1036 siz = intbuf_tab(ni)%S_KSURF
1037 ALLOCATE(intbuf_tab(ni)%KSURF(siz))
1038 IF(siz>0)THEN
1039 CALL read_i_c(intbuf_tab(ni)%KSURF,siz)
1040 ENDIF
1041
1042 siz = intbuf_tab(ni)%S_IMPACT
1043 ALLOCATE(intbuf_tab(ni)%IMPACT(siz))
1044 IF(siz>0)THEN
1045 CALL read_i_c(intbuf_tab(ni)%IMPACT,siz)
1046 ENDIF
1047
1048!type21
1049 siz = intbuf_tab(ni)%S_MSR21
1050 ALLOCATE(intbuf_tab(ni)%MSR21(siz))
1051 IF(siz>0)THEN
1052 CALL read_i_c(intbuf_tab(ni)%MSR21,siz)
1053 ENDIF
1054
1055 siz = intbuf_tab(ni)%S_MNDD
1056 ALLOCATE(intbuf_tab(ni)%MNDD(siz))
1057 IF(siz>0)THEN
1058 CALL read_i_c(intbuf_tab(ni)%MNDD,siz)
1059 ENDIF
1060
1061 siz = intbuf_tab(ni)%S_MSR_L
1062 ALLOCATE(intbuf_tab(ni)%MSR_L(siz))
1063 IF(siz>0)THEN
1064 CALL read_i_c(intbuf_tab(ni)%MSR_L,siz)
1065 ENDIF
1066
1067!type24----to be cleaned later
1068 siz = intbuf_tab(ni)%S_CAND_T
1069 ALLOCATE(intbuf_tab(ni)%CAND_T(siz))
1070 IF(siz>0)THEN
1071 CALL read_i_c(intbuf_tab(ni)%CAND_T,siz)
1072 ENDIF
1073
1074 siz = intbuf_tab(ni)%S_MVOISIN
1075 ALLOCATE(intbuf_tab(ni)%MVOISIN(siz))
1076 IF(siz>0)THEN
1077 CALL read_i_c(intbuf_tab(ni)%MVOISIN,siz)
1078 ENDIF
1079
1080 siz = intbuf_tab(ni)%S_NVOISIN
1081 ALLOCATE(intbuf_tab(ni)%NVOISIN(siz))
1082 IF(siz>0)THEN
1083 CALL read_i_c(intbuf_tab(ni)%NVOISIN,siz)
1084 ENDIF
1085
1086 siz = intbuf_tab(ni)%S_MSEGLO
1087 ALLOCATE(intbuf_tab(ni)%MSEGLO(siz))
1088 IF(siz>0)THEN
1089 CALL read_i_c(intbuf_tab(ni)%MSEGLO,siz)
1090 ENDIF
1091
1092 siz = intbuf_tab(ni)%S_MSEGTYP24
1093 ALLOCATE(intbuf_tab(ni)%MSEGTYP24(siz))
1094 IF(siz>0)THEN
1095 CALL read_i_c(intbuf_tab(ni)%MSEGTYP24,siz)
1096 ENDIF
1097C----------to be cleaned later
1098 siz = intbuf_tab(ni)%S_ISEADD
1099 ALLOCATE(intbuf_tab(ni)%ISEADD(siz))
1100 IF(siz>0)THEN
1101 CALL read_i_c(intbuf_tab(ni)%ISEADD,siz)
1102 ENDIF
1103
1104 siz = intbuf_tab(ni)%S_ISEDGE
1105 ALLOCATE(intbuf_tab(ni)%ISEDGE(siz))
1106 IF(siz>0)THEN
1107 CALL read_i_c(intbuf_tab(ni)%ISEDGE,siz)
1108 ENDIF
1109
1110 siz = intbuf_tab(ni)%S_ISEG_PXFEM
1111 ALLOCATE(intbuf_tab(ni)%ISEG_PXFEM(siz))
1112 IF(siz>0)THEN
1113 CALL read_i_c(intbuf_tab(ni)%ISEG_PXFEM,siz)
1114 ENDIF
1115
1116 siz = intbuf_tab(ni)%S_ISEG_PLY
1117 ALLOCATE(intbuf_tab(ni)%ISEG_PLY(siz))
1118 IF(siz>0)THEN
1119 CALL read_i_c(intbuf_tab(ni)%ISEG_PLY,siz)
1120 ENDIF
1121
1122 siz = intbuf_tab(ni)%S_ICONT_I
1123 ALLOCATE(intbuf_tab(ni)%ICONT_I(siz))
1124 IF(siz>0)THEN
1125 CALL read_i_c(intbuf_tab(ni)%ICONT_I,siz)
1126 ENDIF
1127 siz = intbuf_tab(ni)%S_IRTSE
1128 ALLOCATE(intbuf_tab(ni)%IRTSE(siz))
1129 IF(siz>0)THEN
1130 CALL read_i_c(intbuf_tab(ni)%IRTSE,siz)
1131 ENDIF
1132
1133 siz = intbuf_tab(ni)%S_IS2SE
1134 ALLOCATE(intbuf_tab(ni)%IS2SE(siz))
1135 IF(siz>0)THEN
1136 CALL read_i_c(intbuf_tab(ni)%IS2SE,siz)
1137 ENDIF
1138 siz = intbuf_tab(ni)%S_IS2PT
1139 ALLOCATE(intbuf_tab(ni)%IS2PT(siz))
1140 IF(siz>0)THEN
1141 CALL read_i_c(intbuf_tab(ni)%IS2PT,siz)
1142 ENDIF
1143
1144 siz = intbuf_tab(ni)%S_ISPT2
1145 ALLOCATE(intbuf_tab(ni)%ISPT2(siz))
1146 IF(siz>0)THEN
1147 CALL read_i_c(intbuf_tab(ni)%ISPT2,siz)
1148 ENDIF
1149
1150 siz = intbuf_tab(ni)%S_ISEGPT
1151 ALLOCATE(intbuf_tab(ni)%ISEGPT(siz))
1152 IF(siz>0)THEN
1153 CALL read_i_c(intbuf_tab(ni)%ISEGPT,siz)
1154 ENDIF
1155 siz = intbuf_tab(ni)%S_IS2ID
1156 ALLOCATE(intbuf_tab(ni)%IS2ID(siz))
1157 IF(siz>0)THEN
1158 CALL read_i_c(intbuf_tab(ni)%IS2ID,siz)
1159 ENDIF
1160!type25
1161 siz = intbuf_tab(ni)%S_EVOISIN
1162 ALLOCATE(intbuf_tab(ni)%EVOISIN(siz))
1163 IF(siz>0)THEN
1164 CALL read_i_c(intbuf_tab(ni)%EVOISIN,siz)
1165 ENDIF
1166
1167 siz = intbuf_tab(ni)%S_ADMSR
1168 ALLOCATE(intbuf_tab(ni)%ADMSR(siz))
1169 IF(siz>0)THEN
1170 CALL read_i_c(intbuf_tab(ni)%ADMSR,siz)
1171 ENDIF
1172
1173 siz = intbuf_tab(ni)%S_LEDGE
1174 ALLOCATE(intbuf_tab(ni)%LEDGE(siz))
1175 IF(siz>0)THEN
1176 CALL read_i_c(intbuf_tab(ni)%LEDGE,siz)
1177 ENDIF
1178
1179 siz = intbuf_tab(ni)%S_LBOUND
1180 ALLOCATE(intbuf_tab(ni)%LBOUND(siz))
1181 IF(siz>0)THEN
1182 CALL read_i_c(intbuf_tab(ni)%LBOUND,siz)
1183 ENDIF
1184
1185 siz = intbuf_tab(ni)%S_ACTNOR
1186 ALLOCATE(intbuf_tab(ni)%ACTNOR(siz))
1187 IF(siz>0)THEN
1188 CALL read_i_c(intbuf_tab(ni)%ACTNOR,siz)
1189 ENDIF
1190
1191 siz = intbuf_tab(ni)%S_FARM
1192 ALLOCATE(intbuf_tab(ni)%FARM(siz))
1193 IF(siz>0)THEN
1194 intbuf_tab(ni)%FARM(1:siz) = 0
1195 ENDIF
1196
1197 siz = intbuf_tab(ni)%S_ADSKYN
1198 ALLOCATE(intbuf_tab(ni)%ADSKYN(siz))
1199 IF(siz>0)THEN
1200 CALL read_i_c(intbuf_tab(ni)%ADSKYN,siz)
1201 ENDIF
1202
1203 siz = intbuf_tab(ni)%S_IADNOR
1204 ALLOCATE(intbuf_tab(ni)%IADNOR(siz))
1205 IF(siz>0)THEN
1206 CALL read_i_c(intbuf_tab(ni)%IADNOR,siz)
1207 ENDIF
1208
1209 siz = intbuf_tab(ni)%S_ISLIDE
1210 ALLOCATE(intbuf_tab(ni)%ISLIDE(siz))
1211 IF(siz>0)THEN
1212 CALL read_i_c(intbuf_tab(ni)%ISLIDE,siz)
1213 ENDIF
1214
1215 siz = intbuf_tab(ni)%S_KNOR2MSR
1216 ALLOCATE(intbuf_tab(ni)%KNOR2MSR(siz))
1217 IF(siz>0)THEN
1218 CALL read_i_c(intbuf_tab(ni)%KNOR2MSR,siz)
1219 ENDIF
1220
1221 siz = intbuf_tab(ni)%S_NOR2MSR
1222 ALLOCATE(intbuf_tab(ni)%NOR2MSR(siz))
1223 IF(siz>0)THEN
1224 CALL read_i_c(intbuf_tab(ni)%NOR2MSR,siz)
1225 ENDIF
1226
1227 siz = intbuf_tab(ni)%S_CAND_OPT_N
1228 ALLOCATE(intbuf_tab(ni)%CAND_OPT_N(siz))
1229 IF(siz>0)THEN
1230 CALL decompress_i_nnz(intbuf_tab(ni)%CAND_OPT_N,siz)
1231 ENDIF
1232
1233 siz = intbuf_tab(ni)%S_CAND_OPT_E
1234 ALLOCATE(intbuf_tab(ni)%CAND_OPT_E(siz))
1235 IF(siz>0)THEN
1236 CALL decompress_i_nnz(intbuf_tab(ni)%CAND_OPT_E,siz)
1237 ENDIF
1238
1239 siz = intbuf_tab(ni)%S_IF_ADH
1240 ALLOCATE(intbuf_tab(ni)%IF_ADH(siz))
1241 IF(siz>0)THEN
1242 CALL read_i_c(intbuf_tab(ni)%IF_ADH,siz)
1243 ENDIF
1244
1245 siz = intbuf_tab(ni)%S_CANDM_E2E
1246 ALLOCATE(intbuf_tab(ni)%CANDM_E2E(siz))
1247 IF(siz>0)THEN
1248 intbuf_tab(ni)%CANDM_E2E(1:siz) = 0
1249 siz =intbuf_tab(ni)%I_STOK_E(1)
1250 CALL read_i_c(intbuf_tab(ni)%CANDM_E2E,siz)
1251 ENDIF
1252
1253 siz = intbuf_tab(ni)%S_CANDS_E2E
1254 ALLOCATE(intbuf_tab(ni)%CANDS_E2E(siz))
1255 IF(siz>0)THEN
1256 intbuf_tab(ni)%CANDS_E2E(1:siz) = 0
1257 siz =intbuf_tab(ni)%I_STOK_E(1)
1258 CALL read_i_c(intbuf_tab(ni)%CANDS_E2E,siz)
1259 ENDIF
1260
1261 siz = intbuf_tab(ni)%S_CANDM_E2S
1262 ALLOCATE(intbuf_tab(ni)%CANDM_E2S(siz))
1263 IF(siz>0)THEN
1264 intbuf_tab(ni)%CANDM_E2S(1:siz) = 0
1265 siz =intbuf_tab(ni)%I_STOK_E(2)
1266 CALL read_i_c(intbuf_tab(ni)%CANDM_E2S,siz)
1267 ENDIF
1268
1269 siz = intbuf_tab(ni)%S_CANDS_E2S
1270 ALLOCATE(intbuf_tab(ni)%CANDS_E2S(siz))
1271 IF(siz>0)THEN
1272 intbuf_tab(ni)%CANDS_E2S(1:siz) = 0
1273 siz =intbuf_tab(ni)%I_STOK_E(2)
1274 CALL read_i_c(intbuf_tab(ni)%CANDS_E2S,siz)
1275 ENDIF
1276
1277 siz = intbuf_tab(ni)%S_IFPEN_E
1278 ALLOCATE(intbuf_tab(ni)%IFPEN_E(siz))
1279 IF(siz>0)THEN
1280 CALL read_i_c(intbuf_tab(ni)%IFPEN_E,siz)
1281 ENDIF
1282
1283 siz = intbuf_tab(ni)%S_IFPEN_E2S
1284 ALLOCATE(intbuf_tab(ni)%IFPEN_E2S(siz))
1285 IF(siz>0)THEN
1286 siz =intbuf_tab(ni)%I_STOK_E(2)
1287 CALL read_i_c(intbuf_tab(ni)%IFPEN_E2S,siz)
1288 ENDIF
1289
1290! NITSCHE METHOD
1291 siz = intbuf_tab(ni)%S_IELNRTS
1292 ALLOCATE(intbuf_tab(ni)%IELNRTS(siz))
1293 IF(siz>0)THEN
1294 CALL read_i_c(intbuf_tab(ni)%IELNRTS,siz)
1295 ENDIF
1296 siz = intbuf_tab(ni)%S_ADRECTS
1297 ALLOCATE(intbuf_tab(ni)%ADRECTS(siz))
1298 IF(siz>0)THEN
1299 CALL read_i_c(intbuf_tab(ni)%ADRECTS,siz)
1300 ENDIF
1301 siz = intbuf_tab(ni)%S_FACNRTS
1302 ALLOCATE(intbuf_tab(ni)%FACNRTS(siz))
1303 IF(siz>0)THEN
1304 CALL read_i_c(intbuf_tab(ni)%FACNRTS,siz)
1305 ENDIF
1306
1307 siz = intbuf_tab(ni)%S_E2S_ACTNOR
1308 ALLOCATE(intbuf_tab(ni)%E2S_ACTNOR(siz))
1309 IF(siz>0)THEN
1310 intbuf_tab(ni)%E2S_ACTNOR(1:siz) = 0
1311 ENDIF
1312
1313 siz = intbuf_tab(ni)% S_IELEM_M
1314 ALLOCATE(intbuf_tab(ni)%IELEM_M(siz))
1315 IF(siz>0)THEN
1316 CALL read_i_c(intbuf_tab(ni)%IELEM_M,siz)
1317 ENDIF
1318
1319 siz = intbuf_tab(ni)%S_PROC_MVOISIN
1320 ALLOCATE(intbuf_tab(ni)%PROC_MVOISIN(siz))
1321 IF(siz>0)THEN
1322 CALL read_i_c(intbuf_tab(ni)%PROC_MVOISIN,siz)
1323 ENDIF
1324C=======================================================================
1325c READ REAL ARRAYS
1326C=======================================================================
1327 siz = intbuf_tab(ni)%S_STFAC
1328 ALLOCATE(intbuf_tab(ni)%STFAC(siz))
1329 IF(siz>0)THEN
1330 CALL read_db(intbuf_tab(ni)%STFAC,siz)
1331 ENDIF
1332
1333 siz = intbuf_tab(ni)%S_VARIABLES
1334 ALLOCATE(intbuf_tab(ni)%VARIABLES(siz))
1335 IF(siz>0)THEN
1336 CALL read_db(intbuf_tab(ni)%VARIABLES,siz)
1337 ENDIF
1338
1339 siz = intbuf_tab(ni)%S_CSTS
1340 ALLOCATE(intbuf_tab(ni)%CSTS(siz))
1341 IF(siz>0)THEN
1342 CALL read_db(intbuf_tab(ni)%CSTS,siz)
1343 ENDIF
1344
1345 siz = intbuf_tab(ni)%S_DPARA
1346 ALLOCATE(intbuf_tab(ni)%DPARA(siz))
1347 IF(siz>0)THEN
1348 CALL read_db(intbuf_tab(ni)%DPARA,siz)
1349 ENDIF
1350
1351 siz = intbuf_tab(ni)%S_NMAS
1352 ALLOCATE(intbuf_tab(ni)%NMAS(siz))
1353 IF(siz>0)THEN
1354 CALL read_db(intbuf_tab(ni)%NMAS,siz)
1355 ENDIF
1356
1357 siz = intbuf_tab(ni)%S_AREAS2
1358 ALLOCATE(intbuf_tab(ni)%AREAS2(siz))
1359 IF(siz>0)THEN
1360 CALL read_db(intbuf_tab(ni)%AREAS2,siz)
1361 ENDIF
1362
1363 siz = intbuf_tab(ni)%S_SMAS
1364 ALLOCATE(intbuf_tab(ni)%SMAS(siz))
1365 IF(siz>0)THEN
1366 CALL read_db(intbuf_tab(ni)%SMAS,siz)
1367 ENDIF
1368
1369 siz = intbuf_tab(ni)%S_SINER
1370 ALLOCATE(intbuf_tab(ni)%SINER(siz))
1371 IF(siz>0)THEN
1372 CALL read_db(intbuf_tab(ni)%SINER,siz)
1373 ENDIF
1374
1375 siz = intbuf_tab(ni)%S_UVAR
1376 ALLOCATE(intbuf_tab(ni)%UVAR(siz))
1377 IF(siz>0)THEN
1378 CALL read_db(intbuf_tab(ni)%UVAR,siz)
1379 ENDIF
1380
1381 siz = intbuf_tab(ni)%S_XM0
1382 ALLOCATE(intbuf_tab(ni)%XM0(siz))
1383 IF(siz>0)THEN
1384 CALL read_db(intbuf_tab(ni)%XM0,siz)
1385 ENDIF
1386
1387 siz = intbuf_tab(ni)%S_SPENALTY
1388 ALLOCATE(intbuf_tab(ni)%SPENALTY(siz))
1389 IF(siz>0)THEN
1390 CALL read_db(intbuf_tab(ni)%SPENALTY,siz)
1391 ENDIF
1392
1393 siz = intbuf_tab(ni)%S_STFR_PENALTY
1394 ALLOCATE(intbuf_tab(ni)%STFR_PENALTY(siz))
1395 IF(siz>0)THEN
1396 CALL read_db(intbuf_tab(ni)%STFR_PENALTY,siz)
1397 ENDIF
1398
1399 siz = intbuf_tab(ni)%S_SKEW
1400 ALLOCATE(intbuf_tab(ni)%SKEW(siz))
1401 IF(siz>0)THEN
1402 CALL read_db(intbuf_tab(ni)%SKEW,siz)
1403 ENDIF
1404
1405 siz = intbuf_tab(ni)%S_DSM
1406 ALLOCATE(intbuf_tab(ni)%DSM(siz))
1407 IF(siz>0)THEN
1408 CALL read_db(intbuf_tab(ni)%DSM,siz)
1409 ENDIF
1410
1411 siz = intbuf_tab(ni)%S_FSM
1412 ALLOCATE(intbuf_tab(ni)%FSM(siz))
1413 IF(siz>0)THEN
1414 CALL read_db(intbuf_tab(ni)%FSM,siz)
1415 ENDIF
1416
1417 siz = intbuf_tab(ni)%S_RUPT
1418 ALLOCATE(intbuf_tab(ni)%RUPT(siz))
1419 IF(siz>0)THEN
1420 CALL read_db(intbuf_tab(ni)%RUPT,siz)
1421 ENDIF
1422
1423 siz = intbuf_tab(ni)%S_FINI
1424 ALLOCATE(intbuf_tab(ni)%FINI(siz))
1425 IF(siz>0)THEN
1426 CALL read_db(intbuf_tab(ni)%FINI,siz)
1427 ENDIF
1428
1429 siz = intbuf_tab(ni)%S_STFNS
1430 ALLOCATE(intbuf_tab(ni)%STFNS(siz))
1431 IF(siz>0)THEN
1432 CALL read_db(intbuf_tab(ni)%STFNS,siz)
1433 ENDIF
1434
1435 siz = intbuf_tab(ni)%S_STFM
1436 ALLOCATE(intbuf_tab(ni)%STFM(siz))
1437 IF(siz>0)THEN
1438 CALL read_db(intbuf_tab(ni)%STFM,siz)
1439 ENDIF
1440
1441 siz = intbuf_tab(ni)%S_STFS
1442 ALLOCATE(intbuf_tab(ni)%STFS(siz))
1443 IF(siz>0)THEN
1444 CALL read_db(intbuf_tab(ni)%STFS,siz)
1445 ENDIF
1446
1447 siz = intbuf_tab(ni)%S_PENIM
1448 ALLOCATE(intbuf_tab(ni)%PENIM(siz))
1449 IF(siz>0)THEN
1450 CALL read_db(intbuf_tab(ni)%PENIM,siz)
1451 ENDIF
1452
1453 siz = intbuf_tab(ni)%S_PENIS
1454 ALLOCATE(intbuf_tab(ni)%PENIS(siz))
1455 IF(siz>0)THEN
1456 CALL read_db(intbuf_tab(ni)%PENIS,siz)
1457 ENDIF
1458
1459 siz = intbuf_tab(ni)%S_STIFMSDT_S
1460 ALLOCATE(intbuf_tab(ni)%STIFMSDT_S(siz))
1461 IF(siz>0)THEN
1462 CALL read_db(intbuf_tab(ni)%STIFMSDT_S,siz)
1463 ENDIF
1464
1465 siz = intbuf_tab(ni)%S_STIFMSDT_M
1466 ALLOCATE(intbuf_tab(ni)%STIFMSDT_M(siz))
1467 IF(siz>0)THEN
1468 CALL read_db(intbuf_tab(ni)%STIFMSDT_M,siz)
1469 ENDIF
1470
1471 siz = intbuf_tab(ni)%S_GAP_M
1472 ALLOCATE(intbuf_tab(ni)%GAP_M(siz))
1473 IF(siz>0)THEN
1474 CALL read_db(intbuf_tab(ni)%GAP_M,siz)
1475 ENDIF
1476
1477 siz = intbuf_tab(ni)%S_GAP_S
1478 ALLOCATE(intbuf_tab(ni)%GAP_S(siz))
1479 IF(siz>0)THEN
1480 CALL read_db(intbuf_tab(ni)%GAP_S,siz)
1481 ENDIF
1482
1483 siz = intbuf_tab(ni)%S_XSAV
1484 ALLOCATE(intbuf_tab(ni)%XSAV(siz))
1485 IF(siz>0)THEN
1486 CALL read_db(intbuf_tab(ni)%XSAV,siz)
1487 ENDIF
1488
1489 siz = intbuf_tab(ni)%S_CRIT
1490 ALLOCATE(intbuf_tab(ni)%CRIT(siz))
1491 IF(siz>0)THEN
1492 CALL read_db(intbuf_tab(ni)%CRIT,siz)
1493 ENDIF
1494
1495 siz = intbuf_tab(ni)%S_FRIC_P
1496 ALLOCATE(intbuf_tab(ni)%FRIC_P(siz))
1497 IF(siz>0)THEN
1498 CALL read_db(intbuf_tab(ni)%FRIC_P,siz)
1499 ENDIF
1500
1501 siz = intbuf_tab(ni)%S_XFILTR
1502 ALLOCATE(intbuf_tab(ni)%XFILTR(siz))
1503 IF(siz>0)THEN
1504 CALL read_db(intbuf_tab(ni)%XFILTR,siz)
1505 ENDIF
1506
1507 siz = intbuf_tab(ni)%S_AREAS
1508 ALLOCATE(intbuf_tab(ni)%AREAS(siz))
1509 IF(siz>0)THEN
1510 CALL read_db(intbuf_tab(ni)%AREAS,siz)
1511 ENDIF
1512
1513 siz = intbuf_tab(ni)%S_AREAM
1514 ALLOCATE(intbuf_tab(ni)%AREAM(siz))
1515 IF(siz>0)THEN
1516 CALL read_db(intbuf_tab(ni)%AREAM,siz)
1517 ENDIF
1518
1519 siz = intbuf_tab(ni)%S_GAP_ML
1520 ALLOCATE(intbuf_tab(ni)%GAP_ML(siz))
1521 IF(siz>0)THEN
1522 CALL read_db(intbuf_tab(ni)%GAP_ML,siz)
1523 ENDIF
1524
1525 siz = intbuf_tab(ni)%S_GAP_SL
1526 ALLOCATE(intbuf_tab(ni)%GAP_SL(siz))
1527 IF(siz>0)THEN
1528 CALL read_db(intbuf_tab(ni)%GAP_SL,siz)
1529 ENDIF
1530
1531 siz = intbuf_tab(ni)%S_CAND_P
1532 ALLOCATE(intbuf_tab(ni)%CAND_P(siz))
1533 IF(siz>0)THEN
1534 CALL read_db(intbuf_tab(ni)%CAND_P,siz)
1535 ENDIF
1536
1537 siz = intbuf_tab(ni)%S_CAND_PS
1538 ALLOCATE(intbuf_tab(ni)%CAND_PS(siz))
1539 IF(siz>0)THEN
1540 intbuf_tab(ni)%CAND_PS(1:siz) = zero
1541 siz =intbuf_tab(ni)%I_STOK_E(2)*4
1542 CALL read_db(intbuf_tab(ni)%CAND_PS,siz)
1543 ENDIF
1544
1545 siz = intbuf_tab(ni)%S_GAPE
1546 ALLOCATE(intbuf_tab(ni)%GAPE(siz))
1547 IF(siz>0)THEN
1548 CALL read_db(intbuf_tab(ni)%GAPE,siz)
1549 ENDIF
1550
1551 siz = intbuf_tab(ni)%S_GAP_E_L
1552 ALLOCATE(intbuf_tab(ni)%GAP_E_L(siz))
1553 IF(siz>0)THEN
1554 CALL read_db(intbuf_tab(ni)%GAP_E_L,siz)
1555 ENDIF
1556
1557 siz = intbuf_tab(ni)%S_STFE
1558 ALLOCATE(intbuf_tab(ni)%STFE(siz))
1559 IF(siz>0)THEN
1560 CALL read_db(intbuf_tab(ni)%STFE,siz)
1561 ENDIF
1562
1563 siz = intbuf_tab(ni)%S_STIFMSDT_EDG
1564 ALLOCATE(intbuf_tab(ni)%STIFMSDT_EDG(siz))
1565 IF(siz>0)THEN
1566 CALL read_db(intbuf_tab(ni)%STIFMSDT_EDG,siz)
1567 ENDIF
1568
1569 siz = intbuf_tab(ni)%S_RIGE
1570 ALLOCATE(intbuf_tab(ni)%RIGE(siz))
1571 IF(siz>0)THEN
1572 CALL read_db(intbuf_tab(ni)%RIGE,siz)
1573 ENDIF
1574
1575 siz = intbuf_tab(ni)%S_XIGE
1576 ALLOCATE(intbuf_tab(ni)%XIGE(siz))
1577 IF(siz>0)THEN
1578 CALL read_db(intbuf_tab(ni)%XIGE,siz)
1579 ENDIF
1580
1581 siz = intbuf_tab(ni)%S_VIGE
1582 ALLOCATE(intbuf_tab(ni)%VIGE(siz))
1583 IF(siz>0)THEN
1584 CALL read_db(intbuf_tab(ni)%VIGE,siz)
1585 ENDIF
1586
1587 siz = intbuf_tab(ni)%S_MASSIGE
1588 ALLOCATE(intbuf_tab(ni)%MASSIGE(siz))
1589 IF(siz>0)THEN
1590 CALL read_db(intbuf_tab(ni)%MASSIGE,siz)
1591 ENDIF
1592
1593!type10
1594 siz = intbuf_tab(ni)%S_CAND_F
1595 ALLOCATE(intbuf_tab(ni)%CAND_F(siz))
1596 IF(siz>0)THEN
1597 CALL read_db(intbuf_tab(ni)%CAND_F,siz)
1598 ENDIF
1599!type10
1600 siz = intbuf_tab(ni)%S_FTSAVX
1601 ALLOCATE(intbuf_tab(ni)%FTSAVX(siz))
1602 IF(siz>0)THEN
1603 CALL read_db(intbuf_tab(ni)%FTSAVX,siz)
1604 ENDIF
1605
1606 siz = intbuf_tab(ni)%S_FTSAVY
1607 ALLOCATE(intbuf_tab(ni)%FTSAVY(siz))
1608 IF(siz>0)THEN
1609 CALL read_db(intbuf_tab(ni)%FTSAVY,siz)
1610 ENDIF
1611
1612 siz = intbuf_tab(ni)%S_FTSAVZ
1613 ALLOCATE(intbuf_tab(ni)%FTSAVZ(siz))
1614 IF(siz>0)THEN
1615 CALL read_db(intbuf_tab(ni)%FTSAVZ,siz)
1616 ENDIF
1617
1618!type20
1619 siz = intbuf_tab(ni)%S_CAND_FX
1620 ALLOCATE(intbuf_tab(ni)%CAND_FX(siz))
1621 IF(siz>0)THEN
1622 CALL read_db(intbuf_tab(ni)%CAND_FX,siz)
1623 ENDIF
1624
1625 siz = intbuf_tab(ni)%S_CAND_FY
1626 ALLOCATE(intbuf_tab(ni)%CAND_FY(siz))
1627 IF(siz>0)THEN
1628 CALL read_db(intbuf_tab(ni)%CAND_FY,siz)
1629 ENDIF
1630
1631 siz = intbuf_tab(ni)%S_CAND_FZ
1632 ALLOCATE(intbuf_tab(ni)%CAND_FZ(siz))
1633 IF(siz>0)THEN
1634 CALL read_db(intbuf_tab(ni)%CAND_FZ,siz)
1635 ENDIF
1636
1637 siz = intbuf_tab(ni)%S_XA
1638 ALLOCATE(intbuf_tab(ni)%XA(siz))
1639 IF(siz>0)THEN
1640 CALL read_db(intbuf_tab(ni)%XA,siz)
1641 ENDIF
1642
1643 siz = intbuf_tab(ni)%S_VA
1644 ALLOCATE(intbuf_tab(ni)%VA(siz))
1645 IF(siz>0)THEN
1646 CALL read_db(intbuf_tab(ni)%VA,siz)
1647 ENDIF
1648
1649 siz = intbuf_tab(ni)%S_STFA
1650 ALLOCATE(intbuf_tab(ni)%STFA(siz))
1651 IF(siz>0)THEN
1652 CALL read_db(intbuf_tab(ni)%STFA,siz)
1653 ENDIF
1654
1655 siz = intbuf_tab(ni)%S_PENIA
1656 ALLOCATE(intbuf_tab(ni)%PENIA(siz))
1657 IF(siz>0)THEN
1658 CALL read_db(intbuf_tab(ni)%PENIA,siz)
1659 ENDIF
1660
1661 siz = intbuf_tab(ni)%S_ALPHAK
1662 ALLOCATE(intbuf_tab(ni)%ALPHAK(siz))
1663 IF(siz>0)THEN
1664 CALL read_db(intbuf_tab(ni)%ALPHAK,siz)
1665 ENDIF
1666
1667 siz = intbuf_tab(ni)%S_GAP_SH
1668 ALLOCATE(intbuf_tab(ni)%GAP_SH(siz))
1669 IF(siz>0)THEN
1670 CALL read_db(intbuf_tab(ni)%GAP_SH,siz)
1671 ENDIF
1672
1673 siz = intbuf_tab(ni)%S_AVX_ANCR
1674 ALLOCATE(intbuf_tab(ni)%AVX_ANCR(siz))
1675 IF(siz>0)THEN
1676 CALL read_db(intbuf_tab(ni)%AVX_ANCR,siz)
1677 ENDIF
1678
1679 siz = intbuf_tab(ni)%S_CRITX
1680 ALLOCATE(intbuf_tab(ni)%CRITX(siz))
1681 IF(siz>0)THEN
1682 CALL read_db(intbuf_tab(ni)%CRITX,siz)
1683 ENDIF
1684
1685 siz = intbuf_tab(ni)%S_GAP_ME
1686 ALLOCATE(intbuf_tab(ni)%GAP_ME(siz))
1687 IF(siz>0)THEN
1688 CALL read_db(intbuf_tab(ni)%GAP_ME,siz)
1689 ENDIF
1690
1691 siz = intbuf_tab(ni)%S_STF
1692 ALLOCATE(intbuf_tab(ni)%STF(siz))
1693 IF(siz>0)THEN
1694 CALL read_db(intbuf_tab(ni)%STF,siz)
1695 ENDIF
1696
1697 siz = intbuf_tab(ni)%S_PENIME
1698 ALLOCATE(intbuf_tab(ni)%PENIME(siz))
1699 IF(siz>0)THEN
1700 CALL read_db(intbuf_tab(ni)%PENIME,siz)
1701 ENDIF
1702
1703 siz = intbuf_tab(ni)%S_GAP_SE
1704 ALLOCATE(intbuf_tab(ni)%GAP_SE(siz))
1705 IF(siz>0)THEN
1706 CALL read_db(intbuf_tab(ni)%GAP_SE,siz)
1707 ENDIF
1708
1709 siz = intbuf_tab(ni)%S_PENISE
1710 ALLOCATE(intbuf_tab(ni)%PENISE(siz))
1711 IF(siz>0)THEN
1712 CALL read_db(intbuf_tab(ni)%PENISE,siz)
1713 ENDIF
1714!type20
1715
1716!type1
1717 siz = intbuf_tab(ni)%S_N
1718 ALLOCATE(intbuf_tab(ni)%N(siz))
1719 IF(siz>0)THEN
1720 CALL read_db(intbuf_tab(ni)%N,siz)
1721 ENDIF
1722
1723!type 3,4,5,9
1724 siz = intbuf_tab(ni)%S_CSTM
1725 ALLOCATE(intbuf_tab(ni)%CSTM(siz))
1726 IF(siz>0)THEN
1727 CALL read_db(intbuf_tab(ni)%CSTM,siz)
1728 ENDIF
1729
1730 siz = intbuf_tab(ni)%S_EE
1731 ALLOCATE(intbuf_tab(ni)%EE(siz))
1732 IF(siz>0)THEN
1733 CALL read_db(intbuf_tab(ni)%EE,siz)
1734 ENDIF
1735
1736 siz = intbuf_tab(ni)%S_STFNM
1737 ALLOCATE(intbuf_tab(ni)%STFNM(siz))
1738 IF(siz>0)THEN
1739 CALL read_db(intbuf_tab(ni)%STFNM,siz)
1740 ENDIF
1741
1742 siz = intbuf_tab(ni)%S_FRICOS
1743 ALLOCATE(intbuf_tab(ni)%FRICOS(siz))
1744 IF(siz>0)THEN
1745 CALL read_db(intbuf_tab(ni)%FRICOS,siz)
1746 ENDIF
1747
1748 siz = intbuf_tab(ni)%S_FRICOM
1749 ALLOCATE(intbuf_tab(ni)%FRICOM(siz))
1750 IF(siz>0)THEN
1751 CALL read_db(intbuf_tab(ni)%FRICOM,siz)
1752 ENDIF
1753
1754 siz = intbuf_tab(ni)%S_FTSAV
1755 ALLOCATE(intbuf_tab(ni)%FTSAV(siz))
1756 IF(siz>0)THEN
1757 CALL read_db(intbuf_tab(ni)%FTSAV,siz)
1758 ENDIF
1759
1760!type 6
1761 siz = intbuf_tab(ni)%S_FCONT
1762 ALLOCATE(intbuf_tab(ni)%FCONT(siz))
1763 IF(siz>0)THEN
1764 CALL read_db(intbuf_tab(ni)%FCONT,siz)
1765 ENDIF
1766
1767 siz = intbuf_tab(ni)%S_FS
1768 ALLOCATE(intbuf_tab(ni)%FS(siz))
1769 IF(siz>0)THEN
1770 CALL read_db(intbuf_tab(ni)%FS,siz)
1771 ENDIF
1772
1773 siz = intbuf_tab(ni)%S_FM
1774 ALLOCATE(intbuf_tab(ni)%FM(siz))
1775 IF(siz>0)THEN
1776 CALL read_db(intbuf_tab(ni)%FM,siz)
1777 ENDIF
1778
1779 siz = intbuf_tab(ni)%S_RMAS
1780 ALLOCATE(intbuf_tab(ni)%RMAS(siz))
1781 IF(siz>0)THEN
1782 CALL read_db(intbuf_tab(ni)%RMAS,siz)
1783 ENDIF
1784 siz = intbuf_tab(ni)%S_ANSMX0
1785 ALLOCATE(intbuf_tab(ni)%ANSMX0(siz))
1786 IF(siz>0)THEN
1787 CALL read_db(intbuf_tab(ni)%ANSMX0,siz)
1788 ENDIF
1789!type 8
1790 siz = intbuf_tab(ni)%S_GAPN
1791 ALLOCATE(intbuf_tab(ni)%GAPN(siz))
1792 IF(siz>0)THEN
1793 CALL read_db(intbuf_tab(ni)%GAPN,siz)
1794 ENDIF
1795
1796 siz = intbuf_tab(ni)%S_STF8
1797 ALLOCATE(intbuf_tab(ni)%STF8(siz))
1798 IF(siz>0)THEN
1799 CALL read_db(intbuf_tab(ni)%STF8,siz)
1800 ENDIF
1801
1802!type 14
1803 siz = intbuf_tab(ni)%S_CIMP
1804 ALLOCATE(intbuf_tab(ni)%CIMP(siz))
1805 IF(siz>0)THEN
1806 CALL read_db(intbuf_tab(ni)%CIMP,siz)
1807 ENDIF
1808
1809 siz = intbuf_tab(ni)%S_NIMP
1810 ALLOCATE(intbuf_tab(ni)%NIMP(siz))
1811 IF(siz>0)THEN
1812 CALL read_db(intbuf_tab(ni)%NIMP,siz)
1813 ENDIF
1814
1815!type 15
1816 siz = intbuf_tab(ni)%S_IOLD
1817 ALLOCATE(intbuf_tab(ni)%IOLD(siz))
1818 IF(siz>0)THEN
1819 CALL read_db(intbuf_tab(ni)%IOLD,siz)
1820 ENDIF
1821
1822 siz = intbuf_tab(ni)%S_HOLD
1823 ALLOCATE(intbuf_tab(ni)%HOLD(siz))
1824 IF(siz>0)THEN
1825 CALL read_db(intbuf_tab(ni)%HOLD,siz)
1826 ENDIF
1827
1828 siz = intbuf_tab(ni)%S_NOLD
1829 ALLOCATE(intbuf_tab(ni)%NOLD(siz))
1830 IF(siz>0)THEN
1831 CALL read_db(intbuf_tab(ni)%NOLD,siz)
1832 ENDIF
1833
1834 siz = intbuf_tab(ni)%S_DOLD
1835 ALLOCATE(intbuf_tab(ni)%DOLD(siz))
1836 IF(siz>0)THEN
1837 CALL read_db(intbuf_tab(ni)%DOLD,siz)
1838 ENDIF
1839
1840!type 17
1841 siz = intbuf_tab(ni)%S_KS
1842 ALLOCATE(intbuf_tab(ni)%KS(siz))
1843 IF(siz>0)THEN
1844 CALL read_db(intbuf_tab(ni)%KS,siz)
1845 ENDIF
1846
1847 siz = intbuf_tab(ni)%S_KM
1848 ALLOCATE(intbuf_tab(ni)%KM(siz))
1849 IF(siz>0)THEN
1850 CALL read_db(intbuf_tab(ni)%KM,siz)
1851 ENDIF
1852
1853 siz = intbuf_tab(ni)%S_FROTS
1854 ALLOCATE(intbuf_tab(ni)%FROTS(siz))
1855 IF(siz>0)THEN
1856 CALL read_db(intbuf_tab(ni)%FROTS,siz)
1857 ENDIF
1858
1859 siz = intbuf_tab(ni)%S_FROTM
1860 ALLOCATE(intbuf_tab(ni)%FROTM(siz))
1861 IF(siz>0)THEN
1862 CALL read_db(intbuf_tab(ni)%FROTM,siz)
1863 ENDIF
1864
1865!
1866 siz = intbuf_tab(ni)%S_RCURV
1867 ALLOCATE(intbuf_tab(ni)%RCURV(siz))
1868 IF(siz>0)THEN
1869 CALL read_db(intbuf_tab(ni)%RCURV,siz)
1870 ENDIF
1871
1872 siz = intbuf_tab(ni)%S_ANGLM
1873 ALLOCATE(intbuf_tab(ni)%ANGLM(siz))
1874 IF(siz>0)THEN
1875 CALL read_db(intbuf_tab(ni)%ANGLM,siz)
1876 ENDIF
1877
1878 siz = intbuf_tab(ni)%S_FROT_P
1879 ALLOCATE(intbuf_tab(ni)%FROT_P(siz))
1880 IF(siz>0)THEN
1881 CALL read_db(intbuf_tab(ni)%FROT_P,siz)
1882 ENDIF
1883
1884 siz = intbuf_tab(ni)%S_ALPHA0
1885 ALLOCATE(intbuf_tab(ni)%ALPHA0(siz))
1886 IF(siz>0)THEN
1887 CALL read_db(intbuf_tab(ni)%ALPHA0,siz)
1888 ENDIF
1889
1890 siz = intbuf_tab(ni)%S_AS
1891 ALLOCATE(intbuf_tab(ni)%AS(siz))
1892 IF(siz>0)THEN
1893 CALL read_db(intbuf_tab(ni)%AS,siz)
1894 ENDIF
1895
1896 siz = intbuf_tab(ni)%S_BS
1897 ALLOCATE(intbuf_tab(ni)%BS(siz))
1898 IF(siz>0)THEN
1899 CALL read_db(intbuf_tab(ni)%BS,siz)
1900 ENDIF
1901
1902 siz = intbuf_tab(ni)%S_THKNOD0
1903 ALLOCATE(intbuf_tab(ni)%THKNOD0(siz))
1904 IF(siz>0)THEN
1905 CALL read_db(intbuf_tab(ni)%THKNOD0,siz)
1906 ENDIF
1907
1908!type 24 & 25
1909
1910 siz = intbuf_tab(ni)%S_GAPN_M
1911 ALLOCATE(intbuf_tab(ni)%GAPN_M(siz))
1912 IF(siz>0)THEN
1913 CALL read_db(intbuf_tab(ni)%GAPN_M,siz)
1914 ENDIF
1915
1916 siz = intbuf_tab(ni)%S_SECND_FR
1917 ALLOCATE(intbuf_tab(ni)%SECND_FR(siz))
1918 IF(siz>0)THEN
1919 CALL read_db(intbuf_tab(ni)%SECND_FR,siz)
1920 ENDIF
1921
1922 siz = intbuf_tab(ni)%S_PENE_OLD
1923 ALLOCATE(intbuf_tab(ni)%PENE_OLD(siz))
1924 IF(siz>0)THEN
1925 CALL read_db(intbuf_tab(ni)%PENE_OLD,siz)
1926 ENDIF
1927
1928 siz = intbuf_tab(ni)%S_STIF_OLD
1929 ALLOCATE(intbuf_tab(ni)%STIF_OLD(siz))
1930 IF(siz>0)THEN
1931 CALL read_db(intbuf_tab(ni)%STIF_OLD,siz)
1932 ENDIF
1933
1934 siz = intbuf_tab(ni)%S_TIME_S
1935 ALLOCATE(intbuf_tab(ni)%TIME_S(siz))
1936 IF(siz>0)THEN
1937 CALL read_db(intbuf_tab(ni)%TIME_S,siz)
1938 ENDIF
1939
1940 siz = intbuf_tab(ni)%S_GAP_NM
1941 ALLOCATE(intbuf_tab(ni)%GAP_NM(siz))
1942 IF(siz>0)THEN
1943 CALL read_db(intbuf_tab(ni)%GAP_NM,siz)
1944 ENDIF
1945
1946 siz = intbuf_tab(ni)%S_EDGE8L2
1947 ALLOCATE(intbuf_tab(ni)%EDGE8L2(siz))
1948 IF(siz>0)THEN
1949 CALL read_db(intbuf_tab(ni)%EDGE8L2,siz)
1950 ENDIF
1951
1952 siz = intbuf_tab(ni)%S_NOD_2RY_LGTH
1953 ALLOCATE(intbuf_tab(ni)%NOD_2RY_LGTH(siz))
1954 IF(siz>0)THEN
1955 CALL read_db(intbuf_tab(ni)%NOD_2RY_LGTH,siz)
1956 ENDIF
1957
1958 siz = intbuf_tab(ni)%S_NOD_MAS_LGTH
1959 ALLOCATE(intbuf_tab(ni)%NOD_MAS_LGTH(siz))
1960 IF(siz>0)THEN
1961 CALL read_db(intbuf_tab(ni)%NOD_MAS_LGTH,siz)
1962 ENDIF
1963
1964 siz = intbuf_tab(ni)%S_GAP_N0
1965 ALLOCATE(intbuf_tab(ni)%GAP_N0(siz))
1966 IF(siz>0)THEN
1967 CALL read_db(intbuf_tab(ni)%GAP_N0,siz)
1968 ENDIF
1969
1970 siz = intbuf_tab(ni)%S_DGAP_NM
1971 ALLOCATE(intbuf_tab(ni)%DGAP_NM(siz))
1972 IF(siz>0)THEN
1973 CALL read_db(intbuf_tab(ni)%DGAP_NM,siz)
1974 ENDIF
1975
1976 siz = intbuf_tab(ni)%S_DGAP_M
1977 ALLOCATE(intbuf_tab(ni)%DGAP_M(siz))
1978 IF(siz>0)THEN
1979 CALL read_db(intbuf_tab(ni)%DGAP_M,siz)
1980 ENDIF
1981
1982 siz = intbuf_tab(ni)%S_DELTA_PMAX_DGAP
1983 ALLOCATE(intbuf_tab(ni)%DELTA_PMAX_DGAP(siz))
1984 IF(siz>0)THEN
1985 CALL read_db(intbuf_tab(ni)%DELTA_PMAX_DGAP,siz)
1986 ENDIF
1987
1988 siz = intbuf_tab(ni)%S_XFIC
1989 ALLOCATE(intbuf_tab(ni)%XFIC(siz))
1990 IF(siz>0)THEN
1991 CALL read_db(intbuf_tab(ni)%XFIC,siz)
1992 ENDIF
1993
1994 siz = intbuf_tab(ni)%S_VFIC
1995 ALLOCATE(intbuf_tab(ni)%VFIC(siz))
1996 IF(siz>0)THEN
1997 CALL read_db(intbuf_tab(ni)%VFIC,siz)
1998 ENDIF
1999
2000 siz = intbuf_tab(ni)%S_MSFIC
2001
2002 ALLOCATE(intbuf_tab(ni)%MSFIC(siz))
2003 IF(siz>0)THEN
2004 CALL read_db(intbuf_tab(ni)%MSFIC,siz)
2005 ENDIF
2006
2007!type 25
2008 siz = intbuf_tab(ni)%S_EDGE_BISECTOR
2009 ALLOCATE(intbuf_tab(ni)%EDGE_BISECTOR(siz))
2010 IF(siz>0)THEN
2011 intbuf_tab(ni)%EDGE_BISECTOR(1:siz) = 0
2012 ENDIF
2013
2014 siz = intbuf_tab(ni)%S_PENM
2015 ALLOCATE(intbuf_tab(ni)%PENM(siz))
2016 IF(siz>0)THEN
2017 intbuf_tab(ni)%PENM(1:siz) = 0
2018 ENDIF
2019
2020 siz = intbuf_tab(ni)%S_DISTM
2021 ALLOCATE(intbuf_tab(ni)%DISTM(siz))
2022 IF(siz>0)THEN
2023 intbuf_tab(ni)%DISTM(1:siz) = 0
2024 ENDIF
2025
2026 siz = intbuf_tab(ni)%S_LBM
2027 ALLOCATE(intbuf_tab(ni)%LBM(siz))
2028 IF(siz>0)THEN
2029 intbuf_tab(ni)%LBM(1:siz) = 0
2030 ENDIF
2031
2032 siz = intbuf_tab(ni)%S_LCM
2033 ALLOCATE(intbuf_tab(ni)%LCM(siz))
2034 IF(siz>0)THEN
2035 intbuf_tab(ni)%LCM(1:siz) = 0
2036 ENDIF
2037
2038 siz = intbuf_tab(ni)%S_VTX_BISECTOR
2039 ALLOCATE(intbuf_tab(ni)%VTX_BISECTOR(siz))
2040 IF(siz>0)THEN
2041 intbuf_tab(ni)%VTX_BISECTOR(1:siz) = 0
2042 ENDIF
2043
2044!type 21 & 25
2045 siz = intbuf_tab(ni)%S_NOD_NORMAL
2046 ALLOCATE(intbuf_tab(ni)%NOD_NORMAL(siz))
2047 IF(siz>0)THEN
2048 CALL read_db(intbuf_tab(ni)%NOD_NORMAL,siz)
2049 ENDIF
2050
2051!type 8
2052 IF(intbuf_tab(ni)%S_T8 == 1) THEN
2053 CALL intbuf_ini_t8(intbuf_tab(ni)%T8)
2054 ENDIF
2055!type 2
2056 siz = intbuf_tab(ni)%S_CSTS_BIS
2057 ALLOCATE(intbuf_tab(ni)%CSTS_BIS(siz))
2058 IF(siz>0)THEN
2059 CALL read_db(intbuf_tab(ni)%CSTS_BIS,siz)
2060 ENDIF
2061!Orthotropic Friction
2062 siz = intbuf_tab(ni)%S_DIR_FRICM
2063 ALLOCATE(intbuf_tab(ni)%DIR_FRICM(siz))
2064 IF(siz>0)THEN
2065 CALL read_db(intbuf_tab(ni)%DIR_FRICM,siz)
2066 ENDIF
2067
2068 siz = intbuf_tab(ni)%S_GAPMSAV
2069 ALLOCATE(intbuf_tab(ni)%GAPMSAV(siz))
2070 IF(siz>0)THEN
2071 CALL read_db(intbuf_tab(ni)%GAPMSAV,siz)
2072 ENDIF
2073
2074 siz = intbuf_tab(ni)%S_FTSAVX_E
2075 ALLOCATE(intbuf_tab(ni)%FTSAVX_E(siz))
2076 IF(siz>0)THEN
2077 CALL decompress_r_nnz(intbuf_tab(ni)%FTSAVX_E,siz)
2078 ENDIF
2079
2080 siz = intbuf_tab(ni)%S_FTSAVY_E
2081 ALLOCATE(intbuf_tab(ni)%FTSAVY_E(siz))
2082 IF(siz>0)THEN
2083 CALL decompress_r_nnz(intbuf_tab(ni)%FTSAVY_E,siz)
2084 ENDIF
2085
2086 siz = intbuf_tab(ni)%S_FTSAVZ_E
2087 ALLOCATE(intbuf_tab(ni)%FTSAVZ_E(siz))
2088 IF(siz>0)THEN
2089 IF(siz>0) CALL decompress_r_nnz(intbuf_tab(ni)%FTSAVZ_E,siz)
2090 ENDIF
2091
2092 siz = intbuf_tab(ni)%S_FTSAVX_E2S
2093 ALLOCATE(intbuf_tab(ni)%FTSAVX_E2S(siz))
2094 IF(siz>0)THEN
2095 intbuf_tab(ni)%FTSAVX_E2S(1:siz) = zero
2096 siz =intbuf_tab(ni)%I_STOK_E(2)*4
2097 IF(siz>0) CALL decompress_r_nnz(intbuf_tab(ni)%FTSAVX_E2S,siz)
2098 ENDIF
2099
2100 siz = intbuf_tab(ni)%S_FTSAVY_E2S
2101 ALLOCATE(intbuf_tab(ni)%FTSAVY_E2S(siz))
2102 IF(siz>0)THEN
2103 intbuf_tab(ni)%FTSAVY_E2S(1:siz) = zero
2104 siz =intbuf_tab(ni)%I_STOK_E(2)*4
2105 IF(siz>0) CALL decompress_r_nnz(intbuf_tab(ni)%FTSAVY_E2S,siz)
2106 ENDIF
2107
2108 siz = intbuf_tab(ni)%S_FTSAVZ_E2S
2109 ALLOCATE(intbuf_tab(ni)%FTSAVZ_E2S(siz))
2110 IF(siz>0)THEN
2111 intbuf_tab(ni)%FTSAVZ_E2S(1:siz) = zero
2112 siz =intbuf_tab(ni)%I_STOK_E(2)*4
2113 IF(siz >0) CALL decompress_r_nnz(intbuf_tab(ni)%FTSAVZ_E2S,siz)
2114 ENDIF
2115
2116 siz = intbuf_tab(ni)%S_E2S_NOD_NORMAL
2117 ALLOCATE(intbuf_tab(ni)%E2S_NOD_NORMAL(siz))
2118 IF(siz>0)THEN
2119 intbuf_tab(ni)%E2S_NOD_NORMAL(1:siz) = 0
2120 ENDIF
2121
2122 ENDDO !NI=1,NINTER
2123
2124 DEALLOCATE(intbuf_size)
2125C-----
2126 RETURN
2127
decompress_i_nnz
subroutine decompress_i_nnz(array, len)
Definition decompress_nnz.F:32
decompress_r_nnz
subroutine decompress_r_nnz(array, len)
Definition decompress_nnz.F:71
intbuf_ini_t8
subroutine intbuf_ini_t8(t8)
Definition intbuf_ini.F:2139
message_mod
Definition message_mod.F:1249
read_db
subroutine read_db(a, n)
Definition read_db.F:88
arret
subroutine arret(nn)
Definition arret.F:87
read_i_c
void read_i_c(int *w, int *len)
Definition write_routtines.c:805

◆ intbuf_ini_t8()

subroutine intbuf_ini_t8 ( type(int8_struct_) t8)

Definition at line 2138 of file intbuf_ini.F.

2139C Reads the T8 structures
2140
2141C-----------------------------------------------
2142C M o d u l e s
2143C-----------------------------------------------
2144 USE int8_mod
2145C-----------------------------------------------
2146C I m p l i c i t T y p e s
2147C-----------------------------------------------
2148#include "implicit_f.inc"
2149C-----------------------------------------------
2150C C o m m o n B l o c k s
2151C-----------------------------------------------
2152#include "param_c.inc"
2153#include "com01_c.inc"
2154#include "com04_c.inc"
2155C-----------------------------------------------
2156C D u m m y A r g u m e n t s
2157C-----------------------------------------------
2158 TYPE(INT8_STRUCT_) :: T8
2159C-----------------------------------------------
2160C L o c a l V a r i a b l e s
2161C-----------------------------------------------
2162 INTEGER K,NBS_INTERF,NBM_INTERF,SIZ,P2
2163 IF(nspmd > 1) THEN
2164 ! Specific T8 structures has to be read only
2165 ! In SPMD
2166
2167 t8%IS_ACTIVATED = 0
2168
2169 CALL read_i_c(siz,1)
2170 t8%S_COMM = siz
2171 ALLOCATE(t8%SPMD_COMM_PATTERN(siz))
2172 DO k=1,t8%S_COMM
2173 CALL read_i_c(t8%SPMD_COMM_PATTERN(k)%NUMLOC,1)
2174 CALL read_i_c(t8%SPMD_COMM_PATTERN(k)%UID,1)
2175 CALL read_i_c(t8%SPMD_COMM_PATTERN(k)%NBCOM,1)
2176 ALLOCATE(t8%SPMD_COMM_PATTERN(k)%PROCLIST(nspmd))
2177 ALLOCATE(t8%SPMD_COMM_PATTERN(k)%BUF_INDEX(nspmd))
2178 CALL read_i_c(t8%SPMD_COMM_PATTERN(k)%PROCLIST,nspmd)
2179 CALL read_i_c(t8%SPMD_COMM_PATTERN(k)%BUF_INDEX,nspmd)
2180 ENDDO
2181 ALLOCATE(t8%BUFFER(nspmd))
2182 DO p2=1,nspmd
2183 CALL read_i_c(nbm_interf,1)
2184 CALL read_i_c(nbs_interf,1)
2185 t8%BUFFER(p2)%NBSECND_TOT = nbs_interf
2186 t8%BUFFER(p2)%NBMAIN = nbm_interf
2187
2188 !nb secnds per main
2189
2190 IF(nbm_interf > 0) THEN
2191 ALLOCATE(t8%BUFFER(p2)%NBSECND(nbm_interf))
2192 ALLOCATE(t8%BUFFER(p2)%MAIN_ID(nbm_interf))
2193 ALLOCATE(t8%BUFFER(p2)%MAIN_UID(nbm_interf))
2194 CALL read_i_c(t8%BUFFER(p2)%NBSECND,nbm_interf)
2195 CALL read_i_c(t8%BUFFER(p2)%MAIN_ID,nbm_interf)
2196 CALL read_i_c(t8%BUFFER(p2)%MAIN_UID,nbm_interf)
2197 ELSE
2198 ALLOCATE(t8%BUFFER(p2)%NBSECND(1))
2199 ALLOCATE(t8%BUFFER(p2)%MAIN_ID(1))
2200 ALLOCATE(t8%BUFFER(p2)%MAIN_UID(1))
2201 ENDIF
2202
2203 IF(nbs_interf > 0) THEN
2204 ALLOCATE(t8%BUFFER(p2)%SECND_ID(nbs_interf))
2205 ALLOCATE(t8%BUFFER(p2)%SECND_UID(nbs_interf))
2206 ELSE
2207 ALLOCATE(t8%BUFFER(p2)%SECND_ID(1))
2208 ALLOCATE(t8%BUFFER(p2)%SECND_UID(1))
2209 ENDIF
2210 ENDDO
2211 ENDIF !NSPMD > 1
2212
2213 RETURN