OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
arralloc.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!|| restalloc ../engine/source/output/restart/arralloc.F
25!||--- called by ------------------------------------------------------
26!|| radioss2 ../engine/source/engine/radioss2.F
27!||--- calls -----------------------------------------------------
28!|| alefvm_init ../engine/source/ale/alefvm/alefvm_init.f
29!|| allocate_nodal_arrays ../common_source/modules/nodal_arrays.F90
30!|| allocate_rbe3 ../common_source/modules/constraints/rbe3_mod.F90
31!|| ancmsg ../engine/source/output/message/message.F
32!|| arret ../engine/source/system/arret.F
33!|| intstamp_zero ../engine/share/modules/intstamp_mod.F
34!|| multi_allocate ../engine/source/multifluid/multi_allocate.F
35!|| sz_print ../engine/source/output/restart/arralloc.F
36!||--- uses -----------------------------------------------------
37!|| ale_connectivity_mod ../common_source/modules/ale/ale_connectivity_mod.F
38!|| ale_mod ../common_source/modules/ale/ale_mod.f
39!|| aleanim_mod ../engine/share/modules/aleanim_mod.F
40!|| alefvm_mod ../common_source/modules/ale/alefvm_mod.F
41!|| alemuscl_mod ../common_source/modules/ale/alemuscl_mod.F
42!|| cluster_mod ../engine/share/modules/cluster_mod.F
43!|| connectivity_mod ../common_source/modules/connectivity.F90
44!|| damp_mod ../engine/share/modules/damp_mod.F
45!|| drape_mod ../engine/share/modules/drape_mod.F
46!|| ecnd_mod ../engine/share/modules/ecdn_mod.F
47!|| eig_mod ../engine/share/modules/eig_mod.F
48!|| fxb_mod ../engine/share/modules/fxb_mod.F
49!|| glob_therm_mod ../common_source/modules/mat_elem/glob_therm_mod.F90
50!|| h3d_mod ../engine/share/modules/h3d_mod.F
51!|| interfaces_mod ../common_source/modules/interfaces/interfaces_mod.F90
52!|| intstamp_glob_mod ../engine/share/modules/intstamp_glob_mod.F
53!|| message_mod ../engine/share/message_module/message_mod.F
54!|| multi_fvm_mod ../common_source/modules/ale/multi_fvm_mod.F90
55!|| my_alloc_mod ../common_source/tools/memory/my_alloc.F90
56!|| nodal_arrays_mod ../common_source/modules/nodal_arrays.F90
57!|| outmax_mod ../common_source/modules/outmax_mod.F
58!|| outputs_mod ../common_source/modules/outputs_mod.F
59!|| pinchtype_mod ../common_source/modules/pinchtype_mod.F
60!|| rbe3_mod ../common_source/modules/constraints/rbe3_mod.F90
61!|| restmod ../engine/share/modules/restart_mod.F
62!|| seatbelt_mod ../common_source/modules/seatbelt_mod.F
63!|| segvar_mod ../engine/share/modules/segvar_mod.F
64!|| skew_mod ../common_source/modules/skew_mod.F90
65!|| sph_mod ../engine/share/modules/sph_mod.F
66!|| stack_mod ../engine/share/modules/stack_mod.F
67!|| trimat_mod ../engine/share/modules/trimat.F
68!||====================================================================
69 SUBROUTINE restalloc(ELEMENT, NODES,MULTI_FVM,H3D_DATA,PINCH_DATA,ALE_CONNECTIVITY,SEGVAR,INTERFACES,SKEWS,
70 . GLOB_THERM,RBE3)
71C-----------------------------------------------
72C M o d u l e s
73C-----------------------------------------------
74 USE restmod
75 USE intstamp_glob_mod
76 USE message_mod
77 USE sph_mod
78 USE cluster_mod
79 USE alefvm_mod
80 USE stack_mod
81 USE alemuscl_mod
82 USE trimat_mod
83 USE ecnd_mod
84 USE multi_fvm_mod
85 USE aleanim_mod
86 USE h3d_mod
87 USE pinchtype_mod
88 USE drape_mod
89 USE fxb_mod
90 USE eig_mod
91 USE ale_connectivity_mod
92 USE seatbelt_mod
93 USE segvar_mod
94 USE outmax_mod
95 USE outputs_mod
96 USE ale_mod
97 USE damp_mod
98 USE interfaces_mod
99 USE skew_mod
100 USE my_alloc_mod
101 use glob_therm_mod
102 USE connectivity_mod
103 USE nodal_arrays_mod
104 use rbe3_mod
105C-----------------------------------------------
106C I m p l i c i t T y p e s
107C-----------------------------------------------
108#include "implicit_f.inc"
109C-----------------------------------------------
110C C o m m o n B l o c k s
111C-----------------------------------------------
112#include "com01_c.inc"
113#include "com04_c.inc"
114#include "com_xfem1.inc"
115#include "param_c.inc"
116#include "remesh_c.inc"
117#include "scr06_c.inc"
118#include "scr07_c.inc"
119#include "scr14_c.inc"
120#include "scr16_c.inc"
121#include "sms_c.inc"
122#include "tabsiz_c.inc"
123#include "task_c.inc"
124#include "couple_c.inc"
125#include "warn_c.inc"
126#include "parit_c.inc"
127#include "intstamp_c.inc"
128#include "spmd_c.inc"
129#include "sphcom.inc"
130#include "fxbcom.inc"
131#include "eigcom.inc"
132#include "inter18.inc"
133#include "stati_c.inc"
134C-----------------------------------------------
135 TYPE(connectivity_) :: ELEMENT
136 TYPE(nodal_arrays_) :: NODES
137 TYPE(multi_fvm_struct) :: MULTI_FVM
138 TYPE(h3d_database) :: H3D_DATA
139 TYPE(pinch) :: PINCH_DATA
140 TYPE(t_ale_connectivity), INTENT(INOUT) :: ALE_CONNECTIVITY
141 TYPE(t_segvar) :: SEGVAR
142 TYPE(interfaces_) :: INTERFACES
143 TYPE(skew_) , INTENT(INOUT) :: SKEWS
144 type(glob_therm_) ,intent(inout) :: GLOB_THERM
145 type(rbe3_) ,intent(inout) :: RBE3
146C----------------------------------------------
147C L o c a l V a r i a b l e s
148C-----------------------------------------------
149 INTEGER IERR0,IERROR, NBMAT,I,NPT,ISIZ1,ISIZ2
150C-----------------------------------------------
151 ierror = 0
152C pour eviter conflit avec IERR dans commun
153 ierr0 = ierr
154C -----------------------------------------------
155C allocations entieres
156C -----------------------------------------------
157
158 CALL allocate_nodal_arrays(nodes, numnod, nthread, iroddl, iparit,
159 . isecut, iisrots, impose_dr, idrot, nrcvvois, sicodt, glob_therm%ITHERM_FE)
160
161C
162c ALLOCATE (ICODE(SICODE),STAT=IERR)
163c IF (IERR/=0) GOTO 1000
164c ICODE = 0
165
166c ALLOCATE (ISKEW(SISKEW),STAT=IERR)
167c IF (IERR/=0) GOTO 1000
168c ISKEW = e
169
170 ALLOCATE (iskwn(siskwn),stat=ierr)
171 IF (ierr/=0) GOTO 1000
172 iskwn = 0
173
174 ALLOCATE (iframe(siframe),stat=ierr)
175 IF (ierr/=0) GOTO 1000
176 iframe = 0
177
178 ALLOCATE (neth(sneth),stat=ierr)
179 IF (ierr/=0) GOTO 1000
180 neth = 0
181
182 ALLOCATE (ibcslag(sibcslag),stat=ierr)
183 IF (ierr/=0) GOTO 1000
184 ibcslag = 0
185
186 ALLOCATE (ipart(sipart),stat=ierr)
187 IF (ierr/=0) GOTO 1000
188 ipart = 0
189
190 ALLOCATE (nom_opt(snom_opt),stat=ierr)
191 IF (ierr/=0) GOTO 1000
192 nom_opt = 0
193
194 ALLOCATE (npc(snpc),stat=ierr)
195 IF (ierr/=0) GOTO 1000
196 npc = 0
197
198 ALLOCATE (ixtg(sixtg),stat=ierr)
199 IF (ierr/=0) GOTO 1000
200 ixtg = 0
201
202 ALLOCATE (ixtg1(sixtg1),stat=ierr)
203 IF (ierr/=0) GOTO 1000
204 ixtg1 = 0
205
206 ALLOCATE (ixs(sixs),stat=ierr)
207 IF (ierr/=0) GOTO 1000
208 ixs = 0
209
210 ALLOCATE (ixq(sixq),stat=ierr)
211 IF (ierr/=0) GOTO 1000
212 ixq = 0
213
214 ALLOCATE (ixc(sixc),stat=ierr)
215 ALLOCATE(element%shell%ixc(nixc,sixc/nixc))
216 ALLOCATE(element%shell%nodes(4,sixc/nixc))
217 ALLOCATE(element%shell%pid(sixc/nixc))
218 ALLOCATE(element%shell%matid(sixc/nixc))
219 ALLOCATE(element%shell%user_id(sixc/nixc))
220 ixc = 0
221 element%shell%ixc = 0
222
223 ALLOCATE (ixt(sixt),stat=ierr)
224 IF (ierr/=0) GOTO 1000
225 ixt = 0
226
227 ALLOCATE (ixp(sixp),stat=ierr)
228 IF (ierr/=0) GOTO 1000
229 ixp = 0
230
231 ALLOCATE (ixr(sixr),stat=ierr)
232 IF (ierr/=0) GOTO 1000
233 ixr = 0
234
235c ALLOCATE (ITAB(SITAB),STAT=IERR)
236c IF (IERR/=0) GOTO 1000
237c ITAB = 0
238
239c ALLOCATE (ITABM1(SITABM1),STAT=IERR)
240c IF (IERR/=0) GOTO 1000
241c ITABM1 = 0
242
243 ALLOCATE (gjbufi(sgjbufi),stat=ierr)
244 IF (ierr/=0) GOTO 1000
245 gjbufi = 0
246
247 ALLOCATE (ale_connectivity%NALE(ale%GLOBAL%SNALE),stat=ierr)
248 IF (ierr/=0) GOTO 1000
249 ale_connectivity%NALE(1:ale%GLOBAL%SNALE) = 0
250
251 ALLOCATE (id_global_vois(ale%GLOBAL%SIELVS),stat=ierr)
252 IF (ierr/=0) GOTO 1000
253 id_global_vois = 0
254
255 ALLOCATE (face_vois(ale%GLOBAL%SIELVS),stat=ierr)
256 IF (ierr/=0) GOTO 1000
257 face_vois = 0
258
259 ALLOCATE (ifill(sifill),stat=ierr)
260 IF (ierr/=0) GOTO 1000
261 ifill = 0
262
263 ALLOCATE (ims(sims),stat=ierr)
264 IF (ierr/=0) GOTO 1000
265 ims = 0
266
267 ALLOCATE (kxx(skxx),stat=ierr)
268 IF (ierr/=0) GOTO 1000
269 kxx = 0
270
271 ALLOCATE (ixx(sixx),stat=ierr)
272 IF (ierr/=0) GOTO 1000
273 ixx = 0
274
275 ALLOCATE (kxsp(skxsp),stat=ierr)
276 IF (ierr/=0) GOTO 1000
277 kxsp = 0
278
279 ALLOCATE (ixsp(sixsp),stat=ierr)
280 IF (ierr/=0) GOTO 1000
281 ixsp = 0
282
283 ALLOCATE (nod2sp(snod2sp),stat=ierr)
284 IF (ierr/=0) GOTO 1000
285 nod2sp = 0
286
287 ALLOCATE (ispsym(sispsym),stat=ierr)
288 IF (ierr/=0) GOTO 1000
289 ispsym = 0
290
291 ALLOCATE (ispcond(sispcond),stat=ierr)
292 IF (ierr/=0) GOTO 1000
293 ispcond = 0
294
295 ALLOCATE (isphio(sisphio),stat=ierr)
296 IF (ierr/=0) GOTO 1000
297 isphio = 0
298
299 ALLOCATE (lprtsph(slprtsph),stat=ierr)
300 IF (ierr/=0) GOTO 1000
301 lprtsph = 0
302
303 ALLOCATE (lonfsph(slonfsph),stat=ierr)
304 IF (ierr/=0) GOTO 1000
305 lonfsph = 0
306
307 ALLOCATE (ibcl(sibcl),stat=ierr)
308 IF (ierr/=0) GOTO 1000
309 ibcl = 0
310
311 ALLOCATE (ibfv(sibfv),stat=ierr)
312 IF (ierr/=0) GOTO 1000
313 ibfv = 0
314
315 ALLOCATE (iecran(siecran),stat=ierr)
316 IF (ierr/=0) GOTO 1000
317 iecran = 0
318
319 ALLOCATE (ilas(silas),stat=ierr)
320 IF (ierr/=0) GOTO 1000
321 ilas = 0
322
323 ALLOCATE (laccelm(slaccelm),stat=ierr)
324 IF (ierr/=0) GOTO 1000
325 laccelm = 0
326
327 ALLOCATE (lgauge(3*nbgauge),stat=ierr)
328 IF (ierr/=0) GOTO 1000
329 lgauge = 0
330
331 ALLOCATE (nnlink(snnlink),stat=ierr)
332 IF (ierr/=0) GOTO 1000
333 nnlink = 0
334
335 ALLOCATE (lnlink(slnlink),stat=ierr)
336 IF (ierr/=0) GOTO 1000
337 lnlink = 0
338
339 ALLOCATE (iparg(siparg),stat=ierr)
340 IF (ierr/=0) GOTO 1000
341 iparg = 0
342
343 ALLOCATE (dd_iad(sdd_iad),stat=ierr)
344 IF (ierr/=0) GOTO 1000
345 dd_iad = 0
346
347 ALLOCATE (igrv(sigrv),stat=ierr)
348 IF (ierr/=0) GOTO 1000
349 igrv = 0
350
351 ALLOCATE (lgrav(slgrav),stat=ierr)
352 IF (ierr/=0) GOTO 1000
353 lgrav = 0
354
355 ALLOCATE (iexlnk(siexlnk),stat=ierr)
356 IF (ierr/=0) GOTO 1000
357 iexlnk = 0
358
359 ALLOCATE (ibvel(sibvel),stat=ierr)
360 IF (ierr/=0) GOTO 1000
361 ibvel = 0
362
363 ALLOCATE (lbvel(slbvel),stat=ierr)
364 IF (ierr/=0) GOTO 1000
365 lbvel = 0
366
367 ALLOCATE (irbe2(sirbe2),stat=ierr)
368 IF (ierr/=0) GOTO 1000
369 irbe2 = 0
370
371 ALLOCATE (lrbe2(slrbe2),stat=ierr)
372 IF (ierr/=0) GOTO 1000
373 lrbe2 = 0
374
375 call allocate_rbe3(rbe3, nspmd)
376
377 ALLOCATE (iactiv(siactiv),stat=ierr)
378 IF (ierr/=0) GOTO 1000
379 iactiv = 0
380
381 ALLOCATE (ibmpc(sibmpc),stat=ierr)
382 IF (ierr/=0) GOTO 1000
383 ibmpc = 0
384
385 ALLOCATE (kinet(skinet),stat=ierr)
386 IF (ierr/=0) GOTO 1000
387 kinet = 0
388
389 ALLOCATE (fasolfr(sfasolfr),stat=ierr)
390 IF (ierr/=0) GOTO 1000
391 fasolfr = 0
392
393 ALLOCATE (segquadfr(ssegquadfr),stat=ierr)
394 IF (ierr/=0) GOTO 1000
395 segquadfr = 0
396
397 ALLOCATE (ipari(sipari),stat=ierr)
398 IF (ierr/=0) GOTO 1000
399 ipari = 0
400
401c ALLOCATE (INBUF(SINBUF),STAT=IERR)
402c ALLOCATE (INBUF(0),STAT=IERR)
403c IF (IERR/=0) GOTO 1000
404c INBUF = 0
405
406 ALLOCATE (interfaces%INTBUF_TAB(ninter),stat=ierr)
407
408C
409C allocations structures Interface friction
410 ALLOCATE(interfaces%INTBUF_FRIC_TAB(ninterfric),stat=ierr)
411 IF (ierr/=0) GOTO 1000
412
413c ALLOCATE (T8(NINTER),STAT=IERR)
414c IF (IERR/=0) GOTO 1000
415
416
417 ALLOCATE (nprw(snprw),stat=ierr)
418 IF (ierr/=0) GOTO 1000
419 nprw = 0
420
421 ALLOCATE (lprw(slprw),stat=ierr)
422 IF (ierr/=0) GOTO 1000
423 lprw = 0
424
425 ALLOCATE (iconx(siconx),stat=ierr)
426 IF (ierr/=0) GOTO 1000
427 iconx = 0
428
429 ALLOCATE (madprt(smadprt),stat=ierr)
430 IF (ierr/=0) GOTO 1000
431 madprt = 0
432
433 ALLOCATE (madsh4(smadsh4),stat=ierr)
434 IF (ierr/=0) GOTO 1000
435 madsh4 = 0
436
437 ALLOCATE (madsh3(smadsh3),stat=ierr)
438 IF (ierr/=0) GOTO 1000
439 madsh3 = 0
440
441 ALLOCATE (madsol(smadsol),stat=ierr)
442 IF (ierr/=0) GOTO 1000
443 madsol = 0
444
445 ALLOCATE (madnod(smadnod),stat=ierr)
446 IF (ierr/=0) GOTO 1000
447 madnod = 0
448
449 ALLOCATE (madclnod(madclnods),stat=ierr)
450 IF (ierr/=0) GOTO 1000
451 madclnod = 0
452
453 ALLOCATE (madfail(smadfail),stat=ierr)
454 IF (ierr/=0) GOTO 1000
455 madfail = 0
456 ALLOCATE (madidx(smadidx),stat=ierr)
457 IF (ierr/=0) GOTO 1000
458 madidx = 0
459
460
461 ALLOCATE (npby(snpby),stat=ierr)
462 IF (ierr/=0) GOTO 1000
463 npby = 0
464
465 ALLOCATE (npbyl(snpbyl),stat=ierr)
466 IF (ierr/=0) GOTO 1000
467 npbyl = 0
468
469 ALLOCATE (lpby(slpby),stat=ierr)
470 IF (ierr/=0) GOTO 1000
471 lpby = 0
472
473 ALLOCATE (lpbyl(slpbyl),stat=ierr)
474 IF (ierr/=0) GOTO 1000
475 lpbyl = 0
476
477 ALLOCATE (lrivet(slrivet),stat=ierr)
478 IF (ierr/=0) GOTO 1000
479 lrivet = 0
480
481 ALLOCATE (nstrf(snstrf),stat=ierr)
482 IF (ierr/=0) GOTO 1000
483 nstrf = 0
484
485 ALLOCATE (nom_sect(snom_sect),stat=ierr)
486 IF (ierr/=0) GOTO 1000
487 nom_sect = 0
488
489 ALLOCATE (ljoint(sljoint),stat=ierr)
490 IF (ierr/=0) GOTO 1000
491 ljoint = 0
492
493 ALLOCATE (nodpor(snodpor),stat=ierr)
494 IF (ierr/=0) GOTO 1000
495 nodpor = 0
496
497 ALLOCATE (monvol(smonvol),stat=ierr)
498 IF (ierr/=0) GOTO 1000
499 monvol = 0
500
501 ALLOCATE (lagbuf(slagbuf),stat=ierr)
502 IF (ierr/=0) GOTO 1000
503 lagbuf = 0
504
505 ALLOCATE (rthbuf(srthbuf),stat=ierr)
506 IF (ierr/=0) GOTO 1000
507 rthbuf = zero
508
509 ALLOCATE (nodes%BOUNDARY_ADD(2,siad_elem/2),stat=ierr)
510 IF (ierr/=0) GOTO 1000
511 nodes%BOUNDARY_ADD = 0
512
513 ALLOCATE (iad_rby(siad_rby),stat=ierr)
514 IF (ierr/=0) GOTO 1000
515 iad_rby = 0
516
517 ALLOCATE (iad_rby2(siad_rby2),stat=ierr)
518 IF (ierr/=0) GOTO 1000
519 iad_rby2 = 0
520
521 ALLOCATE (iad_i2m(siad_i2m),stat=ierr)
522 IF (ierr/=0) GOTO 1000
523 iad_i2m = 0
524
525 ALLOCATE (iadcj(siadcj),stat=ierr)
526 IF (ierr/=0) GOTO 1000
527 iadcj = 0
528
529 ALLOCATE (iad_rbm(siad_rbm),stat=ierr)
530 IF (ierr/=0) GOTO 1000
531 iad_rbm = 0
532
533 ALLOCATE (iad_rbm2(siad_rbm2),stat=ierr)
534 IF (ierr/=0) GOTO 1000
535 iad_rbm2 = 0
536
537 ALLOCATE (iad_rbe2(siad_rbe2),stat=ierr)
538 IF (ierr/=0) GOTO 1000
539 iad_rbe2 = 0
540
541 ALLOCATE (iad_sec(siad_sec),stat=ierr)
542 IF (ierr/=0) GOTO 1000
543 iad_sec = 0
544
545 ALLOCATE (iad_cut(siad_cut),stat=ierr)
546 IF (ierr/=0) GOTO 1000
547 iad_cut = 0
548C
549 siad_rbym = siad_rby
550 siad_rbym2 = siad_rby2
551 ALLOCATE (iad_rbym(siad_rbym),stat=ierr)
552 IF (ierr/=0) GOTO 1000
553 iad_rbym = 0
554C
555 ALLOCATE (iad_rbym2(siad_rbym2),stat=ierr)
556 IF (ierr/=0) GOTO 1000
557 iad_rbym2 = 0
558C
559 ALLOCATE (addcsrect(numnor+1),stat=ierr)
560 IF (ierr/=0) GOTO 1000
561 addcsrect = 0
562C
563 ALLOCATE (iad_frnor((nspmd+1)*ninter25),stat=ierr)
564 IF (ierr/=0) GOTO 1000
565 iad_frnor = 0
566C
567 ALLOCATE (interfaces%SPMD_ARRAYS%FR_EDG(2*nbddedgt),stat=ierr)
568 IF (ierr/=0) GOTO 1000
569 interfaces%SPMD_ARRAYS%FR_EDG = 0
570C
571 ALLOCATE (interfaces%SPMD_ARRAYS%IAD_FREDG((nspmd+1)*ninter25),stat=ierr)
572 IF (ierr/=0) GOTO 1000
573 interfaces%SPMD_ARRAYS%IAD_FREDG = 0
574C
575 ALLOCATE (fr_nor(nbddnort),stat=ierr)
576 IF (ierr/=0) GOTO 1000
577 fr_nor = 0
578C
579 ALLOCATE (procnor(nbccnor),stat=ierr)
580 IF (ierr/=0) GOTO 1000
581 procnor = 0
582 nodes%BOUNDARY_SIZE = sfr_elem
583 ALLOCATE (nodes%BOUNDARY(sfr_elem),stat=ierr)
584 IF (ierr/=0) GOTO 1000
585 nodes%BOUNDARY = 0
586
587 ALLOCATE (fr_rby(sfr_rby),stat=ierr)
588 IF (ierr/=0) GOTO 1000
589 fr_rby = 0
590
591 ALLOCATE (fr_wall(sfr_wall),stat=ierr)
592 IF (ierr/=0) GOTO 1000
593 fr_wall = 0
594
595 ALLOCATE (fr_rby2(sfr_rby2),stat=ierr)
596 IF (ierr/=0) GOTO 1000
597 fr_rby2 = 0
598
599 ALLOCATE (fr_i2m(sfr_i2m),stat=ierr)
600 IF (ierr/=0) GOTO 1000
601 fr_i2m = 0
602
603 ALLOCATE (fr_mv(sfr_mv),stat=ierr)
604 IF (ierr/=0) GOTO 1000
605 fr_mv = 0
606
607 ALLOCATE (fr_ll(sfr_ll),stat=ierr)
608 IF (ierr/=0) GOTO 1000
609 fr_ll = 0
610
611 ALLOCATE (fr_cj(sfr_cj),stat=ierr)
612 IF (ierr/=0) GOTO 1000
613 fr_cj = 0
614
615 ALLOCATE (fr_rbm(sfr_rbm),stat=ierr)
616 IF (ierr/=0) GOTO 1000
617 fr_rbm = 0
618
619 ALLOCATE (fr_rbm2(sfr_rbm2),stat=ierr)
620 IF (ierr/=0) GOTO 1000
621 fr_rbm2 = 0
622
623 ALLOCATE (fr_rbe2(sfr_rbe2),stat=ierr)
624 IF (ierr/=0) GOTO 1000
625 fr_rbe2 = 0
626
627 ALLOCATE (fr_sec(sfr_sec),stat=ierr)
628 IF (ierr/=0) GOTO 1000
629 fr_sec = 0
630
631 ALLOCATE (fr_cut(sfr_cut),stat=ierr)
632 IF (ierr/=0) GOTO 1000
633 fr_cut = 0
634
635 ALLOCATE (rg_cut(srg_cut),stat=ierr)
636 IF (ierr/=0) GOTO 1000
637 rg_cut = 0
638
639 ALLOCATE (fr_mad(sfr_mad),stat=ierr)
640 IF (ierr/=0) GOTO 1000
641 fr_mad = 0
642
643 ALLOCATE (fr_i18(sfr_i18),stat=ierr)
644 IF (ierr/=0) GOTO 1000
645 fr_i18 = 0
646
647 ALLOCATE (dd_r2r(sdd_r2r),stat=ierr)
648 IF (ierr/=0) GOTO 1000
649 dd_r2r = 0
650
651 ALLOCATE (dd_r2r_elem(sdd_r2r_elem),stat=ierr)
652 IF (ierr/=0) GOTO 1000
653 dd_r2r_elem = 0
654
655 ALLOCATE (fr_rbym(sfr_rbym),stat=ierr)
656 IF (ierr/=0) GOTO 1000
657 fr_rbym = 0
658
659 ALLOCATE (fr_rbym2(sfr_rbym2),stat=ierr)
660 IF (ierr/=0) GOTO 1000
661 fr_rbym2 = 0
662 ALLOCATE (iskwp(siskwp),stat=ierr)
663 IF (ierr/=0) GOTO 1000
664 iskwp = 0
665
666 ALLOCATE (nskwp(snskwp),stat=ierr)
667 IF (ierr/=0) GOTO 1000
668 nskwp = 0
669
670 ALLOCATE (iskwp_l(siskwp),stat=ierr)
671 IF (ierr/=0) GOTO 1000
672 iskwp_l = 0
673
674 ALLOCATE (isensp(sisensp),stat=ierr)
675 IF (ierr/=0) GOTO 1000
676 isensp = 0
677
678 ALLOCATE (nsensp(snsensp),stat=ierr)
679 IF (ierr/=0) GOTO 1000
680 nsensp = 0
681
682 ALLOCATE (iaccp(siaccp),stat=ierr)
683 IF (ierr/=0) GOTO 1000
684 iaccp = 0
685
686 ALLOCATE (naccp(snaccp),stat=ierr)
687 IF (ierr/=0) GOTO 1000
688 naccp = 0
689
690 ALLOCATE (igaup(sigaup),stat=ierr)
691 IF (ierr/=0) GOTO 1000
692 igaup = 0
693
694 ALLOCATE (ngaup(sngaup),stat=ierr)
695 IF (ierr/=0) GOTO 1000
696 ngaup = 0
697
698 ALLOCATE (fr_lagf(sfr_lagf),stat=ierr)
699 IF (ierr/=0) GOTO 1000
700 fr_lagf = 0
701
702c ALLOCATE (MAIN_PROC(SWEIGHT),STAT=IERR)
703c IF (IERR/=0) GOTO 1000
704c MAIN_PROC = 0
705
706c ALLOCATE (WEIGHT(SWEIGHT),STAT=IERR)
707c IF (IERR/=0) GOTO 1000
708c WEIGHT = 0
709
710c ALLOCATE (WEIGHT_MD(SWEIGHT),STAT=IERR)
711c IF (IERR/=0) GOTO 1000
712c WEIGHT_MD = 0
713
714 ALLOCATE (newfront(snewfront),stat=ierr)
715 IF (ierr/=0) GOTO 1000
716 newfront = 0
717
718C ALLOCATE (NODES%NODGLOB(SNODGLOB),STAT=IERR)
719C IF (IERR/=0) GOTO 1000
720C NODES%NODGLOB = 0
721
722 ALLOCATE (nbrcvois(snbrcvois),stat=ierr)
723 IF (ierr/=0) GOTO 1000
724 nbrcvois = 0
725
726 ALLOCATE (lnrcvois(slnrcvois),stat=ierr)
727 IF (ierr/=0) GOTO 1000
728 lnrcvois = 0
729
730 ALLOCATE (nbsdvois(snbsdvois),stat=ierr)
731 IF (ierr/=0) GOTO 1000
732 nbsdvois = 0
733
734 ALLOCATE (lnsdvois(slnsdvois),stat=ierr)
735 IF (ierr/=0) GOTO 1000
736 lnsdvois = 0
737
738 ALLOCATE (nercvois(snercvois),stat=ierr)
739 IF (ierr/=0) GOTO 1000
740 nercvois = 0
741
742 ALLOCATE (lercvois(slercvois),stat=ierr)
743 IF (ierr/=0) GOTO 1000
744 lercvois = 0
745
746 ALLOCATE (nesdvois(snesdvois),stat=ierr)
747 IF (ierr/=0) GOTO 1000
748 nesdvois = 0
749
750 ALLOCATE (lesdvois(slesdvois),stat=ierr)
751 IF (ierr/=0) GOTO 1000
752 lesdvois = 0
753
754 IF(ale_connectivity%has_ne_connect)THEN
755 ALLOCATE (ne_nercvois(nspmd + 1),stat=ierr)
756 IF (ierr/=0) GOTO 1000
757 ne_nercvois = 0
758
759 ALLOCATE (ne_nesdvois(nspmd + 1),stat=ierr)
760 IF (ierr/=0) GOTO 1000
761 ne_nesdvois = 0
762 ELSE
763 ALLOCATE (ne_nercvois(0) )
764 ALLOCATE (ne_nesdvois(0) )
765 ENDIF
766
767 ALLOCATE (npsegcom(snpsegcom),stat=ierr)
768 IF (ierr/=0) GOTO 1000
769 npsegcom = 0
770
771 ALLOCATE (lsegcom(slsegcom),stat=ierr)
772 IF (ierr/=0) GOTO 1000
773 lsegcom = 0
774
775 ALLOCATE (nporgeo(snporgeo),stat=ierr)
776 IF (ierr/=0) GOTO 1000
777 nporgeo = 0
778
779 ALLOCATE (lnodpor(slnodpor),stat=ierr)
780 IF (ierr/=0) GOTO 1000
781 lnodpor = 0
782
783 ALLOCATE (llagf(sllagf),stat=ierr)
784 IF (ierr/=0) GOTO 1000
785 llagf = 0
786
787! ALLOCATE (ICODT(SICODT),STAT=IERR)
788! IF (IERR/=0) GOTO 1000
789! ICODT = 0
790
791! ALLOCATE (ICODR(SICODR),STAT=IERR)
792! IF (IERR/=0) GOTO 1000
793! ICODR = 0
794
795
796 ALLOCATE (interfaces%PON%ISKY(sisky),stat=ierr)
797 IF (ierr/=0) GOTO 1000
798 interfaces%PON%ISKY = 0
799
800 ALLOCATE (element%PON%ADSKY(sadsky),stat=ierr)
801 IF (ierr/=0) GOTO 1000
802 element%PON%ADSKY = 0
803 element%PON%SADSKY = sadsky
804
805 ALLOCATE (element%PON%PROCNE(sprocne),stat=ierr)
806 IF (ierr/=0) GOTO 1000
807 element%PON%PROCNE = 0
808
809 ALLOCATE (addcni2(saddcni2),stat=ierr)
810 IF (ierr/=0) GOTO 1000
811 addcni2 = 0
812
813 ALLOCATE (procni2(sprocni2),stat=ierr)
814 IF (ierr/=0) GOTO 1000
815 procni2 = 0
816
817 ALLOCATE (element%PON%IADSDP(siadsdp),stat=ierr)
818 IF (ierr/=0) GOTO 1000
819 element%PON%IADSDP = 0
820
821 ALLOCATE (element%PON%IADRCP(siadrcp),stat=ierr)
822 IF (ierr/=0) GOTO 1000
823 element%PON%IADRCP = 0
824
825 CALL my_alloc(element%PON%IADS,8,numels,msg="IADS")
826 CALL my_alloc(element%PON%IADS10,6,numels10,msg="IADS10")
827 CALL my_alloc(element%PON%IADS20,12,numels20,msg="iads20")
828 CALL MY_ALLOC(ELEMENT%PON%IADS16,8,NUMELS16,MSG="iads16")
829 CALL MY_ALLOC(ELEMENT%PON%IADQ,4,NUMELQ,MSG="iadq")
830 CALL MY_ALLOC(ELEMENT%PON%IADC,4,NUMELC,MSG="iadc")
831 CALL MY_ALLOC(ELEMENT%PON%IAD_TRUSS,2,NUMELT,MSG="iad_truss")
832 CALL MY_ALLOC(ELEMENT%PON%IAD_BEAM,2,NUMELP,MSG="iad_beam")
833 CALL MY_ALLOC(ELEMENT%PON%IAD_SPRING,3,NUMELR,MSG="iad_spring")
834 CALL MY_ALLOC(ELEMENT%PON%IAD_TG,3,NUMELTG,MSG="iad_tg")
835 CALL MY_ALLOC(ELEMENT%PON%IAD_TG6,3,NUMELTG6,MSG="iad_tg6")
836 CALL MY_ALLOC(ELEMENT%PON%IAD_MV,4,NSKYMV0,MSG="iad_mv")
837 CALL MY_ALLOC(ELEMENT%PON%IAD_CONLD,4,NCONLD,MSG="iad_conld")
838 CALL MY_ALLOC(ELEMENT%PON%IAD_CONV,4,GLOB_THERM%NUMCONV,MSG="iad_conv")
839 CALL MY_ALLOC(ELEMENT%PON%IAD_RADIA,4,GLOB_THERM%NUMRADIA,MSG="iad_radia")
840 CALL MY_ALLOC(ELEMENT%PON%IAD_LOADP,SLLOADP,MSG="iad_loadp")
841 CALL MY_ALLOC(ELEMENT%PON%IAD_FXFLUX,4,GLOB_THERM%NFXFLUX,MSG="iad_fxflux")
842
843
844c ALLOCATE (IADS(SIADS),STAT=IERR)
845c IF (IERR/=0) GOTO 1000
846c IADS = 0
847
848 ALLOCATE (IADWAL(SIADWAL),STAT=IERR)
849 IF (IERR/=0) GOTO 1000
850 IADWAL = 0
851
852 ALLOCATE (IADRBK(SIADRBK),STAT=IERR)
853 IF (IERR/=0) GOTO 1000
854 IADRBK = 0
855
856 ALLOCATE (IADI2(SIADI2),STAT=IERR)
857 IF (IERR/=0) GOTO 1000
858 IADI2 = 0
859
860 ALLOCATE (IADMV2(SIADMV2),STAT=IERR)
861 IF (IERR/=0) GOTO 1000
862 IADMV2 = 0
863
864 ALLOCATE (IADMV3(SIADMV3),STAT=IERR)
865 IF (IERR/=0) GOTO 1000
866 IADMV3 = 0
867
868 ALLOCATE (IADLL(SIADLL),STAT=IERR)
869 IF (IERR/=0) GOTO 1000
870 IADLL = 0
871
872 ALLOCATE (IADRBM(SIADRBM),STAT=IERR)
873 IF (IERR/=0) GOTO 1000
874 IADRBM = 0
875
876 ALLOCATE (IADI18(SIADI18),STAT=IERR)
877 IF (IERR/=0) GOTO 1000
878 IADI18 = 0
879 ALLOCATE (IADRBMK(SIADRBMK),STAT=IERR)
880 IF (IERR/=0) GOTO 1000
881 IADRBMK = 0
882 ALLOCATE (ILINK(SILINK),STAT=IERR)
883 IF (IERR/=0) GOTO 1000
884 ILINK = 0
885
886 ALLOCATE (FR_RL(SFR_RL),STAT=IERR)
887 IF (IERR/=0) GOTO 1000
888 FR_RL = 0
889
890 ALLOCATE (LLINK(SLLINK),STAT=IERR)
891 IF (IERR/=0) GOTO 1000
892 LLINK = 0
893
894 ALLOCATE (IADRL(SIADRL),STAT=IERR)
895 IF (IERR/=0) GOTO 1000
896 IADRL = 0
897
898 ALLOCATE (LINALE(SLINALE+LLINAL),STAT=IERR)
899 IF (IERR/=0) GOTO 1000
900 LINALE = 0
901
902 ALLOCATE (NEFLSW(SNEFLSW),STAT=IERR)
903 IF (IERR/=0) GOTO 1000
904 NEFLSW = 0
905
906 ALLOCATE (NNFLSW(SNNFLSW),STAT=IERR)
907 IF (IERR/=0) GOTO 1000
908 NNFLSW = 0
909
910 ALLOCATE (ICUT(SICUT),STAT=IERR)
911 IF (IERR/=0) GOTO 1000
912 ICUT = 0
913
914 ALLOCATE (IGEO(SIGEO),STAT=IERR)
915 IF (IERR/=0) GOTO 1000
916 IGEO = 0
917
918 ALLOCATE (IPM(SIPM),STAT=IERR)
919 IF (IERR/=0) GOTO 1000
920 IPM = 0
921
922 ALLOCATE (IPART_STATE(NPART),STAT=IERR)
923 IF (IERR/=0) GOTO 1000
924 IPART_STATE = 0
925
926 ALLOCATE (ICONTACT(SICONTACT),STAT=IERR)
927 IF (IERR/=0) GOTO 1000
928 ICONTACT = 0
929
930 IF(NADMESH /= 0)THEN
931 ALLOCATE (SH4TREE(KSH4TREE,NUMELC),STAT=IERR)
932 IERROR = IERROR+IERR
933 ALLOCATE (SH3TREE(KSH3TREE,NUMELTG),STAT=IERR)
934 IERROR = IERROR+IERR
935 ALLOCATE (IPADMESH(KIPADMESH,NPART),STAT=IERR)
936 IERROR = IERROR+IERR
937 ALLOCATE (SH4TRIM(ABS(LSH4TRIM)),STAT=IERR)
938 IERROR = IERROR+IERR
939 ALLOCATE (SH3TRIM(ABS(LSH3TRIM)),STAT=IERR)
940 IERROR = IERROR+IERR
941 ELSE
942 ALLOCATE(SH4TREE(0,0))
943 ALLOCATE(SH3TREE(0,0))
944 ALLOCATE(IPADMESH(0,0))
945 ALLOCATE(SH4TRIM(0))
946 ALLOCATE(SH3TRIM(0))
947 END IF
948C
949 ALLOCATE (ITHVAR(SITHVAR),STAT=IERR)
950 IF (IERR/=0) GOTO 1000
951 ITHVAR = 0
952
953 ALLOCATE (ICFIELD(SIZFIELD*NLOADC),STAT=IERR)
954 IF (IERR/=0) GOTO 1000
955 ICFIELD = 0
956
957 ALLOCATE (LCFIELD(SLCFIELD),STAT=IERR)
958 IF (IERR/=0) GOTO 1000
959 LCFIELD = 0
960
961 ALLOCATE (ILOADP(SIZLOADP*NLOADP),STAT=IERR)
962 IF (IERR/=0) GOTO 1000
963 ILOADP = 0
964
965 ALLOCATE (LLOADP(SLLOADP),STAT=IERR)
966 IF (IERR/=0) GOTO 1000
967 LLOADP = 0
968
969 ALLOCATE(IBUFSSG_IO(SIBUFSSG_IO),STAT=IERR)
970 IF (IERR/=0) GOTO 1000
971 IBUFSSG_IO = 0
972
973 IF(NSPHSOL/=0)THEN
974
975 ALLOCATE(SPH2SOL(NUMSPH),STAT=IERR)
976 IF (IERR/=0) GOTO 1000
977 SPH2SOL = 0
978
979 ALLOCATE(SOL2SPH(2*NUMELS8),STAT=IERR)
980 IF (IERR/=0) GOTO 1000
981 SOL2SPH = 0
982
983 ALLOCATE(IRST(3*NSPHSOL),STAT=IERR)
984 IF (IERR/=0) GOTO 1000
985 IRST = 0
986
987 ALLOCATE(SOL2SPH_TYP(NUMELS8),STAT=IERR)
988 IF (IERR/=0) GOTO 1000
989 SOL2SPH_TYP = 0
990
991 ELSE
992
993 ALLOCATE(SPH2SOL(0),STAT=IERR)
994 IF (IERR/=0) GOTO 1000
995 ALLOCATE(SOL2SPH(0),STAT=IERR)
996 IF (IERR/=0) GOTO 1000
997 ALLOCATE(IRST(0),STAT=IERR)
998 IF (IERR/=0) GOTO 1000
999 ALLOCATE(SOL2SPH_TYP(0),STAT=IERR)
1000 IF (IERR/=0) GOTO 1000
1001
1002 END IF
1003
1004 ALLOCATE (ELEMENT%PON%FSKYD(SFSKYD),STAT=IERR)
1005 IF (IERR/=0) GOTO 1000
1006 ELEMENT%PON%FSKYD = 0
1007
1008 ALLOCATE (IBCSCYC(SIBCSCYC),STAT=IERR)
1009 IF (IERR/=0) GOTO 1000
1010 IBCSCYC = 0
1011
1012 ALLOCATE (LBCSCYC(SLBCSCYC),STAT=IERR)
1013 IF (IERR/=0) GOTO 1000
1014 LBCSCYC = 0
1015
1016C -----------------------------------------------
1017C allocations flottantes
1018C -----------------------------------------------
1019! ALLOCATE (X(SX),STAT=IERR)
1020! IF (IERR/=0) GOTO 1000
1021! X = 0
1022
1023! ALLOCATE (D(SD),STAT=IERR)
1024! IF (IERR/=0) GOTO 1000
1025! D = 0
1026
1027! ALLOCATE (V(SV),STAT=IERR)
1028! IF (IERR/=0) GOTO 1000
1029! V = 0
1030
1031! ALLOCATE (VR(SVR),STAT=IERR)
1032! IF (IERR/=0) GOTO 1000
1033! VR = 0
1034
1035! ALLOCATE (DR(SDR),STAT=IERR)
1036! IF (IERR/=0) GOTO 1000
1037! DR = 0
1038
1039
1040 ALLOCATE (THKE(STHKE),STAT=IERR)
1041 IF (IERR/=0) GOTO 1000
1042 THKE = 0
1043
1044 ALLOCATE (DAMPR(SDAMPR),STAT=IERR)
1045 IF (IERR/=0) GOTO 1000
1046 DAMPR = 0
1047
1048 ALLOCATE (DAMP(SDAMP),STAT=IERR)
1049 IF (IERR/=0) GOTO 1000
1050 DAMP = 0
1051
1052! ALLOCATE (MS(SMS),STAT=IERR)
1053! IF (IERR/=0) GOTO 1000
1054! MS = 0
1055!
1056! ALLOCATE (IN(SIN),STAT=IERR)
1057! IF (IERR/=0) GOTO 1000
1058! IN = 0
1059
1060 ALLOCATE (TF(STF),STAT=IERR)
1061 IF (IERR/=0) GOTO 1000
1062 TF = 0
1063
1064 ALLOCATE (PM(SPM),STAT=IERR)
1065 IF (IERR/=0) GOTO 1000
1066 PM = 0
1067
1068 ALLOCATE (XFRAME(SXFRAME),STAT=IERR)
1069 IF (IERR/=0) GOTO 1000
1070 XFRAME = 0
1071
1072 ALLOCATE (GEO(SGEO),STAT=IERR)
1073 IF (IERR/=0) GOTO 1000
1074 GEO = 0
1075
1076 ALLOCATE (EANI(SEANI),STAT=IERR)
1077 IF (IERR/=0) GOTO 1000
1078 EANI = 0
1079
1080 ALLOCATE (BUFMAT(SBUFMAT),STAT=IERR)
1081 IF (IERR/=0) GOTO 1000
1082 BUFMAT = 0
1083
1084 ALLOCATE (BUFGEO(SBUFGEO),STAT=IERR)
1085 IF (IERR/=0) GOTO 1000
1086 BUFGEO = 0
1087
1088 ALLOCATE (BUFSF(SBUFSF),STAT=IERR)
1089 IF (IERR/=0) GOTO 1000
1090 BUFSF = 0
1091
1092 ALLOCATE (RBMPC(SRBMPC),STAT=IERR)
1093 IF (IERR/=0) GOTO 1000
1094 RBMPC = 0
1095
1096 ALLOCATE (GJBUFR(SGJBUFR),STAT=IERR)
1097 IF (IERR/=0) GOTO 1000
1098 GJBUFR = 0
1099
1100 ALLOCATE (W(SW),STAT=IERR)
1101 IF (IERR/=0) GOTO 1000
1102 W = 0
1103
1104 ALLOCATE (VEUL(SVEUL),STAT=IERR)
1105 IF (IERR/=0) GOTO 1000
1106 VEUL = 0
1107
1108 ALLOCATE (FILL(SFILL),STAT=IERR)
1109 IF (IERR/=0) GOTO 1000
1110 FILL = 0
1111
1112 ALLOCATE (DFILL(SDFILL),STAT=IERR)
1113 IF (IERR/=0) GOTO 1000
1114 DFILL = 0
1115
1116 ALLOCATE (ALPH(SALPH),STAT=IERR)
1117 IF (IERR/=0) GOTO 1000
1118 ALPH = 0
1119
1120 ALLOCATE (WB(SWB),STAT=IERR)
1121 IF (IERR/=0) GOTO 1000
1122 WB = 0
1123
1124 ALLOCATE (DSAVE(SDSAVE),STAT=IERR)
1125 IF (IERR/=0) GOTO 1000
1126 DSAVE = 0
1127
1128 ALLOCATE (ASAVE(SASAVE),STAT=IERR)
1129 IF (IERR/=0) GOTO 1000
1130 ASAVE = 0
1131
1132 ALLOCATE (SPBUF(SSPBUF),STAT=IERR)
1133 IF (IERR/=0) GOTO 1000
1134 SPBUF = 0
1135
1136 ALLOCATE (VSPHIO(SVSPHIO),STAT=IERR)
1137 IF (IERR/=0) GOTO 1000
1138 VSPHIO = 0
1139
1140 ALLOCATE (SPHVELN(SSPHVELN),STAT=IERR)
1141 IF (IERR/=0) GOTO 1000
1142 SPHVELN = 0
1143
1144 ALLOCATE (MSNF(SMSNF),STAT=IERR)
1145 IF (IERR/=0) GOTO 1000
1146 MSNF = 0
1147C
1148
1149 ALLOCATE (FORC(SFORC),STAT=IERR)
1150 IF (IERR/=0) GOTO 1000
1151 FORC = 0
1152
1153 ALLOCATE (VEL(SVEL),STAT=IERR)
1154 IF (IERR/=0) GOTO 1000
1155 VEL = 0
1156
1157 ALLOCATE (FSAV(SFSAV),STAT=IERR)
1158 IF (IERR/=0) GOTO 1000
1159 FSAV = 0
1160
1161 ALLOCATE (TAB_UMP(7,TAILLE),STAT=IERR)
1162 IF (IERR/=0) GOTO 1000
1163 TAB_UMP = 0
1164
1165 ALLOCATE (POIN_UMP(NUMMAT),STAT=IERR)
1166 IF (IERR/=0) GOTO 1000
1167 POIN_UMP = 0
1168
1169 IF(ISPMD==0) THEN
1170 ALLOCATE (CPUTIME_MP_GLOB(NBR_GPMP,NSPMD+1),STAT=IERR)
1171 IF (IERR/=0) GOTO 1000
1172 CPUTIME_MP_GLOB = 0
1173 ENDIF
1174
1175 ALLOCATE (CPUTIME_MP(TAILLE),STAT=IERR)
1176 IF (IERR/=0) GOTO 1000
1177 CPUTIME_MP = 0
1178
1179 ALLOCATE (TAB_MAT(STAB_MAT),STAT=IERR)
1180 IF (IERR/=0) GOTO 1000
1181 TAB_MAT = ZERO
1182
1183 ALLOCATE (FZERO(SFZERO),STAT=IERR)
1184 IF (IERR/=0) GOTO 1000
1185 FZERO = 0
1186
1187 ALLOCATE (XLAS(SXLAS),STAT=IERR)
1188 IF (IERR/=0) GOTO 1000
1189 XLAS = 0
1190
1191 ALLOCATE (ACCELM(SACCELM),STAT=IERR)
1192 IF (IERR/=0) GOTO 1000
1193 ACCELM = 0
1194
1195 ALLOCATE (GAUGE(LLGAUGE*NBGAUGE),STAT=IERR)
1196 IF (IERR/=0) GOTO 1000
1197 GAUGE = 0
1198
1199 ALLOCATE (FBVEL(SFBVEL),STAT=IERR)
1200 IF (IERR/=0) GOTO 1000
1201 FBVEL = 0
1202
1203 ALLOCATE (FACTIV(LRACTIV*NACTIV),STAT=IERR)
1204 IF (IERR/=0) GOTO 1000
1205 FACTIV = 0
1206
1207 ALLOCATE (GRAV(SGRAV),STAT=IERR)
1208 IF (IERR/=0) GOTO 1000
1209 GRAV = 0
1210
1211 ALLOCATE (FR_WAVE(SFR_WAVE),STAT=IERR)
1212 IF (IERR/=0) GOTO 1000
1213 FR_WAVE = 0
1214
1215 ALLOCATE (PARTS0(SPARTS0),STAT=IERR)
1216 IF (IERR/=0) GOTO 1000
1217 PARTS0 = 0
1218
1219 ALLOCATE (ELBUF(SELBUF),STAT=IERR)
1220 IF (IERR/=0) GOTO 1000
1221 ELBUF = 0
1222
1223 ALLOCATE (RWBUF(SRWBUF),STAT=IERR)
1224 IF (IERR/=0) GOTO 1000
1225 RWBUF = 0
1226
1227 ALLOCATE (RWSAV(SRWSAV),STAT=IERR)
1228 IF (IERR/=0) GOTO 1000
1229 RWSAV = 0
1230
1231 ALLOCATE (RBY(SRBY),STAT=IERR)
1232 IF (IERR/=0) GOTO 1000
1233 RBY = 0
1234
1235 ALLOCATE (RBYL(SRBYL),STAT=IERR)
1236 IF (IERR/=0) GOTO 1000
1237 RBYL = 0
1238
1239 ALLOCATE (RIVET(SRIVET),STAT=IERR)
1240 IF (IERR/=0) GOTO 1000
1241 RIVET = 0
1242
1243 ALLOCATE (SECBUF(SSECBUF),STAT=IERR)
1244 IF (IERR/=0) GOTO 1000
1245 SECBUF = 0
1246
1247 ALLOCATE (VOLMON(SVOLMON),STAT=IERR)
1248 IF (IERR/=0) GOTO 1000
1249 VOLMON = 0
1250
1251 ALLOCATE (LAMBDA(SLAMBDA),STAT=IERR)
1252 IF (IERR/=0) GOTO 1000
1253 LAMBDA = 0
1254
1255 ALLOCATE (RCONX(SRCONX),STAT=IERR)
1256 IF (IERR/=0) GOTO 1000
1257 RCONX = 0
1258
1259 ALLOCATE (RCONTACT(SRCONTACT),STAT=IERR)
1260 IF (IERR/=0) GOTO 1000
1261 RCONTACT = EP30
1262
1263 ALLOCATE (ACONTACT(SRCONTACT),STAT=IERR)
1264 IF (IERR/=0) GOTO 1000
1265 ACONTACT = EP30
1266
1267 ALLOCATE (PCONTACT(SRCONTACT),STAT=IERR)
1268 IF (IERR/=0) GOTO 1000
1269 PCONTACT = ZERO
1270
1271 ALLOCATE (WA(SWA),STAT=IERR)
1272 IF (IERR/=0) GOTO 1000
1273 WA = 0
1274
1275 ALLOCATE (FV(SFV),STAT=IERR)
1276 IF (IERR/=0) GOTO 1000
1277 FV = 0
1278
1279! ALLOCATE (A(SA),STAT=IERR)
1280! IF (IERR/=0) GOTO 1000
1281! A = 0
1282!
1283! ALLOCATE (AR(SAR),STAT=IERR)
1284! IF (IERR/=0) GOTO 1000
1285! AR = 0
1286!
1287! ALLOCATE (STIFN(SSTIFN),STAT=IERR)
1288! IF (IERR/=0) GOTO 1000
1289! STIFN = 0
1290!
1291! ALLOCATE (VISCN(SVISCN),STAT=IERR)
1292! IF (IERR/=0) GOTO 1000
1293! VISCN = 0
1294!
1295! ALLOCATE (STIFR(SSTIFR),STAT=IERR)
1296! IF (IERR/=0) GOTO 1000
1297! STIFR = 0
1298
1299 ALLOCATE (PARTSAV(SPARTSAV),STAT=IERR)
1300 IF (IERR/=0) GOTO 1000
1301 PARTSAV = 0
1302
1303 ALLOCATE (ELEMENT%PON%FSKY(8,SFSKY/8),STAT=IERR)
1304 IF (IERR/=0) GOTO 1000
1305 ELEMENT%PON%FSKY = 0
1306 ELEMENT%PON%SFSKY = SFSKY
1307 ELEMENT%PON%MAX_SFSKY = SFSKY
1308
1309
1310 ALLOCATE (ELEMENT%PON%FSKYM(SFSKYM),STAT=IERR)
1311 IF (IERR/=0) GOTO 1000
1312 ELEMENT%PON%FSKYM = 0
1313
1314 ALLOCATE (INTERFACES%PON%FSKYI(LSKYI,NFSKYI),STAT=IERR)
1315 IF (IERR/=0) GOTO 1000
1316 INTERFACES%PON%FSKYI = 0
1317
1318 ALLOCATE (UWA(SUWA),STAT=IERR)
1319 IF (IERR/=0) GOTO 1000
1320 UWA = 0
1321
1322 ALLOCATE (VAL2(SVAL2),STAT=IERR)
1323 IF (IERR/=0) GOTO 1000
1324 VAL2 = 0
1325
1326 ALLOCATE (PHI(SPHI),STAT=IERR)
1327 IF (IERR/=0) GOTO 1000
1328 PHI = 0
1329C
1330 ALLOCATE (PHIE(SPHI),STAT=IERR)
1331 IF (IERR/=0) GOTO 1000
1332 PHIE = ZERO
1333 ALLOCATE (POR(SPHI),STAT=IERR)
1334 IF (IERR/=0) GOTO 1000
1335 POR = ZERO
1336
1337 ALLOCATE (R(SR),STAT=IERR)
1338 IF (IERR/=0) GOTO 1000
1339 R = 0
1340
1341 ALLOCATE (ESTIF(SESTIF),STAT=IERR)
1342 IF (IERR/=0) GOTO 1000
1343 ESTIF = 0
1344
1345 ALLOCATE (CRFLSW(SCRFLSW),STAT=IERR)
1346 IF (IERR/=0) GOTO 1000
1347 CRFLSW = 0
1348
1349 ALLOCATE (FLSW(SFLSW),STAT=IERR)
1350 IF (IERR/=0) GOTO 1000
1351 FLSW = 0
1352
1353 ALLOCATE (FANI(SFANI),STAT=IERR)
1354 IF (IERR/=0) GOTO 1000
1355 FANI = 0
1356
1357 ISIZ1=2
1358 ISIZ2=NUMELQ+NUMELTG
1359 IF(N2D == 0)THEN
1360 ISIZ1=3
1361 ISIZ2=NUMELS
1362 ENDIF
1363 !
1364 IF(FANI_CELL%IS_VORT_X_REQUESTED)THEN
1365 ALLOCATE (FANI_CELL%VORT_X(ISIZ2),STAT=IERR)
1366 IF (IERR/=0) GOTO 1000
1367 FANI_CELL%VORT_X(:) = ZERO
1368 ENDIF
1369 IF(FANI_CELL%IS_VORT_Y_REQUESTED)THEN
1370 ALLOCATE (FANI_CELL%VORT_Y(ISIZ2),STAT=IERR)
1371 IF (IERR/=0) GOTO 1000
1372 FANI_CELL%VORT_Y(:) = ZERO
1373 ENDIF
1374 IF(FANI_CELL%IS_VORT_Z_REQUESTED)THEN
1375 ALLOCATE (FANI_CELL%VORT_Z(ISIZ2),STAT=IERR)
1376 IF (IERR/=0) GOTO 1000
1377 FANI_CELL%VORT_Z(:) = ZERO
1378 ENDIF
1379 !
1380 IF(FANI_CELL%IS_F18_FVM_REQUESTED)THEN
1381 ALLOCATE (FANI_CELL%F18(ISIZ1,ISIZ2),STAT=IERR)
1382 IF (IERR/=0) GOTO 1000
1383 FANI_CELL%F18(:,:) = ZERO
1384 ENDIF
1385
1386 ALLOCATE (XCUT(SXCUT),STAT=IERR)
1387 IF (IERR/=0) GOTO 1000
1388 XCUT = 0
1389
1390 ALLOCATE (ANIN(SANIN),STAT=IERR)
1391 IF (IERR/=0) GOTO 1000
1392 ANIN = 0
1393
1394 ALLOCATE (TANI(STANI),STAT=IERR)
1395 IF (IERR/=0) GOTO 1000
1396 TANI = 0
1397
1398 ALLOCATE (SECFCUM(SSECFCUM),STAT=IERR)
1399 IF (IERR/=0) GOTO 1000
1400 SECFCUM = 0
1401
1402 ALLOCATE (WASPH(SWASPH),STAT=IERR)
1403 IF (IERR/=0) GOTO 1000
1404 WASPH = 0
1405
1406 ALLOCATE (W16(SW16),STAT=IERR)
1407 IF (IERR/=0) GOTO 1000
1408 W16 = 0
1409
1410 ALLOCATE (DRETRIO(SDRETRIO),STAT=IERR)
1411 IF (IERR/=0) GOTO 1000
1412 DRETRIO = 0
1413
1414 ALLOCATE (LBVRS(SLBVRS),STAT=IERR)
1415 IF (IERR/=0) GOTO 1000
1416 LBVRS = 0
1417
1418 ALLOCATE (PV(SPV),STAT=IERR)
1419 IF (IERR/=0) GOTO 1000
1420 PV = 0
1421
1422.OR. IF(NADMESH /= 0 IREST_MSELT/=0)THEN
1423
1424 ALLOCATE(MSC(NUMELC),STAT=IERR)
1425 IERROR = IERROR+IERR
1426
1427 ALLOCATE(INC(NUMELC),STAT=IERR)
1428 IERROR = IERROR+IERR
1429
1430 ALLOCATE(MSTG(NUMELTG),STAT=IERR)
1431 IERROR = IERROR+IERR
1432
1433 ALLOCATE(INTG(NUMELTG),STAT=IERR)
1434 IERROR = IERROR+IERR
1435
1436 ALLOCATE(PTG(3,NUMELTG),STAT=IERR)
1437 IERROR = IERROR+IERR
1438
1439 ELSE
1440
1441 ALLOCATE(MSC(0))
1442 ALLOCATE(INC(0))
1443 ALLOCATE(MSTG(0))
1444 ALLOCATE(INTG(0))
1445 ALLOCATE(PTG(0,0))
1446
1447 END IF
1448
1449 IF(IREST_MSELT/=0)THEN
1450
1451 ALLOCATE(MSSA(NUMELS),STAT=IERR)
1452 IERROR = IERROR+IERR
1453
1454 ALLOCATE(MSTR(NUMELT),STAT=IERR)
1455 IERROR = IERROR+IERR
1456
1457 ALLOCATE(MSP(NUMELP),STAT=IERR)
1458 IERROR = IERROR+IERR
1459
1460 ALLOCATE(MSRT(NUMELR),STAT=IERR)
1461 IERROR = IERROR+IERR
1462
1463 ELSE
1464
1465 ALLOCATE(MSSA(0))
1466 ALLOCATE(MSTR(0))
1467 ALLOCATE(MSP(0))
1468 ALLOCATE(MSRT(0))
1469
1470 END IF
1471
1472 IF(NADMESH /= 0)THEN
1473
1474 ALLOCATE(PADMESH(KPADMESH,NPART),STAT=IERR)
1475 IERROR = IERROR+IERR
1476
1477 IF(GLOB_THERM%ITHERM_FE > 0)THEN
1478
1479 ALLOCATE(MCPC(NUMELC),STAT=IERR)
1480 IERROR = IERROR+IERR
1481
1482 ALLOCATE(MCPTG(NUMELTG),STAT=IERR)
1483 IERROR = IERROR+IERR
1484
1485 ELSE
1486
1487 ALLOCATE(MCPC(0),MCPTG(0))
1488
1489 END IF
1490
1491 ELSE
1492 ALLOCATE(PADMESH(0,0))
1493 ALLOCATE(MCPC(0),MCPTG(0))
1494 END IF
1495
1496 IF(ISTATCND/=0)THEN
1497 ALLOCATE(MSCND(NUMNOD),INCND(NUMNOD),STAT=IERR)
1498 IERROR = IERROR+IERR
1499 ELSE
1500 ALLOCATE(MSCND(0),INCND(0))
1501 END IF
1502C--------------------------------------------
1503C rigid material
1504C
1505 IF(IRIGID_MAT > 0) THEN
1506 ALLOCATE(RBYM(NFRBYM*NRBYM),STAT=IERR)
1507 IF (IERR/=0) GOTO 1000
1508 RBYM = ZERO
1509 ALLOCATE(IRBYM(NIRBYM*NRBYM),STAT=IERR)
1510 IF (IERR/=0) GOTO 1000
1511 IRBYM = 0
1512 ALLOCATE(LNRBYM(NGSLNRBYM),STAT=IERR)
1513 IF (IERR/=0) GOTO 1000
1514 LNRBYM = 0
1515 ALLOCATE(WEIGHT_RM(NRBYM),STAT=IERR)
1516 IF (IERR/=0) GOTO 1000
1517 WEIGHT_RM = 0
1518 ALLOCATE(ICODRBYM(NRBYM*2),STAT=IERR)
1519 IF (IERR/=0) GOTO 1000
1520 ICODRBYM = 0
1521 ELSE
1522 ALLOCATE(RBYM(0),IRBYM(0), LNRBYM(0),ICODRBYM(0))
1523 ALLOCATE(WEIGHT_RM(0))
1524 ENDIF
1525C--------------------------------------------
1526C thermal bc
1527 IF(GLOB_THERM%NUMCONV > 0) THEN
1528 ALLOCATE(IBCV(GLOB_THERM%NICONV*GLOB_THERM%NUMCONV),STAT=IERR)
1529 IF (IERR/=0) GOTO 1000
1530 IBCV = 0
1531 ALLOCATE(FCONV(GLOB_THERM%LFACTHER*GLOB_THERM%NUMCONV),STAT=IERR)
1532 IF (IERR/=0) GOTO 1000
1533 FCONV = ZERO
1534 ELSE
1535 ALLOCATE(IBCV(0),FCONV(0))
1536 ENDIF
1537
1538 IF(GLOB_THERM%NUMRADIA > 0) THEN
1539 ALLOCATE(IBCR(GLOB_THERM%NIRADIA*GLOB_THERM%NUMRADIA),STAT=IERR)
1540 IF (IERR/=0) GOTO 1000
1541 IBCR = 0
1542 ALLOCATE(FRADIA(GLOB_THERM%LFACTHER*GLOB_THERM%NUMRADIA),STAT=IERR)
1543 IF (IERR/=0) GOTO 1000
1544 FRADIA = ZERO
1545 ELSE
1546 ALLOCATE(IBCR(0),FRADIA(0))
1547 ENDIF
1548
1549 IF(GLOB_THERM%NFXFLUX > 0) THEN
1550 ALLOCATE(IBFFLUX(GLOB_THERM%NITFLUX*GLOB_THERM%NFXFLUX),STAT=IERR)
1551 IF (IERR/=0) GOTO 1000
1552 IBFFLUX = 0
1553 ALLOCATE(FBFFLUX(GLOB_THERM%LFACTHER*GLOB_THERM%NFXFLUX),STAT=IERR)
1554 IF (IERR/=0) GOTO 1000
1555 FBFFLUX = ZERO
1556 ELSE
1557 ALLOCATE(IBFFLUX(0),FBFFLUX(0))
1558 ENDIF
1559
1560 IF(GLOB_THERM%NFXTEMP > 0) THEN
1561 ALLOCATE(IBFTEMP(GLOB_THERM%NIFT*GLOB_THERM%NFXTEMP),STAT=IERR)
1562 IF (IERR/=0) GOTO 1000
1563 IBFTEMP = 0
1564 ALLOCATE(FBFTEMP(GLOB_THERM%LFACTHER*GLOB_THERM%NFXTEMP),STAT=IERR)
1565 IF(IERR/=0) GOTO 1000
1566 FBFTEMP = ZERO
1567 ELSE
1568 ALLOCATE(IBFTEMP(0),FBFTEMP(0))
1569 ENDIF
1570C
1571 ALLOCATE (MSF(SMS),STAT=IERR)
1572 IF (IERR/=0) GOTO 1000
1573 IF(IALELAG > 0) THEN
1574 MSF = ZERO
1575 ENDIF
1576C--------------------------------------------
1577C ply xfem for composite shell
1578 IF(IPLYXFEM > 0 ) THEN
1579 ALLOCATE(MS_PLY(NPLYXFE*NPLYMAX),STAT=IERR)
1580 IF (IERR/=0) GOTO 1000
1581 MS_PLY = ZERO
1582 ALLOCATE(ZI_PLY(NPLYXFE*NPLYMAX),STAT=IERR)
1583 IF (IERR/=0) GOTO 1000
1584 ZI_PLY = ZERO
1585 ALLOCATE(MSZ2(NPLYXFE),STAT=IERR)
1586 IF (IERR/=0) GOTO 1000
1587 MSZ2 = ZERO
1588 ALLOCATE(INOD_PXFEM(NUMNOD),STAT=IERR)
1589 IF (IERR/=0) GOTO 1000
1590 INOD_PXFEM = 0
1591 ALLOCATE(IEL_PXFEM(NUMELC),STAT=IERR)
1592 IF (IERR/=0) GOTO 1000
1593 IEL_PXFEM = 0
1594 ALLOCATE(IADC_PXFEM(4*EPLYXFE),STAT=IERR)
1595 IF (IERR/=0) GOTO 1000
1596 IADC_PXFEM = 0
1597 ALLOCATE(ADSKY_PXFEM(NPLYXFE+1),STAT=IERR)
1598 ADSKY_PXFEM = 0
1599C
1600 ALLOCATE (PROCNE_PXFEM(SPROCNE_PXFE),STAT=IERR)
1601 IF (IERR/=0) GOTO 1000
1602 PROCNE_PXFEM = 0
1603 ALLOCATE (IADSDP_PXFEM(SIADSDP),STAT=IERR)
1604 IF (IERR/=0) GOTO 1000
1605 IADSDP_PXFEM = 0
1606C
1607 ALLOCATE (IADRCP_PXFEM(SIADRCP),STAT=IERR)
1608 IF (IERR/=0) GOTO 1000
1609 IADRCP_PXFEM = 0
1610 ELSE
1611 ALLOCATE(MS_PLY(0),ZI_PLY(0),IADC_PXFEM(0),ADSKY_PXFEM(0))
1612 ALLOCATE(MSZ2(0))
1613 ALLOCATE(INOD_PXFEM(0),IEL_PXFEM(0))
1614 ALLOCATE(PROCNE_PXFEM(0),IADSDP_PXFEM(0),IADRCP_PXFEM(0))
1615 ENDIF
1616 IF(IPLYBCS > 0) THEN
1617 ALLOCATE(ICODE_PLY(NUMNOD),STAT=IERR)
1618 IF (IERR/=0) GOTO 1000
1619 ICODE_PLY = 0
1620 ALLOCATE(ICODT_PLY(NUMNOD),STAT=IERR)
1621 IF (IERR/=0) GOTO 1000
1622 ICODT_PLY = 0
1623 ALLOCATE(ISKEW_PLY(NUMNOD),STAT=IERR)
1624 IF (IERR/=0) GOTO 1000
1625 ISKEW_PLY = 0
1626 ALLOCATE(IBC_PLY(NUMNOD),STAT=IERR)
1627 IF (IERR/=0) GOTO 1000
1628 IBC_PLY = 0
1629 ELSE
1630 ALLOCATE(ICODE_PLY(0),ICODT_PLY(0),ISKEW_PLY(0),IBC_PLY(0))
1631 ENDIF
1632 IF(INTPLYXFEM > 0 ) THEN
1633 ALLOCATE(WAGAP(2*NUMNOD),STAT=IERR)
1634 IF (IERR/=0) GOTO 1000
1635 WAGAP = ZERO
1636 ELSE
1637 ALLOCATE(WAGAP(0),STAT=IERR)
1638 ENDIF
1639C--------------------------------------------
1640c ALLOCATE(MS0(NUMNOD),STAT=IERR)
1641c ALLOCATE(IN0(SIN),STAT=IERR)
1642 IF(IDTMINS_OLD==1) THEN
1643 ALLOCATE(ADMSMS(NUMNOD),STAT=IERR)
1644 IF (IERR/=0) GOTO 1000
1645 END IF
1646 IF(IDTMINS_OLD==2) THEN
1647 ALLOCATE(DMELC (NUMELC) ,STAT=IERR)
1648 IF (IERR/=0) GOTO 1000
1649 ALLOCATE(DMELTG(NUMELTG),STAT=IERR)
1650 IF (IERR/=0) GOTO 1000
1651 ALLOCATE(DMELS (NUMELS) ,STAT=IERR)
1652 IF (IERR/=0) GOTO 1000
1653 ALLOCATE(DMELTR(NUMELT) ,STAT=IERR)
1654 IF (IERR/=0) GOTO 1000
1655 ALLOCATE(DMELP (NUMELP) ,STAT=IERR)
1656 IF (IERR/=0) GOTO 1000
1657 ALLOCATE(DMELRT(NUMELR) ,STAT=IERR)
1658 IF (IERR/=0) GOTO 1000
1659 END IF
1660.OR. IF(IDTMINS_OLD/=0IDTMINS_INT_OLD/=0) THEN
1661 ALLOCATE(RES_SMS(3*NUMNOD),STAT=IERR)
1662 IF (IERR/=0) GOTO 1000
1663 END IF
1664.OR. IF(IDTMINS_OLD==2IDTMINS_INT_OLD/=0) THEN
1665 ALLOCATE(DIAG_SMS(NUMNOD),STAT=IERR)
1666 IF (IERR/=0) GOTO 1000
1667 ALLOCATE(DMINT2(4*I2NSN25),STAT=IERR)
1668 IF (IERR/=0) GOTO 1000
1669 END IF
1670 IF (ISMS_SELEC /= 0) THEN
1671 ALLOCATE(NATIV0_SMS(NUMNOD),STAT=IERR)
1672 IF (IERR/=0) GOTO 1000
1673 NATIV0_SMS = 0
1674 ELSE
1675 ALLOCATE(NATIV0_SMS(0) )
1676 ENDIF
1677C--------------------------------------------
1678C
1679.AND. IF(NINTSTAMP/=0ANIM_V(4)+OUTP_V(4)+H3D_DATA%N_VECT_CONT >0)THEN
1680 ALLOCATE(FCONTG(3,NUMNODG),STAT=IERR)
1681 IF (IERR/=0) GOTO 1000
1682 FCONTG=ZERO
1683 ELSE
1684 ALLOCATE(FCONTG(0,0),STAT=IERR)
1685 END IF
1686C
1687 SFCONT_MAX = 0
1688.OR. IF(ANIM_V(26)+H3D_DATA%N_VECT_CONT_MAX >0IFCONTMAX > 0)THEN
1689.AND. IF(NSPMD > 1 NINTSTAMP/=0) THEN
1690 IF(ISPMD == 0) THEN
1691 ALLOCATE(FCONT_MAX(3*NUMNODG),STAT=IERR)
1692 IF (IERR/=0) GOTO 1000
1693 FCONT_MAX=ZERO
1694 SFCONT_MAX = NUMNODG
1695 ELSE
1696 ALLOCATE(FCONT_MAX(0),STAT=IERR)
1697 ENDIF
1698 ELSE
1699 ALLOCATE(FCONT_MAX(3*NUMNOD),STAT=IERR)
1700 IF (IERR/=0) GOTO 1000
1701 FCONT_MAX=ZERO
1702 SFCONT_MAX = NUMNOD
1703 ENDIF
1704 ELSE
1705 ALLOCATE(FCONT_MAX(0),STAT=IERR)
1706 END IF
1707
1708C
1709.AND. IF(NINTSTAMP/=0ANIM_V(12)+OUTP_V(12)+H3D_DATA%N_VECT_PCONT>0)THEN
1710 ALLOCATE(FNCONTG(3,NUMNODG),FTCONTG(3,NUMNODG),STAT=IERR)
1711 IF (IERR/=0) GOTO 1000
1712 FNCONTG=ZERO
1713 FTCONTG=ZERO
1714 ELSE
1715 ALLOCATE(FNCONTG(0,0),FTCONTG(0,0),STAT=IERR)
1716 END IF
1717C
1718 SPCONT_MAX = 0
1719.OR. IF(H3D_DATA%N_VECT_PCONT_MAX >0IFCONTPMAX > 0)THEN
1720.AND. IF(NSPMD > 1 NINTSTAMP/=0) THEN
1721 IF(ISPMD == 0) THEN
1722 ALLOCATE(FTCONT_MAX(3*NUMNODG),FNCONT_MAX(3*NUMNODG),STAT=IERR)
1723 IF (IERR/=0) GOTO 1000
1724 FTCONT_MAX=ZERO
1725 FNCONT_MAX=ZERO
1726 SPCONT_MAX = NUMNODG
1727 ELSE
1728 ALLOCATE(FNCONT_MAX(0),FTCONT_MAX(0),STAT=IERR)
1729 ENDIF
1730 ELSE
1731 ALLOCATE(FTCONT_MAX(3*NUMNOD),FNCONT_MAX(3*NUMNOD),STAT=IERR)
1732 IF (IERR/=0) GOTO 1000
1733 FTCONT_MAX=ZERO
1734 FNCONT_MAX=ZERO
1735 SPCONT_MAX = NUMNOD
1736 ENDIF
1737 ELSE
1738 ALLOCATE(FNCONT_MAX(0),STAT=IERR)
1739 ALLOCATE(FTCONT_MAX(0),STAT=IERR)
1740 END IF
1741C
1742.OR. IF(H3D_DATA%N_VECT_CONT2_MAX >0IFCONT2MAX > 0)THEN
1743 ALLOCATE(FCONT2_MAX(3*NUMNOD),STAT=IERR)
1744 IF (IERR/=0) GOTO 1000
1745 FCONT2_MAX=ZERO
1746 ELSE
1747 ALLOCATE(FCONT2_MAX(0),STAT=IERR)
1748 END IF
1749C
1750.OR. IF(H3D_DATA%N_VECT_PCONT2_MAX >0IFCONTP2MAX > 0)THEN
1751 ALLOCATE(FTCONT2_MAX(3*NUMNOD),FNCONT2_MAX(3*NUMNOD),STAT=IERR)
1752 ALLOCATE(NPCONT2_MAX(3*NUMNOD),STAT=IERR)
1753 IF (IERR/=0) GOTO 1000
1754 FNCONT2_MAX=ZERO
1755 FTCONT2_MAX=ZERO
1756 NPCONT2_MAX=ZERO
1757 ELSE
1758 ALLOCATE(FNCONT2_MAX(0),STAT=IERR)
1759 ALLOCATE(FTCONT2_MAX(0),STAT=IERR)
1760 ALLOCATE(NPCONT2_MAX(0),STAT=IERR)
1761 END IF
1762C
1763C
1764.OR. IF(H3D_DATA%N_VECT_CONT2_MIN >0IFCONT2MIN > 0)THEN
1765 ALLOCATE(FCONT2_MIN(3*NUMNOD),STAT=IERR)
1766 IF (IERR/=0) GOTO 1000
1767 FCONT2_MIN=ZERO
1768 ELSE
1769 ALLOCATE(FCONT2_MIN(0),STAT=IERR)
1770 END IF
1771C
1772.OR. IF(H3D_DATA%N_VECT_PCONT2_MIN >0IFCONTP2MIN > 0)THEN
1773 ALLOCATE(FTCONT2_MIN(3*NUMNOD),FNCONT2_MIN(3*NUMNOD),STAT=IERR)
1774 ALLOCATE(NPCONT2_MIN(3*NUMNOD),STAT=IERR)
1775 IF (IERR/=0) GOTO 1000
1776 FNCONT2_MIN=ZERO
1777 FTCONT2_MIN=ZERO
1778 NPCONT2_MIN=ZERO
1779 ELSE
1780 ALLOCATE(FNCONT2_MIN(0),STAT=IERR)
1781 ALLOCATE(FTCONT2_MIN(0),STAT=IERR)
1782 ALLOCATE(NPCONT2_MIN(0),STAT=IERR)
1783 END IF
1784C
1785 IF(H3D_DATA%N_VECT_CONT2M > 0)THEN
1786 ALLOCATE(MCONT2(3,NUMNOD),STAT=IERR)
1787 IF (IERR/=0) GOTO 1000
1788 MCONT2=ZERO
1789 MCONT2=ZERO
1790 ELSE
1791 ALLOCATE(MCONT2(3,0),STAT=IERR)
1792 ALLOCATE(MCONT2(3,0),STAT=IERR)
1793 END IF
1794C
1795C----Frictional energy output when it is coming from restart
1796C
1797 IF(S_EFRICINT > 0)THEN
1798 IF(NINEFRIC > 0) THEN
1799 ALLOCATE(EFRIC(NINEFRIC,NUMNOD))
1800 ELSE
1801 ALLOCATE(EFRIC(0,0))
1802 ENDIF
1803 IF(NINEFRIC_STAMP > 0) THEN
1804 ALLOCATE(EFRIC_STAMP(NINEFRIC_STAMP,NUMNODG))
1805 ELSE
1806 ALLOCATE(EFRIC_STAMP(0,0))
1807 ENDIF
1808 END IF
1809C
1810 IF(S_EFRIC > 0)THEN
1811 ALLOCATE(EFRICG(NUMNOD))
1812 IF(NINTSTAMP/=0) THEN
1813 ALLOCATE(EFRICG_STAMP(NUMNODG))
1814 ELSE
1815 ALLOCATE(EFRICG_STAMP(0))
1816 ENDIF
1817c ELSE
1818c ALLOCATE(EFRICG(0))
1819c ALLOCATE(EFRICG_STAMP(0))
1820 ENDIF
1821C
1822.AND..OR. IF(NINTSTAMP/=0(ANIM_V(12)+OUTP_V(12)+H3D_DATA%N_VECT_PCONT>0
1823 . ANIM_V(4)+OUTP_V(4)+H3D_DATA%N_VECT_CONT >0))THEN
1824 ALLOCATE(INDEXCONT(NUMNODG),TAGCONT(NUMNODG),STAT=IERR)
1825 IF (IERR/=0) GOTO 1000
1826 INDEXCONT=0
1827 TAGCONT=0
1828 ELSE
1829 ALLOCATE(INDEXCONT(0),TAGCONT(0),STAT=IERR)
1830 ENDIF
1831c
1832 IF(NINTSKIDOLD >0)THEN
1833 IF(NINTSTAMP/=0) THEN
1834 ALLOCATE(PSKIDS(NINTSKIDOLD,NUMNODG),STAT=IERR)
1835 IF (IERR/=0) GOTO 1000
1836 ELSE
1837 ALLOCATE(PSKIDS(NINTSKIDOLD,NUMNOD),STAT=IERR)
1838 IF (IERR/=0) GOTO 1000
1839 ENDIF
1840 END IF
1841
1842 ! Stamping
1843 ! INTSTAMP structures allocation
1844 IF(NINTSTAMP/=0)THEN
1845 ALLOCATE(INTSTAMP(NINTSTAMP),STAT=IERR)
1846 IF (IERR/=0)THEN
1847 CALL ANCMSG(MSGID=20,ANMODE=ANINFO)
1848 CALL ARRET(2)
1849 ENDIF
1850 CALL INTSTAMP_ZERO(INTSTAMP)
1851 ELSE
1852 ALLOCATE(INTSTAMP(0))
1853 END IF
1854C
1855 ALLOCATE (CFIELD(LFACLOAD*NLOADC),STAT=IERR)
1856 IF (IERR/=0) GOTO 1000
1857 CFIELD = 0
1858
1859 ALLOCATE (LOADP(LFACLOAD*NLOADP),STAT=IERR)
1860 IF (IERR/=0) GOTO 1000
1861 LOADP = 0
1862
1863 IF (NINTLOADP>0) THEN
1864
1865 ALLOCATE (KLOADPINTER(NINTER+1),STAT=IERR)
1866 IF (IERR/=0) GOTO 1000
1867 KLOADPINTER = 0
1868
1869 ALLOCATE (LOADPINTER(NINTER*NLOADP_HYD),STAT=IERR)
1870 IF (IERR/=0) GOTO 1000
1871 LOADPINTER = 0
1872
1873 ALLOCATE (DGAPLOADINT(NINTER*NLOADP_HYD),STAT=IERR)
1874 IF (IERR/=0) GOTO 1000
1875 DGAPLOADINT = ZERO
1876 ELSE
1877 ALLOCATE (KLOADPINTER(0),STAT=IERR)
1878 ALLOCATE (LOADPINTER(0),STAT=IERR)
1879 ALLOCATE (DGAPLOADINT(0),STAT=IERR)
1880 ENDIF
1881C
1882C allocations structure CLUSTER
1883 IF (NCLUSTER > 0) THEN
1884 ALLOCATE(CLUSTER(NCLUSTER),STAT=IERR)
1885 IF (IERR /= 0) THEN
1886 CALL ANCMSG(MSGID=20,ANMODE=ANINFO)
1887 CALL ARRET(2)
1888 ENDIF
1889 ELSE
1890 ALLOCATE(CLUSTER(0))
1891 ENDIF
1892C--------------------------------------------
1893C xfem for layered shell (cracks)
1894 IF(ICRACK3D > 0) THEN
1895 ALLOCATE(INOD_CRKXFEM(NUMNOD),STAT=IERR)
1896 IF (IERR/=0) GOTO 1000
1897 INOD_CRKXFEM = 0
1898 ALLOCATE(IEL_CRKXFEM(NUMELC+NUMELTG),STAT=IERR)
1899 IF (IERR/=0) GOTO 1000
1900 IEL_CRKXFEM = 0
1901 ALLOCATE(IADC_CRKXFEM(4*ECRKXFEC+3*ECRKXFETG),STAT=IERR)
1902 IF (IERR/=0) GOTO 1000
1903 IADC_CRKXFEM = 0
1904 ALLOCATE(ADSKY_CRKXFEM(NCRKXFE+1),STAT=IERR)
1905 ADSKY_CRKXFEM = 0
1906 ALLOCATE (CNE_CRKXFEM(SPROCNE_CRKXFE),STAT=IERR)
1907 IF (IERR/=0) GOTO 1000
1908 CNE_CRKXFEM = 0
1909 ALLOCATE (PROCNE_CRKXFEM(SPROCNE_CRKXFE),STAT=IERR)
1910 IF (IERR/=0) GOTO 1000
1911 PROCNE_CRKXFEM = 0
1912 ALLOCATE (IADSDP_CRKXFEM(SIADSDP),STAT=IERR)
1913 IF (IERR/=0) GOTO 1000
1914 IADSDP_CRKXFEM = 0
1915 ALLOCATE (IADRCP_CRKXFEM(SIADRCP),STAT=IERR)
1916 IF (IERR/=0) GOTO 1000
1917 IADRCP_CRKXFEM = 0
1918 ALLOCATE (CRKNODIAD(SPROCNE_CRKXFE),STAT=IERR)
1919 IF (IERR/=0) GOTO 1000
1920 CRKNODIAD = 0
1921 ELSE
1922 ALLOCATE(IADC_CRKXFEM(0),ADSKY_CRKXFEM(0))
1923 ALLOCATE(INOD_CRKXFEM(0),IEL_CRKXFEM(0))
1924 ALLOCATE (CNE_CRKXFEM(0))
1925 ALLOCATE(PROCNE_CRKXFEM(0),IADSDP_CRKXFEM(0),
1926 . IADRCP_CRKXFEM(0),CRKNODIAD(0))
1927 ENDIF
1928C
1929 IF(ICRACK3D > 0)THEN
1930 ALLOCATE(IBORDNODE(SIBORDNODE),STAT=IERR)
1931 IF (IERR/=0) GOTO 1000
1932 IBORDNODE = 0
1933C
1934 ALLOCATE(IEDGESH(SIEDGESH),STAT=IERR)
1935 IF (IERR/=0) GOTO 1000
1936 IEDGESH = 0
1937C
1938 ALLOCATE (NODEDGE(2*NUMEDGES),STAT=IERR)
1939 IF (IERR/=0) GOTO 1000
1940 NODEDGE = 0
1941C
1942 ALLOCATE (IEDGE(NUMEDGES),STAT=IERR)
1943 IF (IERR/=0) GOTO 1000
1944 IEDGE = 0
1945C
1946 ALLOCATE (IAD_EDGE(SIAD_EDGE),STAT=IERR)
1947 IF (IERR/=0) GOTO 1000
1948 IAD_EDGE = 0
1949C
1950 ALLOCATE (FR_EDGE(SFR_EDGE),STAT=IERR)
1951 IF (IERR/=0) GOTO 1000
1952 FR_EDGE = 0
1953C
1954 ALLOCATE (FR_NBEDGE(SFR_NBEDGE),STAT=IERR)
1955 IF (IERR/=0) GOTO 1000
1956 FR_NBEDGE = 0
1957C
1958 ALLOCATE (NODLEVXF(NCRKXFE),STAT=IERR)
1959 IF (IERR/=0) GOTO 1000
1960 NODLEVXF = 0
1961C
1962 ALLOCATE (NODGLOBXFE(SNODGLOBXFE),STAT=IERR)
1963 IF (IERR/=0) GOTO 1000
1964 NODGLOBXFE = 0
1965 ELSE
1966 ALLOCATE(IBORDNODE(0))
1967 ALLOCATE(IEDGESH(0))
1968 ALLOCATE(NODEDGE(0))
1969 ALLOCATE(IEDGE(0))
1970 ALLOCATE(IAD_EDGE(0))
1971 ALLOCATE(FR_EDGE(0))
1972 ALLOCATE(FR_NBEDGE(0))
1973 ALLOCATE(NODLEVXF(0))
1974 ALLOCATE(NODGLOBXFE(0))
1975 END IF
1976
1977 ALLOCATE (KXIG3D(SKXIG3D),STAT=IERR)
1978 IF (IERR/=0) GOTO 1000
1979 KXIG3D = 0
1980
1981 ALLOCATE (IXIG3D(SIXIG3D),STAT=IERR)
1982 IF (IERR/=0) GOTO 1000
1983 IXIG3D = 0
1984
1985 ALLOCATE (KNOT(SKNOT),STAT=IERR)
1986 IF (IERR/=0) GOTO 1000
1987 KNOT = ZERO
1988
1989C ALLOCATE (WIGE(NUMNOD),STAT=IERR)
1990 ALLOCATE( WIGE(1), STAT=IERR)
1991 IF (IERR/=0) GOTO 1000
1992 WIGE = ZERO
1993
1994 ALLOCATE (KNOTLOCPC(SKNOTLOCPC),STAT=IERR)
1995 IF (IERR/=0) GOTO 1000
1996 KNOTLOCPC = ZERO
1997
1998 ALLOCATE (KNOTLOCEL(SKNOTLOCEL),STAT=IERR)
1999 IF (IERR/=0) GOTO 1000
2000 KNOTLOCEL = ZERO
2001C
2002 IF(ICRACK3D > 0)THEN
2003 ALLOCATE (ELCUTC(2*(NUMELC+NUMELTG)),STAT=IERR)
2004 IF (IERR/=0) GOTO 1000
2005 ELCUTC = 0
2006C
2007 ALLOCATE (NODENR(NCRKXFE),STAT=IERR)
2008 IF (IERR/=0) GOTO 1000
2009 NODENR = 0
2010C
2011 ALLOCATE (KXFENOD2ELC(NCRKXFE),STAT=IERR)
2012 IF (IERR/=0) GOTO 1000
2013 KXFENOD2ELC = 0
2014C
2015 ALLOCATE (ENRTAG(NUMNOD*IENRNOD*NLEVMAX),STAT=IERR)
2016 IF (IERR/=0) GOTO 1000
2017 ENRTAG = 0
2018C
2019 ELSE
2020 ALLOCATE (ELCUTC(1))
2021 ALLOCATE (NODENR(1))
2022 ALLOCATE (KXFENOD2ELC(1))
2023 ALLOCATE (ENRTAG(1))
2024 END IF
2025
2026 IF(ALEFVM_Param%IEnabled == 1)THEN
2027C
2028 ALLOCATE (ALEFVM_Buffer%WFEXT_CELL(NUMELS) ,STAT=IERR)
2029 IF (IERR /= 0) GOTO 1000
2030 ALEFVM_Buffer%WFEXT_CELL(:) = ZERO
2031C
2032 ALLOCATE (ALEFVM_Buffer%FEXT_CELL(3,NUMELS) ,STAT=IERR)
2033 IF (IERR /= 0) GOTO 1000
2034 ALEFVM_Buffer%FEXT_CELL(:,:) = ZERO
2035C
2036 ALLOCATE (ALEFVM_Buffer%FCELL(6,NUMELS) ,STAT=IERR)
2037 IF (IERR /= 0) GOTO 1000
2038 ALEFVM_Buffer%FCELL(:,:) = ZERO
2039C
2040 ALLOCATE (ALEFVM_Buffer%FINT_CELL(3,NUMELS) ,STAT=IERR)
2041 IF (IERR /= 0) GOTO 1000
2042 ALEFVM_Buffer%FCELL(:,:) = ZERO
2043C
2044 ALLOCATE (ALEFVM_Buffer%VERTEX(4,NUMNOD) ,STAT=IERR)
2045 IF (IERR /= 0) GOTO 1000
2046 ALEFVM_Buffer%VERTEX(:,:) = ZERO
2047C
2048 ALLOCATE (ALEFVM_Buffer%F_FACE(1:3,6,NUMELS) ,STAT=IERR)
2049 IF (IERR /= 0) GOTO 1000
2050 ALEFVM_Buffer%F_FACE(:,:,:) = ZERO
2051
2052 ! index 2: 1 2 3 4 5 6
2053 ! index 1
2054 ! 1 rho ssp rho.c P 0 0
2055 ! 2 S1 S2 S3 S4 S5 S6
2056 ! 3 <U.n1> <U.n2> <U.n3> <U.n4> <U.n5> <U.n6>
2057
2058C
2059 CALL ALEFVM_INIT()
2060C
2061 ENDIF
2062
2063.AND..NOT. IF (ALEMUSCL_Param%IALEMUSCL > 0 MULTI_FVM%IS_USED) THEN
2064 IF (ALEMUSCL_Param%I_LAW == 51) THEN
2065 NBMAT = TRIMAT
2066 ELSEIF (ALEMUSCL_Param%I_LAW == 37) THEN
2067 NBMAT = 1
2068 ELSE
2069 NBMAT = 0
2070 ENDIF
2071 IF(NBMAT>0)THEN
2072 ALLOCATE(ALEMUSCL_Buffer%VOLUME_FRACTION(NUMELS + NSVOIS + NUMELQ + NQVOIS,NBMAT), STAT = IERR)
2073 IF (IERR /= 0) GOTO 1000
2074 ALEMUSCL_Buffer%VOLUME_FRACTION(:, :) = ZERO
2075 ALLOCATE(ALEMUSCL_Buffer%NODE_MAX_VALUE(NUMNOD,NBMAT), STAT = IERR)
2076 IF (IERR /= 0) GOTO 1000
2077 ALEMUSCL_Buffer%NODE_MAX_VALUE(:, :) = ZERO
2078 ALLOCATE(ALEMUSCL_Buffer%NODE_MIN_VALUE(NUMNOD,NBMAT), STAT = IERR)
2079 IF (IERR /= 0) GOTO 1000
2080 ALEMUSCL_Buffer%NODE_MIN_VALUE(:, :) = ZERO
2081 ALLOCATE(ALEMUSCL_Buffer%GRAD(NUMELS + NSVOIS + NUMELQ + NQVOIS,3,NBMAT), STAT = IERR)
2082 IF (IERR /= 0) GOTO 1000
2083 ALEMUSCL_Buffer%GRAD(:, :, :) = ZERO
2084 ALLOCATE(ALEMUSCL_Buffer%ELCENTER(NUMELS + NSVOIS + NUMELQ + NQVOIS,3), STAT = IERR)
2085 IF (IERR /= 0) GOTO 1000
2086 ALEMUSCL_Buffer%ELCENTER(:, :) = ZERO
2087 ENDIF
2088 ENDIF
2089
2090 !/EBCS/NRF VOLUME FRACTION ALLOCATION
2091 IF(MULTI_FVM%IS_USED)THEN
2092 NBMAT = MULTI_FVM%NBMAT
2093 ELSEIF (ALEMUSCL_Param%I_LAW == 51) THEN
2094 NBMAT = TRIMAT
2095 ELSEIF (ALEMUSCL_PAram%I_LAW == 37) THEN
2096 NBMAT = 1
2097 ELSE
2098 NBMAT = 0
2099 ENDIF
2100 CALL SEGVAR%create(NBMAT)
2101
2102
2103 IF (MULTI_FVM%IS_USED) THEN
2104 CALL MULTI_ALLOCATE(MULTI_FVM, H3D_DATA)
2105 ALLOCATE (ALEFVM_Buffer%VERTEX(4,NUMNOD) ,STAT=IERR)
2106 IF (IERR /= 0) GOTO 1000
2107 ALEFVM_Buffer%VERTEX(:,:) = ZERO
2108 ALLOCATE(MULTI_FVM%FVM_CONNECTIVITY%KVOIS(ALE%GLOBAL%SIELVS), STAT = IERR)
2109 IF (IERR /= 0) GOTO 1000
2110 MULTI_FVM%FVM_CONNECTIVITY%KVOIS = 0
2111 ENDIF
2112C
2113
2114C
2115 IF (NUMPLY > 0) THEN
2116 ALLOCATE (PLY_INFO(3,NUMPLY),STAT=IERR)
2117 IF (IERR /= 0) GOTO 1000
2118 PLY_INFO = 0
2119 ELSE
2120 ALLOCATE(PLY_INFO(0,0))
2121 END IF
2122C-------------Itet2 of S10
2123 IF (NS10E > 0) THEN
2124 ALLOCATE (ITAGND(NUMNOD),ICNDS10(3*NS10E),VND(3*NS10E),STIFND(NS10E),STAT=IERR)
2125 IF (IERR /= 0) GOTO 1000
2126 ITAGND(1:NUMNOD) = 0
2127 ICNDS10(1:3*NS10E) = 0
2128 VND(1:3*NS10E) = ZERO
2129 STIFND(1:NS10E) = ZERO
2130.OR..OR. IF (IDAMP/=0NDAMP>0ISTAT/=0) THEN
2131 ALLOCATE (VMD(3*NUMNOD),STAT=IERR)
2132 IF (IERR /= 0) GOTO 1000
2133 VMD = ZERO
2134 END IF
2135.AND. IF (IPARIT/=0IPARIT/=3) THEN
2136 ALLOCATE (FR_NBCCCND(2*NSPMD+2),FR_NBCCCND1(2*NSPMD+2),FSKYCND(4*LCNCND),STAT=IERR)
2137 IF (IERR /= 0) GOTO 1000
2138 FSKYCND(1:4*LCNCND)=ZERO
2139 ELSE
2140 ALLOCATE(FR_NBCCCND(0),FR_NBCCCND1(0),FSKYCND(0))
2141 END IF
2142 ELSE
2143 ALLOCATE(ICNDS10(0),ITAGND(0))
2144 END IF
2145C----- part SPMD
2146 ALLOCATE (IAD_CNDM(SIAD_CNDM),IAD_CNDM1(SIAD_CNDM),STAT=IERR)
2147 IF (IERR/=0) GOTO 1000
2148 IAD_CNDM = 0
2149 ALLOCATE (FR_CNDM(SFR_CNDM),FR_CNDM1(SFR_CNDM),STAT=IERR)
2150 IF (IERR/=0) GOTO 1000
2151 FR_CNDM = 0
2152C----- part P/ON
2153 ALLOCATE (ADDCNCND(SADDCNCND),STAT=IERR)
2154 IF (IERR/=0) GOTO 1000
2155 ADDCNCND = 0
2156 ALLOCATE (PROCNCND(SPROCNCND),STAT=IERR)
2157 IF (IERR/=0) GOTO 1000
2158 PROCNCND = 0
2159 ALLOCATE (IADCND(SIADCND),STAT=IERR)
2160 IF (IERR/=0) GOTO 1000
2161 IADCND = 0
2162C--------2D Mass----------------------------
2163 IF(N2D/=0) THEN
2164 ALLOCATE(MS_2D(NUMNOD),STAT=IERR)
2165 IF (IERR/=0) GOTO 1000
2166 ELSE
2167 ALLOCATE(MS_2D(0))
2168 ENDIF
2169C-------shell pinching----------------------
2170C IF(NPINCH > 0) THEN
2171 ALLOCATE(PINCH_DATA%XPINCH(3,MAX(1,NPINCH)))
2172 PINCH_DATA%XPINCH = ZERO
2173 ALLOCATE(PINCH_DATA%DPINCH(3,MAX(1,NPINCH)))
2174 PINCH_DATA%DPINCH = ZERO
2175 ALLOCATE(PINCH_DATA%VPINCH(3,MAX(1,NPINCH)))
2176 PINCH_DATA%VPINCH = ZERO
2177 ALLOCATE(PINCH_DATA%APINCH(3,MAX(1,PINCH_DATA%SAPINCH)))
2178 PINCH_DATA%APINCH = ZERO
2179 ALLOCATE(PINCH_DATA%STIFPINCH(MAX(1,PINCH_DATA%SAPINCH)))
2180 PINCH_DATA%STIFPINCH = ZERO
2181 ALLOCATE(PINCH_DATA%MSPINCH(MAX(1,PINCH_DATA%SAPINCH)))
2182 PINCH_DATA%MSPINCH = 0
2183C ENDIF
2184C------end shell pinching-------------------
2185C-------TAG_SKINS6----------------------
2186 ALLOCATE(TAG_SKINS6(NUMELS),STAT=IERR)
2187 SXCELL = 0
2188C-------ALE BUFFER----------------------
2189.AND. IF ((IALE > 0 ALE%GRID%NWALE_RST == 6) ) THEN
2190 SXCELL = NUMELS + NUMELQ + NE_NSVOIS + NE_NQVOIS
2191 ALLOCATE(XCELL(3, SXCELL),STAT=IERR)
2192 IF (IERR/=0) GOTO 1000
2193 ALLOCATE(XFACE(3, 6, NUMELS + NUMELQ + NE_NSVOIS + NE_NQVOIS),STAT=IERR)
2194 IF (IERR/=0) GOTO 1000
2195 ENDIF
2196C-------INTER18 BUFFER (IAUTO=1)--------
2197 IF (INTER18_IS_VARIABLE_GAP_DEFINED) THEN
2198 SXCELL = NUMELS + NUMELQ + NE_NSVOIS + NE_NQVOIS
2199.NOT. IF(ALLOCATED(XCELL))ALLOCATE(XCELL(3, SXCELL),STAT=IERR)
2200 IF (IERR/=0) GOTO 1000
2201 ENDIF
2202.NOT. IF(ALLOCATED(XCELL)) ALLOCATE(XCELL(3,SXCELL))
2203.NOT. IF(ALLOCATED(XFACE)) ALLOCATE(XFACE(3,6,0))
2204 XCELL(1:3,1:SXCELL) = ZERO
2205C-------FXBODY (moved from radioss2.F) -----
2206 ALLOCATE (FXBIPM(NBIPM,NFXBODY),STAT=IERR)
2207 IF (IERR/=0) GOTO 1000
2208 FXBIPM = 0
2209 ALLOCATE (FXBNOD(LENNOD),STAT=IERR)
2210 IF (IERR/=0) GOTO 1000
2211 FXBNOD = 0
2212 ALLOCATE (FXBMOD(6,LENMOD),STAT=IERR)
2213 IF (IERR/=0) GOTO 1000
2214 FXBMOD = 0
2215 ALLOCATE (FXBGLM(LENGLM),STAT=IERR)
2216 IF (IERR/=0) GOTO 1000
2217 FXBGLM = 0
2218 ALLOCATE (FXBCPM(LENCP),STAT=IERR)
2219 IF (IERR/=0) GOTO 1000
2220 FXBCPM = 0
2221 ALLOCATE (FXBCPS(LENCP),STAT=IERR)
2222 IF (IERR/=0) GOTO 1000
2223 FXBCPS = 0
2224 ALLOCATE (FXBLM(LENLM),STAT=IERR)
2225 IF (IERR/=0) GOTO 1000
2226 FXBLM = 0
2227 ALLOCATE (FXBFLS(LENFLS),STAT=IERR)
2228 IF (IERR/=0) GOTO 1000
2229 FXBFLS = 0
2230 ALLOCATE (FXBDLS(LENDLS),STAT=IERR)
2231 IF (IERR/=0) GOTO 1000
2232 FXBDLS = 0
2233 ALLOCATE (FXBDEP(LENVAR),STAT=IERR)
2234 IF (IERR/=0) GOTO 1000
2235 FXBDEP = 0
2236 ALLOCATE (FXBVIT(LENVAR),STAT=IERR)
2237 IF (IERR/=0) GOTO 1000
2238 FXBVIT = 0
2239 ALLOCATE (FXBACC(LENVAR),STAT=IERR)
2240 IF (IERR/=0) GOTO 1000
2241 FXBACC = 0
2242 ALLOCATE (FXBRPM(LENRPM),STAT=IERR)
2243 IF (IERR/=0) GOTO 1000
2244 FXBRPM = 0
2245 ALLOCATE (FXBELM(LENELM),STAT=IERR)
2246 IF (IERR/=0) GOTO 1000
2247 FXBELM = 0
2248 ALLOCATE (FXBSIG(LENSIG),STAT=IERR)
2249 IF (IERR/=0) GOTO 1000
2250 FXBSIG = 0
2251 ALLOCATE (FXBGRVI(LENGRVI),STAT=IERR)
2252 IF (IERR/=0) GOTO 1000
2253 FXBGRVI = 0
2254 ALLOCATE (FXBGRVR(LENGRVR),STAT=IERR)
2255 IF (IERR/=0) GOTO 1000
2256 FXBGRVR = 0
2257C-------EIGEN MODES (moved from radioss2.F) -----
2258 ALLOCATE (EIGIPM(NEIPM,NEIG),STAT=IERR)
2259 IF (IERR/=0) GOTO 1000
2260 EIGIPM = 0
2261 ALLOCATE (EIGRPM(NERPM,NEIG),STAT=IERR)
2262 IF (IERR/=0) GOTO 1000
2263 EIGRPM = 0
2264 ALLOCATE (EIGIBUF(LEIBUF),STAT=IERR)
2265 IF (IERR/=0) GOTO 1000
2266 EIGIBUF = 0
2267C-------Seatbelt structures -----
2268 ALLOCATE (SLIPRING(NSLIPRING),STAT=IERR)
2269 IF (IERR/=0) GOTO 1000
2270C
2271 ALLOCATE (RETRACTOR(NRETRACTOR),STAT=IERR)
2272 IF (IERR/=0) GOTO 1000
2273C
2274 IF (N_ANCHOR_REMOTE > 0) THEN
2275 ALLOCATE (ANCHOR_REMOTE%ADD_PROC(NSPMD+1),STAT=IERR)
2276 IF (IERR/=0) GOTO 1000
2277 ALLOCATE (ANCHOR_REMOTE%NODE(N_ANCHOR_REMOTE),STAT=IERR)
2278 IF (IERR/=0) GOTO 1000
2279 ENDIF
2280 IF (N_ANCHOR_REMOTE_SEND > 0) THEN
2281 ALLOCATE (ANCHOR_REMOTE_SEND%ADD_PROC(NSPMD+1),STAT=IERR)
2282 IF (IERR/=0) GOTO 1000
2283 ALLOCATE (ANCHOR_REMOTE_SEND%NODE(N_ANCHOR_REMOTE_SEND),STAT=IERR)
2284 IF (IERR/=0) GOTO 1000
2285 ENDIF
2286C-------TMAX(H3D) -----
2287 ALLOCATE (TM_DIS(LMAX_DIS*NUMNOD),STAT=IERR)
2288 IF (IERR/=0) GOTO 1000
2289 ALLOCATE (TM_VEL(LMAX_VEL*NUMNOD),STAT=IERR)
2290 IF (IERR/=0) GOTO 1000
2291 ALLOCATE (TM_NSIG1(LMAX_NSIG*NUMNOD),STAT=IERR)
2292 IF (IERR/=0) GOTO 1000
2293 ALLOCATE (TM_NSTRA1(LMAX_NSTRA*NUMNOD),STAT=IERR)
2294 IF (IERR/=0) GOTO 1000
2295 ALLOCATE (TM_NSIG3(LMAX_NSIG*NUMNOD),STAT=IERR)
2296 IF (IERR/=0) GOTO 1000
2297 ALLOCATE (TM_NSTRA3(LMAX_NSTRA*NUMNOD),STAT=IERR)
2298 IF (IERR/=0) GOTO 1000
2299 IF (LMAX_DIS > 0) THEN
2300 ALLOCATE (TM_PDIS(NUMNOD),STAT=IERR)
2301 IF (IERR/=0) GOTO 1000
2302 ENDIF
2303 IF (LMAX_VEL > 0) THEN
2304 ALLOCATE (TM_PVEL(NUMNOD),STAT=IERR)
2305 IF (IERR/=0) GOTO 1000
2306 ENDIF
2307 IF (LMAX_NSIG > 0) THEN
2308 ALLOCATE (TM_PNSIG(2*NUMNOD),STAT=IERR)
2309 IF (IERR/=0) GOTO 1000
2310 ENDIF
2311 IF (LMAX_NSTRA > 0) THEN
2312 ALLOCATE (TM_PNSTRA(2*NUMNOD),STAT=IERR)
2313 IF (IERR/=0) GOTO 1000
2314 ENDIF
2315 IF ((LMAX_NSIG+LMAX_NSTRA)>0) THEN
2316 ALLOCATE(GPSTMP(6*NUMNOD),P2TMP(2*NUMNOD),STAT=IERR)
2317 IF (IERR/=0) GOTO 1000
2318 END IF
2319 IF (NCONLD > 0) THEN
2320 ALLOCATE (DPL0CLD(6*NCONLD),STAT=IERR)
2321 IF (IERR/=0) GOTO 1000
2322 DPL0CLD = ZERO
2323 ALLOCATE (VEL0CLD(6*NCONLD),STAT=IERR)
2324 IF (IERR/=0) GOTO 1000
2325 VEL0CLD = ZERO
2326 ELSE
2327 ALLOCATE(DPL0CLD(0),VEL0CLD(0))
2328 END IF
2329C-------/DAMP/VREL----------------------
2330 ALLOCATE (ID_DAMP_VREL(NDAMP_VREL),STAT=IERR)
2331 IF (IERR/=0) GOTO 1000
2332 ALLOCATE (FR_DAMP_VREL(NDAMP_VREL*(NSPMD+2)),STAT=IERR)
2333 IF (IERR/=0) GOTO 1000
2334
2335 ! Skew
2336 CALL MY_ALLOC(SKEWS%SKEW,SKEWS%N_SKEW_VAR,SKEWS%TOTAL_SKEW_NUMBER)
2337
2338C DEBUG MEMORY ALLOCATIONS
2339C
2340 IF(DEBUG(6)==1)THEN
2341 CALL SZ_PRINT()
2342 END IF
2343C
2344 RETURN
2345 1000 CONTINUE
2346 IERROR = IERROR + IERR
2347 IERR = IERR0
2348 IF (IERROR/=0) THEN
2349 CALL ANCMSG(MSGID=20,ANMODE=ANINFO)
2350 CALL ARRET(2)
2351 END IF
2352
2353 END
2354
2355
2356!||====================================================================
2357!|| sz_print ../engine/source/output/restart/arralloc.F
2358!||--- called by ------------------------------------------------------
2359!|| restalloc ../engine/source/output/restart/arralloc.F
2360!||--- calls -----------------------------------------------------
2361!|| spmd_chkw ../engine/source/mpi/generic/spmd_chkw.F
2362!|| spmd_glob_isum9 ../engine/source/mpi/interfaces/spmd_th.F
2363!|| spmd_ibcast ../engine/source/mpi/generic/spmd_ibcast.F
2364!|| spmd_wiout ../engine/source/mpi/generic/spmd_wiout.F
2365!||--- uses -----------------------------------------------------
2366!|| ale_mod ../common_source/modules/ale/ale_mod.F
2367!|| message_mod ../engine/share/message_module/message_mod.F
2368!||====================================================================
2369 SUBROUTINE SZ_PRINT()
2370C-----------------------------------------------
2371C M o d u l e s
2372C-----------------------------------------------
2373 USE MESSAGE_MOD
2374 USE ALE_MOD
2375C-----------------------------------------------
2376C I m p l i c i t T y p e s
2377C-----------------------------------------------
2378#include "implicit_f.inc"
2379C-----------------------------------------------
2380C C o m m o n B l o c k s
2381C-----------------------------------------------
2382#include "tabsiz_c.inc"
2383#include "com01_c.inc"
2384#include "units_c.inc"
2385#include "task_c.inc"
2386C----------------------------------------------
2387C L o c a l V a r i a b l e s
2388C-----------------------------------------------
2389 INTEGER IWIOUT
2390C-----------------------------------------------
2391C
2392C For debug purposes only
2393C
2394 IF (ISPMD == 0) THEN
2395 WRITE(IOUT,'(A)') ' '
2396 WRITE(IOUT,'(A)') 'MEMORY ADRESS MAP '
2397 WRITE(IOUT,'(A)') '--------------'
2398 WRITE(IOUT,'(A)') ' '
2399 WRITE(IOUT,'(A)') 'INTEGER ARRAYS'
2400 WRITE(IOUT,'(A)') '--------------'
2401 WRITE(IOUT,'(A)') ' '
2402 WRITE(IOUT,'(A)') 'NSPMD / ARRAY / SIZE '
2403 WRITE(IOUT,'(A)') ' '
2404 END IF
2405C I10
2406 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SICODE : ',SICODE
2407C I10A
2408 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SISKEW : ',SISKEW
2409C I12
2410 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SISKWN : ',SISKWN
2411C I12A
2412 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIFRAME : ',SIFRAME
2413C I13
2414 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SNETH : ',SNETH
2415C I14
2416 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIBCSLAG :',SIBCSLAG
2417C I15
2418 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIPART : ',SIPART
2419C I16
2420 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SNOM_OPT :',SNOM_OPT
2421C I17
2422 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SNPC : ',SNPC
2423C I19
2424 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIXTG : ',SIXTG
2425C I19A
2426 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIXTG1 : ',SIXTG1
2427C I20
2428 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIXS : ',SIXS
2429C I21
2430 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIXQ : ',SIXQ
2431C I22
2432 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIXC : ',SIXC
2433C I23
2434 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIXT : ',SIXT
2435C I24
2436 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIXP : ',SIXP
2437C I25
2438 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIXR : ',SIXR
2439C I26
2440C
2441C I27
2442 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SITAB : ',SITAB
2443C I28
2444 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SITABM1 : ',SITABM1
2445C I29
2446 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SGJBUFI : ',SGJBUFI
2447C I30
2448 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SNALE : ',ALE%GLOBAL%SNALE
2449C I31
2450 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIELVS : ',ALE%GLOBAL%SIELVS
2451C I33
2452 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIFILL : ',SIFILL
2453C I34
2454 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIMS : ',SIMS
2455C I35
2456!! WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SISUBS : ',SISUBS
2457C I36
2458!! WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIGRN : ',SIGRN
2459C I37
2460!! WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SISURF : ',SISURF
2461C I38
2462!! WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SISLIN : ',SISLIN
2463C I39
2464!! WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIBUFSSG :',SIBUFSSG
2465C I40
2466 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SKXX : ',SKXX
2467C I40A
2468 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIXX : ',SIXX
2469C I40B
2470 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SKXSP : ',SKXSP
2471C I40C
2472 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIXSP : ',SIXSP
2473C I40D
2474 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SNOD2SP : ',SNOD2SP
2475C I40E
2476 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SISPSYM : ',SISPSYM
2477C I40F
2478 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SISPCOND :',SISPCOND
2479C I40G
2480 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SISPHIO : ',SISPHIO
2481C I40H
2482 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SLPRTSPH :',SLPRTSPH
2483C I40I
2484 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SLONFSPH :',SLONFSPH
2485C I41
2486 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIBCL : ',SIBCL
2487C I42
2488 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIBFV : ',SIBFV
2489C I43
2490 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIECRAN : ',SIECRAN
2491C I44
2492 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SILAS : ',SILAS
2493C I45
2494 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIEBCS : ',SIEBCS
2495C I46
2496 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SLACCELM :',SLACCELM
2497C I47
2498
2499C I48
2500 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SNNLINK : ',SNNLINK
2501C I48A
2502 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SLNLINK : ',SLNLINK
2503C I49
2504 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIPARG : ',SIPARG
2505C I51
2506 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SDD_IAD : ',SDD_IAD
2507C I52
2508 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIGRV : ',SIGRV
2509 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SLGRAV : ',SLGRAV
2510C I54
2511 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIEXLNK : ',SIEXLNK
2512C I55
2513 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIBVEL : ',SIBVEL
2514C I55A
2515 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SLBVEL : ',SLBVEL
2516C I56
2517 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIACTIV : ',SIACTIV
2518C I57
2519 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIBMPC : ',SIBMPC
2520C I58
2521 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SKINET : ',SKINET
2522C I59
2523C
2524C I60
2525C
2526C I61
2527 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIPARI : ',SIPARI
2528C I62
2529c WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SINBUF : ',SINBUF
2530C I64
2531 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SNPRW : ',SNPRW
2532 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SLPRW : ',SLPRW
2533C I65
2534
2535C I66
2536C
2537C I67
2538 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SICONX : ',SICONX
2539C I67B
2540 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SMADPRT : ',SMADPRT
2541C I67C
2542 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SMADSH4 : ',SMADSH4
2543C I67D
2544 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SMADSH3 : ',SMADSH3
2545C I67E
2546 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SMADSOL : ',SMADSOL
2547C I67F
2548 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SMADNOD : ',SMADNOD
2549C I67G
2550 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SMADFAIL: ',SMADFAIL
2551C I68
2552 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SNPBY : ',SNPBY
2553C I68A
2554 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SNPBYL : ',SNPBYL
2555C I69
2556 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SLPBY : ',SLPBY
2557C I69A
2558 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SLPBYL : ',SLPBYL
2559C I70
2560 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SLRIVET : ',SLRIVET
2561C I71
2562 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SNSTRF : ',SNSTRF
2563C I72
2564 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SLJOINT : ',SLJOINT
2565C I73
2566 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SNODPOR : ',SNODPOR
2567C I74
2568 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SMONVOL : ',SMONVOL
2569C I75
2570 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SLAGBUF : ',SLAGBUF
2571C I77
2572 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIAD_ELEM:',SIAD_ELEM
2573C I77B
2574 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIAD_RBY: ',SIAD_RBY
2575C I77C
2576 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIAD_RBY2:',SIAD_RBY2
2577C I77D
2578 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIAD_I2M: ',SIAD_I2M
2579C I77E
2580 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIADCJ : ',SIADCJ
2581C I77F
2582 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIAD_RBM: ',SIAD_RBM
2583C I77G
2584 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIAD_RBM2:',SIAD_RBM2
2585C I77H
2586 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIAD_SEC: ',SIAD_SEC
2587C I77I
2588 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIAD_CUT: ',SIAD_CUT
2589C I78
2590 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SFR_ELEM: ',SFR_ELEM
2591C I78B
2592 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SFR_RBY : ',SFR_RBY
2593C I78C
2594 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SFR_WALL: ',SFR_WALL
2595C I78D
2596 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SFR_RBY2: ',SFR_RBY2
2597C I78E
2598 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SFR_I2M : ',SFR_I2M
2599C I78F
2600 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SFR_MV : ',SFR_MV
2601C I78G
2602 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SFR_LL : ',SFR_LL
2603C I78H
2604 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SFR_CJ : ',SFR_CJ
2605C I78I
2606 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SFR_RBM : ',SFR_RBM
2607C I78J
2608 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SFR_RBM2: ',SFR_RBM2
2609C I78K
2610 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SFR_SEC : ',SFR_SEC
2611C I78L
2612 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SFR_CUT : ',SFR_CUT
2613C I78M
2614 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SRG_CUT : ',SRG_CUT
2615C I78N
2616 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SFR_MAD : ',SFR_MAD
2617C I78P
2618 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SFR_I18 : ',SFR_I18
2619 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SDD_R2R : ',SDD_R2R
2620 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SFR_LAGF: ',SFR_LAGF
2621C I79
2622 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SWEIGHT : ',SWEIGHT
2623C I79A
2624 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SNEWFRONT:',SNEWFRONT
2625C I79B
2626 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SNODGLOB: ',SNODGLOB
2627C I79C
2628 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SNBRCVOIS:',SNBRCVOIS
2629C I79D
2630 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SLNRCVOIS:',SLNRCVOIS
2631C I79E
2632 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SNBSDVOIS:',SNBSDVOIS
2633C I79F
2634 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SLNSDVOIS:',SLNSDVOIS
2635C I79G
2636 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SNERCVOIS:',SNERCVOIS
2637C I79H
2638 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SLERCVOIS:',SLERCVOIS
2639C I79I
2640 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SNESDVOIS:',SNESDVOIS
2641C I79J
2642 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SLESDVOIS:',SLESDVOIS
2643C I79K
2644
2645C I79L
2646
2647C I79M
2648 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SNPSEGCOM:',SNPSEGCOM
2649C I79N
2650 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SLSEGCOM: ',SLSEGCOM
2651C I79P
2652 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SNPORGEO: ',SNPORGEO
2653C I79Q
2654 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SLNODPOR: ',SLNODPOR
2655 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SLLAGF : ',SLLAGF
2656C I80
2657 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SICODT : ',SICODT
2658C I81
2659 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SICODR : ',SICODR
2660
2661C I82
2662C
2663C I83
2664C
2665C I84
2666C
2667C I85
2668 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SISKY : ',SISKY
2669C I86
2670 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SADSKY : ',SADSKY
2671C I86B
2672 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SPROCNE : ',SPROCNE
2673C I86C
2674 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SADDCNI2 : ',SADDCNI2
2675C I86D
2676 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SPROCNI2 : ',SPROCNI2
2677C I86E
2678 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIADSDP : ',SIADSDP
2679C I86F
2680 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIADRCP : ',SIADRCP
2681C I87
2682 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIADS : ',SIADS
2683C I87B
2684 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIADWAL : ',SIADWAL
2685C I87C
2686 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIADRBK : ',SIADRBK
2687C I87D
2688 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIADI2 : ',SIADI2
2689C I87E
2690 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIADMV2 : ',SIADMV2
2691C I87F
2692 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIADMV3 : ',SIADMV3
2693C I87G
2694 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIADLL : ',SIADLL
2695C I87H
2696 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIADRBM : ',SIADRBM
2697C I87I
2698 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIADI18 : ',SIADI18
2699C I88
2700 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SILINK : ',SILINK
2701C I88A
2702 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SFR_RL : ',SFR_RL
2703C I89
2704 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SLLINK : ',SLLINK
2705C I89A
2706 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIADRL : ',SIADRL
2707C I90
2708 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SLINALE : ',SLINALE
2709C I91
2710 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SNEFLSW : ',SNEFLSW
2711C I92
2712 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SNNFLSW : ',SNNFLSW
2713C I93
2714 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SICUT : ',SICUT
2715C ICONTACT
2716 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SICONTACT : ',SICONTACT
2717C
2718 IF(NSPMD>1) THEN
2719C traitement necessaire pour recuperer les output dans l'ordre
2720 IWIOUT = 0
2721 IF (ISPMD/=0) CALL SPMD_CHKW(IWIOUT,IOUT)
2722 CALL SPMD_GLOB_ISUM9(IWIOUT,1)
2723 CALL SPMD_IBCAST(IWIOUT,IWIOUT,1,1,0,2)
2724 IF (IWIOUT>0) THEN
2725 CALL SPMD_WIOUT(IOUT,IWIOUT)
2726 IWIOUT = 0
2727 ENDIF
2728 ENDIF
2729 IF (ISPMD == 0) THEN
2730 WRITE(IOUT,'(A)') ' '
2731 WRITE(IOUT,'(A)') 'REAL ARRAYS'
2732 WRITE(IOUT,'(A)') '-----------'
2733 WRITE(IOUT,'(A)') ' '
2734 WRITE(IOUT,'(A)') 'NSPMD / ARRAY / SIZE '
2735 WRITE(IOUT,'(A)') ' '
2736 END IF
2737C M11
2738 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SX : ',SX
2739C M11
2740 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SD : ',SD
2741C M12
2742 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SV : ',SV
2743C M13
2744 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SVR : ',SVR
2745C M14
2746 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SDR : ',SDR
2747C M15
2748 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' STHKE : ',STHKE
2749C M16
2750 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SDAMPR : ',SDAMPR
2751C M16A
2752 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SDAMP : ',SDAMP
2753C M17
2754C
2755C M18
2756 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SMS : ',SMS
2757C M19
2758 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIN : ',SIN
2759C M20
2760 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' STF : ',STF
2761C M21
2762 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SPM : ',SPM
2763C M22
2764 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SSKEW : ',SSKEW
2765C M22A
2766 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SXFRAME : ',SXFRAME
2767C M23
2768 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SGEO : ',SGEO
2769C M24
2770 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SEANI : ',SEANI
2771C M25
2772 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SBUFMAT : ',SBUFMAT
2773C M26
2774 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SBUFGEO : ',SBUFGEO
2775C M27
2776 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SBUFSF : ',SBUFSF
2777C M28
2778 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SRBMPC : ',SRBMPC
2779C M29
2780 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SGJBUFR : ',SGJBUFR
2781C M30
2782 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SW : ',SW
2783C M31
2784 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SVEUL : ',SVEUL
2785C M32
2786 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SFILL : ',SFILL
2787C M33
2788 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SDFILL : ',SDFILL
2789C M34
2790 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SALPH : ',SALPH
2791C M35
2792 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SWB : ',SWB
2793C M36
2794 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SDSAVE : ',SDSAVE
2795C M37
2796 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SASAVE : ',SASAVE
2797C M38
2798 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SSPBUF : ',SSPBUF
2799C M38E
2800 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SVSPHIO : ',SVSPHIO
2801C M38F
2802 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SSPHVELN : ',SSPHVELN
2803C M39
2804 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SMSNF : ',SMSNF
2805C M40
2806C
2807C M41
2808 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SFORC : ',SFORC
2809C M42
2810C
2811C M43
2812 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SVEL : ',SVEL
2813C M44
2814 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SFSAV : ',SFSAV
2815C M45
2816C
2817C M46
2818 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SFZERO : ',SFZERO
2819C M47
2820 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SXLAS : ',SXLAS
2821C M48A
2822 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SREBCS : ',SREBCS
2823C M48
2824 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SACCELM : ',SACCELM
2825C M49
2826
2827C M50
2828C
2829C M51
2830 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SFBVEL : ',SFBVEL
2831C M52
2832 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SGRAV : ',SGRAV
2833C M53
2834 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SFR_WAVE : ',SFR_WAVE
2835c
2836c WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' FAILWAVE : ',IFAILWAVE*NUMNOD
2837C M54
2838 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SPARTS0 : ',SPARTS0
2839C M55
2840C
2841C M56
2842C
2843C M57
2844C
2845C M58
2846C
2847C M59
2848 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SELBUF : ',SELBUF
2849C M64B
2850 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SDBUFIN : ',SDBUFIN
2851C M62
2852 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SRWBUF : ',SRWBUF
2853C M62A
2854 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SRWSAV : ',SRWSAV
2855C M63
2856
2857C M64
2858 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SRBY : ',SRBY
2859C M64A
2860 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SRBYL : ',SRBYL
2861C M65
2862 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SRIVET : ',SRIVET
2863C M66
2864 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SSECBUF : ',SSECBUF
2865C M67
2866 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SVOLMON : ',SVOLMON
2867C M68
2868 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SLAMBDA : ',SLAMBDA
2869C M69
2870
2871C RCONTACT
2872 WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SRCONTACT : ',SRCONTACT
2873
2874 IF(NSPMD>1) THEN
2875C traitement necessaire pour recuperer les output dans l'ordre
2876 IWIOUT = 0
2877 IF (ISPMD/=0) CALL SPMD_CHKW(IWIOUT,IOUT)
2878 CALL SPMD_GLOB_ISUM9(IWIOUT,1)
2879 CALL SPMD_IBCAST(IWIOUT,IWIOUT,1,1,0,2)
2880 IF (IWIOUT>0) THEN
2881 CALL SPMD_WIOUT(IOUT,IWIOUT)
2882 IWIOUT = 0
2883 ENDIF
2884 ENDIF
2885
2886 END
alefvm_init
subroutine alefvm_init()
Definition alefvm_init.F:31
restalloc
subroutine restalloc(element, nodes, multi_fvm, h3d_data, pinch_data, ale_connectivity, segvar, interfaces, skews, glob_therm, rbe3)
Definition arralloc.F:71
ale_connectivity_mod
Definition ale_connectivity_mod.F:223
ale_mod
Definition ale_mod.F:149
ale_mod::ale
type(ale_) ale
Definition ale_mod.F:249
aleanim_mod
Definition aleanim_mod.F:40
alefvm_mod
Definition alefvm_mod.F:88
alemuscl_mod
Definition alemuscl_mod.F:54
cluster_mod
Definition cluster_mod.F:40
damp_mod
Definition damp_mod.F:33
drape_mod
Definition drape_mod.F:54
ecnd_mod
Definition ecdn_mod.F:34
eig_mod
Definition eig_mod.F:32
fxb_mod
Definition fxb_mod.F:32
h3d_mod
Definition h3d_mod.F:308
intstamp_glob_mod
Definition intstamp_glob_mod.F:30
message_mod
Definition message_mod.F:1249
outmax_mod
Definition outmax_mod.F:52
outputs_mod
Definition outputs_mod.F:59
pinchtype_mod
Definition pinchtype_mod.F:69
restmod::iconx
integer, dimension(:), allocatable iconx
Definition restart_mod.F:60
restmod::igrv
integer, dimension(:), allocatable, target igrv
Definition restart_mod.F:60
restmod::fr_sec
integer, dimension(:), allocatable fr_sec
Definition restart_mod.F:83
restmod::iad_rby
integer, dimension(:), allocatable iad_rby
Definition restart_mod.F:83
restmod::id_global_vois
integer, dimension(:), allocatable id_global_vois
Definition restart_mod.F:86
restmod::fr_mad
integer, dimension(:), allocatable fr_mad
Definition restart_mod.F:83
restmod::lagbuf
integer, dimension(:), allocatable lagbuf
Definition restart_mod.F:60
restmod::ixx
integer, dimension(:), allocatable ixx
Definition restart_mod.F:60
restmod::lpby
integer, dimension(:), allocatable, target lpby
Definition restart_mod.F:60
restmod::ixs
integer, dimension(:), allocatable, target ixs
Definition restart_mod.F:60
restmod::iad_rbym2
integer, dimension(:), allocatable iad_rbym2
Definition restart_mod.F:90
restmod::iad_i2m
integer, dimension(:), allocatable iad_i2m
Definition restart_mod.F:83
restmod::iad_cut
integer, dimension(:), allocatable iad_cut
Definition restart_mod.F:83
restmod::lgrav
integer, dimension(:), allocatable lgrav
Definition restart_mod.F:83
restmod::npby
integer, dimension(:), allocatable, target npby
Definition restart_mod.F:60
restmod::face_vois
integer, dimension(:), allocatable face_vois
Definition restart_mod.F:86
restmod::iframe
integer, dimension(:), pointer iframe
Definition restart_mod.F:108
restmod::madfail
integer, dimension(:), pointer madfail
Definition restart_mod.F:108
restmod::lesdvois
integer, dimension(:), allocatable lesdvois
Definition restart_mod.F:83
restmod::lnrcvois
integer, dimension(:), allocatable lnrcvois
Definition restart_mod.F:83
restmod::newfront
integer, dimension(:), allocatable newfront
Definition restart_mod.F:83
restmod::nodpor
integer, dimension(:), allocatable nodpor
Definition restart_mod.F:60
restmod::madclnod
integer, dimension(:), allocatable madclnod
Definition restart_mod.F:57
restmod::lbvel
integer, dimension(:), allocatable lbvel
Definition restart_mod.F:60
restmod::lprtsph
integer, dimension(:), allocatable lprtsph
Definition restart_mod.F:60
restmod::nbsdvois
integer, dimension(:), allocatable nbsdvois
Definition restart_mod.F:83
restmod::lnodpor
integer, dimension(:), allocatable lnodpor
Definition restart_mod.F:83
restmod::ne_nercvois
integer, dimension(:), allocatable ne_nercvois
Definition restart_mod.F:90
restmod::iactiv
integer, dimension(:), allocatable iactiv
Definition restart_mod.F:60
restmod::ibcslag
integer, dimension(:), allocatable ibcslag
Definition restart_mod.F:60
restmod::fr_lagf
integer, dimension(:), allocatable fr_lagf
Definition restart_mod.F:83
restmod::ispsym
integer, dimension(:), allocatable ispsym
Definition restart_mod.F:60
restmod::addcsrect
integer, dimension(:), allocatable addcsrect
Definition restart_mod.F:83
restmod::ipart
integer, dimension(:), allocatable, target ipart
Definition restart_mod.F:60
restmod::fr_nor
integer, dimension(:), allocatable fr_nor
Definition restart_mod.F:83
restmod::isphio
integer, dimension(:), allocatable isphio
Definition restart_mod.F:60
restmod::fr_i18
integer, dimension(:), allocatable fr_i18
Definition restart_mod.F:83
restmod::ipari
integer, dimension(:), allocatable, target ipari
Definition restart_mod.F:60
restmod::fr_rbym2
integer, dimension(:), allocatable fr_rbym2
Definition restart_mod.F:90
restmod::igaup
integer, dimension(:), allocatable igaup
Definition restart_mod.F:83
restmod::iad_rbm
integer, dimension(:), allocatable iad_rbm
Definition restart_mod.F:83
restmod::nercvois
integer, dimension(:), allocatable nercvois
Definition restart_mod.F:83
restmod::ispcond
integer, dimension(:), allocatable ispcond
Definition restart_mod.F:60
restmod::iecran
integer, dimension(:), allocatable iecran
Definition restart_mod.F:57
restmod::fr_i2m
integer, dimension(:), allocatable fr_i2m
Definition restart_mod.F:83
restmod::ixt
integer, dimension(:), allocatable ixt
Definition restart_mod.F:60
restmod::lnlink
integer, dimension(:), allocatable lnlink
Definition restart_mod.F:60
restmod::ibfv
integer, dimension(:), allocatable ibfv
Definition restart_mod.F:60
restmod::iaccp
integer, dimension(:), allocatable iaccp
Definition restart_mod.F:83
restmod::lsegcom
integer, dimension(:), allocatable lsegcom
Definition restart_mod.F:83
restmod::iskwp_l
integer, dimension(:), allocatable iskwp_l
Definition restart_mod.F:90
restmod::dd_r2r_elem
integer, dimension(:), allocatable dd_r2r_elem
Definition restart_mod.F:57
restmod::ixr
integer, dimension(:), allocatable ixr
Definition restart_mod.F:60
restmod::lonfsph
integer, dimension(:), allocatable lonfsph
Definition restart_mod.F:60
restmod::madnod
integer, dimension(:), pointer madnod
Definition restart_mod.F:108
restmod::madidx
integer, dimension(:), allocatable madidx
Definition restart_mod.F:57
restmod::iexlnk
integer, dimension(:), allocatable iexlnk
Definition restart_mod.F:60
restmod::ixtg
integer, dimension(:), allocatable, target ixtg
Definition restart_mod.F:60
restmod::lpbyl
integer, dimension(:), pointer lpbyl
Definition restart_mod.F:108
restmod::nnlink
integer, dimension(:), allocatable nnlink
Definition restart_mod.F:60
restmod::ibcl
integer, dimension(:), allocatable, target ibcl
Definition restart_mod.F:60
restmod::madprt
integer, dimension(:), pointer madprt
Definition restart_mod.F:108
restmod::fr_rbym
integer, dimension(:), allocatable fr_rbym
Definition restart_mod.F:90
restmod::monvol
integer, dimension(:), allocatable monvol
Definition restart_mod.F:60
restmod::ifill
integer, dimension(:), allocatable ifill
Definition restart_mod.F:60
restmod::iskwp
integer, dimension(:), allocatable iskwp
Definition restart_mod.F:83
restmod::isensp
integer, dimension(:), allocatable isensp
Definition restart_mod.F:83
restmod::fr_rbe2
integer, dimension(:), allocatable fr_rbe2
Definition restart_mod.F:83
restmod::irbe2
integer, dimension(:), allocatable irbe2
Definition restart_mod.F:60
restmod::nporgeo
integer, dimension(:), allocatable nporgeo
Definition restart_mod.F:83
restmod::fr_rbm2
integer, dimension(:), allocatable fr_rbm2
Definition restart_mod.F:83
restmod::kxsp
integer, dimension(:), allocatable kxsp
Definition restart_mod.F:60
restmod::neth
integer, dimension(:), allocatable neth
Definition restart_mod.F:60
restmod::fr_wall
integer, dimension(:), allocatable fr_wall
Definition restart_mod.F:83
restmod::fr_ll
integer, dimension(:), allocatable fr_ll
Definition restart_mod.F:83
restmod::iad_sec
integer, dimension(:), allocatable iad_sec
Definition restart_mod.F:83
restmod::nsensp
integer, dimension(:), allocatable nsensp
Definition restart_mod.F:83
restmod::dd_iad
integer, dimension(:), allocatable dd_iad
Definition restart_mod.F:60
restmod::gjbufi
integer, dimension(:), allocatable gjbufi
Definition restart_mod.F:60
restmod::madsh3
integer, dimension(:), pointer madsh3
Definition restart_mod.F:108
restmod::fr_cj
integer, dimension(:), allocatable fr_cj
Definition restart_mod.F:83
restmod::iskwn
integer, dimension(:), allocatable, target iskwn
Definition restart_mod.F:60
restmod::nesdvois
integer, dimension(:), allocatable nesdvois
Definition restart_mod.F:83
restmod::iadcj
integer, dimension(:), allocatable iadcj
Definition restart_mod.F:83
restmod::nprw
integer, dimension(:), allocatable nprw
Definition restart_mod.F:60
restmod::ngaup
integer, dimension(:), allocatable ngaup
Definition restart_mod.F:83
restmod::nod2sp
integer, dimension(:), allocatable nod2sp
Definition restart_mod.F:60
restmod::ixp
integer, dimension(:), allocatable ixp
Definition restart_mod.F:60
restmod::laccelm
integer, dimension(:), allocatable laccelm
Definition restart_mod.F:60
restmod::nom_opt
integer, dimension(:), allocatable, target nom_opt
Definition restart_mod.F:60
restmod::iad_rbe2
integer, dimension(:), allocatable iad_rbe2
Definition restart_mod.F:83
restmod::madsol
integer, dimension(:), pointer madsol
Definition restart_mod.F:108
restmod::fasolfr
integer, dimension(:), allocatable fasolfr
Definition restart_mod.F:83
restmod::npc
integer, dimension(:), allocatable, target npc
Definition restart_mod.F:60
restmod::ibmpc
integer, dimension(:), allocatable, target ibmpc
Definition restart_mod.F:60
restmod::ixtg1
integer, dimension(:), allocatable ixtg1
Definition restart_mod.F:60
restmod::fr_mv
integer, dimension(:), allocatable fr_mv
Definition restart_mod.F:83
restmod::ims
integer, dimension(:), allocatable ims
Definition restart_mod.F:60
restmod::lercvois
integer, dimension(:), allocatable lercvois
Definition restart_mod.F:83
restmod::addcni2
integer, dimension(:), allocatable addcni2
Definition restart_mod.F:83
restmod::fr_rby2
integer, dimension(:), allocatable fr_rby2
Definition restart_mod.F:83
restmod::iad_frnor
integer, dimension(:), allocatable iad_frnor
Definition restart_mod.F:83
restmod::ibvel
integer, dimension(:), allocatable ibvel
Definition restart_mod.F:60
restmod::lrivet
integer, dimension(:), allocatable lrivet
Definition restart_mod.F:60
restmod::npbyl
integer, dimension(:), pointer npbyl
Definition restart_mod.F:108
restmod::kinet
integer, dimension(:), allocatable kinet
Definition restart_mod.F:60
restmod::lgauge
integer, dimension(:), allocatable lgauge
Definition restart_mod.F:60
restmod::nstrf
integer, dimension(:), allocatable nstrf
Definition restart_mod.F:60
restmod::procnor
integer, dimension(:), allocatable procnor
Definition restart_mod.F:83
restmod::fr_rby
integer, dimension(:), allocatable fr_rby
Definition restart_mod.F:83
restmod::iad_rbm2
integer, dimension(:), allocatable iad_rbm2
Definition restart_mod.F:83
restmod::ixsp
integer, dimension(:,:), allocatable ixsp
Definition restart_mod.F:81
restmod::madsh4
integer, dimension(:), pointer madsh4
Definition restart_mod.F:108
restmod::iparg
integer, dimension(:), allocatable iparg
Definition restart_mod.F:60
restmod::ixq
integer, dimension(:), allocatable ixq
Definition restart_mod.F:60
restmod::ilas
integer, dimension(:), allocatable ilas
Definition restart_mod.F:60
restmod::iad_rby2
integer, dimension(:), allocatable iad_rby2
Definition restart_mod.F:83
restmod::fr_cut
integer, dimension(:), allocatable fr_cut
Definition restart_mod.F:83
restmod::segquadfr
integer, dimension(:), allocatable segquadfr
Definition restart_mod.F:83
restmod::procni2
integer, dimension(:), allocatable procni2
Definition restart_mod.F:83
restmod::kxx
integer, dimension(:), allocatable kxx
Definition restart_mod.F:60
restmod::nskwp
integer, dimension(:), allocatable nskwp
Definition restart_mod.F:83
restmod::ne_nesdvois
integer, dimension(:), allocatable ne_nesdvois
Definition restart_mod.F:90
restmod::iad_rbym
integer, dimension(:), allocatable iad_rbym
Definition restart_mod.F:90
restmod::nom_sect
integer, dimension(:), allocatable nom_sect
Definition restart_mod.F:60
restmod::lprw
integer, dimension(:), allocatable lprw
Definition restart_mod.F:60
restmod::npsegcom
integer, dimension(:), allocatable npsegcom
Definition restart_mod.F:83
restmod::rg_cut
integer, dimension(:), allocatable rg_cut
Definition restart_mod.F:83
restmod::lrbe2
integer, dimension(:), allocatable lrbe2
Definition restart_mod.F:60
restmod::fr_rbm
integer, dimension(:), allocatable fr_rbm
Definition restart_mod.F:83
restmod::llagf
integer, dimension(:), allocatable llagf
Definition restart_mod.F:83
restmod::ixc
integer, dimension(:), allocatable ixc
Definition restart_mod.F:60
restmod::nbrcvois
integer, dimension(:), allocatable nbrcvois
Definition restart_mod.F:83
restmod::ljoint
integer, dimension(:), allocatable ljoint
Definition restart_mod.F:60
restmod::lnsdvois
integer, dimension(:), allocatable lnsdvois
Definition restart_mod.F:83
restmod::naccp
integer, dimension(:), allocatable naccp
Definition restart_mod.F:83
restmod::dd_r2r
integer, dimension(:), allocatable dd_r2r
Definition restart_mod.F:83
seatbelt_mod
Definition seatbelt_mod.F:55
segvar_mod
Definition segvar_mod.F:61
sph_mod
Definition sph_mod.F:29
stack_mod
Definition stack_mod.F:72
trimat_mod
Definition trimat.F:31
ale_connectivity_mod::t_ale_connectivity
Definition ale_connectivity_mod.F:254
h3d_mod::h3d_database
Definition h3d_mod.F:435
pinchtype_mod::pinch
Definition pinchtype_mod.F:76
segvar_mod::t_segvar
Definition segvar_mod.F:69