OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
arralloc.F File Reference
#include "implicit_f.inc"
#include "com01_c.inc"
#include "com04_c.inc"
#include "com_xfem1.inc"
#include "param_c.inc"
#include "remesh_c.inc"
#include "scr06_c.inc"
#include "scr07_c.inc"
#include "scr14_c.inc"
#include "scr16_c.inc"
#include "sms_c.inc"
#include "tabsiz_c.inc"
#include "task_c.inc"
#include "couple_c.inc"
#include "warn_c.inc"
#include "parit_c.inc"
#include "intstamp_c.inc"
#include "spmd_c.inc"
#include "sphcom.inc"
#include "fxbcom.inc"
#include "eigcom.inc"
#include "inter18.inc"
#include "stati_c.inc"
#include "units_c.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine restalloc (output, element, nodes, multi_fvm, h3d_data, pinch_data, ale_connectivity, segvar, interfaces, skews, glob_therm, rbe3, rwall)
subroutine sz_print ()

Function/Subroutine Documentation

◆ restalloc()

subroutine restalloc ( type(output_), intent(inout) output,
type(connectivity_) element,
type(nodal_arrays_) nodes,
type(multi_fvm_struct) multi_fvm,
type(h3d_database) h3d_data,
type(pinch) pinch_data,
type(t_ale_connectivity), intent(inout) ale_connectivity,
type(t_segvar) segvar,
type(interfaces_) interfaces,
type(skew_), intent(inout) skews,
type(glob_therm_), intent(inout) glob_therm,
type(rbe3_), intent(inout) rbe3,
type(rwall_), intent(inout) rwall )

Definition at line 72 of file arralloc.F.

74C-----------------------------------------------
75C M o d u l e s
76C-----------------------------------------------
77 USE restmod
78 USE intstamp_glob_mod
79 USE message_mod
80 USE sph_mod
81 USE cluster_mod
82 USE alefvm_mod
83 USE stack_mod
84 USE alemuscl_mod
85 USE trimat_mod
86 USE ecnd_mod
87 USE multi_fvm_mod
88 USE aleanim_mod
89 USE h3d_mod
90 USE pinchtype_mod
91 USE drape_mod
92 USE fxb_mod
93 USE eig_mod
94 USE ale_connectivity_mod
95 USE seatbelt_mod
96 USE segvar_mod
97 USE outmax_mod
98 USE output_mod
99 USE ale_mod
100 USE damp_mod
101 USE interfaces_mod
102 USE skew_mod
103 USE my_alloc_mod
104 use glob_therm_mod
105 USE connectivity_mod
106 USE nodal_arrays_mod
107 use rbe3_mod
108 use rwall_mod
109 use element_mod , only : nixs,nixq,nixc,nixt,nixr,nixp,nixtg
110C-----------------------------------------------
111C I m p l i c i t T y p e s
112C-----------------------------------------------
113#include "implicit_f.inc"
114C-----------------------------------------------
115C C o m m o n B l o c k s
116C-----------------------------------------------
117#include "com01_c.inc"
118#include "com04_c.inc"
119#include "com_xfem1.inc"
120#include "param_c.inc"
121#include "remesh_c.inc"
122#include "scr06_c.inc"
123#include "scr07_c.inc"
124#include "scr14_c.inc"
125#include "scr16_c.inc"
126#include "sms_c.inc"
127#include "tabsiz_c.inc"
128#include "task_c.inc"
129#include "couple_c.inc"
130#include "warn_c.inc"
131#include "parit_c.inc"
132#include "intstamp_c.inc"
133#include "spmd_c.inc"
134#include "sphcom.inc"
135#include "fxbcom.inc"
136#include "eigcom.inc"
137#include "inter18.inc"
138#include "stati_c.inc"
139C-----------------------------------------------
140 type(output_), INTENT(INOUT) :: OUTPUT
141 TYPE(connectivity_) :: ELEMENT
142 TYPE(NODAL_ARRAYS_) :: NODES
143 TYPE(MULTI_FVM_STRUCT) :: MULTI_FVM
144 TYPE(H3D_DATABASE) :: H3D_DATA
145 TYPE(PINCH) :: PINCH_DATA
146 TYPE(t_ale_connectivity), INTENT(INOUT) :: ALE_CONNECTIVITY
147 TYPE(t_SEGVAR) :: SEGVAR
148 TYPE(INTERFACES_) :: INTERFACES
149 TYPE(SKEW_) , INTENT(INOUT) :: SKEWS
150 type(glob_therm_) ,intent(inout) :: GLOB_THERM
151 type(rbe3_) ,intent(inout) :: RBE3
152 type(rwall_),intent(inout) :: RWALL
153C----------------------------------------------
154C L o c a l V a r i a b l e s
155C-----------------------------------------------
156 INTEGER IERR0,IERROR, NBMAT,ISIZ1,ISIZ2
157C-----------------------------------------------
158 ierror = 0
159C to avoid conflict with IERR in common
160 ierr0 = ierr
161C -----------------------------------------------
162C Entirere Allowances
163C -----------------------------------------------
164
165 CALL allocate_nodal_arrays(nodes, numnod, nthread, iroddl, iparit,
166 . isecut, iisrots, impose_dr, idrot, nrcvvois, sicodt, glob_therm%ITHERM_FE)
167
168C
169C ALLOCATE (ICODE(SICODE),STAT=IERR)
170C IF (IERR/=0) GOTO 1000
171C ICODE = 0
172
173C ALLOCATE (ISKEW(SISKEW),STAT=IERR)
174C IF (IERR/=0) GOTO 1000
175C ISKEW = e
176
177 ALLOCATE (iskwn(siskwn),stat=ierr)
178 IF (ierr/=0) GOTO 1000
179 iskwn = 0
180
181 ALLOCATE (iframe(siframe),stat=ierr)
182 IF (ierr/=0) GOTO 1000
183 iframe = 0
184
185 ALLOCATE (neth(sneth),stat=ierr)
186 IF (ierr/=0) GOTO 1000
187 neth = 0
188
189 ALLOCATE (ibcslag(sibcslag),stat=ierr)
190 IF (ierr/=0) GOTO 1000
191 ibcslag = 0
192
193 ALLOCATE (ipart(sipart),stat=ierr)
194 IF (ierr/=0) GOTO 1000
195 ipart = 0
196
197 ALLOCATE (nom_opt(snom_opt),stat=ierr)
198 IF (ierr/=0) GOTO 1000
199 nom_opt = 0
200
201 ALLOCATE (npc(snpc),stat=ierr)
202 IF (ierr/=0) GOTO 1000
203 npc = 0
204
205 ALLOCATE (ixtg(sixtg),stat=ierr)
206 IF (ierr/=0) GOTO 1000
207 ixtg = 0
208
209 ALLOCATE (ixtg1(sixtg1),stat=ierr)
210 IF (ierr/=0) GOTO 1000
211 ixtg1 = 0
212
213 ALLOCATE (ixs(sixs),stat=ierr)
214 IF (ierr/=0) GOTO 1000
215 ixs = 0
216
217 ALLOCATE (ixq(sixq),stat=ierr)
218 IF (ierr/=0) GOTO 1000
219 ixq = 0
220
221 ALLOCATE (ixc(sixc),stat=ierr)
222 ALLOCATE(element%shell%ixc(nixc,sixc/nixc))
223 ALLOCATE(element%shell%nodes(4,sixc/nixc))
224 ALLOCATE(element%shell%pid(sixc/nixc))
225 ALLOCATE(element%shell%matid(sixc/nixc))
226 ALLOCATE(element%shell%user_id(sixc/nixc))
227 ixc = 0
228 element%shell%ixc = 0
229
230 ALLOCATE (ixt(sixt),stat=ierr)
231 IF (ierr/=0) GOTO 1000
232 ixt = 0
233
234 ALLOCATE (ixp(sixp),stat=ierr)
235 IF (ierr/=0) GOTO 1000
236 ixp = 0
237
238 ALLOCATE (ixr(sixr),stat=ierr)
239 IF (ierr/=0) GOTO 1000
240 ixr = 0
241
242C ALLOCATE (ITAB(SITAB),STAT=IERR)
243C IF (IERR/=0) GOTO 1000
244C ITAB = 0
245
246C ALLOCATE (ITABM1(SITABM1),STAT=IERR)
247C IF (IERR/=0) GOTO 1000
248C ITABM1 = 0
249
250 ALLOCATE (gjbufi(sgjbufi),stat=ierr)
251 IF (ierr/=0) GOTO 1000
252 gjbufi = 0
253
254 ALLOCATE (ale_connectivity%NALE(ale%GLOBAL%SNALE),stat=ierr)
255 IF (ierr/=0) GOTO 1000
256 ale_connectivity%NALE(1:ale%GLOBAL%SNALE) = 0
257
258 ALLOCATE (id_global_vois(ale%GLOBAL%SIELVS),stat=ierr)
259 IF (ierr/=0) GOTO 1000
260 id_global_vois = 0
261
262 ALLOCATE (face_vois(ale%GLOBAL%SIELVS),stat=ierr)
263 IF (ierr/=0) GOTO 1000
264 face_vois = 0
265
266 ALLOCATE (ifill(sifill),stat=ierr)
267 IF (ierr/=0) GOTO 1000
268 ifill = 0
269
270 ALLOCATE (ims(sims),stat=ierr)
271 IF (ierr/=0) GOTO 1000
272 ims = 0
273
274 ALLOCATE (kxx(skxx),stat=ierr)
275 IF (ierr/=0) GOTO 1000
276 kxx = 0
277
278 ALLOCATE (ixx(sixx),stat=ierr)
279 IF (ierr/=0) GOTO 1000
280 ixx = 0
281
282 ALLOCATE (kxsp(skxsp),stat=ierr)
283 IF (ierr/=0) GOTO 1000
284 kxsp = 0
285
286 ALLOCATE (ixsp(sixsp),stat=ierr)
287 IF (ierr/=0) GOTO 1000
288 ixsp = 0
289
290 ALLOCATE (nod2sp(snod2sp),stat=ierr)
291 IF (ierr/=0) GOTO 1000
292 nod2sp = 0
293
294 ALLOCATE (ispsym(sispsym),stat=ierr)
295 IF (ierr/=0) GOTO 1000
296 ispsym = 0
297
298 ALLOCATE (ispcond(sispcond),stat=ierr)
299 IF (ierr/=0) GOTO 1000
300 ispcond = 0
301
302 ALLOCATE (isphio(sisphio),stat=ierr)
303 IF (ierr/=0) GOTO 1000
304 isphio = 0
305
306 ALLOCATE (lprtsph(slprtsph),stat=ierr)
307 IF (ierr/=0) GOTO 1000
308 lprtsph = 0
309
310 ALLOCATE (lonfsph(slonfsph),stat=ierr)
311 IF (ierr/=0) GOTO 1000
312 lonfsph = 0
313
314 ALLOCATE (ibcl(sibcl),stat=ierr)
315 IF (ierr/=0) GOTO 1000
316 ibcl = 0
317
318 ALLOCATE (ibfv(sibfv),stat=ierr)
319 IF (ierr/=0) GOTO 1000
320 ibfv = 0
321
322 ALLOCATE (iecran(siecran),stat=ierr)
323 IF (ierr/=0) GOTO 1000
324 iecran = 0
325
326 ALLOCATE (ilas(silas),stat=ierr)
327 IF (ierr/=0) GOTO 1000
328 ilas = 0
329
330 ALLOCATE (laccelm(slaccelm),stat=ierr)
331 IF (ierr/=0) GOTO 1000
332 laccelm = 0
333
334 ALLOCATE (lgauge(3*nbgauge),stat=ierr)
335 IF (ierr/=0) GOTO 1000
336 lgauge = 0
337
338 ALLOCATE (nnlink(snnlink),stat=ierr)
339 IF (ierr/=0) GOTO 1000
340 nnlink = 0
341
342 ALLOCATE (lnlink(slnlink),stat=ierr)
343 IF (ierr/=0) GOTO 1000
344 lnlink = 0
345
346 ALLOCATE (iparg(siparg),stat=ierr)
347 IF (ierr/=0) GOTO 1000
348 iparg = 0
349
350 ALLOCATE (dd_iad(sdd_iad),stat=ierr)
351 IF (ierr/=0) GOTO 1000
352 dd_iad = 0
353
354 ALLOCATE (igrv(sigrv),stat=ierr)
355 IF (ierr/=0) GOTO 1000
356 igrv = 0
357
358 ALLOCATE (lgrav(slgrav),stat=ierr)
359 IF (ierr/=0) GOTO 1000
360 lgrav = 0
361
362 ALLOCATE (iexlnk(siexlnk),stat=ierr)
363 IF (ierr/=0) GOTO 1000
364 iexlnk = 0
365
366 ALLOCATE (ibvel(sibvel),stat=ierr)
367 IF (ierr/=0) GOTO 1000
368 ibvel = 0
369
370 ALLOCATE (lbvel(slbvel),stat=ierr)
371 IF (ierr/=0) GOTO 1000
372 lbvel = 0
373
374 ALLOCATE (irbe2(sirbe2),stat=ierr)
375 IF (ierr/=0) GOTO 1000
376 irbe2 = 0
377
378 ALLOCATE (lrbe2(slrbe2),stat=ierr)
379 IF (ierr/=0) GOTO 1000
380 lrbe2 = 0
381
382 call allocate_rbe3(rbe3, nspmd)
383
384 ALLOCATE (iactiv(siactiv),stat=ierr)
385 IF (ierr/=0) GOTO 1000
386 iactiv = 0
387
388 ALLOCATE (ibmpc(sibmpc),stat=ierr)
389 IF (ierr/=0) GOTO 1000
390 ibmpc = 0
391
392 ALLOCATE (fasolfr(sfasolfr),stat=ierr)
393 IF (ierr/=0) GOTO 1000
394 fasolfr = 0
395
396 ALLOCATE (segquadfr(ssegquadfr),stat=ierr)
397 IF (ierr/=0) GOTO 1000
398 segquadfr = 0
399
400 ALLOCATE (ipari(sipari),stat=ierr)
401 IF (ierr/=0) GOTO 1000
402 ipari = 0
403
404C ALLOCATE (INBUF(SINBUF),STAT=IERR)
405C ALLOCATE (INBUF(0),STAT=IERR)
406C IF (IERR/=0) GOTO 1000
407C INBUF = 0
408
409 ALLOCATE (interfaces%INTBUF_TAB(ninter),stat=ierr)
410
411C
412C allocations structures Interface friction
413 ALLOCATE(interfaces%INTBUF_FRIC_TAB(ninterfric),stat=ierr)
414 IF (ierr/=0) GOTO 1000
415
416C ALLOCATE (T8(NINTER),STAT=IERR)
417C IF (IERR/=0) GOTO 1000
418
419 call allocate_rwall(rwall, nspmd)
420
421
422 ALLOCATE (iconx(siconx),stat=ierr)
423 IF (ierr/=0) GOTO 1000
424 iconx = 0
425
426 ALLOCATE (madprt(smadprt),stat=ierr)
427 IF (ierr/=0) GOTO 1000
428 madprt = 0
429
430 ALLOCATE (madsh4(smadsh4),stat=ierr)
431 IF (ierr/=0) GOTO 1000
432 madsh4 = 0
433
434 ALLOCATE (madsh3(smadsh3),stat=ierr)
435 IF (ierr/=0) GOTO 1000
436 madsh3 = 0
437
438 ALLOCATE (madsol(smadsol),stat=ierr)
439 IF (ierr/=0) GOTO 1000
440 madsol = 0
441
442 ALLOCATE (madnod(smadnod),stat=ierr)
443 IF (ierr/=0) GOTO 1000
444 madnod = 0
445
446 ALLOCATE (madclnod(madclnods),stat=ierr)
447 IF (ierr/=0) GOTO 1000
448 madclnod = 0
449
450 ALLOCATE (madfail(smadfail),stat=ierr)
451 IF (ierr/=0) GOTO 1000
452 madfail = 0
453 ALLOCATE (madidx(smadidx),stat=ierr)
454 IF (ierr/=0) GOTO 1000
455 madidx = 0
456
457
458 ALLOCATE (npby(snpby),stat=ierr)
459 IF (ierr/=0) GOTO 1000
460 npby = 0
461
462 ALLOCATE (npbyl(snpbyl),stat=ierr)
463 IF (ierr/=0) GOTO 1000
464 npbyl = 0
465
466 ALLOCATE (lpby(slpby),stat=ierr)
467 IF (ierr/=0) GOTO 1000
468 lpby = 0
469
470 ALLOCATE (lpbyl(slpbyl),stat=ierr)
471 IF (ierr/=0) GOTO 1000
472 lpbyl = 0
473
474 ALLOCATE (lrivet(slrivet),stat=ierr)
475 IF (ierr/=0) GOTO 1000
476 lrivet = 0
477
478 ALLOCATE (nstrf(snstrf),stat=ierr)
479 IF (ierr/=0) GOTO 1000
480 nstrf = 0
481
482 ALLOCATE (nom_sect(snom_sect),stat=ierr)
483 IF (ierr/=0) GOTO 1000
484 nom_sect = 0
485
486 ALLOCATE (ljoint(sljoint),stat=ierr)
487 IF (ierr/=0) GOTO 1000
488 ljoint = 0
489
490 ALLOCATE (nodpor(snodpor),stat=ierr)
491 IF (ierr/=0) GOTO 1000
492 nodpor = 0
493
494 ALLOCATE (monvol(smonvol),stat=ierr)
495 IF (ierr/=0) GOTO 1000
496 monvol = 0
497
498 ALLOCATE (lagbuf(slagbuf),stat=ierr)
499 IF (ierr/=0) GOTO 1000
500 lagbuf = 0
501
502 ALLOCATE (rthbuf(srthbuf),stat=ierr)
503 IF (ierr/=0) GOTO 1000
504 rthbuf = zero
505
506 ALLOCATE (nodes%BOUNDARY_ADD(2,siad_elem/2),stat=ierr)
507 IF (ierr/=0) GOTO 1000
508 nodes%BOUNDARY_ADD = 0
509
510 ALLOCATE (iad_rby(siad_rby),stat=ierr)
511 IF (ierr/=0) GOTO 1000
512 iad_rby = 0
513
514 ALLOCATE (iad_rby2(siad_rby2),stat=ierr)
515 IF (ierr/=0) GOTO 1000
516 iad_rby2 = 0
517
518 ALLOCATE (iad_i2m(siad_i2m),stat=ierr)
519 IF (ierr/=0) GOTO 1000
520 iad_i2m = 0
521
522 ALLOCATE (iadcj(siadcj),stat=ierr)
523 IF (ierr/=0) GOTO 1000
524 iadcj = 0
525
526 ALLOCATE (iad_rbm(siad_rbm),stat=ierr)
527 IF (ierr/=0) GOTO 1000
528 iad_rbm = 0
529
530 ALLOCATE (iad_rbm2(siad_rbm2),stat=ierr)
531 IF (ierr/=0) GOTO 1000
532 iad_rbm2 = 0
533
534 ALLOCATE (iad_rbe2(siad_rbe2),stat=ierr)
535 IF (ierr/=0) GOTO 1000
536 iad_rbe2 = 0
537
538 ALLOCATE (iad_sec(siad_sec),stat=ierr)
539 IF (ierr/=0) GOTO 1000
540 iad_sec = 0
541
542 ALLOCATE (iad_cut(siad_cut),stat=ierr)
543 IF (ierr/=0) GOTO 1000
544 iad_cut = 0
545C
546 siad_rbym = siad_rby
547 siad_rbym2 = siad_rby2
548 ALLOCATE (iad_rbym(siad_rbym),stat=ierr)
549 IF (ierr/=0) GOTO 1000
550 iad_rbym = 0
551C
552 ALLOCATE (iad_rbym2(siad_rbym2),stat=ierr)
553 IF (ierr/=0) GOTO 1000
554 iad_rbym2 = 0
555C
556 ALLOCATE (addcsrect(numnor+1),stat=ierr)
557 IF (ierr/=0) GOTO 1000
558 addcsrect = 0
559C
560 ALLOCATE (iad_frnor((nspmd+1)*ninter25),stat=ierr)
561 IF (ierr/=0) GOTO 1000
562 iad_frnor = 0
563C
564 ALLOCATE (interfaces%SPMD_ARRAYS%FR_EDG(2*nbddedgt),stat=ierr)
565 IF (ierr/=0) GOTO 1000
566 interfaces%SPMD_ARRAYS%FR_EDG = 0
567C
568 ALLOCATE (interfaces%SPMD_ARRAYS%IAD_FREDG((nspmd+1)*ninter25),stat=ierr)
569 IF (ierr/=0) GOTO 1000
570 interfaces%SPMD_ARRAYS%IAD_FREDG = 0
571C
572 ALLOCATE (fr_nor(nbddnort),stat=ierr)
573 IF (ierr/=0) GOTO 1000
574 fr_nor = 0
575C
576 ALLOCATE (procnor(nbccnor),stat=ierr)
577 IF (ierr/=0) GOTO 1000
578 procnor = 0
579 nodes%BOUNDARY_SIZE = sfr_elem
580 ALLOCATE (nodes%BOUNDARY(sfr_elem),stat=ierr)
581 IF (ierr/=0) GOTO 1000
582 nodes%BOUNDARY = 0
583
584 ALLOCATE (fr_rby(sfr_rby),stat=ierr)
585 IF (ierr/=0) GOTO 1000
586 fr_rby = 0
587
588 ALLOCATE (fr_rby2(sfr_rby2),stat=ierr)
589 IF (ierr/=0) GOTO 1000
590 fr_rby2 = 0
591
592 ALLOCATE (fr_i2m(sfr_i2m),stat=ierr)
593 IF (ierr/=0) GOTO 1000
594 fr_i2m = 0
595
596 ALLOCATE (fr_mv(sfr_mv),stat=ierr)
597 IF (ierr/=0) GOTO 1000
598 fr_mv = 0
599
600 ALLOCATE (fr_ll(sfr_ll),stat=ierr)
601 IF (ierr/=0) GOTO 1000
602 fr_ll = 0
603
604 ALLOCATE (fr_cj(sfr_cj),stat=ierr)
605 IF (ierr/=0) GOTO 1000
606 fr_cj = 0
607
608 ALLOCATE (fr_rbm(sfr_rbm),stat=ierr)
609 IF (ierr/=0) GOTO 1000
610 fr_rbm = 0
611
612 ALLOCATE (fr_rbm2(sfr_rbm2),stat=ierr)
613 IF (ierr/=0) GOTO 1000
614 fr_rbm2 = 0
615
616 ALLOCATE (fr_rbe2(sfr_rbe2),stat=ierr)
617 IF (ierr/=0) GOTO 1000
618 fr_rbe2 = 0
619
620 ALLOCATE (fr_sec(sfr_sec),stat=ierr)
621 IF (ierr/=0) GOTO 1000
622 fr_sec = 0
623
624 ALLOCATE (fr_cut(sfr_cut),stat=ierr)
625 IF (ierr/=0) GOTO 1000
626 fr_cut = 0
627
628 ALLOCATE (rg_cut(srg_cut),stat=ierr)
629 IF (ierr/=0) GOTO 1000
630 rg_cut = 0
631
632 ALLOCATE (fr_mad(sfr_mad),stat=ierr)
633 IF (ierr/=0) GOTO 1000
634 fr_mad = 0
635
636 ALLOCATE (fr_i18(sfr_i18),stat=ierr)
637 IF (ierr/=0) GOTO 1000
638 fr_i18 = 0
639
640 ALLOCATE (dd_r2r(sdd_r2r),stat=ierr)
641 IF (ierr/=0) GOTO 1000
642 dd_r2r = 0
643
644 ALLOCATE (dd_r2r_elem(sdd_r2r_elem),stat=ierr)
645 IF (ierr/=0) GOTO 1000
646 dd_r2r_elem = 0
647
648 ALLOCATE (fr_rbym(sfr_rbym),stat=ierr)
649 IF (ierr/=0) GOTO 1000
650 fr_rbym = 0
651
652 ALLOCATE (fr_rbym2(sfr_rbym2),stat=ierr)
653 IF (ierr/=0) GOTO 1000
654 fr_rbym2 = 0
655 ALLOCATE (iskwp(siskwp),stat=ierr)
656 IF (ierr/=0) GOTO 1000
657 iskwp = 0
658
659 ALLOCATE (nskwp(snskwp),stat=ierr)
660 IF (ierr/=0) GOTO 1000
661 nskwp = 0
662
663 ALLOCATE (iskwp_l(siskwp),stat=ierr)
664 IF (ierr/=0) GOTO 1000
665 iskwp_l = 0
666
667 ALLOCATE (isensp(sisensp),stat=ierr)
668 IF (ierr/=0) GOTO 1000
669 isensp = 0
670
671 ALLOCATE (nsensp(snsensp),stat=ierr)
672 IF (ierr/=0) GOTO 1000
673 nsensp = 0
674
675 ALLOCATE (iaccp(siaccp),stat=ierr)
676 IF (ierr/=0) GOTO 1000
677 iaccp = 0
678
679 ALLOCATE (naccp(snaccp),stat=ierr)
680 IF (ierr/=0) GOTO 1000
681 naccp = 0
682
683 ALLOCATE (igaup(sigaup),stat=ierr)
684 IF (ierr/=0) GOTO 1000
685 igaup = 0
686
687 ALLOCATE (ngaup(sngaup),stat=ierr)
688 IF (ierr/=0) GOTO 1000
689 ngaup = 0
690
691 ALLOCATE (fr_lagf(sfr_lagf),stat=ierr)
692 IF (ierr/=0) GOTO 1000
693 fr_lagf = 0
694
695C ALLOCATE (MAIN_PROC(SWEIGHT),STAT=IERR)
696C IF (IERR/=0) GOTO 1000
697C MAIN_PROC = 0
698
699C ALLOCATE (WEIGHT(SWEIGHT),STAT=IERR)
700C IF (IERR/=0) GOTO 1000
701C WEIGHT = 0
702
703C ALLOCATE (WEIGHT_MD(SWEIGHT),STAT=IERR)
704C IF (IERR/=0) GOTO 1000
705C WEIGHT_MD = 0
706
707 ALLOCATE (newfront(snewfront),stat=ierr)
708 IF (ierr/=0) GOTO 1000
709 newfront = 0
710
711C ALLOCATE (NODES%NODGLOB(SNODGLOB),STAT=IERR)
712C IF (IERR/=0) GOTO 1000
713C NODES%NODGLOB = 0
714
715 ALLOCATE (nbrcvois(snbrcvois),stat=ierr)
716 IF (ierr/=0) GOTO 1000
717 nbrcvois = 0
718
719 ALLOCATE (lnrcvois(slnrcvois),stat=ierr)
720 IF (ierr/=0) GOTO 1000
721 lnrcvois = 0
722
723 ALLOCATE (nbsdvois(snbsdvois),stat=ierr)
724 IF (ierr/=0) GOTO 1000
725 nbsdvois = 0
726
727 ALLOCATE (lnsdvois(slnsdvois),stat=ierr)
728 IF (ierr/=0) GOTO 1000
729 lnsdvois = 0
730
731 ALLOCATE (nercvois(snercvois),stat=ierr)
732 IF (ierr/=0) GOTO 1000
733 nercvois = 0
734
735 ALLOCATE (lercvois(slercvois),stat=ierr)
736 IF (ierr/=0) GOTO 1000
737 lercvois = 0
738
739 ALLOCATE (nesdvois(snesdvois),stat=ierr)
740 IF (ierr/=0) GOTO 1000
741 nesdvois = 0
742
743 ALLOCATE (lesdvois(slesdvois),stat=ierr)
744 IF (ierr/=0) GOTO 1000
745 lesdvois = 0
746
747 IF(ale_connectivity%has_ne_connect)THEN
748 ALLOCATE (ne_nercvois(nspmd + 1),stat=ierr)
749 IF (ierr/=0) GOTO 1000
750 ne_nercvois = 0
751
752 ALLOCATE (ne_nesdvois(nspmd + 1),stat=ierr)
753 IF (ierr/=0) GOTO 1000
754 ne_nesdvois = 0
755 ELSE
756 ALLOCATE (ne_nercvois(0) )
757 ALLOCATE (ne_nesdvois(0) )
758 ENDIF
759
760 ALLOCATE (npsegcom(snpsegcom),stat=ierr)
761 IF (ierr/=0) GOTO 1000
762 npsegcom = 0
763
764 ALLOCATE (lsegcom(slsegcom),stat=ierr)
765 IF (ierr/=0) GOTO 1000
766 lsegcom = 0
767
768 ALLOCATE (nporgeo(snporgeo),stat=ierr)
769 IF (ierr/=0) GOTO 1000
770 nporgeo = 0
771
772 ALLOCATE (lnodpor(slnodpor),stat=ierr)
773 IF (ierr/=0) GOTO 1000
774 lnodpor = 0
775
776 ALLOCATE (llagf(sllagf),stat=ierr)
777 IF (ierr/=0) GOTO 1000
778 llagf = 0
779
780! ALLOCATE (ICODT(SICODT),STAT=IERR)
781! IF (IERR/=0) GOTO 1000
782! ICODT = 0
783
784! ALLOCATE (ICODR(SICODR),STAT=IERR)
785! IF (IERR/=0) GOTO 1000
786! ICODR = 0
787
788
789 ALLOCATE (interfaces%PON%ISKY(sisky),stat=ierr)
790 IF (ierr/=0) GOTO 1000
791 interfaces%PON%ISKY = 0
792
793 ALLOCATE (element%PON%ADSKY(sadsky),stat=ierr)
794 IF (ierr/=0) GOTO 1000
795 element%PON%ADSKY = 0
796 element%PON%SADSKY = sadsky
797
798 ALLOCATE (element%PON%PROCNE(sprocne),stat=ierr)
799 IF (ierr/=0) GOTO 1000
800 element%PON%PROCNE = 0
801
802 ALLOCATE (addcni2(saddcni2),stat=ierr)
803 IF (ierr/=0) GOTO 1000
804 addcni2 = 0
805
806 ALLOCATE (procni2(sprocni2),stat=ierr)
807 IF (ierr/=0) GOTO 1000
808 procni2 = 0
809
810 ALLOCATE (element%PON%IADSDP(siadsdp),stat=ierr)
811 IF (ierr/=0) GOTO 1000
812 element%PON%IADSDP = 0
813
814 ALLOCATE (element%PON%IADRCP(siadrcp),stat=ierr)
815 IF (ierr/=0) GOTO 1000
816 element%PON%IADRCP = 0
817
818 CALL my_alloc(element%PON%IADS,8,numels)
819 CALL my_alloc(element%PON%IADS10,6,numels10)
820 CALL my_alloc(element%PON%IADS20,12,numels20)
821 CALL my_alloc(element%PON%IADS16,8,numels16)
822 CALL my_alloc(element%PON%IADQ,4,numelq)
823 CALL my_alloc(element%PON%IADC,4,numelc)
824 CALL my_alloc(element%PON%IAD_TRUSS,2,numelt)
825 CALL my_alloc(element%PON%IAD_BEAM,2,numelp)
826 CALL my_alloc(element%PON%IAD_SPRING,3,numelr)
827 CALL my_alloc(element%PON%IAD_TG,3,numeltg)
828 CALL my_alloc(element%PON%IAD_TG6,3,numeltg6)
829 CALL my_alloc(element%PON%IAD_MV,4,nskymv0)
830 CALL my_alloc(element%PON%IAD_CONLD,4,nconld)
831 CALL my_alloc(element%PON%IAD_CONV,4,glob_therm%NUMCONV)
832 CALL my_alloc(element%PON%IAD_RADIA,4,glob_therm%NUMRADIA)
833 CALL my_alloc(element%PON%IAD_LOADP,slloadp)
834 CALL my_alloc(element%PON%IAD_FXFLUX,4,glob_therm%NFXFLUX)
835
836
837C ALLOCATE (IADS(SIADS),STAT=IERR)
838C IF (IERR/=0) GOTO 1000
839C IADS = 0
840
841 ALLOCATE (iadwal(siadwal),stat=ierr)
842 IF (ierr/=0) GOTO 1000
843 iadwal = 0
844
845 ALLOCATE (iadrbk(siadrbk),stat=ierr)
846 IF (ierr/=0) GOTO 1000
847 iadrbk = 0
848
849 ALLOCATE (iadi2(siadi2),stat=ierr)
850 IF (ierr/=0) GOTO 1000
851 iadi2 = 0
852
853 ALLOCATE (iadmv2(siadmv2),stat=ierr)
854 IF (ierr/=0) GOTO 1000
855 iadmv2 = 0
856
857 ALLOCATE (iadmv3(siadmv3),stat=ierr)
858 IF (ierr/=0) GOTO 1000
859 iadmv3 = 0
860
861 ALLOCATE (iadll(siadll),stat=ierr)
862 IF (ierr/=0) GOTO 1000
863 iadll = 0
864
865 ALLOCATE (iadrbm(siadrbm),stat=ierr)
866 IF (ierr/=0) GOTO 1000
867 iadrbm = 0
868
869 ALLOCATE (iadi18(siadi18),stat=ierr)
870 IF (ierr/=0) GOTO 1000
871 iadi18 = 0
872 ALLOCATE (iadrbmk(siadrbmk),stat=ierr)
873 IF (ierr/=0) GOTO 1000
874 iadrbmk = 0
875 ALLOCATE (ilink(silink),stat=ierr)
876 IF (ierr/=0) GOTO 1000
877 ilink = 0
878
879 ALLOCATE (fr_rl(sfr_rl),stat=ierr)
880 IF (ierr/=0) GOTO 1000
881 fr_rl = 0
882
883 ALLOCATE (llink(sllink),stat=ierr)
884 IF (ierr/=0) GOTO 1000
885 llink = 0
886
887 ALLOCATE (iadrl(siadrl),stat=ierr)
888 IF (ierr/=0) GOTO 1000
889 iadrl = 0
890
891 ALLOCATE (linale(slinale+llinal),stat=ierr)
892 IF (ierr/=0) GOTO 1000
893 linale = 0
894
895 ALLOCATE (neflsw(sneflsw),stat=ierr)
896 IF (ierr/=0) GOTO 1000
897 neflsw = 0
898
899 ALLOCATE (nnflsw(snnflsw),stat=ierr)
900 IF (ierr/=0) GOTO 1000
901 nnflsw = 0
902
903 ALLOCATE (icut(sicut),stat=ierr)
904 IF (ierr/=0) GOTO 1000
905 icut = 0
906
907 ALLOCATE (igeo(sigeo),stat=ierr)
908 IF (ierr/=0) GOTO 1000
909 igeo = 0
910
911 ALLOCATE (ipm(sipm),stat=ierr)
912 IF (ierr/=0) GOTO 1000
913 ipm = 0
914
915 ALLOCATE (ipart_state(npart),stat=ierr)
916 IF (ierr/=0) GOTO 1000
917 ipart_state = 0
918
919 ALLOCATE (icontact(sicontact),stat=ierr)
920 IF (ierr/=0) GOTO 1000
921 icontact = 0
922
923 IF(nadmesh /= 0)THEN
924 ALLOCATE (sh4tree(ksh4tree,numelc),stat=ierr)
925 ierror = ierror+ierr
926 ALLOCATE (sh3tree(ksh3tree,numeltg),stat=ierr)
927 ierror = ierror+ierr
928 ALLOCATE (ipadmesh(kipadmesh,npart),stat=ierr)
929 ierror = ierror+ierr
930 ALLOCATE (sh4trim(abs(lsh4trim)),stat=ierr)
931 ierror = ierror+ierr
932 ALLOCATE (sh3trim(abs(lsh3trim)),stat=ierr)
933 ierror = ierror+ierr
934 ELSE
935 ALLOCATE(sh4tree(0,0))
936 ALLOCATE(sh3tree(0,0))
937 ALLOCATE(ipadmesh(0,0))
938 ALLOCATE(sh4trim(0))
939 ALLOCATE(sh3trim(0))
940 END IF
941C
942 ALLOCATE (ithvar(sithvar),stat=ierr)
943 IF (ierr/=0) GOTO 1000
944 ithvar = 0
945
946 ALLOCATE (icfield(sizfield*nloadc),stat=ierr)
947 IF (ierr/=0) GOTO 1000
948 icfield = 0
949
950 ALLOCATE (lcfield(slcfield),stat=ierr)
951 IF (ierr/=0) GOTO 1000
952 lcfield = 0
953
954 ALLOCATE (iloadp(sizloadp*nloadp),stat=ierr)
955 IF (ierr/=0) GOTO 1000
956 iloadp = 0
957
958 ALLOCATE (lloadp(slloadp),stat=ierr)
959 IF (ierr/=0) GOTO 1000
960 lloadp = 0
961
962 ALLOCATE(ibufssg_io(sibufssg_io),stat=ierr)
963 IF (ierr/=0) GOTO 1000
964 ibufssg_io = 0
965
966 IF(nsphsol/=0)THEN
967
968 ALLOCATE(sph2sol(numsph),stat=ierr)
969 IF (ierr/=0) GOTO 1000
970 sph2sol = 0
971
972 ALLOCATE(sol2sph(2*numels8),stat=ierr)
973 IF (ierr/=0) GOTO 1000
974 sol2sph = 0
975
976 ALLOCATE(irst(3*nsphsol),stat=ierr)
977 IF (ierr/=0) GOTO 1000
978 irst = 0
979
980 ALLOCATE(sol2sph_typ(numels8),stat=ierr)
981 IF (ierr/=0) GOTO 1000
982 sol2sph_typ = 0
983
984 ELSE
985
986 ALLOCATE(sph2sol(0),stat=ierr)
987 IF (ierr/=0) GOTO 1000
988 ALLOCATE(sol2sph(0),stat=ierr)
989 IF (ierr/=0) GOTO 1000
990 ALLOCATE(irst(0),stat=ierr)
991 IF (ierr/=0) GOTO 1000
992 ALLOCATE(sol2sph_typ(0),stat=ierr)
993 IF (ierr/=0) GOTO 1000
994
995 END IF
996
997 ALLOCATE (element%PON%FSKYD(sfskyd),stat=ierr)
998 IF (ierr/=0) GOTO 1000
999 element%PON%FSKYD = 0
1000
1001 ALLOCATE (ibcscyc(sibcscyc),stat=ierr)
1002 IF (ierr/=0) GOTO 1000
1003 ibcscyc = 0
1004
1005 ALLOCATE (lbcscyc(slbcscyc),stat=ierr)
1006 IF (ierr/=0) GOTO 1000
1007 lbcscyc = 0
1008
1009C -----------------------------------------------
1010C allocations flottantes
1011C -----------------------------------------------
1012! ALLOCATE (X(SX),STAT=IERR)
1013! IF (IERR/=0) GOTO 1000
1014! X = 0
1015
1016! ALLOCATE (D(SD),STAT=IERR)
1017! IF (IERR/=0) GOTO 1000
1018! D = 0
1019
1020! ALLOCATE (V(SV),STAT=IERR)
1021! IF (IERR/=0) GOTO 1000
1022! V = 0
1023
1024! ALLOCATE (VR(SVR),STAT=IERR)
1025! IF (IERR/=0) GOTO 1000
1026! VR = 0
1027
1028! ALLOCATE (DR(SDR),STAT=IERR)
1029! IF (IERR/=0) GOTO 1000
1030! DR = 0
1031
1032
1033 ALLOCATE (thke(sthke),stat=ierr)
1034 IF (ierr/=0) GOTO 1000
1035 thke = 0
1036
1037 ALLOCATE (dampr(sdampr),stat=ierr)
1038 IF (ierr/=0) GOTO 1000
1039 dampr = 0
1040
1041 ALLOCATE (damp(sdamp),stat=ierr)
1042 IF (ierr/=0) GOTO 1000
1043 damp = 0
1044
1045! ALLOCATE (MS(SMS),STAT=IERR)
1046! IF (IERR/=0) GOTO 1000
1047! MS = 0
1048!
1049! ALLOCATE (IN(SIN),STAT=IERR)
1050! IF (IERR/=0) GOTO 1000
1051! IN = 0
1052
1053 ALLOCATE (tf(stf),stat=ierr)
1054 IF (ierr/=0) GOTO 1000
1055 tf = 0
1056
1057 ALLOCATE (pm(spm),stat=ierr)
1058 IF (ierr/=0) GOTO 1000
1059 pm = 0
1060
1061 ALLOCATE (xframe(sxframe),stat=ierr)
1062 IF (ierr/=0) GOTO 1000
1063 xframe = 0
1064
1065 ALLOCATE (geo(sgeo),stat=ierr)
1066 IF (ierr/=0) GOTO 1000
1067 geo = 0
1068
1069 ALLOCATE (eani(seani),stat=ierr)
1070 IF (ierr/=0) GOTO 1000
1071 eani = 0
1072
1073 ALLOCATE (bufmat(sbufmat),stat=ierr)
1074 IF (ierr/=0) GOTO 1000
1075 bufmat = 0
1076
1077 ALLOCATE (bufgeo(sbufgeo),stat=ierr)
1078 IF (ierr/=0) GOTO 1000
1079 bufgeo = 0
1080
1081 ALLOCATE (bufsf(sbufsf),stat=ierr)
1082 IF (ierr/=0) GOTO 1000
1083 bufsf = 0
1084
1085 ALLOCATE (rbmpc(srbmpc),stat=ierr)
1086 IF (ierr/=0) GOTO 1000
1087 rbmpc = 0
1088
1089 ALLOCATE (gjbufr(sgjbufr),stat=ierr)
1090 IF (ierr/=0) GOTO 1000
1091 gjbufr = 0
1092
1093 ALLOCATE (w(sw),stat=ierr)
1094 IF (ierr/=0) GOTO 1000
1095 w = 0
1096
1097 ALLOCATE (veul(sveul),stat=ierr)
1098 IF (ierr/=0) GOTO 1000
1099 veul = 0
1100
1101 ALLOCATE (fill(sfill),stat=ierr)
1102 IF (ierr/=0) GOTO 1000
1103 fill = 0
1104
1105 ALLOCATE (dfill(sdfill),stat=ierr)
1106 IF (ierr/=0) GOTO 1000
1107 dfill = 0
1108
1109 ALLOCATE (alph(salph),stat=ierr)
1110 IF (ierr/=0) GOTO 1000
1111 alph = 0
1112
1113 ALLOCATE (wb(swb),stat=ierr)
1114 IF (ierr/=0) GOTO 1000
1115 wb = 0
1116
1117 ALLOCATE (dsave(sdsave),stat=ierr)
1118 IF (ierr/=0) GOTO 1000
1119 dsave = 0
1120
1121 ALLOCATE (asave(sasave),stat=ierr)
1122 IF (ierr/=0) GOTO 1000
1123 asave = 0
1124
1125 ALLOCATE (spbuf(sspbuf),stat=ierr)
1126 IF (ierr/=0) GOTO 1000
1127 spbuf = 0
1128
1129 ALLOCATE (vsphio(svsphio),stat=ierr)
1130 IF (ierr/=0) GOTO 1000
1131 vsphio = 0
1132
1133 ALLOCATE (sphveln(ssphveln),stat=ierr)
1134 IF (ierr/=0) GOTO 1000
1135 sphveln = 0
1136
1137 ALLOCATE (msnf(smsnf),stat=ierr)
1138 IF (ierr/=0) GOTO 1000
1139 msnf = 0
1140C
1141
1142 ALLOCATE (forc(sforc),stat=ierr)
1143 IF (ierr/=0) GOTO 1000
1144 forc = 0
1145
1146 ALLOCATE (vel(svel),stat=ierr)
1147 IF (ierr/=0) GOTO 1000
1148 vel = 0
1149
1150 ALLOCATE (fsav(sfsav),stat=ierr)
1151 IF (ierr/=0) GOTO 1000
1152 fsav = 0
1153
1154 ALLOCATE (tab_ump(7,taille),stat=ierr)
1155 IF (ierr/=0) GOTO 1000
1156 tab_ump = 0
1157
1158 ALLOCATE (poin_ump(nummat),stat=ierr)
1159 IF (ierr/=0) GOTO 1000
1160 poin_ump = 0
1161
1162 IF(ispmd==0) THEN
1163 ALLOCATE (cputime_mp_glob(nbr_gpmp,nspmd+1),stat=ierr)
1164 IF (ierr/=0) GOTO 1000
1165 cputime_mp_glob = 0
1166 ENDIF
1167
1168 ALLOCATE (cputime_mp(taille),stat=ierr)
1169 IF (ierr/=0) GOTO 1000
1170 cputime_mp = 0
1171
1172 ALLOCATE (tab_mat(stab_mat),stat=ierr)
1173 IF (ierr/=0) GOTO 1000
1174 tab_mat = zero
1175
1176 ALLOCATE (fzero(sfzero),stat=ierr)
1177 IF (ierr/=0) GOTO 1000
1178 fzero = 0
1179
1180 ALLOCATE (xlas(sxlas),stat=ierr)
1181 IF (ierr/=0) GOTO 1000
1182 xlas = 0
1183
1184 ALLOCATE (accelm(saccelm),stat=ierr)
1185 IF (ierr/=0) GOTO 1000
1186 accelm = 0
1187
1188 ALLOCATE (gauge(llgauge*nbgauge),stat=ierr)
1189 IF (ierr/=0) GOTO 1000
1190 gauge = 0
1191
1192 ALLOCATE (fbvel(sfbvel),stat=ierr)
1193 IF (ierr/=0) GOTO 1000
1194 fbvel = 0
1195
1196 ALLOCATE (factiv(lractiv*nactiv),stat=ierr)
1197 IF (ierr/=0) GOTO 1000
1198 factiv = 0
1199
1200 ALLOCATE (grav(sgrav),stat=ierr)
1201 IF (ierr/=0) GOTO 1000
1202 grav = 0
1203
1204 ALLOCATE (fr_wave(sfr_wave),stat=ierr)
1205 IF (ierr/=0) GOTO 1000
1206 fr_wave = 0
1207
1208 ALLOCATE (parts0(sparts0),stat=ierr)
1209 IF (ierr/=0) GOTO 1000
1210 parts0 = 0
1211
1212 ALLOCATE (elbuf(selbuf),stat=ierr)
1213 IF (ierr/=0) GOTO 1000
1214 elbuf = 0
1215
1216
1217 ALLOCATE (rby(srby),stat=ierr)
1218 IF (ierr/=0) GOTO 1000
1219 rby = 0
1220
1221 ALLOCATE (rbyl(srbyl),stat=ierr)
1222 IF (ierr/=0) GOTO 1000
1223 rbyl = 0
1224
1225 ALLOCATE (rivet(srivet),stat=ierr)
1226 IF (ierr/=0) GOTO 1000
1227 rivet = 0
1228
1229 ALLOCATE (secbuf(ssecbuf),stat=ierr)
1230 IF (ierr/=0) GOTO 1000
1231 secbuf = 0
1232
1233 ALLOCATE (volmon(svolmon),stat=ierr)
1234 IF (ierr/=0) GOTO 1000
1235 volmon = 0
1236
1237 ALLOCATE (lambda(slambda),stat=ierr)
1238 IF (ierr/=0) GOTO 1000
1239 lambda = 0
1240
1241 ALLOCATE (rconx(srconx),stat=ierr)
1242 IF (ierr/=0) GOTO 1000
1243 rconx = 0
1244
1245 ALLOCATE (rcontact(srcontact),stat=ierr)
1246 IF (ierr/=0) GOTO 1000
1247 rcontact = ep30
1248
1249 ALLOCATE (acontact(srcontact),stat=ierr)
1250 IF (ierr/=0) GOTO 1000
1251 acontact = ep30
1252
1253 ALLOCATE (pcontact(srcontact),stat=ierr)
1254 IF (ierr/=0) GOTO 1000
1255 pcontact = zero
1256
1257 ALLOCATE (wa(swa),stat=ierr)
1258 IF (ierr/=0) GOTO 1000
1259 wa = 0
1260
1261 ALLOCATE (fv(sfv),stat=ierr)
1262 IF (ierr/=0) GOTO 1000
1263 fv = 0
1264
1265! ALLOCATE (A(SA),STAT=IERR)
1266! IF (IERR/=0) GOTO 1000
1267! A = 0
1268!
1269! ALLOCATE (AR(SAR),STAT=IERR)
1270! IF (IERR/=0) GOTO 1000
1271! AR = 0
1272!
1273! ALLOCATE (STIFN(SSTIFN),STAT=IERR)
1274! IF (IERR/=0) GOTO 1000
1275! STIFN = 0
1276!
1277! ALLOCATE (VISCN(SVISCN),STAT=IERR)
1278! IF (IERR/=0) GOTO 1000
1279! VISCN = 0
1280!
1281! ALLOCATE (STIFR(SSTIFR),STAT=IERR)
1282! IF (IERR/=0) GOTO 1000
1283! STIFR = 0
1284
1285 ALLOCATE (partsav(spartsav),stat=ierr)
1286 IF (ierr/=0) GOTO 1000
1287 partsav = 0
1288
1289 ALLOCATE (element%PON%FSKY(8,sfsky/8),stat=ierr)
1290 IF (ierr/=0) GOTO 1000
1291 element%PON%FSKY = 0
1292 element%PON%SFSKY = sfsky
1293 element%PON%MAX_SFSKY = sfsky
1294
1295
1296 ALLOCATE (element%PON%FSKYM(sfskym),stat=ierr)
1297 IF (ierr/=0) GOTO 1000
1298 element%PON%FSKYM = 0
1299
1300 ALLOCATE (interfaces%PON%FSKYI(lskyi,nfskyi),stat=ierr)
1301 IF (ierr/=0) GOTO 1000
1302 interfaces%PON%FSKYI = 0
1303
1304 ALLOCATE (uwa(suwa),stat=ierr)
1305 IF (ierr/=0) GOTO 1000
1306 uwa = 0
1307
1308 ALLOCATE (val2(sval2),stat=ierr)
1309 IF (ierr/=0) GOTO 1000
1310 val2 = 0
1311
1312 ALLOCATE (phi(sphi),stat=ierr)
1313 IF (ierr/=0) GOTO 1000
1314 phi = 0
1315C
1316 ALLOCATE (phie(sphi),stat=ierr)
1317 IF (ierr/=0) GOTO 1000
1318 phie = zero
1319 ALLOCATE (por(sphi),stat=ierr)
1320 IF (ierr/=0) GOTO 1000
1321 por = zero
1322
1323 ALLOCATE (r(sr),stat=ierr)
1324 IF (ierr/=0) GOTO 1000
1325 r = 0
1326
1327 ALLOCATE (estif(sestif),stat=ierr)
1328 IF (ierr/=0) GOTO 1000
1329 estif = 0
1330
1331 ALLOCATE (crflsw(scrflsw),stat=ierr)
1332 IF (ierr/=0) GOTO 1000
1333 crflsw = 0
1334
1335 ALLOCATE (flsw(sflsw),stat=ierr)
1336 IF (ierr/=0) GOTO 1000
1337 flsw = 0
1338
1339! ALLOCATE (FANI(SFANI),STAT=IERR)
1340! IF (IERR/=0) GOTO 1000
1341! FANI = 0
1342
1343 isiz1=2
1344 isiz2=numelq+numeltg
1345 IF(n2d == 0)THEN
1346 isiz1=3
1347 isiz2=numels
1348 ENDIF
1349 !
1350 IF(output%DATA%FANI_CELL%IS_VORT_X_REQUESTED)THEN
1351 ALLOCATE (output%DATA%FANI_CELL%VORT_X(isiz2),stat=ierr)
1352 IF (ierr/=0) GOTO 1000
1353 output%DATA%FANI_CELL%VORT_X(:) = zero
1354 ENDIF
1355 IF(output%DATA%FANI_CELL%IS_VORT_Y_REQUESTED)THEN
1356 ALLOCATE (output%DATA%FANI_CELL%VORT_Y(isiz2),stat=ierr)
1357 IF (ierr/=0) GOTO 1000
1358 output%DATA%FANI_CELL%VORT_Y(:) = zero
1359 ENDIF
1360 IF(output%DATA%FANI_CELL%IS_VORT_Z_REQUESTED)THEN
1361 ALLOCATE (output%DATA%FANI_CELL%VORT_Z(isiz2),stat=ierr)
1362 IF (ierr/=0) GOTO 1000
1363 output%DATA%FANI_CELL%VORT_Z(:) = zero
1364 ENDIF
1365 !
1366 IF(output%DATA%FANI_CELL%IS_F18_FVM_REQUESTED)THEN
1367 ALLOCATE (output%DATA%FANI_CELL%F18(isiz1,isiz2),stat=ierr)
1368 IF (ierr/=0) GOTO 1000
1369 output%DATA%FANI_CELL%F18(:,:) = zero
1370 ENDIF
1371
1372 ALLOCATE (xcut(sxcut),stat=ierr)
1373 IF (ierr/=0) GOTO 1000
1374 xcut = 0
1375
1376! ALLOCATE (ANIN(SANIN),STAT=IERR)
1377! IF (IERR/=0) GOTO 1000
1378! ANIN = 0
1379
1380 ALLOCATE (tani(stani),stat=ierr)
1381 IF (ierr/=0) GOTO 1000
1382 tani = 0
1383
1384 ALLOCATE (secfcum(ssecfcum),stat=ierr)
1385 IF (ierr/=0) GOTO 1000
1386 secfcum = 0
1387
1388 ALLOCATE (wasph(swasph),stat=ierr)
1389 IF (ierr/=0) GOTO 1000
1390 wasph = 0
1391
1392 ALLOCATE (w16(sw16),stat=ierr)
1393 IF (ierr/=0) GOTO 1000
1394 w16 = 0
1395
1396 ALLOCATE (dretrio(sdretrio),stat=ierr)
1397 IF (ierr/=0) GOTO 1000
1398 dretrio = 0
1399
1400 ALLOCATE (lbvrs(slbvrs),stat=ierr)
1401 IF (ierr/=0) GOTO 1000
1402 lbvrs = 0
1403
1404 ALLOCATE (pv(spv),stat=ierr)
1405 IF (ierr/=0) GOTO 1000
1406 pv = 0
1407
1408 IF(nadmesh /= 0 .OR. irest_mselt/=0)THEN
1409
1410 ALLOCATE(msc(numelc),stat=ierr)
1411 ierror = ierror+ierr
1412
1413 ALLOCATE(inc(numelc),stat=ierr)
1414 ierror = ierror+ierr
1415
1416 ALLOCATE(mstg(numeltg),stat=ierr)
1417 ierror = ierror+ierr
1418
1419 ALLOCATE(intg(numeltg),stat=ierr)
1420 ierror = ierror+ierr
1421
1422 ALLOCATE(ptg(3,numeltg),stat=ierr)
1423 ierror = ierror+ierr
1424
1425 ELSE
1426
1427 ALLOCATE(msc(0))
1428 ALLOCATE(inc(0))
1429 ALLOCATE(mstg(0))
1430 ALLOCATE(intg(0))
1431 ALLOCATE(ptg(0,0))
1432
1433 END IF
1434
1435 IF(irest_mselt/=0)THEN
1436
1437 ALLOCATE(mssa(numels),stat=ierr)
1438 ierror = ierror+ierr
1439
1440 ALLOCATE(mstr(numelt),stat=ierr)
1441 ierror = ierror+ierr
1442
1443 ALLOCATE(msp(numelp),stat=ierr)
1444 ierror = ierror+ierr
1445
1446 ALLOCATE(msrt(numelr),stat=ierr)
1447 ierror = ierror+ierr
1448
1449 ELSE
1450
1451 ALLOCATE(mssa(0))
1452 ALLOCATE(mstr(0))
1453 ALLOCATE(msp(0))
1454 ALLOCATE(msrt(0))
1455
1456 END IF
1457
1458 IF(nadmesh /= 0)THEN
1459
1460 ALLOCATE(padmesh(kpadmesh,npart),stat=ierr)
1461 ierror = ierror+ierr
1462
1463 IF(glob_therm%ITHERM_FE > 0)THEN
1464
1465 ALLOCATE(mcpc(numelc),stat=ierr)
1466 ierror = ierror+ierr
1467
1468 ALLOCATE(mcptg(numeltg),stat=ierr)
1469 ierror = ierror+ierr
1470
1471 ELSE
1472
1473 ALLOCATE(mcpc(0),mcptg(0))
1474
1475 END IF
1476
1477 ELSE
1478 ALLOCATE(padmesh(0,0))
1479 ALLOCATE(mcpc(0),mcptg(0))
1480 END IF
1481
1482 IF(istatcnd/=0)THEN
1483 ALLOCATE(mscnd(numnod),incnd(numnod),stat=ierr)
1484 ierror = ierror+ierr
1485 ELSE
1486 ALLOCATE(mscnd(0),incnd(0))
1487 END IF
1488C--------------------------------------------
1489C rigid material
1490C
1491 IF(irigid_mat > 0) THEN
1492 ALLOCATE(rbym(nfrbym*nrbym),stat=ierr)
1493 IF (ierr/=0) GOTO 1000
1494 rbym = zero
1495 ALLOCATE(irbym(nirbym*nrbym),stat=ierr)
1496 IF (ierr/=0) GOTO 1000
1497 irbym = 0
1498 ALLOCATE(lnrbym(ngslnrbym),stat=ierr)
1499 IF (ierr/=0) GOTO 1000
1500 lnrbym = 0
1501 ALLOCATE(weight_rm(nrbym),stat=ierr)
1502 IF (ierr/=0) GOTO 1000
1503 weight_rm = 0
1504 ALLOCATE(icodrbym(nrbym*2),stat=ierr)
1505 IF (ierr/=0) GOTO 1000
1506 icodrbym = 0
1507 ELSE
1508 ALLOCATE(rbym(0),irbym(0), lnrbym(0),icodrbym(0))
1509 ALLOCATE(weight_rm(0))
1510 ENDIF
1511C--------------------------------------------
1512C thermal bc
1513 IF(glob_therm%NUMCONV > 0) THEN
1514 ALLOCATE(ibcv(glob_therm%NICONV*glob_therm%NUMCONV),stat=ierr)
1515 IF (ierr/=0) GOTO 1000
1516 ibcv = 0
1517 ALLOCATE(fconv(glob_therm%LFACTHER*glob_therm%NUMCONV),stat=ierr)
1518 IF (ierr/=0) GOTO 1000
1519 fconv = zero
1520 ELSE
1521 ALLOCATE(ibcv(0),fconv(0))
1522 ENDIF
1523
1524 IF(glob_therm%NUMRADIA > 0) THEN
1525 ALLOCATE(ibcr(glob_therm%NIRADIA*glob_therm%NUMRADIA),stat=ierr)
1526 IF (ierr/=0) GOTO 1000
1527 ibcr = 0
1528 ALLOCATE(fradia(glob_therm%LFACTHER*glob_therm%NUMRADIA),stat=ierr)
1529 IF (ierr/=0) GOTO 1000
1530 fradia = zero
1531 ELSE
1532 ALLOCATE(ibcr(0),fradia(0))
1533 ENDIF
1534
1535 IF(glob_therm%NFXFLUX > 0) THEN
1536 ALLOCATE(ibfflux(glob_therm%NITFLUX*glob_therm%NFXFLUX),stat=ierr)
1537 IF (ierr/=0) GOTO 1000
1538 ibfflux = 0
1539 ALLOCATE(fbfflux(glob_therm%LFACTHER*glob_therm%NFXFLUX),stat=ierr)
1540 IF (ierr/=0) GOTO 1000
1541 fbfflux = zero
1542 ELSE
1543 ALLOCATE(ibfflux(0),fbfflux(0))
1544 ENDIF
1545
1546 IF(glob_therm%NFXTEMP > 0) THEN
1547 ALLOCATE(ibftemp(glob_therm%NIFT*glob_therm%NFXTEMP),stat=ierr)
1548 IF (ierr/=0) GOTO 1000
1549 ibftemp = 0
1550 ALLOCATE(fbftemp(glob_therm%LFACTHER*glob_therm%NFXTEMP),stat=ierr)
1551 IF(ierr/=0) GOTO 1000
1552 fbftemp = zero
1553 ELSE
1554 ALLOCATE(ibftemp(0),fbftemp(0))
1555 ENDIF
1556C
1557 ALLOCATE (msf(sms),stat=ierr)
1558 IF (ierr/=0) GOTO 1000
1559 IF(ialelag > 0) THEN
1560 msf = zero
1561 ENDIF
1562C--------------------------------------------
1563C ply xfem for composite shell
1564 IF(iplyxfem > 0 ) THEN
1565 ALLOCATE(ms_ply(nplyxfe*nplymax),stat=ierr)
1566 IF (ierr/=0) GOTO 1000
1567 ms_ply = zero
1568 ALLOCATE(zi_ply(nplyxfe*nplymax),stat=ierr)
1569 IF (ierr/=0) GOTO 1000
1570 zi_ply = zero
1571 ALLOCATE(msz2(nplyxfe),stat=ierr)
1572 IF (ierr/=0) GOTO 1000
1573 msz2 = zero
1574 ALLOCATE(inod_pxfem(numnod),stat=ierr)
1575 IF (ierr/=0) GOTO 1000
1576 inod_pxfem = 0
1577 ALLOCATE(iel_pxfem(numelc),stat=ierr)
1578 IF (ierr/=0) GOTO 1000
1579 iel_pxfem = 0
1580 ALLOCATE(iadc_pxfem(4*eplyxfe),stat=ierr)
1581 IF (ierr/=0) GOTO 1000
1582 iadc_pxfem = 0
1583 ALLOCATE(adsky_pxfem(nplyxfe+1),stat=ierr)
1584 adsky_pxfem = 0
1585C
1586 ALLOCATE (procne_pxfem(sprocne_pxfe),stat=ierr)
1587 IF (ierr/=0) GOTO 1000
1588 procne_pxfem = 0
1589 ALLOCATE (iadsdp_pxfem(siadsdp),stat=ierr)
1590 IF (ierr/=0) GOTO 1000
1591 iadsdp_pxfem = 0
1592C
1593 ALLOCATE (iadrcp_pxfem(siadrcp),stat=ierr)
1594 IF (ierr/=0) GOTO 1000
1595 iadrcp_pxfem = 0
1596 ELSE
1597 ALLOCATE(ms_ply(0),zi_ply(0),iadc_pxfem(0),adsky_pxfem(0))
1598 ALLOCATE(msz2(0))
1599 ALLOCATE(inod_pxfem(0),iel_pxfem(0))
1600 ALLOCATE(procne_pxfem(0),iadsdp_pxfem(0),iadrcp_pxfem(0))
1601 ENDIF
1602 IF(iplybcs > 0) THEN
1603 ALLOCATE(icode_ply(numnod),stat=ierr)
1604 IF (ierr/=0) GOTO 1000
1605 icode_ply = 0
1606 ALLOCATE(icodt_ply(numnod),stat=ierr)
1607 IF (ierr/=0) GOTO 1000
1608 icodt_ply = 0
1609 ALLOCATE(iskew_ply(numnod),stat=ierr)
1610 IF (ierr/=0) GOTO 1000
1611 iskew_ply = 0
1612 ALLOCATE(ibc_ply(numnod),stat=ierr)
1613 IF (ierr/=0) GOTO 1000
1614 ibc_ply = 0
1615 ELSE
1616 ALLOCATE(icode_ply(0),icodt_ply(0),iskew_ply(0),ibc_ply(0))
1617 ENDIF
1618 IF(intplyxfem > 0 ) THEN
1619 ALLOCATE(wagap(2*numnod),stat=ierr)
1620 IF (ierr/=0) GOTO 1000
1621 wagap = zero
1622 ELSE
1623 ALLOCATE(wagap(0),stat=ierr)
1624 ENDIF
1625C--------------------------------------------
1626C ALLOCATE(MS0(NUMNOD),STAT=IERR)
1627C ALLOCATE(IN0(SIN),STAT=IERR)
1628 IF(idtmins_old==1) THEN
1629 ALLOCATE(admsms(numnod),stat=ierr)
1630 IF (ierr/=0) GOTO 1000
1631 END IF
1632 IF(idtmins_old==2) THEN
1633 ALLOCATE(dmelc(numelc) ,stat=ierr)
1634 IF (ierr/=0) GOTO 1000
1635 ALLOCATE(dmeltg(numeltg),stat=ierr)
1636 IF (ierr/=0) GOTO 1000
1637 ALLOCATE(dmels(numels) ,stat=ierr)
1638 IF (ierr/=0) GOTO 1000
1639 ALLOCATE(dmeltr(numelt) ,stat=ierr)
1640 IF (ierr/=0) GOTO 1000
1641 ALLOCATE(dmelp(numelp) ,stat=ierr)
1642 IF (ierr/=0) GOTO 1000
1643 ALLOCATE(dmelrt(numelr) ,stat=ierr)
1644 IF (ierr/=0) GOTO 1000
1645 END IF
1646 IF(idtmins_old/=0.OR.idtmins_int_old/=0) THEN
1647 ALLOCATE(res_sms(3*numnod),stat=ierr)
1648 IF (ierr/=0) GOTO 1000
1649 END IF
1650 IF(idtmins_old==2.OR.idtmins_int_old/=0) THEN
1651 ALLOCATE(diag_sms(numnod),stat=ierr)
1652 IF (ierr/=0) GOTO 1000
1653 ALLOCATE(dmint2(4*i2nsn25),stat=ierr)
1654 IF (ierr/=0) GOTO 1000
1655 END IF
1656 IF (isms_selec /= 0) THEN
1657 ALLOCATE(nativ0_sms(numnod),stat=ierr)
1658 IF (ierr/=0) GOTO 1000
1659 nativ0_sms = 0
1660 ELSE
1661 ALLOCATE(nativ0_sms(0) )
1662 ENDIF
1663C--------------------------------------------
1664C
1665 IF(nintstamp/=0.AND.anim_v(4)+outp_v(4)+h3d_data%N_VECT_CONT >0)THEN
1666 ALLOCATE(fcontg(3,numnodg),stat=ierr)
1667 IF (ierr/=0) GOTO 1000
1668 fcontg=zero
1669 ELSE
1670 ALLOCATE(fcontg(0,0),stat=ierr)
1671 END IF
1672C
1673 sfcont_max = 0
1674 IF(anim_v(26)+h3d_data%N_VECT_CONT_MAX >0.OR.ifcontmax > 0)THEN
1675 IF(nspmd > 1 .AND. nintstamp/=0) THEN
1676 IF(ispmd == 0) THEN
1677 ALLOCATE(fcont_max(3*numnodg),stat=ierr)
1678 IF (ierr/=0) GOTO 1000
1679 fcont_max=zero
1680 sfcont_max = numnodg
1681 ELSE
1682 ALLOCATE(fcont_max(0),stat=ierr)
1683 ENDIF
1684 ELSE
1685 ALLOCATE(fcont_max(3*numnod),stat=ierr)
1686 IF (ierr/=0) GOTO 1000
1687 fcont_max=zero
1688 sfcont_max = numnod
1689 ENDIF
1690 ELSE
1691 ALLOCATE(fcont_max(0),stat=ierr)
1692 END IF
1693
1694C
1695 IF(nintstamp/=0.AND.anim_v(12)+outp_v(12)+h3d_data%N_VECT_PCONT>0)THEN
1696 ALLOCATE(fncontg(3,numnodg),ftcontg(3,numnodg),stat=ierr)
1697 IF (ierr/=0) GOTO 1000
1698 fncontg=zero
1699 ftcontg=zero
1700 ELSE
1701 ALLOCATE(fncontg(0,0),ftcontg(0,0),stat=ierr)
1702 END IF
1703C
1704 spcont_max = 0
1705 IF(h3d_data%N_VECT_PCONT_MAX >0.OR.ifcontpmax > 0)THEN
1706 IF(nspmd > 1 .AND. nintstamp/=0) THEN
1707 IF(ispmd == 0) THEN
1708 ALLOCATE(ftcont_max(3*numnodg),fncont_max(3*numnodg),stat=ierr)
1709 IF (ierr/=0) GOTO 1000
1710 ftcont_max=zero
1711 fncont_max=zero
1712 spcont_max = numnodg
1713 ELSE
1714 ALLOCATE(fncont_max(0),ftcont_max(0),stat=ierr)
1715 ENDIF
1716 ELSE
1717 ALLOCATE(ftcont_max(3*numnod),fncont_max(3*numnod),stat=ierr)
1718 IF (ierr/=0) GOTO 1000
1719 ftcont_max=zero
1720 fncont_max=zero
1721 spcont_max = numnod
1722 ENDIF
1723 ELSE
1724 ALLOCATE(fncont_max(0),stat=ierr)
1725 ALLOCATE(ftcont_max(0),stat=ierr)
1726 END IF
1727C
1728 IF(h3d_data%N_VECT_CONT2_MAX >0.OR.ifcont2max > 0)THEN
1729 ALLOCATE(fcont2_max(3*numnod),stat=ierr)
1730 IF (ierr/=0) GOTO 1000
1731 fcont2_max=zero
1732 ELSE
1733 ALLOCATE(fcont2_max(0),stat=ierr)
1734 END IF
1735C
1736 IF(h3d_data%N_VECT_PCONT2_MAX >0.OR.ifcontp2max > 0)THEN
1737 ALLOCATE(ftcont2_max(3*numnod),fncont2_max(3*numnod),stat=ierr)
1738 ALLOCATE(npcont2_max(3*numnod),stat=ierr)
1739 IF (ierr/=0) GOTO 1000
1740 fncont2_max=zero
1741 ftcont2_max=zero
1742 npcont2_max=zero
1743 ELSE
1744 ALLOCATE(fncont2_max(0),stat=ierr)
1745 ALLOCATE(ftcont2_max(0),stat=ierr)
1746 ALLOCATE(npcont2_max(0),stat=ierr)
1747 END IF
1748C
1749C
1750 IF(h3d_data%N_VECT_CONT2_MIN >0.OR.ifcont2min > 0)THEN
1751 ALLOCATE(fcont2_min(3*numnod),stat=ierr)
1752 IF (ierr/=0) GOTO 1000
1753 fcont2_min=zero
1754 ELSE
1755 ALLOCATE(fcont2_min(0),stat=ierr)
1756 END IF
1757C
1758 IF(h3d_data%N_VECT_PCONT2_MIN >0.OR.ifcontp2min > 0)THEN
1759 ALLOCATE(ftcont2_min(3*numnod),fncont2_min(3*numnod),stat=ierr)
1760 ALLOCATE(npcont2_min(3*numnod),stat=ierr)
1761 IF (ierr/=0) GOTO 1000
1762 fncont2_min=zero
1763 ftcont2_min=zero
1764 npcont2_min=zero
1765 ELSE
1766 ALLOCATE(fncont2_min(0),stat=ierr)
1767 ALLOCATE(ftcont2_min(0),stat=ierr)
1768 ALLOCATE(npcont2_min(0),stat=ierr)
1769 END IF
1770C
1771 IF(h3d_data%N_VECT_CONT2M > 0)THEN
1772 ALLOCATE(mcont2(3,numnod),stat=ierr)
1773 IF (ierr/=0) GOTO 1000
1774 mcont2=zero
1775 mcont2=zero
1776 ELSE
1777 ALLOCATE(mcont2(3,0),stat=ierr)
1778 ALLOCATE(mcont2(3,0),stat=ierr)
1779 END IF
1780C
1781C----Frictional energy output when it is coming from restart
1782C
1783 IF(output%DATA%S_EFRICINT > 0)THEN
1784 IF(output%DATA%NINEFRIC > 0) THEN
1785 ALLOCATE(output%DATA%EFRIC(output%DATA%NINEFRIC,numnod))
1786 ELSE
1787 ALLOCATE(output%DATA%EFRIC(0,0))
1788 ENDIF
1789 IF(output%DATA%NINEFRIC_STAMP > 0) THEN
1790 ALLOCATE(output%DATA%EFRIC_STAMP(output%DATA%NINEFRIC_STAMP,numnodg))
1791 ELSE
1792 ALLOCATE(output%DATA%EFRIC_STAMP(0,0))
1793 ENDIF
1794 END IF
1795C
1796 IF(output%DATA%S_EFRIC > 0)THEN
1797 ALLOCATE(output%DATA%EFRICG(numnod))
1798 IF(nintstamp/=0) THEN
1799 ALLOCATE(output%DATA%EFRICG_STAMP(numnodg))
1800 ELSE
1801 ALLOCATE(output%DATA%EFRICG_STAMP(0))
1802 ENDIF
1803C ELSE
1804C ALLOCATE(EFRICG(0))
1805C ALLOCATE(EFRICG_STAMP(0))
1806 ENDIF
1807C
1808 IF(nintstamp/=0.AND.(anim_v(12)+outp_v(12)+h3d_data%N_VECT_PCONT>0.OR.
1809 . anim_v(4)+outp_v(4)+h3d_data%N_VECT_CONT >0))THEN
1810 ALLOCATE(indexcont(numnodg),tagcont(numnodg),stat=ierr)
1811 IF (ierr/=0) GOTO 1000
1812 indexcont=0
1813 tagcont=0
1814 ELSE
1815 ALLOCATE(indexcont(0),tagcont(0),stat=ierr)
1816 ENDIF
1817c
1818 IF(nintskidold >0)THEN
1819 IF(nintstamp/=0) THEN
1820 ALLOCATE(pskids(nintskidold,numnodg),stat=ierr)
1821 IF (ierr/=0) GOTO 1000
1822 ELSE
1823 ALLOCATE(pskids(nintskidold,numnod),stat=ierr)
1824 IF (ierr/=0) GOTO 1000
1825 ENDIF
1826 END IF
1827
1828 ! Stamping
1829 ! INTSTAMP structures allocation
1830 IF(nintstamp/=0)THEN
1831 ALLOCATE(intstamp(nintstamp),stat=ierr)
1832 IF (ierr/=0)THEN
1833 CALL ancmsg(msgid=20,anmode=aninfo)
1834 CALL arret(2)
1835 ENDIF
1836 CALL intstamp_zero(intstamp)
1837 ELSE
1838 ALLOCATE(intstamp(0))
1839 END IF
1840C
1841 ALLOCATE (cfield(lfacload*nloadc),stat=ierr)
1842 IF (ierr/=0) GOTO 1000
1843 cfield = 0
1844
1845 ALLOCATE (loadp(lfacload*nloadp),stat=ierr)
1846 IF (ierr/=0) GOTO 1000
1847 loadp = 0
1848
1849 IF (nintloadp>0) THEN
1850
1851 ALLOCATE (kloadpinter(ninter+1),stat=ierr)
1852 IF (ierr/=0) GOTO 1000
1853 kloadpinter = 0
1854
1855 ALLOCATE (loadpinter(ninter*nloadp_hyd),stat=ierr)
1856 IF (ierr/=0) GOTO 1000
1857 loadpinter = 0
1858
1859 ALLOCATE (dgaploadint(ninter*nloadp_hyd),stat=ierr)
1860 IF (ierr/=0) GOTO 1000
1861 dgaploadint = zero
1862 ELSE
1863 ALLOCATE (kloadpinter(0),stat=ierr)
1864 ALLOCATE (loadpinter(0),stat=ierr)
1865 ALLOCATE (dgaploadint(0),stat=ierr)
1866 ENDIF
1867C
1868C allocations structure CLUSTER
1869 IF (ncluster > 0) THEN
1870 ALLOCATE(cluster(ncluster),stat=ierr)
1871 IF (ierr /= 0) THEN
1872 CALL ancmsg(msgid=20,anmode=aninfo)
1873 CALL arret(2)
1874 ENDIF
1875 ELSE
1876 ALLOCATE(cluster(0))
1877 ENDIF
1878C--------------------------------------------
1879C xfem for layered shell (cracks)
1880 IF(icrack3d > 0) THEN
1881 ALLOCATE(inod_crkxfem(numnod),stat=ierr)
1882 IF (ierr/=0) GOTO 1000
1883 inod_crkxfem = 0
1884 ALLOCATE(iel_crkxfem(numelc+numeltg),stat=ierr)
1885 IF (ierr/=0) GOTO 1000
1886 iel_crkxfem = 0
1887 ALLOCATE(iadc_crkxfem(4*ecrkxfec+3*ecrkxfetg),stat=ierr)
1888 IF (ierr/=0) GOTO 1000
1889 iadc_crkxfem = 0
1890 ALLOCATE(adsky_crkxfem(ncrkxfe+1),stat=ierr)
1891 adsky_crkxfem = 0
1892 ALLOCATE (cne_crkxfem(sprocne_crkxfe),stat=ierr)
1893 IF (ierr/=0) GOTO 1000
1894 cne_crkxfem = 0
1895 ALLOCATE (procne_crkxfem(sprocne_crkxfe),stat=ierr)
1896 IF (ierr/=0) GOTO 1000
1897 procne_crkxfem = 0
1898 ALLOCATE (iadsdp_crkxfem(siadsdp),stat=ierr)
1899 IF (ierr/=0) GOTO 1000
1900 iadsdp_crkxfem = 0
1901 ALLOCATE (iadrcp_crkxfem(siadrcp),stat=ierr)
1902 IF (ierr/=0) GOTO 1000
1903 iadrcp_crkxfem = 0
1904 ALLOCATE (crknodiad(sprocne_crkxfe),stat=ierr)
1905 IF (ierr/=0) GOTO 1000
1906 crknodiad = 0
1907 ELSE
1908 ALLOCATE(iadc_crkxfem(0),adsky_crkxfem(0))
1909 ALLOCATE(inod_crkxfem(0),iel_crkxfem(0))
1910 ALLOCATE (cne_crkxfem(0))
1911 ALLOCATE(procne_crkxfem(0),iadsdp_crkxfem(0),
1912 . iadrcp_crkxfem(0),crknodiad(0))
1913 ENDIF
1914C
1915 IF(icrack3d > 0)THEN
1916 ALLOCATE(ibordnode(sibordnode),stat=ierr)
1917 IF (ierr/=0) GOTO 1000
1918 ibordnode = 0
1919C
1920 ALLOCATE(iedgesh(siedgesh),stat=ierr)
1921 IF (ierr/=0) GOTO 1000
1922 iedgesh = 0
1923C
1924 ALLOCATE (nodedge(2*numedges),stat=ierr)
1925 IF (ierr/=0) GOTO 1000
1926 nodedge = 0
1927C
1928 ALLOCATE (iedge(numedges),stat=ierr)
1929 IF (ierr/=0) GOTO 1000
1930 iedge = 0
1931C
1932 ALLOCATE (iad_edge(siad_edge),stat=ierr)
1933 IF (ierr/=0) GOTO 1000
1934 iad_edge = 0
1935C
1936 ALLOCATE (fr_edge(sfr_edge),stat=ierr)
1937 IF (ierr/=0) GOTO 1000
1938 fr_edge = 0
1939C
1940 ALLOCATE (fr_nbedge(sfr_nbedge),stat=ierr)
1941 IF (ierr/=0) GOTO 1000
1942 fr_nbedge = 0
1943C
1944 ALLOCATE (nodlevxf(ncrkxfe),stat=ierr)
1945 IF (ierr/=0) GOTO 1000
1946 nodlevxf = 0
1947C
1948 ALLOCATE (nodglobxfe(snodglobxfe),stat=ierr)
1949 IF (ierr/=0) GOTO 1000
1950 nodglobxfe = 0
1951 ELSE
1952 ALLOCATE(ibordnode(0))
1953 ALLOCATE(iedgesh(0))
1954 ALLOCATE(nodedge(0))
1955 ALLOCATE(iedge(0))
1956 ALLOCATE(iad_edge(0))
1957 ALLOCATE(fr_edge(0))
1958 ALLOCATE(fr_nbedge(0))
1959 ALLOCATE(nodlevxf(0))
1960 ALLOCATE(nodglobxfe(0))
1961 END IF
1962
1963 ALLOCATE (kxig3d(skxig3d),stat=ierr)
1964 IF (ierr/=0) GOTO 1000
1965 kxig3d = 0
1966
1967 ALLOCATE (ixig3d(sixig3d),stat=ierr)
1968 IF (ierr/=0) GOTO 1000
1969 ixig3d = 0
1970
1971 ALLOCATE (knot(sknot),stat=ierr)
1972 IF (ierr/=0) GOTO 1000
1973 knot = zero
1974
1975C ALLOCATE (WIGE(NUMNOD),STAT=IERR)
1976 ALLOCATE( wige(1), stat=ierr)
1977 IF (ierr/=0) GOTO 1000
1978 wige = zero
1979
1980 ALLOCATE (knotlocpc(sknotlocpc),stat=ierr)
1981 IF (ierr/=0) GOTO 1000
1982 knotlocpc = zero
1983
1984 ALLOCATE (knotlocel(sknotlocel),stat=ierr)
1985 IF (ierr/=0) GOTO 1000
1986 knotlocel = zero
1987C
1988 IF(icrack3d > 0)THEN
1989 ALLOCATE (elcutc(2*(numelc+numeltg)),stat=ierr)
1990 IF (ierr/=0) GOTO 1000
1991 elcutc = 0
1992C
1993 ALLOCATE (nodenr(ncrkxfe),stat=ierr)
1994 IF (ierr/=0) GOTO 1000
1995 nodenr = 0
1996C
1997 ALLOCATE (kxfenod2elc(ncrkxfe),stat=ierr)
1998 IF (ierr/=0) GOTO 1000
1999 kxfenod2elc = 0
2000C
2001 ALLOCATE (enrtag(numnod*ienrnod*nlevmax),stat=ierr)
2002 IF (ierr/=0) GOTO 1000
2003 enrtag = 0
2004C
2005 ELSE
2006 ALLOCATE (elcutc(1))
2007 ALLOCATE (nodenr(1))
2008 ALLOCATE (kxfenod2elc(1))
2009 ALLOCATE (enrtag(1))
2010 END IF
2011
2012 IF(alefvm_param%IEnabled == 1)THEN
2013C
2014 ALLOCATE (alefvm_buffer%WFEXT_CELL(numels) ,stat=ierr)
2015 IF (ierr /= 0) GOTO 1000
2016 alefvm_buffer%WFEXT_CELL(:) = zero
2017C
2018 ALLOCATE (alefvm_buffer%FEXT_CELL(3,numels) ,stat=ierr)
2019 IF (ierr /= 0) GOTO 1000
2020 alefvm_buffer%FEXT_CELL(:,:) = zero
2021C
2022 ALLOCATE (alefvm_buffer%FCELL(6,numels) ,stat=ierr)
2023 IF (ierr /= 0) GOTO 1000
2024 alefvm_buffer%FCELL(:,:) = zero
2025C
2026 ALLOCATE (alefvm_buffer%FINT_CELL(3,numels) ,stat=ierr)
2027 IF (ierr /= 0) GOTO 1000
2028 alefvm_buffer%FCELL(:,:) = zero
2029C
2030 ALLOCATE (alefvm_buffer%VERTEX(4,numnod) ,stat=ierr)
2031 IF (ierr /= 0) GOTO 1000
2032 alefvm_buffer%VERTEX(:,:) = zero
2033C
2034 ALLOCATE (alefvm_buffer%F_FACE(1:3,6,numels) ,stat=ierr)
2035 IF (ierr /= 0) GOTO 1000
2036 alefvm_buffer%F_FACE(:,:,:) = zero
2037
2038 ! index 2: 1 2 3 4 5 6
2039 ! index 1
2040 ! 1 rho ssp rho.c P 0 0
2041 ! 2 S1 S2 S3 S4 S5 S6
2042 ! 3 <U.n1> <U.n2> <U.n3> <U.n4> <U.n5> <U.n6>
2043
2044C
2045 CALL alefvm_init()
2046C
2047 ENDIF
2048
2049 IF (alemuscl_param%IALEMUSCL > 0 .AND. .NOT. multi_fvm%IS_USED) THEN
2050 IF (alemuscl_param%I_LAW == 51) THEN
2051 nbmat = trimat
2052 ELSEIF (alemuscl_param%I_LAW == 37) THEN
2053 nbmat = 1
2054 ELSE
2055 nbmat = 0
2056 ENDIF
2057 IF(nbmat>0)THEN
2058 ALLOCATE(alemuscl_buffer%VOLUME_FRACTION(numels + nsvois + numelq + nqvois,nbmat), stat = ierr)
2059 IF (ierr /= 0) GOTO 1000
2060 alemuscl_buffer%VOLUME_FRACTION(:, :) = zero
2061 ALLOCATE(alemuscl_buffer%NODE_MAX_VALUE(numnod,nbmat), stat = ierr)
2062 IF (ierr /= 0) GOTO 1000
2063 alemuscl_buffer%NODE_MAX_VALUE(:, :) = zero
2064 ALLOCATE(alemuscl_buffer%NODE_MIN_VALUE(numnod,nbmat), stat = ierr)
2065 IF (ierr /= 0) GOTO 1000
2066 alemuscl_buffer%NODE_MIN_VALUE(:, :) = zero
2067 ALLOCATE(alemuscl_buffer%GRAD(numels + nsvois + numelq + nqvois,3,nbmat), stat = ierr)
2068 IF (ierr /= 0) GOTO 1000
2069 alemuscl_buffer%GRAD(:, :, :) = zero
2070 ALLOCATE(alemuscl_buffer%ELCENTER(numels + nsvois + numelq + nqvois,3), stat = ierr)
2071 IF (ierr /= 0) GOTO 1000
2072 alemuscl_buffer%ELCENTER(:, :) = zero
2073 ENDIF
2074 ENDIF
2075
2076 !/EBCS/NRF VOLUME FRACTION ALLOCATION
2077 IF(multi_fvm%IS_USED)THEN
2078 nbmat = multi_fvm%NBMAT
2079 ELSEIF (alemuscl_param%I_LAW == 51) THEN
2080 nbmat = trimat
2081 ELSEIF (alemuscl_param%I_LAW == 37) THEN
2082 nbmat = 1
2083 ELSE
2084 nbmat = 0
2085 ENDIF
2086 CALL segvar%create(nbmat)
2087
2088
2089 IF (multi_fvm%IS_USED) THEN
2090 CALL multi_allocate(multi_fvm, h3d_data)
2091 ALLOCATE (alefvm_buffer%VERTEX(4,numnod) ,stat=ierr)
2092 IF (ierr /= 0) GOTO 1000
2093 alefvm_buffer%VERTEX(:,:) = zero
2094 ALLOCATE(multi_fvm%FVM_CONNECTIVITY%KVOIS(ale%GLOBAL%SIELVS), stat = ierr)
2095 IF (ierr /= 0) GOTO 1000
2096 multi_fvm%FVM_CONNECTIVITY%KVOIS = 0
2097 ENDIF
2098C
2099
2100C
2101 IF (numply > 0) THEN
2102 ALLOCATE (ply_info(3,numply),stat=ierr)
2103 IF (ierr /= 0) GOTO 1000
2104 ply_info = 0
2105 ELSE
2106 ALLOCATE(ply_info(0,0))
2107 END IF
2108C-------------Itet2 of S10
2109 IF (ns10e > 0) THEN
2110 ALLOCATE (itagnd(numnod),icnds10(3*ns10e),vnd(3*ns10e),stifnd(ns10e),stat=ierr)
2111 IF (ierr /= 0) GOTO 1000
2112 itagnd(1:numnod) = 0
2113 icnds10(1:3*ns10e) = 0
2114 vnd(1:3*ns10e) = zero
2115 stifnd(1:ns10e) = zero
2116 IF (idamp/=0.OR.ndamp>0.OR.istat/=0) THEN
2117 ALLOCATE (vmd(3*numnod),stat=ierr)
2118 IF (ierr /= 0) GOTO 1000
2119 vmd = zero
2120 END IF
2121 IF (iparit/=0.AND.iparit/=3) THEN
2122 ALLOCATE (fr_nbcccnd(2*nspmd+2),fr_nbcccnd1(2*nspmd+2),fskycnd(4*lcncnd),stat=ierr)
2123 IF (ierr /= 0) GOTO 1000
2124 fskycnd(1:4*lcncnd)=zero
2125 ELSE
2126 ALLOCATE(fr_nbcccnd(0),fr_nbcccnd1(0),fskycnd(0))
2127 END IF
2128 ELSE
2129 ALLOCATE(icnds10(0),itagnd(0))
2130 END IF
2131C----- part SPMD
2132 ALLOCATE (iad_cndm(siad_cndm),iad_cndm1(siad_cndm),stat=ierr)
2133 IF (ierr/=0) GOTO 1000
2134 iad_cndm = 0
2135 ALLOCATE (fr_cndm(sfr_cndm),fr_cndm1(sfr_cndm),stat=ierr)
2136 IF (ierr/=0) GOTO 1000
2137 fr_cndm = 0
2138C----- part P/ON
2139 ALLOCATE (addcncnd(saddcncnd),stat=ierr)
2140 IF (ierr/=0) GOTO 1000
2141 addcncnd = 0
2142 ALLOCATE (procncnd(sprocncnd),stat=ierr)
2143 IF (ierr/=0) GOTO 1000
2144 procncnd = 0
2145 ALLOCATE (iadcnd(siadcnd),stat=ierr)
2146 IF (ierr/=0) GOTO 1000
2147 iadcnd = 0
2148C--------2D Mass----------------------------
2149 IF(n2d/=0) THEN
2150 ALLOCATE(ms_2d(numnod),stat=ierr)
2151 IF (ierr/=0) GOTO 1000
2152 ELSE
2153 ALLOCATE(ms_2d(0))
2154 ENDIF
2155C-------shell pinching----------------------
2156C IF(NPINCH > 0) THEN
2157 ALLOCATE(pinch_data%XPINCH(3,max(1,npinch)))
2158 pinch_data%XPINCH = zero
2159 ALLOCATE(pinch_data%DPINCH(3,max(1,npinch)))
2160 pinch_data%DPINCH = zero
2161 ALLOCATE(pinch_data%VPINCH(3,max(1,npinch)))
2162 pinch_data%VPINCH = zero
2163 ALLOCATE(pinch_data%APINCH(3,max(1,pinch_data%SAPINCH)))
2164 pinch_data%APINCH = zero
2165 ALLOCATE(pinch_data%STIFPINCH(max(1,pinch_data%SAPINCH)))
2166 pinch_data%STIFPINCH = zero
2167 ALLOCATE(pinch_data%MSPINCH(max(1,pinch_data%SAPINCH)))
2168 pinch_data%MSPINCH = 0
2169C ENDIF
2170C------end shell pinching-------------------
2171C-------TAG_SKINS6----------------------
2172 ALLOCATE(tag_skins6(numels),stat=ierr)
2173 sxcell = 0
2174C-------ALE BUFFER----------------------
2175 IF ((iale > 0 .AND. ale%GRID%NWALE_RST == 6) ) THEN
2176 sxcell = numels + numelq + ne_nsvois + ne_nqvois
2177 ALLOCATE(xcell(3, sxcell),stat=ierr)
2178 IF (ierr/=0) GOTO 1000
2179 ALLOCATE(xface(3, 6, numels + numelq + ne_nsvois + ne_nqvois),stat=ierr)
2180 IF (ierr/=0) GOTO 1000
2181 ENDIF
2182C-------INTER18 BUFFER (IAUTO=1)--------
2183 IF (inter18_is_variable_gap_defined) THEN
2184 sxcell = numels + numelq + ne_nsvois + ne_nqvois
2185 IF(.NOT.ALLOCATED(xcell))ALLOCATE(xcell(3, sxcell),stat=ierr)
2186 IF (ierr/=0) GOTO 1000
2187 ENDIF
2188 IF(.NOT.ALLOCATED(xcell)) ALLOCATE(xcell(3,sxcell))
2189 IF(.NOT.ALLOCATED(xface)) ALLOCATE(xface(3,6,0))
2190 xcell(1:3,1:sxcell) = zero
2191C-------FXBODY (moved from radioss2.F) -----
2192 ALLOCATE (fxbipm(nbipm,nfxbody),stat=ierr)
2193 IF (ierr/=0) GOTO 1000
2194 fxbipm = 0
2195 ALLOCATE (fxbnod(lennod),stat=ierr)
2196 IF (ierr/=0) GOTO 1000
2197 fxbnod = 0
2198 ALLOCATE (fxbmod(6,lenmod),stat=ierr)
2199 IF (ierr/=0) GOTO 1000
2200 fxbmod = 0
2201 ALLOCATE (fxbglm(lenglm),stat=ierr)
2202 IF (ierr/=0) GOTO 1000
2203 fxbglm = 0
2204 ALLOCATE (fxbcpm(lencp),stat=ierr)
2205 IF (ierr/=0) GOTO 1000
2206 fxbcpm = 0
2207 ALLOCATE (fxbcps(lencp),stat=ierr)
2208 IF (ierr/=0) GOTO 1000
2209 fxbcps = 0
2210 ALLOCATE (fxblm(lenlm),stat=ierr)
2211 IF (ierr/=0) GOTO 1000
2212 fxblm = 0
2213 ALLOCATE (fxbfls(lenfls),stat=ierr)
2214 IF (ierr/=0) GOTO 1000
2215 fxbfls = 0
2216 ALLOCATE (fxbdls(lendls),stat=ierr)
2217 IF (ierr/=0) GOTO 1000
2218 fxbdls = 0
2219 ALLOCATE (fxbdep(lenvar),stat=ierr)
2220 IF (ierr/=0) GOTO 1000
2221 fxbdep = 0
2222 ALLOCATE (fxbvit(lenvar),stat=ierr)
2223 IF (ierr/=0) GOTO 1000
2224 fxbvit = 0
2225 ALLOCATE (fxbacc(lenvar),stat=ierr)
2226 IF (ierr/=0) GOTO 1000
2227 fxbacc = 0
2228 ALLOCATE (fxbrpm(lenrpm),stat=ierr)
2229 IF (ierr/=0) GOTO 1000
2230 fxbrpm = 0
2231 ALLOCATE (fxbelm(lenelm),stat=ierr)
2232 IF (ierr/=0) GOTO 1000
2233 fxbelm = 0
2234 ALLOCATE (fxbsig(lensig),stat=ierr)
2235 IF (ierr/=0) GOTO 1000
2236 fxbsig = 0
2237 ALLOCATE (fxbgrvi(lengrvi),stat=ierr)
2238 IF (ierr/=0) GOTO 1000
2239 fxbgrvi = 0
2240 ALLOCATE (fxbgrvr(lengrvr),stat=ierr)
2241 IF (ierr/=0) GOTO 1000
2242 fxbgrvr = 0
2243C-------EIGEN MODES (moved from radioss2.F) -----
2244 ALLOCATE (eigipm(neipm,neig),stat=ierr)
2245 IF (ierr/=0) GOTO 1000
2246 eigipm = 0
2247 ALLOCATE (eigrpm(nerpm,neig),stat=ierr)
2248 IF (ierr/=0) GOTO 1000
2249 eigrpm = 0
2250 ALLOCATE (eigibuf(leibuf),stat=ierr)
2251 IF (ierr/=0) GOTO 1000
2252 eigibuf = 0
2253C-------Seatbelt structures -----
2254 ALLOCATE (slipring(nslipring),stat=ierr)
2255 IF (ierr/=0) GOTO 1000
2256C
2257 ALLOCATE (retractor(nretractor),stat=ierr)
2258 IF (ierr/=0) GOTO 1000
2259C
2260 IF (n_anchor_remote > 0) THEN
2261 ALLOCATE (anchor_remote%ADD_PROC(nspmd+1),stat=ierr)
2262 IF (ierr/=0) GOTO 1000
2263 ALLOCATE (anchor_remote%NODE(n_anchor_remote),stat=ierr)
2264 IF (ierr/=0) GOTO 1000
2265 ENDIF
2266 IF (n_anchor_remote_send > 0) THEN
2267 ALLOCATE (anchor_remote_send%ADD_PROC(nspmd+1),stat=ierr)
2268 IF (ierr/=0) GOTO 1000
2269 ALLOCATE (anchor_remote_send%NODE(n_anchor_remote_send),stat=ierr)
2270 IF (ierr/=0) GOTO 1000
2271 ENDIF
2272C-------TMAX(H3D) -----
2273 ALLOCATE (tm_dis(lmax_dis*numnod),stat=ierr)
2274 IF (ierr/=0) GOTO 1000
2275 ALLOCATE (tm_vel(lmax_vel*numnod),stat=ierr)
2276 IF (ierr/=0) GOTO 1000
2277 ALLOCATE (tm_nsig1(lmax_nsig*numnod),stat=ierr)
2278 IF (ierr/=0) GOTO 1000
2279 ALLOCATE (tm_nstra1(lmax_nstra*numnod),stat=ierr)
2280 IF (ierr/=0) GOTO 1000
2281 ALLOCATE (tm_nsig3(lmax_nsig*numnod),stat=ierr)
2282 IF (ierr/=0) GOTO 1000
2283 ALLOCATE (tm_nstra3(lmax_nstra*numnod),stat=ierr)
2284 IF (ierr/=0) GOTO 1000
2285 IF (lmax_dis > 0) THEN
2286 ALLOCATE (tm_pdis(numnod),stat=ierr)
2287 IF (ierr/=0) GOTO 1000
2288 ENDIF
2289 IF (lmax_vel > 0) THEN
2290 ALLOCATE (tm_pvel(numnod),stat=ierr)
2291 IF (ierr/=0) GOTO 1000
2292 ENDIF
2293 IF (lmax_nsig > 0) THEN
2294 ALLOCATE (tm_pnsig(2*numnod),stat=ierr)
2295 IF (ierr/=0) GOTO 1000
2296 ENDIF
2297 IF (lmax_nstra > 0) THEN
2298 ALLOCATE (tm_pnstra(2*numnod),stat=ierr)
2299 IF (ierr/=0) GOTO 1000
2300 ENDIF
2301 IF ((lmax_nsig+lmax_nstra)>0) THEN
2302 ALLOCATE(gpstmp(6*numnod),p2tmp(2*numnod),stat=ierr)
2303 IF (ierr/=0) GOTO 1000
2304 END IF
2305 IF (nconld > 0) THEN
2306 ALLOCATE (dpl0cld(6*nconld),stat=ierr)
2307 IF (ierr/=0) GOTO 1000
2308 dpl0cld = zero
2309 ALLOCATE (vel0cld(6*nconld),stat=ierr)
2310 IF (ierr/=0) GOTO 1000
2311 vel0cld = zero
2312 ELSE
2313 ALLOCATE(dpl0cld(0),vel0cld(0))
2314 END IF
2315C-------/DAMP/VREL----------------------
2316 ALLOCATE (id_damp_vrel(ndamp_vrel),stat=ierr)
2317 IF (ierr/=0) GOTO 1000
2318 ALLOCATE (fr_damp_vrel(ndamp_vrel*(nspmd+2)),stat=ierr)
2319 IF (ierr/=0) GOTO 1000
2320
2321 ! Skew
2322 CALL my_alloc(skews%SKEW,skews%N_SKEW_VAR,skews%TOTAL_SKEW_NUMBER)
2323
2324C DEBUG MEMORY ALLOCATIONS
2325C
2326 IF(debug(6)==1)THEN
2327 CALL sz_print()
2328 END IF
2329C
2330 RETURN
2331 1000 CONTINUE
2332 ierror = ierror + ierr
2333 ierr = ierr0
2334 IF (ierror/=0) THEN
2335 CALL ancmsg(msgid=20,anmode=aninfo)
2336 CALL arret(2)
2337 END IF
2338
alefvm_init
subroutine alefvm_init()
Definition alefvm_init.F:31
sz_print
subroutine sz_print()
Definition arralloc.F:2356
max
#define max(a, b)
Definition macros.h:21
multi_allocate
subroutine multi_allocate(multi_fvm, h3d_data)
Definition multi_allocate.F:36
ale_connectivity_mod
Definition ale_connectivity_mod.F:225
ale_mod
Definition ale_mod.F:150
ale_mod::ale
type(ale_) ale
Definition ale_mod.F:253
aleanim_mod
Definition aleanim_mod.F:39
alefvm_mod
Definition alefvm_mod.F:88
alefvm_mod::alefvm_buffer
type(alefvm_buffer_), target alefvm_buffer
Definition alefvm_mod.F:120
alefvm_mod::alefvm_param
type(alefvm_param_), target alefvm_param
Definition alefvm_mod.F:121
alemuscl_mod
Definition alemuscl_mod.F:55
alemuscl_mod::alemuscl_param
type(alemuscl_param_) alemuscl_param
Definition alemuscl_mod.F:76
alemuscl_mod::alemuscl_buffer
type(alemuscl_buffer_) alemuscl_buffer
Definition alemuscl_mod.F:75
cluster_mod
Definition cluster_mod.F:40
damp_mod
Definition damp_mod.F:33
damp_mod::id_damp_vrel
integer, dimension(:), allocatable id_damp_vrel
Definition damp_mod.F:41
damp_mod::fr_damp_vrel
integer, dimension(:), allocatable fr_damp_vrel
Definition damp_mod.F:42
damp_mod::ndamp_vrel
integer ndamp_vrel
Definition damp_mod.F:44
drape_mod
Definition drape_mod.F:54
ecnd_mod
Definition ecdn_mod.F:34
ecnd_mod::iad_cndm1
integer, dimension(:), pointer iad_cndm1
Definition ecdn_mod.F:48
ecnd_mod::fr_nbcccnd1
integer, dimension(:), pointer fr_nbcccnd1
Definition ecdn_mod.F:57
ecnd_mod::iadcnd
integer, dimension(:), pointer iadcnd
Definition ecdn_mod.F:49
ecnd_mod::fr_cndm
integer, dimension(:), pointer fr_cndm
Definition ecdn_mod.F:47
ecnd_mod::fr_cndm1
integer, dimension(:), pointer fr_cndm1
Definition ecdn_mod.F:48
ecnd_mod::itagnd
integer, dimension(:), pointer itagnd
Definition ecdn_mod.F:54
ecnd_mod::procncnd
integer, dimension(:), pointer procncnd
Definition ecdn_mod.F:49
ecnd_mod::icnds10
integer, dimension(:), pointer icnds10
Definition ecdn_mod.F:42
ecnd_mod::addcncnd
integer, dimension(:), pointer addcncnd
Definition ecdn_mod.F:49
ecnd_mod::iad_cndm
integer, dimension(:), pointer iad_cndm
Definition ecdn_mod.F:47
ecnd_mod::fr_nbcccnd
integer, dimension(:), pointer fr_nbcccnd
Definition ecdn_mod.F:57
eig_mod
Definition eig_mod.F:32
eig_mod::eigibuf
integer, dimension(:), allocatable eigibuf
Definition eig_mod.F:41
eig_mod::eigipm
integer, dimension(:,:), allocatable eigipm
Definition eig_mod.F:39
fxb_mod
Definition fxb_mod.F:32
fxb_mod::fxbipm
integer, dimension(:,:), allocatable fxbipm
Definition fxb_mod.F:39
fxb_mod::fxbnod
integer, dimension(:), allocatable fxbnod
Definition fxb_mod.F:41
fxb_mod::fxbelm
integer, dimension(:), allocatable fxbelm
Definition fxb_mod.F:41
fxb_mod::fxbgrvi
integer, dimension(:), allocatable fxbgrvi
Definition fxb_mod.F:41
h3d_mod
Definition h3d_mod.F:311
intstamp_glob_mod
Definition intstamp_glob_mod.F:30
intstamp_glob_mod::intstamp
type(intstamp_data), dimension(:), allocatable intstamp
Definition intstamp_glob_mod.F:40
intstamp_glob_mod::indexcont
integer, dimension(:), allocatable indexcont
Definition intstamp_glob_mod.F:62
intstamp_glob_mod::tagcont
integer, dimension(:), allocatable tagcont
Definition intstamp_glob_mod.F:62
message_mod
Definition message_mod.F:1257
outmax_mod
Definition outmax_mod.F:52
outmax_mod::sfcont_max
integer sfcont_max
Definition outmax_mod.F:68
outmax_mod::ifcontp2max
integer ifcontp2max
Definition outmax_mod.F:69
outmax_mod::lmax_vel
integer lmax_vel
Definition outmax_mod.F:61
outmax_mod::ifcontmax
integer ifcontmax
Definition outmax_mod.F:69
outmax_mod::ifcont2max
integer ifcont2max
Definition outmax_mod.F:69
outmax_mod::ifcontp2min
integer ifcontp2min
Definition outmax_mod.F:69
outmax_mod::lmax_nstra
integer lmax_nstra
Definition outmax_mod.F:63
outmax_mod::ifcontpmax
integer ifcontpmax
Definition outmax_mod.F:69
outmax_mod::lmax_dis
integer lmax_dis
Definition outmax_mod.F:60
outmax_mod::lmax_nsig
integer lmax_nsig
Definition outmax_mod.F:62
outmax_mod::spcont_max
integer spcont_max
Definition outmax_mod.F:68
outmax_mod::ifcont2min
integer ifcont2min
Definition outmax_mod.F:69
pinchtype_mod
Definition pinchtype_mod.F:69
pinchtype_mod::npinch
integer npinch
Definition pinchtype_mod.F:73
restmod::poin_ump
integer, dimension(:), allocatable poin_ump
Definition restart_mod.F:151
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_nbedge
integer, dimension(:), allocatable fr_nbedge
Definition restart_mod.F:83
restmod::iadrbmk
integer, dimension(:), allocatable iadrbmk
Definition restart_mod.F:90
restmod::fr_mad
integer, dimension(:), allocatable fr_mad
Definition restart_mod.F:83
restmod::ibcv
integer, dimension(:), allocatable ibcv
Definition restart_mod.F:106
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::fr_rl
integer, dimension(:), allocatable fr_rl
Definition restart_mod.F:83
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::kxig3d
integer, dimension(:), allocatable kxig3d
Definition restart_mod.F:60
restmod::iadmv3
integer, dimension(:), allocatable iadmv3
Definition restart_mod.F:83
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::nodenr
integer, dimension(:), allocatable nodenr
Definition restart_mod.F:83
restmod::nativ0_sms
integer, dimension(:), allocatable nativ0_sms
Definition restart_mod.F:90
restmod::newfront
integer, dimension(:), allocatable newfront
Definition restart_mod.F:83
restmod::iadc_crkxfem
integer, dimension(:), allocatable iadc_crkxfem
Definition restart_mod.F:57
restmod::nodpor
integer, dimension(:), allocatable nodpor
Definition restart_mod.F:60
restmod::ilink
integer, dimension(:), allocatable ilink
Definition restart_mod.F:83
restmod::iadrcp_pxfem
integer, dimension(:), allocatable iadrcp_pxfem
Definition restart_mod.F:57
restmod::ibc_ply
integer, dimension(:), allocatable ibc_ply
Definition restart_mod.F:57
restmod::llink
integer, dimension(:), allocatable llink
Definition restart_mod.F:83
restmod::madclnod
integer, dimension(:), allocatable madclnod
Definition restart_mod.F:57
restmod::ipadmesh
integer, dimension(:,:), allocatable ipadmesh
Definition restart_mod.F:181
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::ibcr
integer, dimension(:), allocatable ibcr
Definition restart_mod.F:106
restmod::ne_nercvois
integer, dimension(:), allocatable ne_nercvois
Definition restart_mod.F:90
restmod::iadmv2
integer, dimension(:), allocatable iadmv2
Definition restart_mod.F:83
restmod::neflsw
integer, dimension(:), allocatable neflsw
Definition restart_mod.F:83
restmod::ixig3d
integer, dimension(:), allocatable ixig3d
Definition restart_mod.F:60
restmod::linale
integer, dimension(:), allocatable linale
Definition restart_mod.F:83
restmod::cluster
type(cluster_), dimension(:), allocatable cluster
Definition restart_mod.F:151
restmod::iactiv
integer, dimension(:), allocatable iactiv
Definition restart_mod.F:60
restmod::crknodiad
integer, dimension(:), allocatable crknodiad
Definition restart_mod.F:57
restmod::ibcslag
integer, dimension(:), allocatable ibcslag
Definition restart_mod.F:60
restmod::icodt_ply
integer, dimension(:), allocatable icodt_ply
Definition restart_mod.F:90
restmod::ibufssg_io
integer, dimension(:), allocatable ibufssg_io
Definition restart_mod.F:57
restmod::sh4tree
integer, dimension(:,:), allocatable sh4tree
Definition restart_mod.F:175
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::sh4trim
integer, dimension(:), allocatable sh4trim
Definition restart_mod.F:185
restmod::addcsrect
integer, dimension(:), allocatable addcsrect
Definition restart_mod.F:83
restmod::ipm
integer, dimension(:), allocatable ipm
Definition restart_mod.F:83
restmod::ipart
integer, dimension(:), allocatable, target ipart
Definition restart_mod.F:60
restmod::iadwal
integer, dimension(:), allocatable iadwal
Definition restart_mod.F:83
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::icodrbym
integer, dimension(:), allocatable icodrbym
Definition restart_mod.F:83
restmod::iad_rbm
integer, dimension(:), allocatable iad_rbm
Definition restart_mod.F:83
restmod::iskew_ply
integer, dimension(:), allocatable iskew_ply
Definition restart_mod.F:90
restmod::nnflsw
integer, dimension(:), allocatable nnflsw
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::ibordnode
integer, dimension(:), allocatable ibordnode
Definition restart_mod.F:83
restmod::sh3trim
integer, dimension(:), allocatable sh3trim
Definition restart_mod.F:185
restmod::iadrbk
integer, dimension(:), allocatable iadrbk
Definition restart_mod.F:83
restmod::iecran
integer, dimension(:), allocatable iecran
Definition restart_mod.F:57
restmod::iedgesh
integer, dimension(:), allocatable, target iedgesh
Definition restart_mod.F:83
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::ibftemp
integer, dimension(:), allocatable ibftemp
Definition restart_mod.F:106
restmod::ibfv
integer, dimension(:), allocatable ibfv
Definition restart_mod.F:60
restmod::iaccp
integer, dimension(:), allocatable iaccp
Definition restart_mod.F:83
restmod::iel_crkxfem
integer, dimension(:), allocatable, target iel_crkxfem
Definition restart_mod.F:83
restmod::iadi18
integer, dimension(:), allocatable iadi18
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::inod_pxfem
integer, dimension(:), allocatable inod_pxfem
Definition restart_mod.F:83
restmod::dd_r2r_elem
integer, dimension(:), allocatable dd_r2r_elem
Definition restart_mod.F:57
restmod::kloadpinter
integer, dimension(:), allocatable kloadpinter
Definition restart_mod.F:60
restmod::ixr
integer, dimension(:), allocatable ixr
Definition restart_mod.F:60
restmod::sh3tree
integer, dimension(:,:), allocatable sh3tree
Definition restart_mod.F:175
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::adsky_crkxfem
integer, dimension(:), allocatable adsky_crkxfem
Definition restart_mod.F:57
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::kxfenod2elc
integer, dimension(:), allocatable kxfenod2elc
Definition restart_mod.F:83
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::inod_crkxfem
integer, dimension(:), allocatable inod_crkxfem
Definition restart_mod.F:83
restmod::nporgeo
integer, dimension(:), allocatable nporgeo
Definition restart_mod.F:83
restmod::procne_crkxfem
integer, dimension(:), allocatable procne_crkxfem
Definition restart_mod.F:57
restmod::fr_rbm2
integer, dimension(:), allocatable fr_rbm2
Definition restart_mod.F:83
restmod::iadsdp_pxfem
integer, dimension(:), allocatable iadsdp_pxfem
Definition restart_mod.F:57
restmod::kxsp
integer, dimension(:), allocatable kxsp
Definition restart_mod.F:60
restmod::neth
integer, dimension(:), allocatable neth
Definition restart_mod.F:60
restmod::enrtag
integer, dimension(:), allocatable enrtag
Definition restart_mod.F:83
restmod::nodlevxf
integer, dimension(:), allocatable nodlevxf
Definition restart_mod.F:83
restmod::loadpinter
integer, dimension(:), allocatable loadpinter
Definition restart_mod.F:60
restmod::elcutc
integer, dimension(:), allocatable elcutc
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::icut
integer, dimension(:), allocatable icut
Definition restart_mod.F:83
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::cne_crkxfem
integer, dimension(:), allocatable cne_crkxfem
Definition restart_mod.F:57
restmod::iloadp
integer, dimension(:), allocatable, target iloadp
Definition restart_mod.F:60
restmod::iadcj
integer, dimension(:), allocatable iadcj
Definition restart_mod.F:83
restmod::iadsdp_crkxfem
integer, dimension(:), allocatable iadsdp_crkxfem
Definition restart_mod.F:57
restmod::ngaup
integer, dimension(:), allocatable ngaup
Definition restart_mod.F:83
restmod::lnrbym
integer, dimension(:), allocatable lnrbym
Definition restart_mod.F:83
restmod::nod2sp
integer, dimension(:), allocatable nod2sp
Definition restart_mod.F:60
restmod::adsky_pxfem
integer, dimension(:), allocatable adsky_pxfem
Definition restart_mod.F:57
restmod::nodglobxfe
integer, dimension(:), allocatable nodglobxfe
Definition restart_mod.F:83
restmod::weight_rm
integer, dimension(:), allocatable weight_rm
Definition restart_mod.F:57
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::bufgeo
double precision, dimension(:), allocatable bufgeo
Definition restart_mod.F:116
restmod::madsol
integer, dimension(:), pointer madsol
Definition restart_mod.F:108
restmod::fasolfr
integer, dimension(:), allocatable fasolfr
Definition restart_mod.F:83
restmod::iadi2
integer, dimension(:), allocatable iadi2
Definition restart_mod.F:83
restmod::npc
integer, dimension(:), allocatable, target npc
Definition restart_mod.F:60
restmod::igeo
integer, dimension(:), allocatable igeo
Definition restart_mod.F:83
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::fr_edge
integer, dimension(:), allocatable fr_edge
Definition restart_mod.F:83
restmod::lercvois
integer, dimension(:), allocatable lercvois
Definition restart_mod.F:83
restmod::iadrl
integer, dimension(:), allocatable iadrl
Definition restart_mod.F:83
restmod::addcni2
integer, dimension(:), allocatable addcni2
Definition restart_mod.F:83
restmod::lbcscyc
integer, dimension(:), allocatable lbcscyc
Definition restart_mod.F:57
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::iadc_pxfem
integer, dimension(:), allocatable iadc_pxfem
Definition restart_mod.F:57
restmod::ibvel
integer, dimension(:), allocatable ibvel
Definition restart_mod.F:60
restmod::iadrbm
integer, dimension(:), allocatable iadrbm
Definition restart_mod.F:83
restmod::lrivet
integer, dimension(:), allocatable lrivet
Definition restart_mod.F:60
restmod::npbyl
integer, dimension(:), pointer npbyl
Definition restart_mod.F:108
restmod::iad_edge
integer, dimension(:), allocatable iad_edge
Definition restart_mod.F:83
restmod::icfield
integer, dimension(:), allocatable, target icfield
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::ibcscyc
integer, dimension(:), allocatable ibcscyc
Definition restart_mod.F:57
restmod::procnor
integer, dimension(:), allocatable procnor
Definition restart_mod.F:83
restmod::tag_skins6
integer, dimension(:), allocatable tag_skins6
Definition restart_mod.F:57
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::irbym
integer, dimension(:), allocatable irbym
Definition restart_mod.F:83
restmod::ixsp
integer, dimension(:,:), allocatable ixsp
Definition restart_mod.F:81
restmod::iadrcp_crkxfem
integer, dimension(:), allocatable iadrcp_crkxfem
Definition restart_mod.F:57
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::iedge
integer, dimension(:), allocatable iedge
Definition restart_mod.F:83
restmod::ibfflux
integer, dimension(:), allocatable ibfflux
Definition restart_mod.F:106
restmod::nodedge
integer, dimension(:), allocatable nodedge
Definition restart_mod.F:83
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::icode_ply
integer, dimension(:), allocatable icode_ply
Definition restart_mod.F:90
restmod::lloadp
integer, dimension(:), allocatable lloadp
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::lcfield
integer, dimension(:), allocatable lcfield
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::npsegcom
integer, dimension(:), allocatable npsegcom
Definition restart_mod.F:83
restmod::rg_cut
integer, dimension(:), allocatable rg_cut
Definition restart_mod.F:83
restmod::iel_pxfem
integer, dimension(:), allocatable iel_pxfem
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::tab_ump
integer, dimension(:,:), allocatable tab_ump
Definition restart_mod.F:152
restmod::naccp
integer, dimension(:), allocatable naccp
Definition restart_mod.F:83
restmod::procne_pxfem
integer, dimension(:), allocatable procne_pxfem
Definition restart_mod.F:57
restmod::ithvar
integer, dimension(:), allocatable ithvar
Definition restart_mod.F:60
restmod::dd_r2r
integer, dimension(:), allocatable dd_r2r
Definition restart_mod.F:83
restmod::iadll
integer, dimension(:), allocatable iadll
Definition restart_mod.F:83
restmod::icontact
integer, dimension(:), allocatable icontact
Definition restart_mod.F:83
restmod::ipart_state
integer, dimension(:), allocatable ipart_state
Definition restart_mod.F:60
seatbelt_mod
Definition seatbelt_mod.F:55
seatbelt_mod::retractor
type(retractor_struct), dimension(:), allocatable retractor
Definition seatbelt_mod.F:155
seatbelt_mod::anchor_remote_send
type(seatbelt_remote_nodes_struct) anchor_remote_send
Definition seatbelt_mod.F:183
seatbelt_mod::anchor_remote
type(seatbelt_remote_nodes_struct) anchor_remote
Definition seatbelt_mod.F:183
seatbelt_mod::slipring
type(slipring_struct), dimension(:), allocatable slipring
Definition seatbelt_mod.F:110
segvar_mod
Definition segvar_mod.F:63
sph_mod
Definition sph_mod.F:31
sph_mod::sph2sol
integer, dimension(:), allocatable sph2sol
Definition sph_mod.F:34
sph_mod::irst
integer, dimension(:), allocatable irst
Definition sph_mod.F:34
sph_mod::sol2sph_typ
integer, dimension(:), allocatable sol2sph_typ
Definition sph_mod.F:38
sph_mod::sol2sph
integer, dimension(:), allocatable sol2sph
Definition sph_mod.F:34
stack_mod
Definition stack_mod.F:75
stack_mod::ply_info
integer, dimension(:,:), allocatable ply_info
Definition stack_mod.F:133
trimat_mod
Definition trimat.F:31
ancmsg
subroutine ancmsg(msgid, msgtype, anmode, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, r1, r2, r3, r4, r5, r6, r7, r8, r9, c1, c2, c3, c4, c5, c6, c7, c8, c9, prmode)
Definition message.F:895
arret
subroutine arret(nn)
Definition arret.F:86

◆ sz_print()

subroutine sz_print

Definition at line 2355 of file arralloc.F.

2356C-----------------------------------------------
2357C M o d u l e s
2358C-----------------------------------------------
2359 USE message_mod
2360 USE ale_mod
2361C-----------------------------------------------
2362C I m p l i c i t T y p e s
2363C-----------------------------------------------
2364#include "implicit_f.inc"
2365C-----------------------------------------------
2366C C o m m o n B l o c k s
2367C-----------------------------------------------
2368#include "tabsiz_c.inc"
2369#include "com01_c.inc"
2370#include "units_c.inc"
2371#include "task_c.inc"
2372C----------------------------------------------
2373C L o c a l V a r i a b l e s
2374C-----------------------------------------------
2375 INTEGER IWIOUT
2376C-----------------------------------------------
2377C
2378C For debug purposes only
2379C
2380 IF (ispmd == 0) THEN
2381 WRITE(iout,'(A)') ' '
2382 WRITE(iout,'(A)') 'MEMORY ADRESS MAP '
2383 WRITE(iout,'(A)') '--------------'
2384 WRITE(iout,'(A)') ' '
2385 WRITE(iout,'(A)') 'INTEGER ARRAYS'
2386 WRITE(iout,'(A)') '--------------'
2387 WRITE(iout,'(A)') ' '
2388 WRITE(iout,'(A)') 'NSPMD / ARRAY / SIZE '
2389 WRITE(iout,'(A)') ' '
2390 END IF
2391C I10
2392 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SICODE : ',sicode
2393C I10A
2394 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SISKEW : ',siskew
2395C I12
2396 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SISKWN : ',siskwn
2397C I12A
2398 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SIFRAME : ',siframe
2399C I13
2400 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SNETH : ',sneth
2401C I14
2402 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SIBCSLAG :',sibcslag
2403C I15
2404 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SIPART : ',sipart
2405C I16
2406 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SNOM_OPT :',snom_opt
2407C I17
2408 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SNPC : ',snpc
2409C I19
2410 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SIXTG : ',sixtg
2411C I19A
2412 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SIXTG1 : ',sixtg1
2413C I20
2414 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SIXS : ',sixs
2415C I21
2416 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SIXQ : ',sixq
2417C I22
2418 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SIXC : ',sixc
2419C I23
2420 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SIXT : ',sixt
2421C I24
2422 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SIXP : ',sixp
2423C I25
2424 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SIXR : ',sixr
2425C I26
2426C
2427C I27
2428 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SITAB : ',sitab
2429C I28
2430 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SITABM1 : ',sitabm1
2431C I29
2432 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SGJBUFI : ',sgjbufi
2433C I30
2434 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SNALE : ',ale%GLOBAL%SNALE
2435C I31
2436 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SIELVS : ',ale%GLOBAL%SIELVS
2437C I33
2438 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SIFILL : ',sifill
2439C I34
2440 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SIMS : ',sims
2441C I35
2442!! WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SISUBS : ',SISUBS
2443C I36
2444!! WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIGRN : ',SIGRN
2445C I37
2446!! WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SISURF : ',SISURF
2447C I38
2448!! WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SISLIN : ',SISLIN
2449C I39
2450!! WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SIBUFSSG :',SIBUFSSG
2451C I40
2452 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SKXX : ',skxx
2453C I40A
2454 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SIXX : ',sixx
2455C I40B
2456 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SKXSP : ',skxsp
2457C I40C
2458 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SIXSP : ',sixsp
2459C I40D
2460 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SNOD2SP : ',snod2sp
2461C I40E
2462 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SISPSYM : ',sispsym
2463C I40F
2464 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SISPCOND :',sispcond
2465C I40G
2466 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SISPHIO : ',sisphio
2467C I40H
2468 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SLPRTSPH :',slprtsph
2469C I40I
2470 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SLONFSPH :',slonfsph
2471C I41
2472 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SIBCL : ',sibcl
2473C I42
2474 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SIBFV : ',sibfv
2475C I43
2476 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SIECRAN : ',siecran
2477C I44
2478 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SILAS : ',silas
2479C I45
2480 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SIEBCS : ',siebcs
2481C I46
2482 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SLACCELM :',slaccelm
2483C I47
2484
2485C I48
2486 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SNNLINK : ',snnlink
2487C I48A
2488 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SLNLINK : ',slnlink
2489C I49
2490 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SIPARG : ',siparg
2491C I51
2492 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SDD_IAD : ',sdd_iad
2493C I52
2494 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SIGRV : ',sigrv
2495 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SLGRAV : ',slgrav
2496C I54
2497 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SIEXLNK : ',siexlnk
2498C I55
2499 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SIBVEL : ',sibvel
2500C I55A
2501 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SLBVEL : ',slbvel
2502C I56
2503 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SIACTIV : ',siactiv
2504C I57
2505 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SIBMPC : ',sibmpc
2506C I58
2507C I59
2508C
2509C I60
2510C
2511C I61
2512 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SIPARI : ',sipari
2513C I62
2514C WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' SINBUF : ',SINBUF
2515C I64
2516 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SNPRW : ',snprw
2517 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SLPRW : ',slprw
2518C I65
2519
2520C I66
2521C
2522C I67
2523 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SICONX : ',siconx
2524C I67B
2525 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SMADPRT : ',smadprt
2526C I67C
2527 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SMADSH4 : ',smadsh4
2528C I67D
2529 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SMADSH3 : ',smadsh3
2530C I67E
2531 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SMADSOL : ',smadsol
2532C I67F
2533 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SMADNOD : ',smadnod
2534C I67G
2535 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SMADFAIL: ',smadfail
2536C I68
2537 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SNPBY : ',snpby
2538C I68A
2539 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SNPBYL : ',snpbyl
2540C I69
2541 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SLPBY : ',slpby
2542C I69A
2543 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SLPBYL : ',slpbyl
2544C I70
2545 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SLRIVET : ',slrivet
2546C I71
2547 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SNSTRF : ',snstrf
2548C I72
2549 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SLJOINT : ',sljoint
2550C I73
2551 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SNODPOR : ',snodpor
2552C I74
2553 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SMONVOL : ',smonvol
2554C I75
2555 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SLAGBUF : ',slagbuf
2556C I77
2557 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SIAD_ELEM:',siad_elem
2558C I77B
2559 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SIAD_RBY: ',siad_rby
2560C I77C
2561 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SIAD_RBY2:',siad_rby2
2562C I77D
2563 WRITE(iout,'(I4,A13,I8)') ispmd+1,' siad_i2m: ',SIAD_I2M
2564C I77E
2565 WRITE(IOUT,'(i4,a13,i8)') ISPMD+1,' siadcj : ',SIADCJ
2566C I77F
2567 WRITE(IOUT,'(i4,a13,i8)') ISPMD+1,' siad_rbm: ',SIAD_RBM
2568C I77G
2569 WRITE(IOUT,'(i4,a13,i8)') ISPMD+1,' siad_rbm2:',SIAD_RBM2
2570C I77H
2571 WRITE(IOUT,'(i4,a13,i8)') ISPMD+1,' siad_sec: ',SIAD_SEC
2572C I77I
2573 WRITE(IOUT,'(i4,a13,i8)') ISPMD+1,' siad_cut: ',SIAD_CUT
2574C I78
2575 WRITE(IOUT,'(i4,a13,i8)') ISPMD+1,' sfr_elem: ',SFR_ELEM
2576C I78B
2577 WRITE(IOUT,'(i4,a13,i8)') ISPMD+1,' sfr_rby : ',SFR_RBY
2578C I78C
2579 WRITE(IOUT,'(i4,a13,i8)') ISPMD+1,' sfr_wall: ',SFR_WALL
2580C I78D
2581 WRITE(IOUT,'(i4,a13,i8)') ISPMD+1,' sfr_rby2: ',SFR_RBY2
2582C I78E
2583 WRITE(IOUT,'(i4,a13,i8)') ISPMD+1,' sfr_i2m : ',SFR_I2M
2584C I78F
2585 WRITE(IOUT,'(i4,a13,i8)') ISPMD+1,' sfr_mv : ',SFR_MV
2586C I78G
2587 WRITE(IOUT,'(i4,a13,i8)') ISPMD+1,' sfr_ll : ',SFR_LL
2588C I78H
2589 WRITE(IOUT,'(i4,a13,i8)') ISPMD+1,' sfr_cj : ',SFR_CJ
2590C I78I
2591 WRITE(IOUT,'(i4,a13,i8)') ISPMD+1,' sfr_rbm : ',SFR_RBM
2592C I78J
2593 WRITE(IOUT,'(i4,a13,i8)') ISPMD+1,' sfr_rbm2: ',sfr_rbm2
2594C I78K
2595 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SFR_SEC : ',sfr_sec
2596C I78L
2597 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SFR_CUT : ',sfr_cut
2598C I78M
2599 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SRG_CUT : ',srg_cut
2600C I78N
2601 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SFR_MAD : ',sfr_mad
2602C I78P
2603 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SFR_I18 : ',sfr_i18
2604 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SDD_R2R : ',sdd_r2r
2605 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SFR_LAGF: ',sfr_lagf
2606C I79
2607 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SWEIGHT : ',sweight
2608C I79A
2609 WRITE(iout,'(I4,A13,I8)') ispmd+1,' snewfront:',SNEWFRONT
2610C I79B
2611 WRITE(IOUT,'(i4,a13,i8)') ISPMD+1,' snodglob: ',SNODGLOB
2612C I79C
2613 WRITE(IOUT,'(i4,a13,i8)') ISPMD+1,' snbrcvois:',SNBRCVOIS
2614C I79D
2615 WRITE(IOUT,'(i4,a13,i8)') ISPMD+1,' slnrcvois:',SLNRCVOIS
2616C I79E
2617 WRITE(IOUT,'(i4,a13,i8)') ISPMD+1,' snbsdvois:',SNBSDVOIS
2618C I79F
2619 WRITE(IOUT,'(i4,a13,i8)') ISPMD+1,' slnsdvois:',SLNSDVOIS
2620C I79G
2621 WRITE(IOUT,'(i4,a13,i8)') ISPMD+1,' snercvois:',SNERCVOIS
2622C I79H
2623 WRITE(IOUT,'(i4,a13,i8)') ISPMD+1,' slercvois:',SLERCVOIS
2624C I79I
2625 WRITE(IOUT,'(i4,a13,i8)') ISPMD+1,' snesdvois:',SNESDVOIS
2626C I79J
2627 WRITE(IOUT,'(i4,a13,i8)') ISPMD+1,' slesdvois:',SLESDVOIS
2628C I79K
2629
2630C I79L
2631
2632C I79M
2633 WRITE(IOUT,'(i4,a13,i8)') ISPMD+1,' snpsegcom:',SNPSEGCOM
2634C I79N
2635 WRITE(IOUT,'(i4,a13,i8)') ISPMD+1,' slsegcom: ',SLSEGCOM
2636C I79P
2637 WRITE(IOUT,'(i4,a13,i8)') ISPMD+1,' snporgeo: ',SNPORGEO
2638C I79Q
2639 WRITE(IOUT,'(i4,a13,i8)') ISPMD+1,' slnodpor: ',SLNODPOR
2640 WRITE(IOUT,'(i4,a13,i8)') ISPMD+1,' sllagf : ',SLLAGF
2641C I80
2642 WRITE(IOUT,'(i4,a13,i8)') ISPMD+1,' sicodt : ',SICODT
2643C I81
2644 WRITE(IOUT,'(i4,a13,i8)') ISPMD+1,' sicodr : ',SICODR
2645
2646C I82
2647C
2648C I83
2649C
2650C I84
2651C
2652C I85
2653 WRITE(IOUT,'(i4,a13,i8)') ISPMD+1,' sisky : ',SISKY
2654C I86
2655 WRITE(IOUT,'(i4,a13,i8)') ISPMD+1,' sadsky : ',SADSKY
2656C I86B
2657 WRITE(IOUT,'(i4,a13,i8)') ISPMD+1,' sprocne : ',SPROCNE
2658C I86C
2659 WRITE(IOUT,'(i4,a13,i8)') ISPMD+1,' saddcni2 : ',SADDCNI2
2660C I86D
2661 WRITE(IOUT,'(i4,a13,i8)') ISPMD+1,' sprocni2 : ',SPROCNI2
2662C I86E
2663 WRITE(IOUT,'(i4,a13,i8)') ISPMD+1,' siadsdp : ',SIADSDP
2664C I86F
2665 WRITE(IOUT,'(i4,a13,i8)') ISPMD+1,' siadrcp : ',SIADRCP
2666C I87
2667 WRITE(IOUT,'(i4,a13,i8)') ISPMD+1,' siads : ',siads
2668C I87B
2669 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SIADWAL : ',siadwal
2670C I87C
2671 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SIADRBK : ',siadrbk
2672C I87D
2673 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SIADI2 : ',siadi2
2674C I87E
2675 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SIADMV2 : ',siadmv2
2676C I87F
2677 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SIADMV3 : ',siadmv3
2678C I87G
2679 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SIADLL : ',siadll
2680C I87H
2681 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SIADRBM : ',siadrbm
2682C I87I
2683 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SIADI18 : ',siadi18
2684C I88
2685 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SILINK : ',silink
2686C I88A
2687 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SFR_RL : ',sfr_rl
2688C I89
2689 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SLLINK : ',sllink
2690C I89A
2691 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SIADRL : ',siadrl
2692C I90
2693 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SLINALE : ',slinale
2694C I91
2695 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SNEFLSW : ',sneflsw
2696C I92
2697 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SNNFLSW : ',snnflsw
2698C I93
2699 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SICUT : ',sicut
2700C ICONTACT
2701 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SICONTACT : ',sicontact
2702C
2703 IF(nspmd>1) THEN
2704C necessary processing to retrieve the outputs in order
2705 iwiout = 0
2706 IF (ispmd/=0) CALL spmd_chkw(iwiout,iout)
2707 CALL spmd_glob_isum9(iwiout,1)
2708 CALL spmd_ibcast(iwiout,iwiout,1,1,0,2)
2709 IF (iwiout>0) THEN
2710 CALL spmd_wiout(iout,iwiout)
2711 iwiout = 0
2712 ENDIF
2713 ENDIF
2714 IF (ispmd == 0) THEN
2715 WRITE(iout,'(A)') ' '
2716 WRITE(iout,'(A)') 'REAL ARRAYS'
2717 WRITE(iout,'(A)') '-----------'
2718 WRITE(iout,'(A)') ' '
2719 WRITE(iout,'(A)') 'NSPMD / ARRAY / SIZE '
2720 WRITE(iout,'(A)') ' '
2721 END IF
2722C M11
2723 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SX : ',sx
2724C M11
2725 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SD : ',sd
2726C M12
2727 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SV : ',sv
2728C M13
2729 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SVR : ',svr
2730C M14
2731 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SDR : ',sdr
2732C M15
2733 WRITE(iout,'(I4,A13,I8)') ispmd+1,' STHKE : ',sthke
2734C M16
2735 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SDAMPR : ',sdampr
2736C M16A
2737 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SDAMP : ',sdamp
2738C M17
2739C
2740C M18
2741 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SMS : ',sms
2742C M19
2743 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SIN : ',sin
2744C M20
2745 WRITE(iout,'(I4,A13,I8)') ispmd+1,' STF : ',stf
2746C M21
2747 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SPM : ',spm
2748C M22
2749 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SSKEW : ',sskew
2750C M22A
2751 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SXFRAME : ',sxframe
2752C M23
2753 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SGEO : ',sgeo
2754C M24
2755 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SEANI : ',seani
2756C M25
2757 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SBUFMAT : ',sbufmat
2758C M26
2759 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SBUFGEO : ',sbufgeo
2760C M27
2761 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SBUFSF : ',sbufsf
2762C M28
2763 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SRBMPC : ',srbmpc
2764C M29
2765 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SGJBUFR : ',sgjbufr
2766C M30
2767 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SW : ',sw
2768C M31
2769 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SVEUL : ',sveul
2770C M32
2771 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SFILL : ',sfill
2772C M33
2773 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SDFILL : ',sdfill
2774C M34
2775 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SALPH : ',salph
2776C M35
2777 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SWB : ',swb
2778C M36
2779 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SDSAVE : ',sdsave
2780C M37
2781 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SASAVE : ',sasave
2782C M38
2783 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SSPBUF : ',sspbuf
2784C M38E
2785 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SVSPHIO : ',svsphio
2786C M38F
2787 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SSPHVELN : ',ssphveln
2788C M39
2789 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SMSNF : ',smsnf
2790C M40
2791C
2792C M41
2793 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SFORC : ',sforc
2794C M42
2795C
2796C M43
2797 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SVEL : ',svel
2798C M44
2799 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SFSAV : ',sfsav
2800C M45
2801C
2802C M46
2803 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SFZERO : ',sfzero
2804C M47
2805 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SXLAS : ',sxlas
2806C M48A
2807 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SREBCS : ',srebcs
2808C M48
2809 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SACCELM : ',saccelm
2810C M49
2811
2812C M50
2813C
2814C M51
2815 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SFBVEL : ',sfbvel
2816C M52
2817 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SGRAV : ',sgrav
2818C M53
2819 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SFR_WAVE : ',sfr_wave
2820c
2821C WRITE(IOUT,'(I4,A13,I8)') ISPMD+1,' FAILWAVE : ',IFAILWAVE*NUMNOD
2822C M54
2823 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SPARTS0 : ',sparts0
2824C M55
2825C
2826C M56
2827C
2828C M57
2829C
2830C M58
2831C
2832C M59
2833 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SELBUF : ',selbuf
2834C M64B
2835 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SDBUFIN : ',sdbufin
2836C M62
2837 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SRWBUF : ',srwbuf
2838C M62A
2839 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SRWSAV : ',srwsav
2840C M63
2841
2842C M64
2843 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SRBY : ',srby
2844C M64A
2845 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SRBYL : ',srbyl
2846C M65
2847 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SRIVET : ',srivet
2848C M66
2849 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SSECBUF : ',ssecbuf
2850C M67
2851 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SVOLMON : ',svolmon
2852C M68
2853 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SLAMBDA : ',slambda
2854C M69
2855
2856C RCONTACT
2857 WRITE(iout,'(I4,A13,I8)') ispmd+1,' SRCONTACT : ',srcontact
2858
2859 IF(nspmd>1) THEN
2860C necessary processing to retrieve the outputs in order
2861 iwiout = 0
2862 IF (ispmd/=0) CALL spmd_chkw(iwiout,iout)
2863 CALL spmd_glob_isum9(iwiout,1)
2864 CALL spmd_ibcast(iwiout,iwiout,1,1,0,2)
2865 IF (iwiout>0) THEN
2866 CALL spmd_wiout(iout,iwiout)
2867 iwiout = 0
2868 ENDIF
2869 ENDIF
2870
spmd_chkw
subroutine spmd_chkw(iwiout, iout)
Definition spmd_chkw.F:38
spmd_ibcast
subroutine spmd_ibcast(tabi, tabr, n1, n2, from, add)
Definition spmd_ibcast.F:57
spmd_glob_isum9
subroutine spmd_glob_isum9(v, len)
Definition spmd_th.F:520
spmd_wiout
subroutine spmd_wiout(iout, iwiout)
Definition spmd_wiout.F:40