OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
copy_intbuf_tab.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!|| copy_intbuf_tab ../common_source/interf/copy_intbuf_tab.F
25!||--- called by ------------------------------------------------------
26!|| cp_impbuf ../engine/source/implicit/produt_v.F
27!||--- uses -----------------------------------------------------
28!|| intbufdef_mod ../common_source/modules/interfaces/intbufdef_mod.F90
29!||====================================================================
30 SUBROUTINE copy_intbuf_tab(INTBUF_TAB, INTBUF_TAB_C)
31C-----------------------------------------------
32C M o d u l e s
33C-----------------------------------------------
34 USE intbufdef_mod
35C-----------------------------------------------
36C I m p l i c i t T y p e s
37C-----------------------------------------------
38#include "implicit_f.inc"
39C-----------------------------------------------
40C C o m m o n B l o c k s
41C-----------------------------------------------
42#include "param_c.inc"
43#include "com04_c.inc"
44C-----------------------------------------------
45C D u m m y A r g u m e n t s
46C-----------------------------------------------
47 TYPE(intbuf_struct_) INTBUF_TAB, INTBUF_TAB_C
48C-----------------------------------------------
49C L o c a l V a r i a b l e s
50C-----------------------------------------------
51 INTEGER I,SIZ,OLD_SIZ
52C=======================================================================
53
54! re-set to old sizes and reallocate only arrays that have potential size
55! changes with MULTIMP, other sizes should not have been modified
56
57 siz = intbuf_tab%S_CAND_E
58 intbuf_tab_c%S_CAND_E = siz
59 IF (ALLOCATED(intbuf_tab_c%CAND_E))DEALLOCATE(intbuf_tab_c%CAND_E)
60 ALLOCATE(intbuf_tab_c%CAND_E(siz))
61
62 siz = intbuf_tab%S_CAND_N
63 intbuf_tab_c%S_CAND_N = siz
64 IF (ALLOCATED(intbuf_tab_c%CAND_N))DEALLOCATE(intbuf_tab_c%CAND_N)
65 ALLOCATE(intbuf_tab_c%CAND_N(siz))
66
67 siz = intbuf_tab%S_IFPEN
68 intbuf_tab_c%S_IFPEN = siz
69 IF (ALLOCATED(intbuf_tab_c%IFPEN))DEALLOCATE(intbuf_tab_c%IFPEN)
70 ALLOCATE(intbuf_tab_c%IFPEN(siz))
71
72 siz = intbuf_tab%S_IPARTFRICS
73 intbuf_tab_c%S_IPARTFRICS = siz
74 IF (ALLOCATED(intbuf_tab_c%IPARTFRICS))DEALLOCATE(intbuf_tab_c%IPARTFRICS)
75 ALLOCATE(intbuf_tab_c%IPARTFRICS(siz))
76
77 siz = intbuf_tab%S_IPARTFRICM
78 intbuf_tab_c%S_IPARTFRICM = siz
79 IF (ALLOCATED(intbuf_tab_c%IPARTFRICM))DEALLOCATE(intbuf_tab_c%IPARTFRICM)
80 ALLOCATE(intbuf_tab_c%IPARTFRICM(siz))
81
82 siz = intbuf_tab%S_IREP_FRICM
83 intbuf_tab_c%S_IREP_FRICM = siz
84 IF (ALLOCATED(intbuf_tab_c%IREP_FRICM))DEALLOCATE(intbuf_tab_c%IREP_FRICM)
85 ALLOCATE(intbuf_tab_c%IREP_FRICM(siz))
86
87 siz = intbuf_tab_c%S_FTSAVX
88 IF (ALLOCATED(intbuf_tab_c%FTSAVX))DEALLOCATE(intbuf_tab_c%FTSAVX)
89 old_siz = intbuf_tab%S_FTSAVX
90 intbuf_tab_c%S_FTSAVX = old_siz
91 ALLOCATE(intbuf_tab_c%FTSAVX(old_siz))
92
93 siz = intbuf_tab_c%S_FTSAVY
94 IF (ALLOCATED(intbuf_tab_c%FTSAVY))DEALLOCATE(intbuf_tab_c%FTSAVY)
95 old_siz = intbuf_tab%S_FTSAVY
96 intbuf_tab_c%S_FTSAVY = old_siz
97 ALLOCATE(intbuf_tab_c%FTSAVY(old_siz))
98
99 siz = intbuf_tab_c%S_FTSAVZ
100 IF (ALLOCATED(intbuf_tab_c%FTSAVZ))DEALLOCATE(intbuf_tab_c%FTSAVZ)
101 old_siz = intbuf_tab%S_FTSAVZ
102 intbuf_tab_c%S_FTSAVZ = old_siz
103 ALLOCATE(intbuf_tab_c%FTSAVZ(old_siz))
104
105 siz = intbuf_tab_c%S_CAND_P
106 IF (ALLOCATED(intbuf_tab_c%CAND_P))DEALLOCATE(intbuf_tab_c%CAND_P)
107 old_siz = intbuf_tab%S_CAND_P
108 intbuf_tab_c%S_CAND_P = old_siz
109 ALLOCATE(intbuf_tab_c%CAND_P(old_siz))
110
111 siz = intbuf_tab_c%S_CAND_PS
112 IF (ALLOCATED(intbuf_tab_c%CAND_PS))DEALLOCATE(intbuf_tab_c%CAND_PS)
113 old_siz = intbuf_tab%S_CAND_PS
114 intbuf_tab_c%S_CAND_PS = old_siz
115 ALLOCATE(intbuf_tab_c%CAND_PS(old_siz))
116
117
118 siz = intbuf_tab_c%S_CAND_F
119 IF (ALLOCATED(intbuf_tab_c%CAND_F))DEALLOCATE(intbuf_tab_c%CAND_F)
120 old_siz = intbuf_tab%S_CAND_F
121 intbuf_tab_c%S_CAND_F = old_siz
122 ALLOCATE(intbuf_tab_c%CAND_F(old_siz))
123
124 siz = intbuf_tab_c%S_CHAIN
125 IF (ALLOCATED(intbuf_tab_c%CHAIN))DEALLOCATE(intbuf_tab_c%CHAIN)
126 old_siz = intbuf_tab%S_CHAIN
127 intbuf_tab_c%S_CHAIN = old_siz
128 ALLOCATE(intbuf_tab_c%CHAIN(old_siz))
129
130 siz = intbuf_tab_c%S_LCAND_N
131 IF (ALLOCATED(intbuf_tab_c%LCAND_N))DEALLOCATE(intbuf_tab_c%LCAND_N)
132 old_siz = intbuf_tab%S_LCAND_N
133 intbuf_tab_c%S_LCAND_N = old_siz
134 ALLOCATE(intbuf_tab_c%LCAND_N(old_siz))
135
136 siz = intbuf_tab_c%S_LCAND_S
137 IF (ALLOCATED(intbuf_tab_c%LCAND_S))DEALLOCATE(intbuf_tab_c%LCAND_S)
138 old_siz = intbuf_tab%S_LCAND_S
139 intbuf_tab_c%S_LCAND_S = old_siz
140 ALLOCATE(intbuf_tab_c%LCAND_S(old_siz))
141
142 siz = intbuf_tab_c%S_CHAIN20
143 IF (ALLOCATED(intbuf_tab_c%CHAIN20))DEALLOCATE(intbuf_tab_c%CHAIN20)
144 old_siz = intbuf_tab%S_CHAIN20
145 intbuf_tab_c%S_CHAIN20 = old_siz
146 ALLOCATE(intbuf_tab_c%CHAIN20(old_siz))
147
148 siz = intbuf_tab_c%S_CAND_FX
149 IF (ALLOCATED(intbuf_tab_c%CAND_FX))DEALLOCATE(intbuf_tab_c%CAND_FX)
150 old_siz = intbuf_tab%S_CAND_FX
151 intbuf_tab_c%S_CAND_FX = old_siz
152 ALLOCATE(intbuf_tab_c%CAND_FX(old_siz))
153
154 siz = intbuf_tab_c%S_CAND_FY
155 IF (ALLOCATED(intbuf_tab_c%CAND_FY))DEALLOCATE(intbuf_tab_c%CAND_FY)
156 old_siz = intbuf_tab%S_CAND_FY
157 intbuf_tab_c%S_CAND_FY = old_siz
158 ALLOCATE(intbuf_tab_c%CAND_FY(old_siz))
159
160 siz = intbuf_tab_c%S_CAND_FZ
161 IF (ALLOCATED(intbuf_tab_c%CAND_FZ))DEALLOCATE(intbuf_tab_c%CAND_FZ)
162 old_siz = intbuf_tab%S_CAND_FZ
163 intbuf_tab_c%S_CAND_FZ = old_siz
164 ALLOCATE(intbuf_tab_c%CAND_FZ(old_siz))
165
166 siz = intbuf_tab_c%S_CAND_T
167 IF (ALLOCATED(intbuf_tab_c%CAND_T))DEALLOCATE(intbuf_tab_c%CAND_T)
168 old_siz = intbuf_tab%S_CAND_T
169 intbuf_tab_c%S_CAND_T = old_siz
170 ALLOCATE(intbuf_tab_c%CAND_T(old_siz))
171
172 siz = intbuf_tab%S_IELNRTS
173 intbuf_tab_c%S_IELNRTS = siz
174 IF (ALLOCATED(intbuf_tab_c%IELNRTS))DEALLOCATE(intbuf_tab_c%IELNRTS)
175 ALLOCATE(intbuf_tab_c%IELNRTS(siz))
176
177 siz = intbuf_tab%S_ADRECTS
178 intbuf_tab_c%S_ADRECTS = siz
179 IF (ALLOCATED(intbuf_tab_c%ADRECTS))DEALLOCATE(intbuf_tab_c%ADRECTS)
180 ALLOCATE(intbuf_tab_c%ADRECTS(siz))
181
182 siz = intbuf_tab%S_FACNRTS
183 intbuf_tab_c%S_FACNRTS = siz
184 IF (ALLOCATED(intbuf_tab_c%FACNRTS))DEALLOCATE(intbuf_tab_c%FACNRTS)
185 ALLOCATE(intbuf_tab_c%FACNRTS(siz))
186
187
188! copy all integers arrays
189
190 siz = intbuf_tab%S_IRECTS
191 DO i=1, siz
192 intbuf_tab_c%IRECTS(i) = intbuf_tab%IRECTS(i)
193 ENDDO
194
195 siz = intbuf_tab%S_IRECTM
196 DO i=1, siz
197 intbuf_tab_c%IRECTM(i) = intbuf_tab%IRECTM(i)
198 ENDDO
199
200 siz = intbuf_tab%S_NSV
201 DO i=1, siz
202 intbuf_tab_c%NSV(i) = intbuf_tab%NSV(i)
203 ENDDO
204
205 siz = intbuf_tab%S_MSR
206 DO i=1, siz
207 intbuf_tab_c%MSR(i) = intbuf_tab%MSR(i)
208 ENDDO
209
210 siz = intbuf_tab%S_IRTLM
211 DO i=1, siz
212 intbuf_tab_c%IRTLM(i) = intbuf_tab%IRTLM(i)
213 ENDDO
214
215 siz = intbuf_tab%S_IRUPT
216 DO i=1, siz
217 intbuf_tab_c%IRUPT(i) = intbuf_tab%IRUPT(i)
218 ENDDO
219
220 siz = intbuf_tab%S_INORM
221 DO i=1, siz
222 intbuf_tab_c%INORM(i) = intbuf_tab%INORM(i)
223 ENDDO
224
225 siz = intbuf_tab%S_IELEC
226 DO i=1, siz
227 intbuf_tab_c%IELEC(i) = intbuf_tab%IELEC(i)
228 ENDDO
229
230 siz = intbuf_tab%S_IELES
231 DO i=1, siz
232 intbuf_tab_c%IELES(i) = intbuf_tab%IELES(i)
233 ENDDO
234
235 siz = intbuf_tab%S_LISUB
236 DO i=1, siz
237 intbuf_tab_c%LISUB(i) = intbuf_tab%LISUB(i)
238 ENDDO
239
240 siz = intbuf_tab%S_TYPSUB
241 DO i=1, siz
242 intbuf_tab_c%TYPSUB(i) = intbuf_tab%TYPSUB(i)
243 ENDDO
244
245 siz = intbuf_tab%S_ADDSUBS
246 DO i=1, siz
247 intbuf_tab_c%ADDSUBS(i) = intbuf_tab%ADDSUBS(i)
248 ENDDO
249
250 siz = intbuf_tab%S_ADDSUBM
251 DO i=1, siz
252 intbuf_tab_c%ADDSUBM(i) = intbuf_tab%ADDSUBM(i)
253 ENDDO
254
255 siz = intbuf_tab%S_LISUBS
256 DO i=1, siz
257 intbuf_tab_c%LISUBS(i) = intbuf_tab%LISUBS(i)
258 ENDDO
259
260 siz = intbuf_tab%S_LISUBM
261 DO i=1, siz
262 intbuf_tab_c%LISUBM(i) = intbuf_tab%LISUBM(i)
263 ENDDO
264
265 siz = intbuf_tab%S_CAND_E
266 DO i=1, siz
267 intbuf_tab_c%CAND_E(i) = intbuf_tab%CAND_E(i)
268 ENDDO
269
270 siz = intbuf_tab%S_CAND_N
271 DO i=1, siz
272 intbuf_tab_c%CAND_N(i) = intbuf_tab%CAND_N(i)
273 ENDDO
274
275 siz = intbuf_tab%S_I_STOK
276 DO i=1, siz
277 intbuf_tab_c%I_STOK(i) = intbuf_tab%I_STOK(i)
278 ENDDO
279
280 siz = intbuf_tab%S_LCAND_N
281 DO i=1, siz
282 intbuf_tab_c%LCAND_N(i) = intbuf_tab%LCAND_N(i)
283 ENDDO
284
285 siz = intbuf_tab%S_LCAND_S
286 DO i=1, siz
287 intbuf_tab_c%LCAND_S(i) = intbuf_tab%LCAND_S(i)
288 ENDDO
289
290 siz = intbuf_tab%S_I_STOK_E
291 DO i=1, siz
292 intbuf_tab_c%I_STOK_E(i) = intbuf_tab%I_STOK_E(i)
293 ENDDO
294
295 siz = intbuf_tab%S_IFPEN
296 DO i=1, siz
297 intbuf_tab_c%IFPEN(i) = intbuf_tab%IFPEN(i)
298 ENDDO
299
300 siz = intbuf_tab%S_IPARTFRICS
301 DO i=1, siz
302 intbuf_tab_c%IPARTFRICS(i) = intbuf_tab%IPARTFRICS(i)
303 ENDDO
304
305 siz = intbuf_tab%S_IPARTFRICM
306 DO i=1, siz
307 intbuf_tab_c%IPARTFRICM(i) = intbuf_tab%IPARTFRICM(i)
308 ENDDO
309
310 siz = intbuf_tab%S_IREP_FRICM
311 DO i=1, siz
312 intbuf_tab_c%IREP_FRICM(i) = intbuf_tab%IREP_FRICM(i)
313 ENDDO
314
315 siz = intbuf_tab%S_KREMNODE
316 DO i=1, siz
317 intbuf_tab_c%KREMNODE(i) = intbuf_tab%KREMNODE(i)
318 ENDDO
319
320 siz = intbuf_tab%S_REMNODE
321 DO i=1, siz
322 intbuf_tab_c%REMNODE(i) = intbuf_tab%REMNODE(i)
323 ENDDO
324
325 siz = intbuf_tab%S_KREMNOR
326 DO i=1, siz
327 intbuf_tab_c%KREMNOR(i) = intbuf_tab%KREMNOR(i)
328 ENDDO
329
330 siz = intbuf_tab%S_REMNOR
331 DO i=1, siz
332 intbuf_tab_c%REMNOR(i) = intbuf_tab%REMNOR(i)
333 ENDDO
334
335 siz = intbuf_tab%S_ADCCM
336 DO i=1, siz
337 intbuf_tab_c%ADCCM(i) = intbuf_tab%ADCCM(i)
338 ENDDO
339
340 siz = intbuf_tab%S_CHAIN
341 DO i=1, siz
342 intbuf_tab_c%CHAIN(i) = intbuf_tab%CHAIN(i)
343 ENDDO
344
345 siz = intbuf_tab%S_NBINFLG
346 DO i=1, siz
347 intbuf_tab_c%NBINFLG(i) = intbuf_tab%NBINFLG(i)
348 ENDDO
349
350 siz = intbuf_tab%S_MBINFLG
351 DO i=1, siz
352 intbuf_tab_c%MBINFLG(i) = intbuf_tab%MBINFLG(i)
353 ENDDO
354
355 siz = intbuf_tab%S_NLG
356 DO i=1, siz
357 intbuf_tab_c%NLG(i) = intbuf_tab%NLG(i)
358 ENDDO
359
360 siz = intbuf_tab%S_DAANC6
361 DO i=1, siz
362 intbuf_tab_c%DAANC6(i) = intbuf_tab%DAANC6(i)
363 ENDDO
364
365 siz = intbuf_tab%S_ISLINS
366 DO i=1, siz
367 intbuf_tab_c%ISLINS(i) = intbuf_tab%ISLINS(i)
368 ENDDO
369
370 siz = intbuf_tab%S_IXLINS
371 DO i=1, siz
372 intbuf_tab_c%IXLINS(i) = intbuf_tab%IXLINS(i)
373 ENDDO
374
375 siz = intbuf_tab%S_IXLINM
376 DO i=1, siz
377 intbuf_tab_c%IXLINM(i) = intbuf_tab%IXLINM(i)
378 ENDDO
379
380 siz = intbuf_tab%S_MSRL
381 DO i=1, siz
382 intbuf_tab_c%MSRL(i) = intbuf_tab%MSRL(i)
383 ENDDO
384
385 siz = intbuf_tab%S_NSVL
386 DO i=1, siz
387 intbuf_tab_c%NSVL(i) = intbuf_tab%NSVL(i)
388 ENDDO
389
390 siz = intbuf_tab%S_ADCCM20
391 DO i=1, siz
392 intbuf_tab_c%ADCCM20(i) = intbuf_tab%ADCCM20(i)
393 ENDDO
394
395 siz = intbuf_tab%S_CHAIN20
396 DO i=1, siz
397 intbuf_tab_c%CHAIN20(i) = intbuf_tab%CHAIN20(i)
398 ENDDO
399
400 siz = intbuf_tab%S_ILOCS
401 DO i=1, siz
402 intbuf_tab_c%ILOCS(i) = intbuf_tab%ILOCS(i)
403 ENDDO
404
405 siz = intbuf_tab%S_NSEGM
406 DO i=1, siz
407 intbuf_tab_c%NSEGM(i) = intbuf_tab%NSEGM(i)
408 ENDDO
409
410 siz = intbuf_tab%S_NRT
411 DO i=1, siz
412 intbuf_tab_c%NRT(i) = intbuf_tab%NRT(i)
413 ENDDO
414
415 siz = intbuf_tab%S_IRTLS
416 DO i=1, siz
417 intbuf_tab_c%IRTLS(i) = intbuf_tab%IRTLS(i)
418 ENDDO
419
420 siz = intbuf_tab%S_ILOCM
421 DO i=1, siz
422 intbuf_tab_c%ILOCM(i) = intbuf_tab%ILOCM(i)
423 ENDDO
424
425 siz = intbuf_tab%S_IRTLOM
426 DO i=1, siz
427 intbuf_tab_c%IRTLOM(i) = intbuf_tab%IRTLOM(i)
428 ENDDO
429
430 siz = intbuf_tab%S_IRTLOS
431 DO i=1, siz
432 intbuf_tab_c%IRTLOS(i) = intbuf_tab%IRTLOS(i)
433 ENDDO
434
435 siz = intbuf_tab%S_NSEGS
436 DO i=1, siz
437 intbuf_tab_c%NSEGS(i) = intbuf_tab%NSEGS(i)
438 ENDDO
439
440 siz = intbuf_tab%S_LNSV
441 DO i=1, siz
442 intbuf_tab_c%LNSV(i) = intbuf_tab%LNSV(i)
443 ENDDO
444
445 siz = intbuf_tab%S_IELEM
446 DO i=1, siz
447 intbuf_tab_c%IELEM(i) = intbuf_tab%IELEM(i)
448 ENDDO
449
450 siz = intbuf_tab%S_FCOUNT
451 DO i=1, siz
452 intbuf_tab_c%FCOUNT(i) = intbuf_tab%FCOUNT(i)
453 ENDDO
454
455 siz = intbuf_tab%S_KSURF
456 DO i=1, siz
457 intbuf_tab_c%KSURF(i) = intbuf_tab%KSURF(i)
458 ENDDO
459
460 siz = intbuf_tab%S_IMPACT
461 DO i=1, siz
462 intbuf_tab_c%IMPACT(i) = intbuf_tab%IMPACT(i)
463 ENDDO
464
465 siz = intbuf_tab%S_MSR21
466 DO i=1, siz
467 intbuf_tab_c%MSR21(i) = intbuf_tab%MSR21(i)
468 ENDDO
469
470 siz = intbuf_tab%S_MNDD
471 DO i=1, siz
472 intbuf_tab_c%MNDD(i) = intbuf_tab%MNDD(i)
473 ENDDO
474
475 siz = intbuf_tab%S_MSR_L
476 DO i=1, siz
477 intbuf_tab_c%MSR_L(i) = intbuf_tab%MSR_L(i)
478 ENDDO
479
480 siz = intbuf_tab%S_CAND_T
481 DO i=1, siz
482 intbuf_tab_c%CAND_T(i) = intbuf_tab%CAND_T(i)
483 ENDDO
484
485 siz = intbuf_tab%S_MVOISIN
486 DO i=1, siz
487 intbuf_tab_c%MVOISIN(i) = intbuf_tab%MVOISIN(i)
488 ENDDO
489
490 siz = intbuf_tab%S_NVOISIN
491 DO i=1, siz
492 intbuf_tab_c%NVOISIN(i) = intbuf_tab%NVOISIN(i)
493 ENDDO
494
495 siz = intbuf_tab%S_MSEGLO
496 DO i=1, siz
497 intbuf_tab_c%MSEGLO(i) = intbuf_tab%MSEGLO(i)
498 ENDDO
499
500 siz = intbuf_tab%S_MSEGTYP24
501 DO i=1, siz
502 intbuf_tab_c%MSEGTYP24(i) = intbuf_tab%MSEGTYP24(i)
503 ENDDO
504
505 siz = intbuf_tab%S_ISEADD
506 DO i=1, siz
507 intbuf_tab_c%ISEADD(i) = intbuf_tab%ISEADD(i)
508 ENDDO
509
510 siz = intbuf_tab%S_ISEDGE
511 DO i=1, siz
512 intbuf_tab_c%ISEDGE(i) = intbuf_tab%ISEDGE(i)
513 ENDDO
514
515 siz = intbuf_tab%S_ISEG_PXFEM
516 DO i=1, siz
517 intbuf_tab_c%ISEG_PXFEM(i) = intbuf_tab%ISEG_PXFEM(i)
518 ENDDO
519
520 siz = intbuf_tab%S_ISEG_PLY
521 DO i=1, siz
522 intbuf_tab_c%ISEG_PLY(i) = intbuf_tab%ISEG_PLY(i)
523 ENDDO
524
525 siz = intbuf_tab%S_ICONT_I
526 DO i=1, siz
527 intbuf_tab_c%ICONT_I(i) = intbuf_tab%ICONT_I(i)
528 ENDDO
529
530 siz = intbuf_tab%S_MSEGTYP2
531 DO i=1, siz
532 intbuf_tab_c%MSEGTYP2(i) = intbuf_tab%MSEGTYP2(i)
533 ENDDO
534
535 siz = intbuf_tab%S_IF_ADH
536 DO i=1, siz
537 intbuf_tab_c%IF_ADH(i) = intbuf_tab%IF_ADH(i)
538 ENDDO
539
540 siz = intbuf_tab%S_IELNRTS
541 DO i=1, siz
542 intbuf_tab_c%IELNRTS(i) = intbuf_tab%IELNRTS(i)
543 ENDDO
544
545 siz = intbuf_tab%S_ADRECTS
546 DO i=1, siz
547 intbuf_tab_c%ADRECTS(i) = intbuf_tab%ADRECTS(i)
548 ENDDO
549
550 siz = intbuf_tab%S_FACNRTS
551 DO i=1, siz
552 intbuf_tab_c%FACNRTS(i) = intbuf_tab%FACNRTS(i)
553 ENDDO
554
555! copy all real arrays
556
557 siz = intbuf_tab%S_STFAC
558 DO i=1, siz
559 intbuf_tab_c%STFAC(i) = intbuf_tab%STFAC(i)
560 ENDDO
561
562 siz = intbuf_tab%S_VARIABLES
563 DO i=1, siz
564 intbuf_tab_c%VARIABLES(i) = intbuf_tab%VARIABLES(i)
565 ENDDO
566
567 siz = intbuf_tab%S_CSTS
568 DO i=1, siz
569 intbuf_tab_c%CSTS(i) = intbuf_tab%CSTS(i)
570 ENDDO
571
572 siz = intbuf_tab%S_DPARA
573 DO i=1, siz
574 intbuf_tab_c%DPARA(i) = intbuf_tab%DPARA(i)
575 ENDDO
576
577 siz = intbuf_tab%S_NMAS
578 DO i=1, siz
579 intbuf_tab_c%NMAS(i) = intbuf_tab%NMAS(i)
580 ENDDO
581
582 siz = intbuf_tab%S_AREAS2
583 DO i=1, siz
584 intbuf_tab_c%AREAS2(i) = intbuf_tab%AREAS2(i)
585 ENDDO
586
587 siz = intbuf_tab%S_SMAS
588 DO i=1, siz
589 intbuf_tab_c%SMAS(i) = intbuf_tab%SMAS(i)
590 ENDDO
591
592 siz = intbuf_tab%S_SINER
593 DO i=1, siz
594 intbuf_tab_c%SINER(i) = intbuf_tab%SINER(i)
595 ENDDO
596
597 siz = intbuf_tab%S_UVAR
598 DO i=1, siz
599 intbuf_tab_c%UVAR(i) = intbuf_tab%UVAR(i)
600 ENDDO
601
602 siz = intbuf_tab%S_XM0
603 DO i=1, siz
604 intbuf_tab_c%XM0(i) = intbuf_tab%XM0(i)
605 ENDDO
606
607 siz = intbuf_tab%S_SPENALTY
608 DO i=1, siz
609 intbuf_tab_c%SPENALTY(i) = intbuf_tab%SPENALTY(i)
610 ENDDO
611
612 siz = intbuf_tab%S_STFR_PENALTY
613 DO i=1, siz
614 intbuf_tab_c%STFR_PENALTY(i) = intbuf_tab%STFR_PENALTY(i)
615 ENDDO
616
617 siz = intbuf_tab%S_SKEW
618 DO i=1, siz
619 intbuf_tab_c%SKEW(i) = intbuf_tab%SKEW(i)
620 ENDDO
621
622 siz = intbuf_tab%S_DSM
623 DO i=1, siz
624 intbuf_tab_c%DSM(i) = intbuf_tab%DSM(i)
625 ENDDO
626
627 siz = intbuf_tab%S_FSM
628 DO i=1, siz
629 intbuf_tab_c%FSM(i) = intbuf_tab%FSM(i)
630 ENDDO
631
632 siz = intbuf_tab%S_RUPT
633 DO i=1, siz
634 intbuf_tab_c%RUPT(i) = intbuf_tab%RUPT(i)
635 ENDDO
636
637 siz = intbuf_tab%S_FINI
638 DO i=1, siz
639 intbuf_tab_c%FINI(i) = intbuf_tab%FINI(i)
640 ENDDO
641
642 siz = intbuf_tab%S_STFNS
643 DO i=1, siz
644 intbuf_tab_c%STFNS(i) = intbuf_tab%STFNS(i)
645 ENDDO
646
647 siz = intbuf_tab%S_STFM
648 DO i=1, siz
649 intbuf_tab_c%STFM(i) = intbuf_tab%STFM(i)
650 ENDDO
651
652 siz = intbuf_tab%S_STFS
653 DO i=1, siz
654 intbuf_tab_c%STFS(i) = intbuf_tab%STFS(i)
655 ENDDO
656
657 siz = intbuf_tab%S_PENIM
658 DO i=1, siz
659 intbuf_tab_c%PENIM(i) = intbuf_tab%PENIM(i)
660 ENDDO
661
662 siz = intbuf_tab%S_PENIS
663 DO i=1, siz
664 intbuf_tab_c%PENIS(i) = intbuf_tab%PENIS(i)
665 ENDDO
666
667 siz = intbuf_tab%S_GAP_M
668 DO i=1, siz
669 intbuf_tab_c%GAP_M(i) = intbuf_tab%GAP_M(i)
670 ENDDO
671
672 siz = intbuf_tab%S_GAP_S
673 DO i=1, siz
674 intbuf_tab_c%GAP_S(i) = intbuf_tab%GAP_S(i)
675 ENDDO
676
677 siz = intbuf_tab%S_CRIT
678 DO i=1, siz
679 intbuf_tab_c%CRIT(i) = intbuf_tab%CRIT(i)
680 ENDDO
681
682 siz = intbuf_tab%S_FRIC_P
683 DO i=1, siz
684 intbuf_tab_c%FRIC_P(i) = intbuf_tab%FRIC_P(i)
685 ENDDO
686
687 siz = intbuf_tab%S_XFILTR
688 DO i=1, siz
689 intbuf_tab_c%XFILTR(i) = intbuf_tab%XFILTR(i)
690 ENDDO
691
692 siz = intbuf_tab%S_AREAS
693 DO i=1, siz
694 intbuf_tab_c%AREAS(i) = intbuf_tab%AREAS(i)
695 ENDDO
696
697 siz = intbuf_tab%S_AREAM
698 DO i=1, siz
699 intbuf_tab_c%AREAM(i) = intbuf_tab%AREAM(i)
700 ENDDO
701
702 siz = intbuf_tab%S_GAP_SL
703 DO i=1, siz
704 intbuf_tab_c%GAP_SL(i) = intbuf_tab%GAP_SL(i)
705 ENDDO
706
707 siz = intbuf_tab%S_GAP_ML
708 DO i=1, siz
709 intbuf_tab_c%GAP_ML(i) = intbuf_tab%GAP_ML(i)
710 ENDDO
711
712 siz = intbuf_tab%S_CAND_P
713 DO i=1, siz
714 intbuf_tab_c%CAND_P(i) = intbuf_tab%CAND_P(i)
715 ENDDO
716
717 siz = intbuf_tab%S_CAND_PS
718 DO i=1, siz
719 intbuf_tab_c%CAND_PS(i) = intbuf_tab%CAND_PS(i)
720 ENDDO
721
722
723 siz = intbuf_tab%S_CAND_F
724 DO i=1, siz
725 intbuf_tab_c%CAND_F(i) = intbuf_tab%CAND_F(i)
726 ENDDO
727
728 siz = intbuf_tab%S_FTSAVX
729 DO i=1, siz
730 intbuf_tab_c%FTSAVX(i) = intbuf_tab%FTSAVX(i)
731 ENDDO
732
733 siz = intbuf_tab%S_FTSAVY
734 DO i=1, siz
735 intbuf_tab_c%FTSAVY(i) = intbuf_tab%FTSAVY(i)
736 ENDDO
737
738 siz = intbuf_tab%S_FTSAVZ
739 DO i=1, siz
740 intbuf_tab_c%FTSAVZ(i) = intbuf_tab%FTSAVZ(i)
741 ENDDO
742
743 siz = intbuf_tab%S_CAND_FX
744 DO i=1, siz
745 intbuf_tab_c%CAND_FX(i) = intbuf_tab%CAND_FX(i)
746 ENDDO
747
748 siz = intbuf_tab%S_CAND_FY
749 DO i=1, siz
750 intbuf_tab_c%CAND_FY(i) = intbuf_tab%CAND_FY(i)
751 ENDDO
752
753 siz = intbuf_tab%S_CAND_FZ
754 DO i=1, siz
755 intbuf_tab_c%CAND_FZ(i) = intbuf_tab%CAND_FZ(i)
756 ENDDO
757
758 siz = intbuf_tab%S_XA
759 DO i=1, siz
760 intbuf_tab_c%XA(i) = intbuf_tab%XA(i)
761 ENDDO
762
763 siz = intbuf_tab%S_VA
764 DO i=1, siz
765 intbuf_tab_c%VA(i) = intbuf_tab%VA(i)
766 ENDDO
767
768 siz = intbuf_tab%S_STFA
769 DO i=1, siz
770 intbuf_tab_c%STFA(i) = intbuf_tab%STFA(i)
771 ENDDO
772
773 siz = intbuf_tab%S_PENIA
774 DO i=1, siz
775 intbuf_tab_c%PENIA(i) = intbuf_tab%PENIA(i)
776 ENDDO
777
778 siz = intbuf_tab%S_ALPHAK
779 DO i=1, siz
780 intbuf_tab_c%ALPHAK(i) = intbuf_tab%ALPHAK(i)
781 ENDDO
782
783 siz = intbuf_tab%S_GAP_SH
784 DO i=1, siz
785 intbuf_tab_c%GAP_SH(i) = intbuf_tab%GAP_SH(i)
786 ENDDO
787
788 siz = intbuf_tab%S_AVX_ANCR
789 DO i=1, siz
790 intbuf_tab_c%AVX_ANCR(i) = intbuf_tab%AVX_ANCR(i)
791 ENDDO
792
793 siz = intbuf_tab%S_CRITX
794 DO i=1, siz
795 intbuf_tab_c%CRITX(i) = intbuf_tab%CRITX(i)
796 ENDDO
797
798 siz = intbuf_tab%S_GAP_ME
799 DO i=1, siz
800 intbuf_tab_c%GAP_ME(i) = intbuf_tab%GAP_ME(i)
801 ENDDO
802
803 siz = intbuf_tab%S_STF
804 DO i=1, siz
805 intbuf_tab_c%STF(i) = intbuf_tab%STF(i)
806 ENDDO
807
808 siz = intbuf_tab%S_PENIME
809 DO i=1, siz
810 intbuf_tab_c%PENIME(i) = intbuf_tab%PENIME(i)
811 ENDDO
812
813 siz = intbuf_tab%S_GAP_SE
814 DO i=1, siz
815 intbuf_tab_c%GAP_SE(i) = intbuf_tab%GAP_SE(i)
816 ENDDO
817
818 siz = intbuf_tab%S_PENISE
819 DO i=1, siz
820 intbuf_tab_c%PENISE(i) = intbuf_tab%PENISE(i)
821 ENDDO
822
823 siz = intbuf_tab%S_N
824 DO i=1, siz
825 intbuf_tab_c%N(i) = intbuf_tab%N(i)
826 ENDDO
827
828 siz = intbuf_tab%S_CSTM
829 DO i=1, siz
830 intbuf_tab_c%CSTM(i) = intbuf_tab%CSTM(i)
831 ENDDO
832
833 siz = intbuf_tab%S_EE
834 DO i=1, siz
835 intbuf_tab_c%EE(i) = intbuf_tab%EE(i)
836 ENDDO
837
838 siz = intbuf_tab%S_STFNM
839 DO i=1, siz
840 intbuf_tab_c%STFNM(i) = intbuf_tab%STFNM(i)
841 ENDDO
842
843 siz = intbuf_tab%S_FRICOS
844 DO i=1, siz
845 intbuf_tab_c%FRICOS(i) = intbuf_tab%FRICOS(i)
846 ENDDO
847
848 siz = intbuf_tab%S_FRICOM
849 DO i=1, siz
850 intbuf_tab_c%FRICOM(i) = intbuf_tab%FRICOM(i)
851 ENDDO
852
853 siz = intbuf_tab%S_FTSAV
854 DO i=1, siz
855 intbuf_tab_c%FTSAV(i) = intbuf_tab%FTSAV(i)
856 ENDDO
857
858 siz = intbuf_tab%S_FCONT
859 DO i=1, siz
860 intbuf_tab_c%FCONT(i) = intbuf_tab%FCONT(i)
861 ENDDO
862
863 siz = intbuf_tab%S_FS
864 DO i=1, siz
865 intbuf_tab_c%FS(i) = intbuf_tab%FS(i)
866 ENDDO
867
868 siz = intbuf_tab%S_FM
869 DO i=1, siz
870 intbuf_tab_c%FM(i) = intbuf_tab%FM(i)
871 ENDDO
872
873 siz = intbuf_tab%S_RMAS
874 DO i=1, siz
875 intbuf_tab_c%RMAS(i) = intbuf_tab%RMAS(i)
876 ENDDO
877
878 siz = intbuf_tab%S_ANSMX0
879 DO i=1, siz
880 intbuf_tab_c%ANSMX0(i) = intbuf_tab%ANSMX0(i)
881 ENDDO
882
883 siz = intbuf_tab%S_GAPN
884 DO i=1, siz
885 intbuf_tab_c%GAPN(i) = intbuf_tab%GAPN(i)
886 ENDDO
887
888 siz = intbuf_tab%S_STF8
889 DO i=1, siz
890 intbuf_tab_c%STF8(i) = intbuf_tab%STF8(i)
891 ENDDO
892
893 siz = intbuf_tab%S_CIMP
894 DO i=1, siz
895 intbuf_tab_c%CIMP(i) = intbuf_tab%CIMP(i)
896 ENDDO
897
898 siz = intbuf_tab%S_NIMP
899 DO i=1, siz
900 intbuf_tab_c%NIMP(i) = intbuf_tab%NIMP(i)
901 ENDDO
902
903 siz = intbuf_tab%S_IOLD
904 DO i=1, siz
905 intbuf_tab_c%IOLD(i) = intbuf_tab%IOLD(i)
906 ENDDO
907
908 siz = intbuf_tab%S_HOLD
909 DO i=1, siz
910 intbuf_tab_c%HOLD(i) = intbuf_tab%HOLD(i)
911 ENDDO
912
913 siz = intbuf_tab%S_NOLD
914 DO i=1, siz
915 intbuf_tab_c%NOLD(i) = intbuf_tab%NOLD(i)
916 ENDDO
917
918 siz = intbuf_tab%S_DOLD
919 DO i=1, siz
920 intbuf_tab_c%DOLD(i) = intbuf_tab%DOLD(i)
921 ENDDO
922
923 siz = intbuf_tab%S_KS
924 DO i=1, siz
925 intbuf_tab_c%KS(i) = intbuf_tab%KS(i)
926 ENDDO
927
928 siz = intbuf_tab%S_KM
929 DO i=1, siz
930 intbuf_tab_c%KM(i) = intbuf_tab%KM(i)
931 ENDDO
932
933 siz = intbuf_tab%S_FROTS
934 DO i=1, siz
935 intbuf_tab_c%FROTS(i) = intbuf_tab%FROTS(i)
936 ENDDO
937
938 siz = intbuf_tab%S_FROTM
939 DO i=1, siz
940 intbuf_tab_c%FROTM(i) = intbuf_tab%FROTM(i)
941 ENDDO
942
943 siz = intbuf_tab%S_NOD_NORMAL
944 DO i=1, siz
945 intbuf_tab_c%NOD_NORMAL(i) = intbuf_tab%NOD_NORMAL(i)
946 ENDDO
947
948 siz = intbuf_tab%S_RCURV
949 DO i=1, siz
950 intbuf_tab_c%RCURV(i) = intbuf_tab%RCURV(i)
951 ENDDO
952
953 siz = intbuf_tab%S_ANGLM
954 DO i=1, siz
955 intbuf_tab_c%ANGLM(i) = intbuf_tab%ANGLM(i)
956 ENDDO
957
958 siz = intbuf_tab%S_FROT_P
959 DO i=1, siz
960 intbuf_tab_c%FROT_P(i) = intbuf_tab%FROT_P(i)
961 ENDDO
962
963 siz = intbuf_tab%S_ALPHA0
964 DO i=1, siz
965 intbuf_tab_c%ALPHA0(i) = intbuf_tab%ALPHA0(i)
966 ENDDO
967
968 siz = intbuf_tab%S_AS
969 DO i=1, siz
970 intbuf_tab_c%AS(i) = intbuf_tab%AS(i)
971 ENDDO
972
973 siz = intbuf_tab%S_BS
974 DO i=1, siz
975 intbuf_tab_c%BS(i) = intbuf_tab%BS(i)
976 ENDDO
977
978 siz = intbuf_tab%S_THKNOD0
979 DO i=1, siz
980 intbuf_tab_c%THKNOD0(i) = intbuf_tab%THKNOD0(i)
981 ENDDO
982
983 siz = intbuf_tab%S_GAPN_M
984 DO i=1, siz
985 intbuf_tab_c%GAPN_M(i) = intbuf_tab%GAPN_M(i)
986 ENDDO
987
988 siz = intbuf_tab%S_PENE_OLD
989 DO i=1, siz
990 intbuf_tab_c%PENE_OLD(i) = intbuf_tab%PENE_OLD(i)
991 ENDDO
992
993 siz = intbuf_tab%S_STIF_OLD
994 DO i=1, siz
995 intbuf_tab_c%STIF_OLD(i) = intbuf_tab%STIF_OLD(i)
996 ENDDO
997
998 siz = intbuf_tab%S_TIME_S
999 DO i=1, siz
1000 intbuf_tab_c%TIME_S(i) = intbuf_tab%TIME_S(i)
1001 ENDDO
1002
1003 siz = intbuf_tab%S_GAP_NM
1004 DO i=1, siz
1005 intbuf_tab_c%GAP_NM(i) = intbuf_tab%GAP_NM(i)
1006 ENDDO
1007
1008 siz = intbuf_tab%S_EDGE8L2
1009 DO i=1, siz
1010 intbuf_tab_c%EDGE8L2(i) = intbuf_tab%EDGE8L2(i)
1011 ENDDO
1012
1013 siz = intbuf_tab%S_NOD_2RY_LGTH
1014 DO i=1, siz
1015 intbuf_tab_c%NOD_2RY_LGTH(i) = intbuf_tab%NOD_2RY_LGTH(i)
1016 ENDDO
1017
1018 siz = intbuf_tab%S_NOD_MAS_LGTH
1019 DO i=1, siz
1020 intbuf_tab_c%NOD_MAS_LGTH(i) = intbuf_tab%NOD_MAS_LGTH(i)
1021 ENDDO
1022
1023 siz = intbuf_tab%S_GAP_N0
1024 DO i=1, siz
1025 intbuf_tab_c%GAP_N0(i) = intbuf_tab%GAP_N0(i)
1026 ENDDO
1027
1028 siz = intbuf_tab%S_DGAP_NM
1029 DO i=1, siz
1030 intbuf_tab_c%DGAP_NM(i) = intbuf_tab%DGAP_NM(i)
1031 ENDDO
1032
1033 siz = intbuf_tab%S_DGAP_M
1034 DO i=1, siz
1035 intbuf_tab_c%DGAP_M(i) = intbuf_tab%DGAP_M(i)
1036 ENDDO
1037
1038 siz = intbuf_tab%S_DELTA_PMAX_DGAP
1039 DO i=1, siz
1040 intbuf_tab_c%DELTA_PMAX_DGAP(i) =
1041 . intbuf_tab%DELTA_PMAX_DGAP(i)
1042 ENDDO
1043
1044 siz = intbuf_tab%S_CSTS_BIS
1045 DO i=1, siz
1046 intbuf_tab_c%CSTS_BIS(i) = intbuf_tab%CSTS_BIS(i)
1047 ENDDO
1048
1049 siz = intbuf_tab%S_DIR_FRICM
1050 DO i=1, siz
1051 intbuf_tab_c%DIR_FRICM(i) = intbuf_tab%DIR_FRICM(i)
1052 ENDDO
1053
1054 siz = intbuf_tab%S_GAPMSAV
1055 DO i=1, siz
1056 intbuf_tab_c%GAPMSAV(i) = intbuf_tab%GAPMSAV(i)
1057 ENDDO
1058C-----
1059 RETURN
1060
1061 END SUBROUTINE copy_intbuf_tab
1062
1063!||====================================================================
1064!|| intbuf_tab_c_ini ../common_source/interf/copy_intbuf_tab.F
1065!||--- called by ------------------------------------------------------
1066!|| dim_int7 ../engine/source/implicit/ind_glob_k.F
1067!||--- uses -----------------------------------------------------
1068!|| intbufdef_mod ../common_source/modules/interfaces/intbufdef_mod.F90
1069!||====================================================================
1070 SUBROUTINE intbuf_tab_c_ini(INTBUF_TAB, INTBUF_TAB_C)
1071C-----------------------------------------------
1072C M o d u l e s
1073C-----------------------------------------------
1074 USE intbufdef_mod
1075C-----------------------------------------------
1076C I m p l i c i t T y p e s
1077C-----------------------------------------------
1078#include "implicit_f.inc"
1079C-----------------------------------------------
1080C C o m m o n B l o c k s
1081C-----------------------------------------------
1082#include "param_c.inc"
1083#include "com04_c.inc"
1084C-----------------------------------------------
1085C D u m m y A r g u m e n t s
1086C-----------------------------------------------
1087 TYPE(intbuf_struct_) INTBUF_TAB(*), INTBUF_TAB_C(*)
1088C-----------------------------------------------
1089C L o c a l V a r i a b l e s
1090C-----------------------------------------------
1091 INTEGER NI,SIZ
1092C=======================================================================
1093
1094 DO ni= 1, ninter
1095
1096! uninitialize INTEGER sizes and arrays for INTBUF_TAB_CP
1097 siz = intbuf_tab(ni)%S_IRECTS
1098 intbuf_tab_c(ni)%S_IRECTS = siz
1099 ALLOCATE(intbuf_tab_c(ni)%IRECTS(siz))
1100
1101 siz = intbuf_tab(ni)%S_IRECTM
1102 intbuf_tab_c(ni)%S_IRECTM = siz
1103 ALLOCATE(intbuf_tab_c(ni)%IRECTM(siz))
1104
1105 siz = intbuf_tab(ni)%S_NSV
1106 intbuf_tab_c(ni)%S_NSV = siz
1107 ALLOCATE(intbuf_tab_c(ni)%NSV(siz))
1108
1109 siz = intbuf_tab(ni)%S_MSR
1110 intbuf_tab_c(ni)%S_MSR = siz
1111 ALLOCATE(intbuf_tab_c(ni)%MSR(siz))
1112
1113 siz = intbuf_tab(ni)%S_IRTLM
1114 intbuf_tab_c(ni)%S_IRTLM = siz
1115 ALLOCATE(intbuf_tab_c(ni)%IRTLM(siz))
1116
1117 siz = intbuf_tab(ni)%S_IRUPT
1118 intbuf_tab_c(ni)%S_IRUPT = siz
1119 ALLOCATE(intbuf_tab_c(ni)%IRUPT(siz))
1120
1121 siz = intbuf_tab(ni)%S_INORM
1122 intbuf_tab_c(ni)%S_INORM = siz
1123 ALLOCATE(intbuf_tab_c(ni)%INORM(siz))
1124
1125 siz = intbuf_tab(ni)%S_IELEC
1126 intbuf_tab_c(ni)%S_IELEC = siz
1127 ALLOCATE(intbuf_tab_c(ni)%IELEC(siz))
1128
1129 siz = intbuf_tab(ni)%S_IELES
1130 intbuf_tab_c(ni)%S_IELES = siz
1131 ALLOCATE(intbuf_tab_c(ni)%IELES(siz))
1132
1133 siz = intbuf_tab(ni)%S_LISUB
1134 intbuf_tab_c(ni)%S_LISUB = siz
1135 ALLOCATE(intbuf_tab_c(ni)%LISUB(siz))
1136
1137 siz = intbuf_tab(ni)%S_TYPSUB
1138 intbuf_tab_c(ni)%S_TYPSUB = siz
1139 ALLOCATE(intbuf_tab_c(ni)%TYPSUB(siz))
1140
1141 siz = intbuf_tab(ni)%S_ADDSUBS
1142 intbuf_tab_c(ni)%S_ADDSUBS = siz
1143 ALLOCATE(intbuf_tab_c(ni)%ADDSUBS(siz))
1144
1145 siz = intbuf_tab(ni)%S_ADDSUBM
1146 intbuf_tab_c(ni)%S_ADDSUBM = siz
1147 ALLOCATE(intbuf_tab_c(ni)%ADDSUBM(siz))
1148
1149 siz = intbuf_tab(ni)%S_LISUBS
1150 intbuf_tab_c(ni)%S_LISUBS = siz
1151 ALLOCATE(intbuf_tab_c(ni)%LISUBS(siz))
1152
1153 siz = intbuf_tab(ni)%S_LISUBM
1154 intbuf_tab_c(ni)%S_LISUBM = siz
1155 ALLOCATE(intbuf_tab_c(ni)%LISUBM(siz))
1156
1157 siz = intbuf_tab(ni)%S_CAND_E
1158 intbuf_tab_c(ni)%S_CAND_E = siz
1159 ALLOCATE(intbuf_tab_c(ni)%CAND_E(siz))
1160
1161 siz = intbuf_tab(ni)%S_CAND_N
1162 intbuf_tab_c(ni)%S_CAND_N = siz
1163 ALLOCATE(intbuf_tab_c(ni)%CAND_N(siz))
1164
1165 siz = intbuf_tab(ni)%S_I_STOK
1166 intbuf_tab_c(ni)%S_I_STOK = siz
1167 ALLOCATE(intbuf_tab_c(ni)%I_STOK(siz))
1168
1169 siz = intbuf_tab(ni)%S_LCAND_N
1170 intbuf_tab_c(ni)%S_LCAND_N = siz
1171 ALLOCATE(intbuf_tab_c(ni)%LCAND_N(siz))
1172
1173 siz = intbuf_tab(ni)%S_LCAND_S
1174 intbuf_tab_c(ni)%S_LCAND_S = siz
1175 ALLOCATE(intbuf_tab_c(ni)%LCAND_S(siz))
1176
1177 siz = intbuf_tab(ni)%S_I_STOK_E
1178 intbuf_tab_c(ni)%S_I_STOK_E = siz
1179 ALLOCATE(intbuf_tab_c(ni)%I_STOK_E(siz))
1180
1181 siz = intbuf_tab(ni)%S_IFPEN
1182 intbuf_tab_c(ni)%S_IFPEN = siz
1183 ALLOCATE(intbuf_tab_c(ni)%IFPEN(siz))
1184
1185 siz = intbuf_tab(ni)%S_IPARTFRICS
1186 intbuf_tab_c(ni)%S_IPARTFRICS = siz
1187 ALLOCATE(intbuf_tab_c(ni)%IPARTFRICS(siz))
1188
1189 siz = intbuf_tab(ni)%S_IPARTFRICM
1190 intbuf_tab_c(ni)%S_IPARTFRICM = siz
1191 ALLOCATE(intbuf_tab_c(ni)%IPARTFRICM(siz))
1192
1193 siz = intbuf_tab(ni)%S_IREP_FRICM
1194 intbuf_tab_c(ni)%S_IREP_FRICM = siz
1195 ALLOCATE(intbuf_tab_c(ni)%IREP_FRICM(siz))
1196
1197 siz = intbuf_tab(ni)%S_KREMNODE
1198 intbuf_tab_c(ni)%S_KREMNODE = siz
1199 ALLOCATE(intbuf_tab_c(ni)%KREMNODE(siz))
1200
1201 siz = intbuf_tab(ni)%S_REMNODE
1202 intbuf_tab_c(ni)%S_REMNODE = siz
1203 ALLOCATE(intbuf_tab_c(ni)%REMNODE(siz))
1204
1205 siz = intbuf_tab(ni)%S_KREMNOR
1206 intbuf_tab_c(ni)%S_KREMNOR = siz
1207 ALLOCATE(intbuf_tab_c(ni)%KREMNOR(siz))
1208
1209 siz = intbuf_tab(ni)%S_REMNOR
1210 intbuf_tab_c(ni)%S_REMNOR = siz
1211 ALLOCATE(intbuf_tab_c(ni)%REMNOR(siz))
1212
1213 siz = intbuf_tab(ni)%S_ADCCM
1214 intbuf_tab_c(ni)%S_ADCCM = siz
1215 ALLOCATE(intbuf_tab_c(ni)%ADCCM(siz))
1216
1217 siz = intbuf_tab(ni)%S_CHAIN
1218 intbuf_tab_c(ni)%S_CHAIN = siz
1219 ALLOCATE(intbuf_tab_c(ni)%CHAIN(siz))
1220
1221 siz = intbuf_tab(ni)%S_NBINFLG
1222 intbuf_tab_c(ni)%S_NBINFLG = siz
1223 ALLOCATE(intbuf_tab_c(ni)%NBINFLG(siz))
1224
1225 siz = intbuf_tab(ni)%S_MBINFLG
1226 intbuf_tab_c(ni)%S_MBINFLG = siz
1227 ALLOCATE(intbuf_tab_c(ni)%MBINFLG(siz))
1228
1229 siz = intbuf_tab(ni)%S_NLG
1230 intbuf_tab_c(ni)%S_NLG = siz
1231 ALLOCATE(intbuf_tab_c(ni)%NLG(siz))
1232
1233 siz = intbuf_tab(ni)%S_DAANC6
1234 intbuf_tab_c(ni)%S_DAANC6 = siz
1235 ALLOCATE(intbuf_tab_c(ni)%DAANC6(siz))
1236
1237 siz = intbuf_tab(ni)%S_ISLINS
1238 intbuf_tab_c(ni)%S_ISLINS = siz
1239 ALLOCATE(intbuf_tab_c(ni)%ISLINS(siz))
1240
1241 siz = intbuf_tab(ni)%S_IXLINS
1242 intbuf_tab_c(ni)%S_IXLINS = siz
1243 ALLOCATE(intbuf_tab_c(ni)%IXLINS(siz))
1244
1245 siz = intbuf_tab(ni)%S_IXLINM
1246 intbuf_tab_c(ni)%S_IXLINM = siz
1247 ALLOCATE(intbuf_tab_c(ni)%IXLINM(siz))
1248
1249 siz = intbuf_tab(ni)%S_MSRL
1250 intbuf_tab_c(ni)%S_MSRL = siz
1251 ALLOCATE(intbuf_tab_c(ni)%MSRL(siz))
1252
1253 siz = intbuf_tab(ni)%S_NSVL
1254 intbuf_tab_c(ni)%S_NSVL = siz
1255 ALLOCATE(intbuf_tab_c(ni)%NSVL(siz))
1256
1257 siz = intbuf_tab(ni)%S_ADCCM20
1258 intbuf_tab_c(ni)%S_ADCCM20 = siz
1259 ALLOCATE(intbuf_tab_c(ni)%ADCCM20(siz))
1260
1261 siz = intbuf_tab(ni)%S_CHAIN20
1262 intbuf_tab_c(ni)%S_CHAIN20 = siz
1263 ALLOCATE(intbuf_tab_c(ni)%CHAIN20(siz))
1264
1265 siz = intbuf_tab(ni)%S_ILOCS
1266 intbuf_tab_c(ni)%S_ILOCS = siz
1267 ALLOCATE(intbuf_tab_c(ni)%ILOCS(siz))
1268
1269 siz = intbuf_tab(ni)%S_NSEGM
1270 intbuf_tab_c(ni)%S_NSEGM = siz
1271 ALLOCATE(intbuf_tab_c(ni)%NSEGM(siz))
1272
1273 siz = intbuf_tab(ni)%S_NRT
1274 intbuf_tab_c(ni)%S_NRT = siz
1275 ALLOCATE(intbuf_tab_c(ni)%NRT(siz))
1276
1277 siz = intbuf_tab(ni)%S_IRTLS
1278 intbuf_tab_c(ni)%S_IRTLS = siz
1279 ALLOCATE(intbuf_tab_c(ni)%IRTLS(siz))
1280
1281 siz = intbuf_tab(ni)%S_ILOCM
1282 intbuf_tab_c(ni)%S_ILOCM = siz
1283 ALLOCATE(intbuf_tab_c(ni)%ILOCM(siz))
1284
1285 siz = intbuf_tab(ni)%S_IRTLOM
1286 intbuf_tab_c(ni)%S_IRTLOM = siz
1287 ALLOCATE(intbuf_tab_c(ni)%IRTLOM(siz))
1288
1289 siz = intbuf_tab(ni)%S_IRTLOS
1290 intbuf_tab_c(ni)%S_IRTLOS = siz
1291 ALLOCATE(intbuf_tab_c(ni)%IRTLOS(siz))
1292
1293 siz = intbuf_tab(ni)%S_NSEGS
1294 intbuf_tab_c(ni)%S_NSEGS = siz
1295 ALLOCATE(intbuf_tab_c(ni)%NSEGS(siz))
1296
1297 siz = intbuf_tab(ni)%S_LNSV
1298 intbuf_tab_c(ni)%S_LNSV = siz
1299 ALLOCATE(intbuf_tab_c(ni)%LNSV(siz))
1300
1301 siz = intbuf_tab(ni)%S_IELEM
1302 intbuf_tab_c(ni)%S_IELEM = siz
1303 ALLOCATE(intbuf_tab_c(ni)%IELEM(siz))
1304
1305 siz = intbuf_tab(ni)%S_FCOUNT
1306 intbuf_tab_c(ni)%S_FCOUNT = siz
1307 ALLOCATE(intbuf_tab_c(ni)%FCOUNT(siz))
1308
1309 siz = intbuf_tab(ni)%S_KSURF
1310 intbuf_tab_c(ni)%S_KSURF = siz
1311 ALLOCATE(intbuf_tab_c(ni)%KSURF(siz))
1312
1313 siz = intbuf_tab(ni)%S_IMPACT
1314 intbuf_tab_c(ni)%S_IMPACT = siz
1315 ALLOCATE(intbuf_tab_c(ni)%IMPACT(siz))
1316
1317 siz = intbuf_tab(ni)%S_MSR21
1318 intbuf_tab_c(ni)%S_MSR21 = siz
1319 ALLOCATE(intbuf_tab_c(ni)%MSR21(siz))
1320
1321 siz = intbuf_tab(ni)%S_MNDD
1322 intbuf_tab_c(ni)%S_MNDD = siz
1323 ALLOCATE(intbuf_tab_c(ni)%MNDD(siz))
1324
1325 siz = intbuf_tab(ni)%S_MSR_L
1326 intbuf_tab_c(ni)%S_MSR_L = siz
1327 ALLOCATE(intbuf_tab_c(ni)%MSR_L(siz))
1328
1329 siz = intbuf_tab(ni)%S_CAND_T
1330 intbuf_tab_c(ni)%S_CAND_T = siz
1331 ALLOCATE(intbuf_tab_c(ni)%CAND_T(siz))
1332
1333 siz = intbuf_tab(ni)%S_MVOISIN
1334 intbuf_tab_c(ni)%S_MVOISIN = siz
1335 ALLOCATE(intbuf_tab_c(ni)%MVOISIN(siz))
1336
1337 siz = intbuf_tab(ni)%S_NVOISIN
1338 intbuf_tab_c(ni)%S_NVOISIN = siz
1339 ALLOCATE(intbuf_tab_c(ni)%NVOISIN(siz))
1340
1341 siz = intbuf_tab(ni)%S_MSEGLO
1342 intbuf_tab_c(ni)%S_MSEGLO = siz
1343 ALLOCATE(intbuf_tab_c(ni)%MSEGLO(siz))
1344
1345 siz = intbuf_tab(ni)%S_MSEGTYP24
1346 intbuf_tab_c(ni)%S_MSEGTYP24 = siz
1347 ALLOCATE(intbuf_tab_c(ni)%MSEGTYP24(siz))
1348
1349 siz = intbuf_tab(ni)%S_ISEADD
1350 intbuf_tab_c(ni)%S_ISEADD = siz
1351 ALLOCATE(intbuf_tab_c(ni)%ISEADD(siz))
1352
1353 siz = intbuf_tab(ni)%S_ISEDGE
1354 intbuf_tab_c(ni)%S_ISEDGE = siz
1355 ALLOCATE(intbuf_tab_c(ni)%ISEDGE(siz))
1356
1357 siz = intbuf_tab(ni)%S_ISEG_PXFEM
1358 intbuf_tab_c(ni)%S_ISEG_PXFEM = siz
1359 ALLOCATE(intbuf_tab_c(ni)%ISEG_PXFEM(siz))
1360
1361 siz = intbuf_tab(ni)%S_ISEG_PLY
1362 intbuf_tab_c(ni)%S_ISEG_PLY = siz
1363 ALLOCATE(intbuf_tab_c(ni)%ISEG_PLY(siz))
1364
1365 siz = intbuf_tab(ni)%S_ICONT_I
1366 intbuf_tab_c(ni)%S_ICONT_I = siz
1367 ALLOCATE(intbuf_tab_c(ni)%ICONT_I(siz))
1368
1369 siz = intbuf_tab(ni)%S_MSEGTYP2
1370 intbuf_tab_c(ni)%S_MSEGTYP2 = siz
1371 ALLOCATE(intbuf_tab_c(ni)%MSEGTYP2(siz))
1372
1373 siz = intbuf_tab(ni)%S_IF_ADH
1374 intbuf_tab_c(ni)%S_IF_ADH = siz
1375 ALLOCATE(intbuf_tab_c(ni)%IF_ADH(siz))
1376
1377 siz = intbuf_tab(ni)%S_IELNRTS
1378 intbuf_tab_c(ni)%S_IELNRTS = siz
1379 ALLOCATE(intbuf_tab_c(ni)%IELNRTS(siz))
1380
1381 siz = intbuf_tab(ni)%S_ADRECTS
1382 intbuf_tab_c(ni)%S_ADRECTS = siz
1383 ALLOCATE(intbuf_tab_c(ni)%ADRECTS(siz))
1384
1385 siz = intbuf_tab(ni)%S_FACNRTS
1386 intbuf_tab_c(ni)%S_FACNRTS = siz
1387 ALLOCATE(intbuf_tab_c(ni)%FACNRTS(siz))
1388
1389! uninitialize REAL sizes and arrays for INTBUF_TAB_CP
1390
1391 siz = intbuf_tab(ni)%S_STFAC
1392 intbuf_tab_c(ni)%S_STFAC = siz
1393 ALLOCATE(intbuf_tab_c(ni)%STFAC(siz))
1394
1395 siz = intbuf_tab(ni)%S_VARIABLES
1396 intbuf_tab_c(ni)%S_VARIABLES = siz
1397 ALLOCATE(intbuf_tab_c(ni)%VARIABLES(siz))
1398
1399 siz = intbuf_tab(ni)%S_CSTS
1400 intbuf_tab_c(ni)%S_CSTS = siz
1401 ALLOCATE(intbuf_tab_c(ni)%CSTS(siz))
1402
1403 siz = intbuf_tab(ni)%S_DPARA
1404 intbuf_tab_c(ni)%S_DPARA = siz
1405 ALLOCATE(intbuf_tab_c(ni)%DPARA(siz))
1406
1407 siz = intbuf_tab(ni)%S_NMAS
1408 intbuf_tab_c(ni)%S_NMAS = siz
1409 ALLOCATE(intbuf_tab_c(ni)%NMAS(siz))
1410
1411 siz = intbuf_tab(ni)%S_AREAS2
1412 intbuf_tab_c(ni)%S_AREAS2 = siz
1413 ALLOCATE(intbuf_tab_c(ni)%AREAS2(siz))
1414
1415 siz = intbuf_tab(ni)%S_SMAS
1416 intbuf_tab_c(ni)%S_SMAS = siz
1417 ALLOCATE(intbuf_tab_c(ni)%SMAS(siz))
1418
1419 siz = intbuf_tab(ni)%S_SINER
1420 intbuf_tab_c(ni)%S_SINER = siz
1421 ALLOCATE(intbuf_tab_c(ni)%SINER(siz))
1422
1423 siz = intbuf_tab(ni)%S_UVAR
1424 intbuf_tab_c(ni)%S_UVAR = siz
1425 ALLOCATE(intbuf_tab_c(ni)%UVAR(siz))
1426
1427 siz = intbuf_tab(ni)%S_XM0
1428 intbuf_tab_c(ni)%S_XM0 = siz
1429 ALLOCATE(intbuf_tab_c(ni)%XM0(siz))
1430
1431 siz = intbuf_tab(ni)%S_SPENALTY
1432 intbuf_tab_c(ni)%S_SPENALTY = siz
1433 ALLOCATE(intbuf_tab_c(ni)%SPENALTY(siz))
1434
1435 siz = intbuf_tab(ni)%S_STFR_PENALTY
1436 intbuf_tab_c(ni)%S_STFR_PENALTY = siz
1437 ALLOCATE(intbuf_tab_c(ni)%STFR_PENALTY(siz))
1438
1439 siz = intbuf_tab(ni)%S_SKEW
1440 intbuf_tab_c(ni)%S_SKEW = siz
1441 ALLOCATE(intbuf_tab_c(ni)%SKEW(siz))
1442
1443 siz = intbuf_tab(ni)%S_DSM
1444 intbuf_tab_c(ni)%S_DSM = siz
1445 ALLOCATE(intbuf_tab_c(ni)%DSM(siz))
1446
1447 siz = intbuf_tab(ni)%S_FSM
1448 intbuf_tab_c(ni)%S_FSM = siz
1449 ALLOCATE(intbuf_tab_c(ni)%FSM(siz))
1450
1451 siz = intbuf_tab(ni)%S_RUPT
1452 intbuf_tab_c(ni)%S_RUPT = siz
1453 ALLOCATE(intbuf_tab_c(ni)%RUPT(siz))
1454
1455 siz = intbuf_tab(ni)%S_FINI
1456 intbuf_tab_c(ni)%S_FINI = siz
1457 ALLOCATE(intbuf_tab_c(ni)%FINI(siz))
1458
1459 siz = intbuf_tab(ni)%S_STFNS
1460 intbuf_tab_c(ni)%S_STFNS = siz
1461 ALLOCATE(intbuf_tab_c(ni)%STFNS(siz))
1462
1463 siz = intbuf_tab(ni)%S_STFM
1464 intbuf_tab_c(ni)%S_STFM = siz
1465 ALLOCATE(intbuf_tab_c(ni)%STFM(siz))
1466
1467 siz = intbuf_tab(ni)%S_STFS
1468 intbuf_tab_c(ni)%S_STFS = siz
1469 ALLOCATE(intbuf_tab_c(ni)%STFS(siz))
1470
1471 siz = intbuf_tab(ni)%S_PENIM
1472 intbuf_tab_c(ni)%S_PENIM = siz
1473 ALLOCATE(intbuf_tab_c(ni)%PENIM(siz))
1474
1475 siz = intbuf_tab(ni)%S_PENIS
1476 intbuf_tab_c(ni)%S_PENIS = siz
1477 ALLOCATE(intbuf_tab_c(ni)%PENIS(siz))
1478
1479 siz = intbuf_tab(ni)%S_GAP_M
1480 intbuf_tab_c(ni)%S_GAP_M = siz
1481 ALLOCATE(intbuf_tab_c(ni)%GAP_M(siz))
1482
1483 siz = intbuf_tab(ni)%S_GAP_S
1484 intbuf_tab_c(ni)%S_GAP_S = siz
1485 ALLOCATE(intbuf_tab_c(ni)%GAP_S(siz))
1486
1487 siz = intbuf_tab(ni)%S_CRIT
1488 intbuf_tab_c(ni)%S_CRIT = siz
1489 ALLOCATE(intbuf_tab_c(ni)%CRIT(siz))
1490
1491 siz = intbuf_tab(ni)%S_FRIC_P
1492 intbuf_tab_c(ni)%S_FRIC_P = siz
1493 ALLOCATE(intbuf_tab_c(ni)%FRIC_P(siz))
1494
1495 siz = intbuf_tab(ni)%S_XFILTR
1496 intbuf_tab_c(ni)%S_XFILTR = siz
1497 ALLOCATE(intbuf_tab_c(ni)%XFILTR(siz))
1498
1499 siz = intbuf_tab(ni)%S_AREAS
1500 intbuf_tab_c(ni)%S_AREAS = siz
1501 ALLOCATE(intbuf_tab_c(ni)%AREAS(siz))
1502
1503 siz = intbuf_tab(ni)%S_AREAM
1504 intbuf_tab_c(ni)%S_AREAM = siz
1505 ALLOCATE(intbuf_tab_c(ni)%AREAM(siz))
1506
1507 siz = intbuf_tab(ni)%S_GAP_SL
1508 intbuf_tab_c(ni)%S_GAP_SL = siz
1509 ALLOCATE(intbuf_tab_c(ni)%GAP_SL(siz))
1510
1511 siz = intbuf_tab(ni)%S_GAP_ML
1512 intbuf_tab_c(ni)%S_GAP_ML = siz
1513 ALLOCATE(intbuf_tab_c(ni)%GAP_ML(siz))
1514
1515 siz = intbuf_tab(ni)%S_CAND_P
1516 intbuf_tab_c(ni)%S_CAND_P = siz
1517 ALLOCATE(intbuf_tab_c(ni)%CAND_P(siz))
1518
1519 siz = intbuf_tab(ni)%S_CAND_PS
1520 intbuf_tab_c(ni)%S_CAND_PS = siz
1521 ALLOCATE(intbuf_tab_c(ni)%CAND_PS(siz))
1522
1523 siz = intbuf_tab(ni)%S_CAND_F
1524 intbuf_tab_c(ni)%S_CAND_F = siz
1525 ALLOCATE(intbuf_tab_c(ni)%CAND_F(siz))
1526
1527 siz = intbuf_tab(ni)%S_FTSAVX
1528 intbuf_tab_c(ni)%S_FTSAVX = siz
1529 ALLOCATE(intbuf_tab_c(ni)%FTSAVX(siz))
1530
1531 siz = intbuf_tab(ni)%S_FTSAVY
1532 intbuf_tab_c(ni)%S_FTSAVY = siz
1533 ALLOCATE(intbuf_tab_c(ni)%FTSAVY(siz))
1534
1535 siz = intbuf_tab(ni)%S_FTSAVZ
1536 intbuf_tab_c(ni)%S_FTSAVZ = siz
1537 ALLOCATE(intbuf_tab_c(ni)%FTSAVZ(siz))
1538
1539 siz = intbuf_tab(ni)%S_CAND_FX
1540 intbuf_tab_c(ni)%S_CAND_FX = siz
1541 ALLOCATE(intbuf_tab_c(ni)%CAND_FX(siz))
1542
1543 siz = intbuf_tab(ni)%S_CAND_FY
1544 intbuf_tab_c(ni)%S_CAND_FY = siz
1545 ALLOCATE(intbuf_tab_c(ni)%CAND_FY(siz))
1546
1547 siz = intbuf_tab(ni)%S_CAND_FZ
1548 intbuf_tab_c(ni)%S_CAND_FZ = siz
1549 ALLOCATE(intbuf_tab_c(ni)%CAND_FZ(siz))
1550
1551 siz = intbuf_tab(ni)%S_XA
1552 intbuf_tab_c(ni)%S_XA = siz
1553 ALLOCATE(intbuf_tab_c(ni)%XA(siz))
1554
1555 siz = intbuf_tab(ni)%S_VA
1556 intbuf_tab_c(ni)%S_VA = siz
1557 ALLOCATE(intbuf_tab_c(ni)%VA(siz))
1558
1559 siz = intbuf_tab(ni)%S_STFA
1560 intbuf_tab_c(ni)%S_STFA = siz
1561 ALLOCATE(intbuf_tab_c(ni)%STFA(siz))
1562
1563 siz = intbuf_tab(ni)%S_PENIA
1564 intbuf_tab_c(ni)%S_PENIA = siz
1565 ALLOCATE(intbuf_tab_c(ni)%PENIA(siz))
1566
1567 siz = intbuf_tab(ni)%S_ALPHAK
1568 intbuf_tab_c(ni)%S_ALPHAK = siz
1569 ALLOCATE(intbuf_tab_c(ni)%ALPHAK(siz))
1570
1571 siz = intbuf_tab(ni)%S_GAP_SH
1572 intbuf_tab_c(ni)%S_GAP_SH = siz
1573 ALLOCATE(intbuf_tab_c(ni)%GAP_SH(siz))
1574
1575 siz = intbuf_tab(ni)%S_AVX_ANCR
1576 intbuf_tab_c(ni)%S_AVX_ANCR = siz
1577 ALLOCATE(intbuf_tab_c(ni)%AVX_ANCR(siz))
1578
1579 siz = intbuf_tab(ni)%S_CRITX
1580 intbuf_tab_c(ni)%S_CRITX = siz
1581 ALLOCATE(intbuf_tab_c(ni)%CRITX(siz))
1582
1583 siz = intbuf_tab(ni)%S_GAP_ME
1584 intbuf_tab_c(ni)%S_GAP_ME = siz
1585 ALLOCATE(intbuf_tab_c(ni)%GAP_ME(siz))
1586
1587 siz = intbuf_tab(ni)%S_STF
1588 intbuf_tab_c(ni)%S_STF = siz
1589 ALLOCATE(intbuf_tab_c(ni)%STF(siz))
1590
1591 siz = intbuf_tab(ni)%S_PENIME
1592 intbuf_tab_c(ni)%S_PENIME = siz
1593 ALLOCATE(intbuf_tab_c(ni)%PENIME(siz))
1594
1595 siz = intbuf_tab(ni)%S_GAP_SE
1596 intbuf_tab_c(ni)%S_GAP_SE = siz
1597 ALLOCATE(intbuf_tab_c(ni)%GAP_SE(siz))
1598
1599 siz = intbuf_tab(ni)%S_PENISE
1600 intbuf_tab_c(ni)%S_PENISE = siz
1601 ALLOCATE(intbuf_tab_c(ni)%PENISE(siz))
1602
1603 siz = intbuf_tab(ni)%S_N
1604 intbuf_tab_c(ni)%S_N = siz
1605 ALLOCATE(intbuf_tab_c(ni)%N(siz))
1606
1607 siz = intbuf_tab(ni)%S_CSTM
1608 intbuf_tab_c(ni)%S_CSTM = siz
1609 ALLOCATE(intbuf_tab_c(ni)%CSTM(siz))
1610
1611 siz = intbuf_tab(ni)%S_EE
1612 intbuf_tab_c(ni)%S_EE = siz
1613 ALLOCATE(intbuf_tab_c(ni)%EE(siz))
1614
1615 siz = intbuf_tab(ni)%S_STFNM
1616 intbuf_tab_c(ni)%S_STFNM = siz
1617 ALLOCATE(intbuf_tab_c(ni)%STFNM(siz))
1618
1619 siz = intbuf_tab(ni)%S_FRICOS
1620 intbuf_tab_c(ni)%S_FRICOS = siz
1621 ALLOCATE(intbuf_tab_c(ni)%FRICOS(siz))
1622
1623 siz = intbuf_tab(ni)%S_FRICOM
1624 intbuf_tab_c(ni)%S_FRICOM = siz
1625 ALLOCATE(intbuf_tab_c(ni)%FRICOM(siz))
1626
1627 siz = intbuf_tab(ni)%S_FTSAV
1628 intbuf_tab_c(ni)%S_FTSAV = siz
1629 ALLOCATE(intbuf_tab_c(ni)%FTSAV(siz))
1630
1631 siz = intbuf_tab(ni)%S_FCONT
1632 intbuf_tab_c(ni)%S_FCONT = siz
1633 ALLOCATE(intbuf_tab_c(ni)%FCONT(siz))
1634
1635 siz = intbuf_tab(ni)%S_FS
1636 intbuf_tab_c(ni)%S_FS = siz
1637 ALLOCATE(intbuf_tab_c(ni)%FS(siz))
1638
1639 siz = intbuf_tab(ni)%S_FM
1640 intbuf_tab_c(ni)%S_FM = siz
1641 ALLOCATE(intbuf_tab_c(ni)%FM(siz))
1642
1643 siz = intbuf_tab(ni)%S_RMAS
1644 intbuf_tab_c(ni)%S_RMAS = siz
1645 ALLOCATE(intbuf_tab_c(ni)%RMAS(siz))
1646
1647 siz = intbuf_tab(ni)%S_ANSMX0
1648 intbuf_tab_c(ni)%S_ANSMX0 = siz
1649 ALLOCATE(intbuf_tab_c(ni)%ANSMX0(siz))
1650
1651 intbuf_tab_c(ni)%S_T8= intbuf_tab(ni)%S_T8
1652
1653 siz = intbuf_tab(ni)%S_GAPN
1654 intbuf_tab_c(ni)%S_GAPN = siz
1655 ALLOCATE(intbuf_tab_c(ni)%GAPN(siz))
1656
1657 siz = intbuf_tab(ni)%S_STF8
1658 intbuf_tab_c(ni)%S_STF8 = siz
1659 ALLOCATE(intbuf_tab_c(ni)%STF8(siz))
1660
1661 siz = intbuf_tab(ni)%S_CIMP
1662 intbuf_tab_c(ni)%S_CIMP = siz
1663 ALLOCATE(intbuf_tab_c(ni)%CIMP(siz))
1664
1665 siz = intbuf_tab(ni)%S_NIMP
1666 intbuf_tab_c(ni)%S_NIMP = siz
1667 ALLOCATE(intbuf_tab_c(ni)%NIMP(siz))
1668
1669 siz = intbuf_tab(ni)%S_IOLD
1670 intbuf_tab_c(ni)%S_IOLD = siz
1671 ALLOCATE(intbuf_tab_c(ni)%IOLD(siz))
1672
1673 siz = intbuf_tab(ni)%S_HOLD
1674 intbuf_tab_c(ni)%S_HOLD = siz
1675 ALLOCATE(intbuf_tab_c(ni)%HOLD(siz))
1676
1677 siz = intbuf_tab(ni)%S_NOLD
1678 intbuf_tab_c(ni)%S_NOLD = siz
1679 ALLOCATE(intbuf_tab_c(ni)%NOLD(siz))
1680
1681 siz = intbuf_tab(ni)%S_DOLD
1682 intbuf_tab_c(ni)%S_DOLD = siz
1683 ALLOCATE(intbuf_tab_c(ni)%DOLD(siz))
1684
1685 siz = intbuf_tab(ni)%S_KS
1686 intbuf_tab_c(ni)%S_KS = siz
1687 ALLOCATE(intbuf_tab_c(ni)%KS(siz))
1688
1689 siz = intbuf_tab(ni)%S_KM
1690 intbuf_tab_c(ni)%S_KM = siz
1691 ALLOCATE(intbuf_tab_c(ni)%KM(siz))
1692
1693 siz = intbuf_tab(ni)%S_FROTS
1694 intbuf_tab_c(ni)%S_FROTS = siz
1695 ALLOCATE(intbuf_tab_c(ni)%FROTS(siz))
1696
1697 siz = intbuf_tab(ni)%S_FROTM
1698 intbuf_tab_c(ni)%S_FROTM = siz
1699 ALLOCATE(intbuf_tab_c(ni)%FROTM(siz))
1700
1701 siz = intbuf_tab(ni)%S_NOD_NORMAL
1702 intbuf_tab_c(ni)%S_NOD_NORMAL = siz
1703 ALLOCATE(intbuf_tab_c(ni)%NOD_NORMAL(siz))
1704
1705 siz = intbuf_tab(ni)%S_RCURV
1706 intbuf_tab_c(ni)%S_RCURV = siz
1707 ALLOCATE(intbuf_tab_c(ni)%RCURV(siz))
1708
1709 siz = intbuf_tab(ni)%S_ANGLM
1710 intbuf_tab_c(ni)%S_ANGLM = siz
1711 ALLOCATE(intbuf_tab_c(ni)%ANGLM(siz))
1712
1713 siz = intbuf_tab(ni)%S_FROT_P
1714 intbuf_tab_c(ni)%S_FROT_P = siz
1715 ALLOCATE(intbuf_tab_c(ni)%FROT_P(siz))
1716
1717 siz = intbuf_tab(ni)%S_ALPHA0
1718 intbuf_tab_c(ni)%S_ALPHA0 = siz
1719 ALLOCATE(intbuf_tab_c(ni)%ALPHA0(siz))
1720
1721 siz = intbuf_tab(ni)%S_AS
1722 intbuf_tab_c(ni)%S_AS = siz
1723 ALLOCATE(intbuf_tab_c(ni)%AS(siz))
1724
1725 siz = intbuf_tab(ni)%S_BS
1726 intbuf_tab_c(ni)%S_BS = siz
1727 ALLOCATE(intbuf_tab_c(ni)%BS(siz))
1728
1729 siz = intbuf_tab(ni)%S_THKNOD0
1730 intbuf_tab_c(ni)%S_THKNOD0 = siz
1731 ALLOCATE(intbuf_tab_c(ni)%THKNOD0(siz))
1732
1733 siz = intbuf_tab(ni)%S_GAPN_M
1734 intbuf_tab_c(ni)%S_GAPN_M = siz
1735 ALLOCATE(intbuf_tab_c(ni)%GAPN_M(siz))
1736
1737 siz = intbuf_tab(ni)%S_PENE_OLD
1738 intbuf_tab_c(ni)%S_PENE_OLD = siz
1739 ALLOCATE(intbuf_tab_c(ni)%PENE_OLD(siz))
1740
1741 siz = intbuf_tab(ni)%S_STIF_OLD
1742 intbuf_tab_c(ni)%S_STIF_OLD = siz
1743 ALLOCATE(intbuf_tab_c(ni)%STIF_OLD(siz))
1744
1745 siz = intbuf_tab(ni)%S_TIME_S
1746 intbuf_tab_c(ni)%S_TIME_S = siz
1747 ALLOCATE(intbuf_tab_c(ni)%TIME_S(siz))
1748
1749 siz = intbuf_tab(ni)%S_GAP_NM
1750 intbuf_tab_c(ni)%S_GAP_NM = siz
1751 ALLOCATE(intbuf_tab_c(ni)%GAP_NM(siz))
1752
1753 siz = intbuf_tab(ni)%S_EDGE8L2
1754 intbuf_tab_c(ni)%S_EDGE8L2 = siz
1755 ALLOCATE(intbuf_tab_c(ni)%EDGE8L2(siz))
1756
1757 siz = intbuf_tab(ni)%S_NOD_2RY_LGTH
1758 intbuf_tab_c(ni)%S_NOD_2RY_LGTH = siz
1759 ALLOCATE(intbuf_tab_c(ni)%NOD_2RY_LGTH(siz))
1760
1761 siz = intbuf_tab(ni)%S_NOD_MAS_LGTH
1762 intbuf_tab_c(ni)%S_NOD_MAS_LGTH = siz
1763 ALLOCATE(intbuf_tab_c(ni)%NOD_MAS_LGTH(siz))
1764
1765 siz = intbuf_tab(ni)%S_GAP_N0
1766 intbuf_tab_c(ni)%S_GAP_N0 = siz
1767 ALLOCATE(intbuf_tab_c(ni)%GAP_N0(siz))
1768
1769 siz = intbuf_tab(ni)%S_DGAP_NM
1770 intbuf_tab_c(ni)%S_DGAP_NM = siz
1771 ALLOCATE(intbuf_tab_c(ni)%DGAP_NM(siz))
1772
1773 siz = intbuf_tab(ni)%S_DGAP_M
1774 intbuf_tab_c(ni)%S_DGAP_M = siz
1775 ALLOCATE(intbuf_tab_c(ni)%DGAP_M(siz))
1776
1777 siz = intbuf_tab(ni)%S_DELTA_PMAX_DGAP
1778 intbuf_tab_c(ni)%S_DELTA_PMAX_DGAP = siz
1779 ALLOCATE(intbuf_tab_c(ni)%DELTA_PMAX_DGAP(siz))
1780
1781 siz = intbuf_tab(ni)%S_CSTS_BIS
1782 intbuf_tab_c(ni)%S_CSTS_BIS = siz
1783 ALLOCATE(intbuf_tab_c(ni)%CSTS_BIS(siz))
1784
1785 siz = intbuf_tab(ni)%S_DIR_FRICM
1786 intbuf_tab_c(ni)%S_DIR_FRICM= siz
1787 ALLOCATE(intbuf_tab_c(ni)%DIR_FRICM(siz))
1788
1789 siz = intbuf_tab(ni)%S_GAPMSAV
1790 intbuf_tab_c(ni)%S_GAPMSAV = siz
1791 ALLOCATE(intbuf_tab_c(ni)%GAPMSAV(siz))
1792
1793 ENDDO !NI=1,NINTER
1794C-----
1795 RETURN
1796
1797 END SUBROUTINE intbuf_tab_c_ini
copy_intbuf_tab
subroutine copy_intbuf_tab(intbuf_tab, intbuf_tab_c)
Definition copy_intbuf_tab.F:31
intbuf_tab_c_ini
subroutine intbuf_tab_c_ini(intbuf_tab, intbuf_tab_c)
Definition copy_intbuf_tab.F:1071