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 (element, nodes, multi_fvm, h3d_data, pinch_data, ale_connectivity, segvar, interfaces, skews, glob_therm, rbe3)
subroutine sz_print ()

Function/Subroutine Documentation

◆ restalloc()

subroutine restalloc ( 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 )

Definition at line 69 of file arralloc.F.

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

◆ sz_print()

subroutine sz_print

Definition at line 2369 of file arralloc.F.

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