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