OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
wrcomm.F File Reference
#include "implicit_f.inc"
#include "lagmult.inc"
#include "com01_c.inc"
#include "com04_c.inc"
#include "com09_c.inc"
#include "com10_c.inc"
#include "sphcom.inc"
#include "param_c.inc"
#include "scr03_c.inc"
#include "scr05_c.inc"
#include "scrnoi_c.inc"
#include "chara_c.inc"
#include "task_c.inc"
#include "scr16_c.inc"
#include "scr14_c.inc"
#include "scrcut_c.inc"
#include "scr18_c.inc"
#include "scr02_c.inc"
#include "check.inc"
#include "stati_c.inc"
#include "scr07_c.inc"
#include "timeri_c.inc"
#include "couple_c.inc"
#include "cong1_c.inc"
#include "scr17_c.inc"
#include "rad2r_c.inc"
#include "warn_c.inc"
#include "scrfs_c.inc"
#include "spmd_c.inc"
#include "fxbcom.inc"
#include "eigcom.inc"
#include "flowcom.inc"
#include "impl1_c.inc"
#include "tabsiz_c.inc"
#include "remesh_c.inc"
#include "com_xfem1.inc"
#include "sysunit.inc"
#include "intstamp_c.inc"
#include "sms_c.inc"
#include "submodel.inc"
#include "inter18.inc"
#include "inter22.inc"
#include "drape_c.inc"
#include "ige3d_c.inc"
#include "com06_c.inc"
#include "com08_c.inc"
#include "cong2_c.inc"
#include "scr06_c.inc"
#include "scr11_c.inc"
#include "scr19_c.inc"
#include "statr_c.inc"
#include "itet2_c.inc"
#include "ddspmd_c.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine wrcomi (lmxvint, lvarint, tabvint, isp, multi_fvm, h3d_data, dynain_data, inter_parameters, sensors, loads, glob_therm, pblast)
subroutine wrcomr (lmxvrea, lvarrea, tabvrea, dynain_data, inter_parameters, output, glob_therm)

Function/Subroutine Documentation

◆ wrcomi()

subroutine wrcomi ( integer lmxvint,
integer lvarint,
integer, dimension(*) tabvint,
integer isp,
type(multi_fvm_struct), intent(in) multi_fvm,
type(h3d_database), intent(in) h3d_data,
type (dynain_database), intent(in) dynain_data,
type (parameters_), intent(in) inter_parameters,
type (sensors_), intent(in) sensors,
type (loads_), intent(in) loads,
type (glob_therm_), intent(in) glob_therm,
type (pblast_), intent(in) pblast )

Definition at line 51 of file wrcomm.F.

53C-----------------------------------------------
54C M o d u l e s
55C-----------------------------------------------
56 USE multi_fvm_mod
57 USE h3d_mod
58 USE pinchtype_mod
59 USE outmax_mod
60 USE anim_mod
61 USE outputs_mod
62 USE loads_mod
63 USE drape_mod
64 USE state_mod
65 USE intbufdef_mod
66 USE alemuscl_mod , only:alemuscl_param
67 USE alefvm_mod , only:alefvm_param
68 USE ale_mod
69 USE parameters_mod
70 USE sensor_mod
71 USE damp_mod
72 USE glob_therm_mod
73 USE pblast_mod
74 USE th_mod , ONLY : th_has_noda_pext
75 USE output_mod , ONLY : anim_has_noda_pext, h3d_has_noda_pext
76C-----------------------------------------------
77C I m p l i c i t T y p e s
78C-----------------------------------------------
79#include "implicit_f.inc"
80C-----------------------------------------------
81C D u m m y A r g u m e n t s
82C-----------------------------------------------
83 INTEGER LMXVINT,LVARINT,TABVINT(*),ISP
84 TYPE(MULTI_FVM_STRUCT) ,INTENT(IN) :: MULTI_FVM
85 TYPE(H3D_DATABASE) ,INTENT(IN) :: H3D_DATA
86 TYPE (DYNAIN_DATABASE) ,INTENT(IN) :: DYNAIN_DATA
87 TYPE (PARAMETERS_) ,INTENT(IN) :: INTER_PARAMETERS
88 TYPE (SENSORS_) ,INTENT(IN) :: SENSORS
89 TYPE (LOADS_) ,INTENT(IN) :: LOADS
90 type (glob_therm_) ,intent(in) :: GLOB_THERM
91 type (PBLAST_) ,intent(in) :: PBLAST
92C-----------------------------------------------
93C C o m m o n B l o c k s
94C-----------------------------------------------
95#include "lagmult.inc"
96#include "com01_c.inc"
97#include "com04_c.inc"
98#include "com09_c.inc"
99#include "com10_c.inc"
100#include "sphcom.inc"
101#include "param_c.inc"
102#include "scr03_c.inc"
103#include "scr05_c.inc"
104#include "scrnoi_c.inc"
105#include "chara_c.inc"
106#include "task_c.inc"
107#include "scr16_c.inc"
108#include "scr14_c.inc"
109#include "scrcut_c.inc"
110#include "scr18_c.inc"
111#include "scr02_c.inc"
112#include "check.inc"
113#include "stati_c.inc"
114#include "scr07_c.inc"
115#include "timeri_c.inc"
116#include "couple_c.inc"
117#include "cong1_c.inc"
118#include "scr17_c.inc"
119#include "rad2r_c.inc"
120#include "warn_c.inc"
121#include "scrfs_c.inc"
122#include "spmd_c.inc"
123#include "fxbcom.inc"
124#include "eigcom.inc"
125#include "flowcom.inc"
126#include "impl1_c.inc"
127#include "tabsiz_c.inc"
128#include "remesh_c.inc"
129#include "com_xfem1.inc"
130#include "sysunit.inc"
131#include "intstamp_c.inc"
132#include "sms_c.inc"
133#include "submodel.inc"
134#include "inter18.inc"
135#include "inter22.inc"
136#include "drape_c.inc"
137#include "ige3d_c.inc"
138C-----------------------------------------------
139C L o c a l V a r i a b l e s
140C-----------------------------------------------
141 INTEGER I,IVAR,IDUM
142C--------------------------------------
143C PREPARATION DES VARIABLES ENTIERES POUR ECRITURE SUR RFILE.
144C=======================================================================
145C-----
146 idum=0
147 DO ivar=1,lmxvint
148 tabvint(ivar)=0
149 ENDDO
150C-----
151 tabvint(1) =n2d
152 tabvint(2) =ncpri
153 tabvint(3) =0 ! IUSERWI
154 tabvint(4) =iale
155 tabvint(6) =ncycle
156 tabvint(7) =irun
157 tabvint(8) =iger
158 tabvint(10) =iroddl
159 tabvint(11) =ieuler
160 tabvint(12) =glob_therm%ITHERM
161 tabvint(13) =ihsh
162 tabvint(14) =itestv
163 tabvint(15) =iturb
164 tabvint(16) =ilag
165 tabvint(17) =isecut
166 tabvint(18) =idamp
167 tabvint(19) =irxdp
168 tabvint(20) =nmult
169 tabvint(21) =integ8
170 tabvint(22) =isigi
171 tabvint(23) =nspmd
172 tabvint(24) =lenwa
173 tabvint(25) =isgifl
174 tabvint(26) = th_has_noda_pext
175 tabvint(27) =nnods
176 tabvint(28) =ncnois
177 tabvint(29) =lcne0
178 tabvint(30) =ipari0
179 tabvint(31) =imaximp
180 tabvint(32) =nnoiser
181 tabvint(33) =nspgroup
182 tabvint(34) =iresmd
183 tabvint(35) =ifrwv
184C-----
185 tabvint(5) =ngroup
186 tabvint(9) =lbufel
187C -------- Tailles des tableaux entiers --------
188 tabvint(36) = 0
189 tabvint(37) = sicode
190 tabvint(38) = 0
191 tabvint(39) = siskew
192 tabvint(40) = siskwn
193 tabvint(41) = siframe
194 tabvint(42) = sneth
195 tabvint(43) = sibcslag
196 tabvint(44) = sipart
197 tabvint(45) = snom_opt
198 tabvint(46) = snpc
199 tabvint(47) = 0
200 tabvint(48) = sixtg
201 tabvint(49) = sixtg1
202 tabvint(50) = sixs
203 tabvint(51) = sixq
204 tabvint(52) = sixc
205 tabvint(53) = sixt
206 tabvint(54) = sixp
207 tabvint(55) = sixr
208 tabvint(56) = sitab
209 tabvint(57) = sitabm1
210 tabvint(58) = sgjbufi
211 tabvint(59) = ale%GLOBAL%SNALE
212 tabvint(60) = ale%GLOBAL%SIELVS
213 tabvint(62) = sifill
214 tabvint(63) = sims
215!! to empty+++
216 tabvint(64) = sisubs
217 tabvint(65) = sigrn
218 tabvint(66) = sisurf
219 tabvint(67) = sislin
220 tabvint(68) = sibufssg
221!! to empty---
222 tabvint(69) = skxx
223 tabvint(70) = sixx
224 tabvint(71) = skxsp
225 tabvint(72) = sixsp
226 tabvint(73) = snod2sp
227 tabvint(74) = sispsym
228 tabvint(75) = sispcond
229 tabvint(76) = sisphio
230 tabvint(77) = slprtsph
231 tabvint(78) = slonfsph
232 tabvint(79) = sibcl
233 tabvint(80) = sibfv
234 tabvint(81) = siecran
235 tabvint(82) = silas
236 tabvint(83) = siebcs
237 tabvint(84) = slaccelm
238 tabvint(85) = 0
239 tabvint(86) = snnlink
240 tabvint(87) = slnlink
241 tabvint(88) = 0 !SIUSER
242 tabvint(89) = siparg
243 tabvint(90) = sdd_iad
244 tabvint(91) = sigrv
245 tabvint(92) = slgrav
246 tabvint(93) = siexlnk
247 tabvint(94) = sibvel
248 tabvint(95) = slbvel
249 tabvint(96) = siactiv
250 tabvint(97) = sibmpc
251 tabvint(98) = skinet
252 tabvint(99) = sipari
253 tabvint(100) = 0 !SINBUF
254 tabvint(101) = snprw
255 tabvint(102) = 0
256 tabvint(103) = siconx
257 tabvint(104) = smadprt
258 tabvint(105) = smadsh4
259 tabvint(106) = smadsh3
260 tabvint(107) = smadsol
261 tabvint(108) = smadnod
262 tabvint(109) = smadfail
263 tabvint(110) = snpby
264 tabvint(111) = snpbyl
265 tabvint(112) = slpby
266 tabvint(113) = slpbyl
267 tabvint(114) = slrivet
268 tabvint(115) = snstrf
269 tabvint(116) = sljoint
270 tabvint(117) = snodpor
271 tabvint(118) = smonvol
272 tabvint(119) = slagbuf
273! TABVINT(120) = SITHGRP obsolete
274 tabvint(121) = siad_elem
275 tabvint(122) = siad_rby
276 tabvint(123) = siad_rby2
277 tabvint(124) = siad_i2m
278 tabvint(125) = siadcj
279 tabvint(126) = siad_rbm
280 tabvint(127) = siad_rbm2
281 tabvint(128) = siad_sec
282 tabvint(129) = siad_cut
283 tabvint(130) = sfr_elem
284 tabvint(131) = sfr_rby
285 tabvint(132) = sfr_wall
286 tabvint(133) = sfr_rby2
287 tabvint(134) = sfr_i2m
288 tabvint(135) = sfr_mv
289 tabvint(136) = sfr_ll
290 tabvint(137) = sfr_cj
291 tabvint(138) = sfr_rbm
292 tabvint(139) = sfr_rbm2
293 tabvint(140) = sfr_sec
294 tabvint(141) = sfr_cut
295 tabvint(142) = srg_cut
296 tabvint(143) = sfr_mad
297 tabvint(144) = sfr_i18
298 tabvint(145) = sweight
299 tabvint(146) = snewfront
300 tabvint(147) = numnod
301 tabvint(148) = snbrcvois
302 tabvint(149) = snbsdvois
303 tabvint(150) = slnrcvois
304 tabvint(151) = slnsdvois
305 tabvint(152) = snercvois
306 tabvint(153) = snesdvois
307 tabvint(154) = slercvois
308 tabvint(155) = slesdvois
309 tabvint(156) = 0
310 tabvint(157) = 0
311 tabvint(158) = snpsegcom
312 tabvint(159) = slsegcom
313 tabvint(160) = snporgeo
314 tabvint(161) = slnodpor
315C-----
316C tailles des tableau flottant
317C
318 tabvint(162) = sx
319 tabvint(163) = sd
320 tabvint(164) = sv
321 tabvint(165) = svr
322 tabvint(166) = sdr
323 tabvint(167) = sthke
324 tabvint(168) = sdampr
325 tabvint(169) = sdamp
326 tabvint(170) = sms
327 tabvint(171) = sin
328 tabvint(172) = stf
329 tabvint(173) = spm
330 tabvint(174) = sskew
331 tabvint(175) = sxframe
332 tabvint(176) = sgeo
333 tabvint(177) = seani
334 tabvint(178) = sbufmat
335 tabvint(179) = sbufgeo
336 tabvint(180) = sbufsf
337 tabvint(181) = srbmpc
338 tabvint(182) = sgjbufr
339 tabvint(183) = sw
340 tabvint(184) = sveul
341 tabvint(185) = sfill
342 tabvint(186) = sdfill
343 tabvint(187) = salph
344 tabvint(188) = swb
345 tabvint(189) = sdsave
346 tabvint(191) = sasave
347 tabvint(192) = 0 !no longer used
348 tabvint(193) = 0 !no longer used
349 tabvint(194) = 0 !no longer used
350 tabvint(195) = 0 !no longer used
351 tabvint(196) = sspbuf
352 tabvint(200) = svsphio
353 tabvint(201) = ssphveln
354 tabvint(202) = smsnf
355 tabvint(203) = sforc
356 tabvint(204) = svel
357 tabvint(205) = sfsav
358 tabvint(206) = sfzero
359 tabvint(207) = sxlas
360 tabvint(208) = srebcs
361 tabvint(209) = saccelm
362 tabvint(210) = 0
363 tabvint(211) = sfbvel
364 tabvint(212) = sgrav
365 tabvint(213) = sfr_wave
366 tabvint(214) = sparts0
367 tabvint(215) = 0 !SUSER
368 tabvint(216) = selbuf
369 tabvint(217) = 0 !SBUFIN
370 tabvint(218) = srwbuf
371 tabvint(219) = srwsav
372 tabvint(220) = 0
373 tabvint(221) = srby
374 tabvint(222) = srbyl
375 tabvint(223) = srivet
376 tabvint(224) = ssecbuf
377 tabvint(225) = svolmon
378 tabvint(226) = slambda
379 tabvint(227) = srconx
380 tabvint(228) = sfasolfr
381 tabvint(229) = sdd_r2r
382 tabvint(230) = slprw
383 tabvint(231) = 0
384 tabvint(232) = siexmad
385 tabvint(233) = sigeo
386 tabvint(234) = sipm
387 tabvint(235) = skippon
388 tabvint(236) = ssegquadfr
389C-----1
390 tabvint(238) = nummat
391 tabvint(239) = numnod
392 tabvint(240) = numskw
393 tabvint(241) = numbcs
394 tabvint(242) = nanaly
395 tabvint(243) = numelq
396 tabvint(244) = numels
397 tabvint(245) = numelc
398 tabvint(246) = numelt
399 tabvint(247) =numgeo
400 tabvint(248)=nfunct
401 tabvint(249)=nconld
402 tabvint(250)=ninvel
403 tabvint(251)=nlaser
404 tabvint(252)=ninter
405 tabvint(253)=nrwall
406 tabvint(254)=nrbody
407 tabvint(255)=nodmas
408 tabvint(256)=nfxvel
409 tabvint(257)=nrivet
410 tabvint(258)=numelr
411 tabvint(259)=numelp
412 tabvint(260)=0 !obsolete option removed
413 tabvint(261)=nsect
414 tabvint(262)=nrbag
415 tabvint(263)=njoint
416 tabvint(264)=ale%GRID%NWALE
417 tabvint(265)=numeltg
418 tabvint(266)=nslag
419 tabvint(267)=nfacx
420 tabvint(268)=numpor
421 tabvint(269)=naccelm
422 tabvint(270)=sensors%NSENSOR
423 tabvint(271)=npreten
424 tabvint(272)=nvolu
425 tabvint(273)=npart
426 tabvint(274)=nsurf
427 tabvint(275)=nsubs
428 tabvint(276)=ngrav
429 tabvint(277)=nrby2
430 tabvint(278)=ngrnod
431 tabvint(279)=ngrbric
432 tabvint(280)=ngrquad
433 tabvint(281)=ngrshel
434 tabvint(282)=ngrsh3n
435 tabvint(283)=ngrbeam
436 tabvint(284)=ngrtrus
437 tabvint(285)=ngrspri
438 tabvint(286)=nlink
439 tabvint(287)=invstr
440 tabvint(288)=nslin
441 tabvint(289)=numelx
442 tabvint(290)=nconx
443 tabvint(291)=isumnx
444 tabvint(292)=nanim1d
445 tabvint(293)=nr2rlnk
446C-----
447 tabvint(294)=anim_has_noda_pext*10 + h3d_has_noda_pext
448 tabvint(295)=ianim
449 tabvint(296)=ioutp
450 tabvint(297)=nhin2
451 tabvint(298)=ideli7
452C-----2
453 tabvint(299)=nsnod
454 tabvint(300)=nselq
455 tabvint(301)=nsels
456 tabvint(302)=nselc
457 tabvint(303)=nselt
458 tabvint(304)=nselp
459 tabvint(305)=nselr
460 tabvint(306)=nsrby
461 tabvint(307)=nsmat
462 tabvint(308)=nseltg
463 tabvint(309)=nthgrp
464 tabvint(310)=nthgrp0
465 tabvint(311)=nselu
466C-----
467 tabvint(312)=npropm
468 tabvint(313)=nvsiz
469 tabvint(314)=npropg
470 tabvint(315)=nparg
471 tabvint(316)=lveul
472 tabvint(317)=nixs
473 tabvint(318)=nixq
474 tabvint(319)=nixc
475 tabvint(320)=nixt
476 tabvint(321)=nixp
477 tabvint(322)=nixr
478 tabvint(323)=nixtg
479 tabvint(324)=0
480 tabvint(325)=nixfr1
481 tabvint(326)=nixfr2
482 tabvint(327)=npari
483 tabvint(328)=lwamp
484 tabvint(329)=lwanmp
485 tabvint(330)=nisx
486 tabvint(331)=ligrn1
487 tabvint(332)=lisub1
488 tabvint(333)=nimv
489 tabvint(334)=nnpby
490 tabvint(335)=nrby
491 tabvint(336)=nifv
492 tabvint(337)=nthvki
493 tabvint(338)=npsav
494 tabvint(339)=nrcnx
495 tabvint(340)=nr2r
496 tabvint(379)=numfram
497 tabvint(380)=numsph
498 tabvint(381)=nselsp
499 tabvint(382)=nspcond
500 tabvint(384)=nsphsym
501 tabvint(385)=maxpjet
502 tabvint(386)=nisp
503 tabvint(387)=kvoisph
504 tabvint(388)=nspbuf
505 tabvint(389)=nispcond
506 tabvint(425)=intbag
507 tabvint(426)=ibagsurf
508 tabvint(427)=nrvolu
509 tabvint(428)=numels10
510 tabvint(429)=numels20
511 tabvint(430)=idampg
512 tabvint(431)=iclose
513c TABVINT(432)=NSENSI
514c TABVINT(433)=NSENSR
515 tabvint(434)=nibvel
516 tabvint(435)=lwasph
517 tabvint(436)=numels16
518 tabvint(437)=numels8
519 tabvint(438)=nrivf
520 tabvint(439)=nxframe
521 tabvint(440)=nsphio
522 tabvint(441)=nisphio
523 tabvint(442)=lag_ncf
524 tabvint(443)=lag_nkf
525 tabvint(444)=lag_nhf
526 tabvint(445)=lag_ncl
527 tabvint(446)=lag_nkl
528 tabvint(447)=lag_nhl
529 tabvint(448)=nbcslag
530 tabvint(449)=lactiv
531 tabvint(450)=nactiv
532 tabvint(451)=ndamp
533C-----7
534 tabvint(452)=nicbag
535 tabvint(453)=nrcbag
536 tabvint(454)=licbag
537 tabvint(455)=lrcbag
538 tabvint(456)=nibjet
539 tabvint(457)=nrbjet
540 tabvint(458)=nibhol
541 tabvint(459)=nrbhol
542 tabvint(460)=libagjet
543 tabvint(461)=lrbagjet
544 tabvint(462)=libaghol
545 tabvint(463)=lrbaghol
546 tabvint(464)=ngjoint
547 tabvint(465)=nummpc
548 tabvint(466)=lvsphio
549C-----
550! tabvint(467)= sithgrpa -- obsolete
551! TABVINT(468)= SITHGRPB
552! TABVINT(469)= SITHGRPC
553! TABVINT(470)= SITHGRPD
554! TABVINT(471)= SITHGRPE
555! TABVINT(472)= SITHGRPF
556! TABVINT(473)= SITHGRPG
557! TABVINT(474)= SITHGRPH
558! TABVINT(475)= SITHGRPI
559C
560 tabvint(476)=nthgrp01(1)
561 tabvint(477)=nthgrp01(2)
562 tabvint(478)=nthgrp01(3)
563 tabvint(479)=nthgrp01(4)
564 tabvint(480)=nthgrp01(5)
565 tabvint(481)=nthgrp01(6)
566 tabvint(482)=nthgrp01(7)
567 tabvint(483)=nthgrp01(8)
568 tabvint(484)=nthgrp01(9)
569C
570 tabvint(485)=nthgrp1(1)
571 tabvint(486)=nthgrp1(2)
572 tabvint(487)=nthgrp1(3)
573 tabvint(488)=nthgrp1(4)
574 tabvint(489)=nthgrp1(5)
575 tabvint(490)=nthgrp1(6)
576 tabvint(491)=nthgrp1(7)
577 tabvint(492)=nthgrp1(8)
578 tabvint(493)=nthgrp1(9)
579
580 lvarint=493
581C-----
582 CALL write_array(outp_v , 1, mx_outp, tabvint, lvarint)
583 CALL write_array(outp_ss, 1, mx_outp, tabvint, lvarint)
584 CALL write_array(outp_st, 1, mx_outp, tabvint, lvarint)
585 CALL write_array(outp_cs, 1, mx_outp, tabvint, lvarint)
586 CALL write_array(outp_ct, 1, mx_outp, tabvint, lvarint)
587 CALL write_array(outp_ts, 1, mx_outp, tabvint, lvarint)
588 CALL write_array(outp_ps, 1, mx_outp, tabvint, lvarint)
589 CALL write_array(outp_pt, 1, mx_outp, tabvint, lvarint)
590 CALL write_array(outp_rs, 1, mx_outp, tabvint, lvarint)
591 CALL write_array(outp_rt, 1, mx_outp, tabvint, lvarint)
592 CALL write_array(anim_v , 1, mx_ani , tabvint, lvarint)
593 CALL write_array(anim_t , 1, mx_ani , tabvint, lvarint)
594 CALL write_array(anim_e , 1, mx_ani , tabvint, lvarint)
595 CALL write_array(anim_ce, 1, mx_ani , tabvint, lvarint)
596 CALL write_array(anim_se, 1, mx_ani , tabvint, lvarint)
597 CALL write_array(anim_fe, 1, mx_ani , tabvint, lvarint)
598 CALL write_array(anim_ct, 1, mx_ani , tabvint, lvarint)
599 CALL write_array(anim_st, 1, mx_ani , tabvint, lvarint)
600 CALL write_array(anim_ft, 1, mx_ani , tabvint, lvarint)
601C-----
602 lvarint=lvarint+1
603 tabvint(lvarint)=anim_m
604 lvarint=lvarint+1
605 tabvint(lvarint)=anim_k
606 lvarint=lvarint+1
607 tabvint(lvarint)=anim_u
608 lvarint=lvarint+1
609 tabvint(lvarint)=anim_mat
610 lvarint=lvarint+1
611 tabvint(lvarint)=ncuts
612 lvarint=lvarint+1
613 tabvint(lvarint)=iepsdot
614 lvarint=lvarint+1
615 tabvint(lvarint)=fmt_ani
616 lvarint=lvarint+1
617 tabvint(lvarint)=anim_vers
618 lvarint=lvarint+1
619 tabvint(lvarint)=izip
620 lvarint=lvarint+1
621 tabvint(lvarint)=nrbylag
622 lvarint=lvarint+1
623 tabvint(lvarint)=nfvlag
624 lvarint=lvarint+1
625 tabvint(lvarint)=nnprw
626 lvarint=lvarint+1
627 tabvint(lvarint)=nrwlag
628 lvarint=lvarint+1
629 tabvint(lvarint)=nhmax
630 lvarint=lvarint+1
631 tabvint(lvarint)=lagmod
632 lvarint=lvarint+1
633 tabvint(lvarint)=lagopt
634 lvarint=lvarint+1
635 tabvint(lvarint)=nsegflu
636 lvarint=lvarint+1
637 tabvint(lvarint)=ale%GLOBAL%NVCONV
638C-----
639 DO i=1,ale%GLOBAL%LCONV
640 tabvint(lvarint+i)=ale%GLOBAL%CODV(i)
641 ENDDO
642C-----
643 lvarint=lvarint+ale%GLOBAL%LCONV+1
644 tabvint(lvarint)=npebc
645 lvarint=lvarint+1
646 tabvint(lvarint)=nebcs
647 lvarint=lvarint+1
648 tabvint(lvarint)=nrbykin
649 lvarint=lvarint+1
650 tabvint(lvarint)=nbcskin
651 lvarint=lvarint+1
652 tabvint(lvarint)=numels8a
653 lvarint=lvarint+1
654 tabvint(lvarint)=numeltg6
655C-----
656 DO i=1,12
657 tabvint(lvarint + i) = idtmin(i)
658 ENDDO
659C----- chk pt restart
660 tabvint(lvarint + 13 ) = idtgr(11)
661 tabvint(lvarint + 14 ) = nodadt
662 tabvint(lvarint + 15 ) = nproc
663C No more used TABVINT(LVARINT + 16 )
664 tabvint(lvarint + 17 ) = th_vers
665 tabvint(lvarint + 18 ) = istatg
666 tabvint(lvarint + 19 ) = istat
667 tabvint(lvarint + 20 ) = nth
668 tabvint(lvarint + 21 ) = nanim
669 tabvint(lvarint + 22 ) = 0
670 tabvint(lvarint + 23 ) = imon
671 tabvint(lvarint + 24 ) = idum
672 DO i=1,10
673 tabvint(lvarint + 24 + i) = debug(i)
674 ENDDO
675 tabvint(lvarint + 35 ) = itrace
676 tabvint(lvarint + 36 ) = ale%GLOBAL%INCOMP
677 tabvint(lvarint + 37 ) = 0
678 tabvint(lvarint + 38 ) = ale%SUB%IALESUB
679 tabvint(lvarint + 39 ) = impl
680 tabvint(lvarint + 40 ) = nitmx
681 tabvint(lvarint + 41 ) = ale%UPWIND%UPWM
682 tabvint(lvarint + 43 ) = iddw
683 tabvint(lvarint + 44 ) = ipread
684 tabvint(lvarint + 45 ) = nsflsw
685 tabvint(lvarint + 46 ) = ntflsw
686 tabvint(lvarint + 47 ) = 0 !IUSERW
687 tabvint(lvarint + 48 ) = 0 !NUSERW
688 tabvint(lvarint + 49 ) = irad2r
689c noise
690 tabvint(lvarint + 50 ) = nnoise
691 tabvint(lvarint + 51 ) = rnoi
692 tabvint(lvarint + 52 ) = noisev
693 tabvint(lvarint + 53 ) = noisea
694 tabvint(lvarint + 54 ) = noisep
695c link
696 tabvint(lvarint + 55 ) = nrlink
697 tabvint(lvarint + 56 ) = nalelk
698 tabvint(lvarint + 57 ) = lllink
699 !!!TABVINT(LVARINT + 58 ) = LLINAL
700 lvarint=lvarint+58
701 CALL write_array(anim_n, 1, mx_ani , tabvint, lvarint)
702C-----
703 lvarint=lvarint+1
704 tabvint(lvarint)=ioutp_fmt
705 lvarint=lvarint+1
706 tabvint(lvarint)=npropgi
707 lvarint=lvarint+1
708 tabvint(lvarint)=npropmi
709 lvarint=lvarint+1
710 tabvint(lvarint)=nexmad
711 lvarint=lvarint+1
712 tabvint(lvarint)=nmadprt
713 lvarint=lvarint+1
714 tabvint(lvarint)=nmadsh4
715 lvarint=lvarint+1
716 tabvint(lvarint)=nmadsh3
717 lvarint=lvarint+1
718 tabvint(lvarint)=nmadsol
719 lvarint=lvarint+1
720 tabvint(lvarint)=nmadnod
721 lvarint=lvarint+1
722 tabvint(lvarint)=ishfram
723 lvarint=lvarint+1
724 tabvint(lvarint)= nskyrw0
725 lvarint=lvarint+1
726 tabvint(lvarint)= nskyrbk0
727 lvarint=lvarint+1
728 tabvint(lvarint)= nbddnod
729 lvarint=lvarint+1
730 tabvint(lvarint)= nbddnrb
731 lvarint=lvarint+1
732 tabvint(lvarint)= multimax
733 lvarint=lvarint+1
734 tabvint(lvarint)= nbddi2m
735 lvarint=lvarint+1
736 tabvint(lvarint)= niskyi2
737 lvarint=lvarint+1
738 tabvint(lvarint)= lcni2
739 lvarint=lvarint+1
740 tabvint(lvarint)= i2nsnt
741 lvarint=lvarint+1
742 tabvint(lvarint)= nskymv0
743 lvarint=lvarint+1
744 tabvint(lvarint)= nskymvc0
745 lvarint=lvarint+1
746 tabvint(lvarint)= nskyll0
747 lvarint=lvarint+1
748 tabvint(lvarint)= nbddncj
749 lvarint=lvarint+1
750 tabvint(lvarint)= nbddnrbm
751 lvarint=lvarint+1
752 tabvint(lvarint)= nskyrbm0
753 lvarint=lvarint+1
754 tabvint(lvarint)= nnodtcut
755 lvarint=lvarint+1
756 tabvint(lvarint)= nnodlcut
757 lvarint=lvarint+1
758 tabvint(lvarint)=nbddrbe3m
759 lvarint=lvarint+1
760 tabvint(lvarint)=nskyrbe30
761 lvarint=lvarint+1
762 tabvint(lvarint)= nparir
763 lvarint=lvarint+1
764 tabvint(lvarint)= numnodg
765 lvarint=lvarint+1
766 tabvint(lvarint)= numnodm
767 lvarint=lvarint+1
768 tabvint(lvarint)= numelqg
769 lvarint=lvarint+1
770 tabvint(lvarint)= numelcg
771 lvarint=lvarint+1
772 tabvint(lvarint)= numeltgg
773 lvarint=lvarint+1
774 tabvint(lvarint)= 0
775 lvarint=lvarint+1
776 tabvint(lvarint)= numelsg
777 lvarint=lvarint+1
778 tabvint(lvarint)= numelpg
779 lvarint=lvarint+1
780 tabvint(lvarint)= numelrg
781 lvarint=lvarint+1
782 tabvint(lvarint)= numeltrg
783 lvarint=lvarint+1
784 tabvint(lvarint)= nb1dg
785 lvarint=lvarint+1
786 tabvint(lvarint)= nskewag
787 lvarint=lvarint+1
788 tabvint(lvarint)= sectiom
789 lvarint=lvarint+1
790 tabvint(lvarint)= numels16g
791 lvarint=lvarint+1
792 tabvint(lvarint)= num16shift
793 lvarint=lvarint+1
794 tabvint(lvarint)= outyy_fmt
795 lvarint=lvarint+1
796 tabvint(lvarint)=nfxbody
797 lvarint=lvarint+1
798 tabvint(lvarint)=lennod
799 lvarint=lvarint+1
800 tabvint(lvarint)=lenmod
801 lvarint=lvarint+1
802 tabvint(lvarint)=lenglm
803 lvarint=lvarint+1
804 tabvint(lvarint)=lencp
805 lvarint=lvarint+1
806 tabvint(lvarint)=lenlm
807 lvarint=lvarint+1
808 tabvint(lvarint)=lenfls
809 lvarint=lvarint+1
810 tabvint(lvarint)=lendls
811 lvarint=lvarint+1
812 tabvint(lvarint)=lenvar
813 lvarint=lvarint+1
814 tabvint(lvarint)=lenrpm
815 lvarint=lvarint+1
816 tabvint(lvarint)=lenmcd
817 lvarint=lvarint+1
818 tabvint(lvarint)=lenelm
819 lvarint=lvarint+1
820 tabvint(lvarint)=lensig
821 lvarint=lvarint+1
822 tabvint(lvarint)=lengrvi
823 lvarint=lvarint+1
824 tabvint(lvarint)=lengrvr
825 lvarint=lvarint+1
826 tabvint(lvarint)=nbipm
827 lvarint=lvarint+1
828 tabvint(lvarint)=nsfxby
829 lvarint=lvarint+1
830 tabvint(lvarint)=neig
831 lvarint=lvarint+1
832 tabvint(lvarint)=neipm
833 lvarint=lvarint+1
834 tabvint(lvarint)=nerpm
835 lvarint=lvarint+1
836 tabvint(lvarint)=leibuf
837 lvarint=lvarint+1
838 tabvint(lvarint)= nintsub
839C--------------------------------------
840 lvarint=lvarint+1
841 tabvint(lvarint)=irootyy
842 lvarint=lvarint+1
843 tabvint(lvarint)=invers
844 lvarint=lvarint+1
845 tabvint(lvarint)=ncrst
846 lvarint=lvarint+1
847 tabvint(lvarint)=irltyp
848 lvarint=lvarint+1
849 tabvint(lvarint)=iretyp
850 lvarint=lvarint+1
851 tabvint(lvarint)=multirest
852 lvarint=lvarint+1
853 tabvint(lvarint)=irprev
854 lvarint=lvarint+1
855 tabvint(lvarint)= trimat
856 lvarint=lvarint+1
857 tabvint(lvarint)= sphshift
858 lvarint=lvarint+1
859 tabvint(lvarint)= numsphg
860 lvarint=lvarint+1
861 tabvint(lvarint)= numelxg
862 lvarint=lvarint+1
863 tabvint(lvarint)= nithgr
864 lvarint=lvarint+1
865 tabvint(lvarint)=npebcr
866 lvarint=lvarint+1
867 tabvint(lvarint)= nbi18
868 lvarint=lvarint+1
869 tabvint(lvarint)= nskyi18
870C partie commun spmd cfd
871 lvarint=lvarint+1
872 tabvint(lvarint)= nsvois
873 lvarint=lvarint+1
874 tabvint(lvarint)= nqvois
875 lvarint=lvarint+1
876 tabvint(lvarint) = ntgvois
877 lvarint = lvarint + 1
878 tabvint(lvarint)= nrcvvois
879 lvarint=lvarint+1
880 tabvint(lvarint)= nsndvois
881 lvarint=lvarint+1
882 tabvint(lvarint)= nervois
883 lvarint=lvarint+1
884 tabvint(lvarint)= nesvois
885 lvarint=lvarint+1
886 tabvint(lvarint)= ilaw11
887 lvarint=lvarint+1
888 tabvint(lvarint)= nsegcom
889 lvarint=lvarint+1
890 tabvint(lvarint)= numporl
891 lvarint=lvarint+1
892 tabvint(lvarint)= ale%GLOBAL%ICAA
893 lvarint=lvarint+1
894 tabvint(lvarint)= isphbuc
895 lvarint=lvarint+1
896 tabvint(lvarint)= nrdamp
897 lvarint=lvarint+1
898 tabvint(lvarint)=nsproc
899 lvarint=lvarint+1
900 tabvint(lvarint)=ndsolv
901 lvarint=lvarint+1
902 tabvint(lvarint)=nsbmax
903 lvarint=lvarint+1
904 tabvint(lvarint)=nsvmaxt
905 lvarint=lvarint+1
906 tabvint(lvarint)=nsmod
907 lvarint=lvarint+1
908 tabvint(lvarint)=nflow
909 lvarint=lvarint+1
910 tabvint(lvarint)=liflow
911 lvarint=lvarint+1
912 tabvint(lvarint)=lrflow
913 lvarint=lvarint+1
914 tabvint(lvarint)=niflow
915 lvarint=lvarint+1
916 tabvint(lvarint)=niioflow
917 lvarint=lvarint+1
918 tabvint(lvarint)=nrflow
919 lvarint=lvarint+1
920 tabvint(lvarint)=nrioflow
921 lvarint=lvarint+1
922 tabvint(lvarint)=icondp
923 lvarint=lvarint+1
924 tabvint(lvarint)=impl_s0
925 lvarint=lvarint+1
926 tabvint(lvarint)=nfasolfr
927 lvarint=lvarint+1
928 tabvint(lvarint)=nsegquadfr
929 lvarint=lvarint+1
930 tabvint(lvarint)=sfr_lagf
931 lvarint=lvarint+1
932 tabvint(lvarint)=sllagf
933 lvarint=lvarint+1
934 tabvint(lvarint)=nventtot
935C
936 lvarint=lvarint+1
937 tabvint(lvarint)=numelc0
938 lvarint=lvarint+1
939 tabvint(lvarint)=numeltg0
940 lvarint=lvarint+1
941 tabvint(lvarint)=numnod0
942 lvarint=lvarint+1
943 tabvint(lvarint)=nadmesh
944 lvarint=lvarint+1
945 tabvint(lvarint)=levelmax
946 lvarint=lvarint+1
947 tabvint(lvarint)=iadmrule
948 lvarint=lvarint+1
949 tabvint(lvarint)=ksh4tree
950 lvarint=lvarint+1
951 tabvint(lvarint)=ksh3tree
952 lvarint=lvarint+1
953 tabvint(lvarint)=kpadmesh
954 lvarint=lvarint+1
955 tabvint(lvarint)=kcontact
956 lvarint=lvarint+1
957 tabvint(lvarint)=kipadmesh
958 lvarint=lvarint+1
959 tabvint(lvarint)=sicontact
960 lvarint=lvarint+1
961 tabvint(lvarint)=srcontact
962 lvarint=lvarint+1
963 tabvint(lvarint)=siskwp
964 lvarint=lvarint+1
965 tabvint(lvarint)=snskwp
966 lvarint=lvarint+1
967 tabvint(lvarint)=sisensp
968 lvarint=lvarint+1
969 tabvint(lvarint)=snsensp
970 lvarint=lvarint+1
971 tabvint(lvarint)=siaccp
972 lvarint=lvarint+1
973 tabvint(lvarint)=snaccp
974 lvarint=lvarint+1
975 tabvint(lvarint)=iisrots
976C
977C .sta files
978 lvarint=lvarint+1
979 tabvint(lvarint)=mx_stat
980 lvarint=lvarint+1
981 tabvint(lvarint)=istatf
982 DO i=1, mx_stat
983 lvarint=lvarint+1
984 tabvint(lvarint)=stat_c(i)
985 ENDDO
986C
987C .dynain files
988 lvarint=lvarint+1
989 tabvint(lvarint)=dynain_data%IDYNAINF
990 DO i=1, dynain_data%MX_DYNAIN
991 lvarint=lvarint+1
992 tabvint(lvarint)=dynain_data%DYNAIN_C(i)
993 ENDDO
994 lvarint=lvarint+1
995 tabvint(lvarint)=dynain_data%DYNAIN_CHECK
996C heat transfer + int7
997 lvarint=lvarint+1
998 tabvint(lvarint) = glob_therm%INTHEAT
999C xfem
1000 lvarint=lvarint+1
1001 tabvint(lvarint)=numelcrk
1002 lvarint=lvarint+1
1003 tabvint(lvarint)=nlevset
1004C---------------------------------------
1005C heat transfer
1006 lvarint=lvarint+1
1007 tabvint(lvarint) = glob_therm%ITHERM_FE
1008C Static condensation
1009 lvarint=lvarint+1
1010 tabvint(lvarint) = istatcnd_sav
1011C Unit info
1012 lvarint=lvarint+1
1013 tabvint(lvarint)=lunit
1014 lvarint=lvarint+1
1015 tabvint(lvarint)=nunit0
1016 lvarint=lvarint+1
1017 tabvint(lvarint)=nunits
1018C
1019 lvarint=lvarint+1
1020 tabvint(lvarint)=lsh4trim
1021 lvarint=lvarint+1
1022 tabvint(lvarint)=lsh3trim
1023C
1024 lvarint=lvarint+1
1025 tabvint(lvarint)=iadmerrt
1026C
1027 lvarint=lvarint+1
1028 tabvint(lvarint)=impose_dr
1029C
1030 lvarint=lvarint+1
1031 tabvint(lvarint)=nintstamp
1032C
1033 lvarint=lvarint+1
1034 tabvint(lvarint)=inter_ithknod !defined in interface module (common_source directory)
1035C
1036C rigid material
1037C
1038 lvarint=lvarint+1
1039 tabvint(lvarint)= irigid_mat
1040C
1041 lvarint=lvarint+1
1042 tabvint(lvarint)= nrbym
1043C
1044 lvarint=lvarint+1
1045 tabvint(lvarint)= ngslnrbym
1046C
1047 lvarint=lvarint+1
1048 tabvint(lvarint)= nfrbym
1049C
1050 lvarint=lvarint+1
1051 tabvint(lvarint)= nirbym
1052C
1053 lvarint=lvarint+1
1054 tabvint(lvarint)= nskyrbmk0
1055C-----------
1056C C thermal bc
1057 lvarint=lvarint+1
1058 tabvint(lvarint)= glob_therm%NIFT
1059 lvarint=lvarint+1
1060 tabvint(lvarint)= glob_therm%NICONV
1061 lvarint=lvarint+1
1062 tabvint(lvarint)= glob_therm%LFACTHER
1063 lvarint=lvarint+1
1064 tabvint(lvarint)= glob_therm%NUMCONV
1065 lvarint=lvarint+1
1066 tabvint(lvarint)= glob_therm%NFXTEMP
1067 lvarint=lvarint+1
1068 tabvint(lvarint)= istamping
1069C-----RBE3
1070 lvarint=lvarint+1
1071 tabvint(lvarint)=nrbe3
1072 lvarint=lvarint+1
1073 tabvint(lvarint)=sirbe3
1074 lvarint=lvarint+1
1075 tabvint(lvarint)=slrbe3
1076 lvarint=lvarint+1
1077 tabvint(lvarint)=sfrbe3
1078C ----for spmd SIAD_RBE3M,SFR_RBE3M-----
1079 lvarint=lvarint+1
1080 tabvint(lvarint)=siad_rbe3m
1081 lvarint=lvarint+1
1082 tabvint(lvarint)=sfr_rbe3m
1083C-------------------------------------------------------------------
1084C spmd rigid material
1085 lvarint=lvarint+1
1086 tabvint(lvarint)= sfr_rbym
1087 lvarint=lvarint+1
1088 tabvint(lvarint)= sfr_rbym2
1089C Tableaux Noise
1090 lvarint=lvarint+1
1091 tabvint(lvarint) = sinoise
1092 lvarint=lvarint+1
1093 tabvint(lvarint) = sfnoise
1094 lvarint=lvarint+1
1095 tabvint(lvarint) = nnoise_sav
1096C shell ply xfem for composite
1097 lvarint=lvarint+1
1098 tabvint(lvarint) = iplyxfem
1099 lvarint=lvarint+1
1100 tabvint(lvarint) = nplymax
1101 lvarint=lvarint+1
1102 tabvint(lvarint) = iplybcs
1103 lvarint=lvarint+1
1104 tabvint(lvarint) = nplyxfe
1105 lvarint=lvarint+1
1106 tabvint(lvarint) = eplyxfe
1107C--------------------------------------
1108 lvarint=lvarint+1
1109 tabvint(lvarint) = ngrpart
1110C--------------------------------------
1111C Madymo array
1112 lvarint=lvarint+1
1113 tabvint(lvarint) = smadidx
1114C--------------------------------------
1115C Madcl nodes
1116 lvarint=lvarint+1
1117 tabvint(lvarint)=madclnods
1118C
1119 lvarint=lvarint+1
1120 tabvint(lvarint) = idtmins
1121 lvarint=lvarint+1
1122 tabvint(lvarint) = idtgrs
1123C--------------------------------------
1124 lvarint=lvarint+1
1125 tabvint(lvarint) = ireac
1126C--------------------------------------
1127 lvarint=lvarint+1
1128 tabvint(lvarint) = snom_sect
1129C--------------------------------------
1130 lvarint=lvarint+1
1131 tabvint(lvarint) = igrelem
1132C--------------------------------------
1133 lvarint=lvarint+1
1134 tabvint(lvarint) = nthpart
1135C--------------------------------------
1136C ecriture sur restart de tableaux de masse elementaires
1137 lvarint=lvarint+1
1138 tabvint(lvarint)=irest_mselt
1139C--------------------------------------
1140C ecriture sur restart nthread
1141 lvarint=lvarint+1
1142 tabvint(lvarint)=nthread
1143C ----for output of rotational dof -----
1144 lvarint=lvarint+1
1145 tabvint(lvarint)=idrot
1146C radiative flux
1147 lvarint=lvarint+1
1148 tabvint(lvarint)= glob_therm%NIRADIA
1149 lvarint=lvarint+1
1150 tabvint(lvarint)= glob_therm%NUMRADIA
1151C imposed heat flux
1152 lvarint=lvarint+1
1153 tabvint(lvarint)= glob_therm%NITFLUX
1154 lvarint=lvarint+1
1155 tabvint(lvarint)= glob_therm%NFXFLUX
1156C
1157 lvarint=lvarint+1
1158 tabvint(lvarint)= nsmspcg
1159C
1160 lvarint=lvarint+1
1161 tabvint(lvarint)= ntable
1162C-----RBE2
1163 lvarint=lvarint+1
1164 tabvint(lvarint)=nbddnrbe2
1165 lvarint=lvarint+1
1166 tabvint(lvarint)=nrbe2
1167 lvarint=lvarint+1
1168 tabvint(lvarint)=sirbe2
1169 lvarint=lvarint+1
1170 tabvint(lvarint)=slrbe2
1171C ----for spmd SIAD_RBE2,SFR_RBE2-----
1172 lvarint=lvarint+1
1173 tabvint(lvarint)=siad_rbe2
1174 lvarint=lvarint+1
1175 tabvint(lvarint)=sfr_rbe2
1176C ----add hierarchy for both smp spmd----
1177 lvarint=lvarint+1
1178 tabvint(lvarint)=nhrbe2
1179C --- simplified ale option + lagrange
1180 lvarint=lvarint+1
1181 tabvint(lvarint) = ialelag
1182C
1183 lvarint=lvarint+1
1184 tabvint(lvarint)=nrbe2g
1185C
1186 lvarint=lvarint+1
1187 tabvint(lvarint)=nrbe3g
1188C
1189C----------------------------------
1190C ... shell 4-N + shell 3-N (X-FEM)
1191 lvarint=lvarint+1
1192 tabvint(lvarint)=icrack3d
1193 lvarint=lvarint+1
1194 tabvint(lvarint)=lcnepxfem
1195 lvarint=lvarint+1
1196 tabvint(lvarint)=sithvar
1197 lvarint=lvarint+1
1198 tabvint(lvarint)=nplynodg
1199C --- Need NXREF Option for Modif files / SPMD
1200 lvarint=lvarint+1
1201 tabvint(lvarint) = nxref
1202C
1203 lvarint=lvarint+1
1204 tabvint(lvarint) = idtmins_int
1205C
1206 lvarint=lvarint+1
1207 tabvint(lvarint)=slcfield
1208 lvarint=lvarint+1
1209 tabvint(lvarint)=nload
1210 lvarint=lvarint+1
1211 tabvint(lvarint)=idamp_rdof
1212 lvarint=lvarint+1
1213 tabvint(lvarint)=lskew
1214 lvarint=lvarint+1
1215 tabvint(lvarint)=liskn
1216 lvarint=lvarint+1
1217 tabvint(lvarint)=lfxvelr
1218C
1219 lvarint=lvarint+1
1220 tabvint(lvarint)=nloadc
1221 lvarint=lvarint+1
1222 tabvint(lvarint)=slloadp
1223 lvarint=lvarint+1
1224 tabvint(lvarint)=nloadp
1225 lvarint=lvarint+1
1226 tabvint(lvarint)=nloadp_hyd
1227 lvarint=lvarint+1
1228 tabvint(lvarint)=nintloadp
1229 lvarint=lvarint+1
1230 tabvint(lvarint)=nintloadp21
1231C xfem for layered shell (cracks)
1232 lvarint=lvarint+1
1233 tabvint(lvarint)=lcnecrkxfem
1234 lvarint=lvarint+1
1235 tabvint(lvarint)=ncrkxfe
1236 lvarint=lvarint+1
1237 tabvint(lvarint)=ecrkxfe
1238 lvarint=lvarint+1
1239 tabvint(lvarint)=nlevmax
1240 lvarint=lvarint+1
1241 tabvint(lvarint)=ncrknodg
1242 lvarint=lvarint+1
1243 tabvint(lvarint)=ienrnod
1244 lvarint=lvarint+1
1245c Inlet outlet spmd, new tab ibufssg_io
1246 tabvint(lvarint)=sibufssg_io
1247 lvarint=lvarint+1
1248 tabvint(lvarint)=nibsph
1249 lvarint=lvarint+1
1250 tabvint(lvarint)=slinale
1251 lvarint=lvarint+1
1252 tabvint(lvarint)=nsubmod
1253 lvarint=lvarint+1
1254 tabvint(lvarint)= ale%GLOBAL%NALENOVS
1255C
1256 lvarint=lvarint+1
1257 tabvint(lvarint)=lnopt1
1258 lvarint=lvarint+1
1259 tabvint(lvarint)=lilset1
1260 lvarint=lvarint+1
1261 tabvint(lvarint)=lislin1
1262 lvarint=lvarint+1
1263 tabvint(lvarint)=ltitr
1264 lvarint=lvarint+1
1265 tabvint(lvarint)=lisurf1
1266 lvarint=lvarint+1
1267 tabvint(lvarint)=lipart1
1268 lvarint=lvarint+1
1269 tabvint(lvarint)= sizfield
1270 lvarint=lvarint+1
1271 tabvint(lvarint)= sizloadp
1272 lvarint=lvarint+1
1273 tabvint(lvarint)= i2nsn25
1274 lvarint=lvarint+1
1275 tabvint(lvarint)=lvoisph
1276 lvarint=lvarint+1
1277 tabvint(lvarint)=anim_ply
1278 lvarint=lvarint+1
1279 tabvint(lvarint)=sibordnode
1280 lvarint=lvarint+1
1281 tabvint(lvarint)=siedgesh
1282C multilayer xfem shell
1283 lvarint=lvarint+1
1284 tabvint(lvarint)=ecrkxfec
1285 lvarint=lvarint+1
1286 tabvint(lvarint)=ecrkxfetg
1287 lvarint=lvarint+1
1288 tabvint(lvarint)=numedges
1289C inter22
1290 lvarint=lvarint+1
1291 tabvint(lvarint)=int22
1292 lvarint=lvarint+1
1293 tabvint(lvarint)=i22_aleul
1294 lvarint=lvarint+1
1295 tabvint(lvarint)=nsub22
1296 lvarint=lvarint+1
1297 tabvint(lvarint)=ioutp22
1298 lvarint=lvarint+1
1299 tabvint(lvarint)=i22law37
1300 lvarint=lvarint+1
1301 tabvint(lvarint)=i22law51
1302c
1303 lvarint=lvarint+1
1304 tabvint(lvarint)= icrash
1305C
1306 lvarint=lvarint+1
1307 tabvint(lvarint) = siad_edge
1308 lvarint=lvarint+1
1309 tabvint(lvarint) = sfr_edge
1310 lvarint=lvarint+1
1311 tabvint(lvarint) = sfr_nbedge
1312C
1313 lvarint=lvarint+1
1314 tabvint(lvarint) = nbgauge
1315 lvarint=lvarint+1
1316 tabvint(lvarint) = llaccelm
1317 lvarint=lvarint+1
1318 tabvint(lvarint) = llgauge
1319C
1320 lvarint=lvarint+1
1321 tabvint(lvarint) = sigaup
1322 lvarint=lvarint+1
1323 tabvint(lvarint) = sngaup
1324C
1325 lvarint=lvarint+1
1326 tabvint(lvarint)= sdd_r2r_elem
1327 lvarint=lvarint+1
1328 tabvint(lvarint)= r2r_siu
1329C heat trasfert for interface Type21 : main temperature is variable
1330 lvarint=lvarint+1
1331 tabvint(lvarint) = ftempvar21
1332C
1333 lvarint=lvarint+1
1334 tabvint(lvarint) = numnodxfe
1335 lvarint=lvarint+1
1336 tabvint(lvarint) = snodglobxfe
1337C
1338 lvarint=lvarint+1
1339 tabvint(lvarint) = nsphsol
1340 lvarint=lvarint+1
1341 tabvint(lvarint) = first_sphsol
1342 lvarint=lvarint+1
1343 tabvint(lvarint) = iddom
1344 lvarint=lvarint+1
1345 tabvint(lvarint) = nummat0
1346 lvarint=lvarint+1
1347 tabvint(lvarint) = numgeo0
1348 lvarint=lvarint+1
1349 tabvint(lvarint) = intplyxfem
1350 lvarint=lvarint+1
1351 tabvint(lvarint) = i22len
1352c
1353 lvarint=lvarint+1
1354 tabvint(lvarint) = ncluster
1355C
1356 lvarint=lvarint+1
1357 tabvint(lvarint)=nxlaymax
1358C
1359 lvarint=lvarint+1
1360 tabvint(lvarint)=srthbuf
1361C
1362 lvarint=lvarint+1
1363 tabvint(lvarint) = numelig3d
1364 lvarint=lvarint+1
1365 tabvint(lvarint) = skxig3d
1366 lvarint=lvarint+1
1367 tabvint(lvarint) = sixig3d
1368 lvarint=lvarint+1
1369 tabvint(lvarint) = sknot
1370 lvarint=lvarint+1
1371 tabvint(lvarint) = sknotlocpc
1372 lvarint=lvarint+1
1373 tabvint(lvarint) = sknotlocel
1374 lvarint=lvarint+1
1375 tabvint(lvarint) = numfakenodigeo
1376 lvarint=lvarint+1
1377 tabvint(lvarint) = deg_max
1378C
1379 lvarint=lvarint+1
1380 tabvint(lvarint) = nxel
1381C
1382 lvarint=lvarint+1
1383 tabvint(lvarint) = nfilsol
1384 lvarint=lvarint+1
1385 tabvint(lvarint) = sensors%SFSAV
1386C
1387 lvarint=lvarint+1
1388 tabvint(lvarint) = sensors%STABSEN
1389C Stack info
1390 lvarint=lvarint+1
1391 tabvint(lvarint)=ipart_stack
1392 lvarint=lvarint+1
1393 tabvint(lvarint)=npt_stack
1394 lvarint=lvarint+1
1395 tabvint(lvarint)=ns_stack
1396C
1397 lvarint=lvarint+1
1398 tabvint(lvarint)=alefvm_param%IEnabled
1399 lvarint=lvarint+1
1400 tabvint(lvarint)=alefvm_param%ISOLVER
1401 lvarint=lvarint+1
1402 tabvint(lvarint)=alemuscl_param%IALEMUSCL
1403 lvarint=lvarint+1
1404 tabvint(lvarint)=alemuscl_param%BETA
1405 lvarint=lvarint+1
1406 tabvint(lvarint)=alemuscl_param%I_LAW
1407
1408C ITETRA=3
1409 lvarint=lvarint+1
1410 tabvint(lvarint)=isfem
1411C
1412 lvarint=lvarint+1
1413 tabvint(lvarint) = nloadp_f
1414 lvarint=lvarint+1
1415 tabvint(lvarint) = pblast%NLOADP_B
1416C /LOAD/PCYL
1417 lvarint=lvarint+1
1418 tabvint(lvarint) = loads%NLOAD_CYL
1419C
1420 lvarint=lvarint+1
1421 tabvint(lvarint) = idtmin(51)
1422C /DT/FVMBAG
1423 lvarint=lvarint+1
1424 tabvint(lvarint) = idtmin(52)
1425C
1426 lvarint=lvarint+1
1427 tabvint(lvarint)=nbr_gpmp
1428C
1429 lvarint=lvarint+1
1430 tabvint(lvarint)=taille
1431C
1432 lvarint=lvarint+1
1433 tabvint(lvarint)=ninter25
1434C
1435 lvarint=lvarint+1
1436 tabvint(lvarint)=numnor
1437C
1438 lvarint=lvarint+1
1439 tabvint(lvarint)=nbddnort
1440C
1441 lvarint=lvarint+1
1442 tabvint(lvarint)=nbddnor_max
1443C
1444 lvarint=lvarint+1
1445 tabvint(lvarint)=nbccfr25
1446C
1447 lvarint=lvarint+1
1448 tabvint(lvarint)=nbccnor
1449C
1450 lvarint=lvarint+1
1451 tabvint(lvarint)=nbddedgt
1452C
1453 lvarint=lvarint+1
1454 tabvint(lvarint)=nbddedg_max
1455C
1456 lvarint=lvarint+1
1457 tabvint(lvarint)=nsnt25
1458C
1459 lvarint=lvarint+1
1460 tabvint(lvarint)=nrtmx25
1461C drape option
1462 lvarint=lvarint+1
1463 tabvint(lvarint)=ndrape
1464C Element activation
1465 lvarint=lvarint+1
1466 tabvint(lvarint) = lractiv
1467C ID_PLY -> animation file
1468 lvarint=lvarint+1
1469 tabvint(lvarint)=numply
1470C ID_PLY -> animation file
1471 lvarint=lvarint+1
1472 tabvint(lvarint)=numstack
1473C
1474 lvarint=lvarint+1
1475 tabvint(lvarint)=tabmp_l
1476C
1477C SOL2SPH flag
1478 lvarint=lvarint+1
1479 tabvint(lvarint)=sol2sph_flag
1480 lvarint=lvarint+1
1481 tabvint(lvarint)=itsol2sph
1482C ISFINT flag
1483 lvarint=lvarint+1
1484 tabvint(lvarint)=ale%GLOBAL%ISFINT
1485C ICNDS10 dyna condensation for S10
1486 lvarint=lvarint+1
1487 tabvint(lvarint)=ns10e
1488 lvarint=lvarint+1
1489 tabvint(lvarint)=lcncnd
1490 lvarint=lvarint+1
1491 tabvint(lvarint)=siad_cndm
1492 lvarint=lvarint+1
1493 tabvint(lvarint)=sfr_cndm
1494C---- old local sys of shell3n
1495 lvarint=lvarint+1
1496 tabvint(lvarint)=ish3nfram
1497 lvarint=lvarint+1
1498 tabvint(lvarint)=stab_mat
1499C SMS auto switch
1500 lvarint=lvarint+1
1501 tabvint(lvarint)=isms_selec
1502 lvarint = lvarint + 1
1503 tabvint(lvarint) = 0
1504 IF (multi_fvm%IS_USED) tabvint(lvarint) = 1
1505 lvarint = lvarint + 1
1506 tabvint(lvarint) = 0
1507 IF (multi_fvm%IS_USED) tabvint(lvarint) = multi_fvm%NBMAT
1508C---- old Is17
1509 lvarint=lvarint+1
1510 tabvint(lvarint)=is17_old
1511C IH3D -> H3D count
1512 lvarint=lvarint+1
1513 tabvint(lvarint)=h3d_data%IH3D
1514C
1515 lvarint=lvarint+1
1516 tabvint(lvarint)=numels10g
1517C
1518 lvarint=lvarint+1
1519 tabvint(lvarint)=numels20g
1520c
1521 lvarint=lvarint+1
1522 tabvint(lvarint)= ale%GLOBAL%I_DT_NODA_ALE_ON
1523
1524C Interface Adhesion
1525 lvarint=lvarint+1
1526 tabvint(lvarint) = interadhesion
1527c
1528C Friction interface
1529 lvarint=lvarint+1
1530 tabvint(lvarint) = ninterfric
1531!
1532 lvarint=lvarint+1
1533 tabvint(lvarint)=lensubs
1534!
1535 lvarint=lvarint+1
1536 tabvint(lvarint)=lenigrnod
1537!
1538 lvarint=lvarint+1
1539 tabvint(lvarint)=lenigrbric
1540!
1541 lvarint=lvarint+1
1542 tabvint(lvarint)=lenigrquad
1543!
1544 lvarint=lvarint+1
1545 tabvint(lvarint)=lenigrsh4n
1546!
1547 lvarint=lvarint+1
1548 tabvint(lvarint)=lenigrsh3n
1549!
1550 lvarint=lvarint+1
1551 tabvint(lvarint)=lenigrtrus
1552!
1553 lvarint=lvarint+1
1554 tabvint(lvarint)=lenigrbeam
1555!
1556 lvarint=lvarint+1
1557 tabvint(lvarint)=lenigrspri
1558!
1559 lvarint=lvarint+1
1560 tabvint(lvarint)=lenigrpart
1561!
1562 lvarint=lvarint+1
1563 tabvint(lvarint)=lenisurf
1564!
1565 lvarint=lvarint+1
1566 tabvint(lvarint)=lenislin
1567
1568 lvarint=lvarint+1
1569 tabvint(lvarint)=idts6
1570
1571 lvarint=lvarint+1
1572 tabvint(lvarint)=idt1sol
1573
1574 lvarint=lvarint+1
1575 tabvint(lvarint)=idt1tet10
1576
1577 lvarint=lvarint+1
1578 tabvint(lvarint)=idt1sh
1579
1580! H3D -> number of skid lines
1581 lvarint=lvarint+1
1582 tabvint(lvarint)=h3d_data%N_SCAL_SKID
1583! h3d anim-> is maximum contact force/contact pressure computed
1584 lvarint=lvarint+1
1585 tabvint(lvarint) = ifcontmax
1586 lvarint=lvarint+1
1587 tabvint(lvarint) = ifcontpmax
1588 lvarint=lvarint+1
1589 tabvint(lvarint) = ifcont2max
1590 lvarint=lvarint+1
1591 tabvint(lvarint) = ifcontp2max
1592 lvarint=lvarint+1
1593 tabvint(lvarint) = ifcont2min
1594 lvarint=lvarint+1
1595 tabvint(lvarint) = ifcontp2min
1596 lvarint=lvarint+1
1597 tabvint(lvarint) = s_efric
1598 lvarint=lvarint+1
1599 tabvint(lvarint) = s_efricint
1600 lvarint=lvarint+1
1601 tabvint(lvarint) = s_efricg
1602 lvarint=lvarint+1
1603 tabvint(lvarint) = s_efricintg
1604 lvarint=lvarint+1
1605 tabvint(lvarint) = ninefric
1606 lvarint=lvarint+1
1607 tabvint(lvarint) = ninefric_stamp
1608C NITSCHE METHOD
1609 lvarint=lvarint+1
1610 tabvint(lvarint) = nitsche
1611C pinching
1612 lvarint=lvarint+1
1613 tabvint(lvarint) = npinch
1614 lvarint=lvarint+1
1615 tabvint(lvarint) = nploadpinch
1616C
1617 lvarint=lvarint+1
1618 tabvint(lvarint) = ale%UPWIND%I_SUPG_ON_OFF
1619
1620 lvarint=lvarint+1
1621 tabvint(lvarint)=nledge
1622!
1623 lvarint=lvarint+1
1624 tabvint(lvarint)=inispri
1625!
1626 lvarint=lvarint+1
1627 tabvint(lvarint)=sensors%NSTOP
1628 lvarint=lvarint+1
1629 tabvint(lvarint)=sensors%NSTAT
1630 lvarint=lvarint+1
1631 tabvint(lvarint)=sensors%NOUTP
1632 lvarint=lvarint+1
1633 tabvint(lvarint)=sensors%NANIM
1634!
1635 lvarint=lvarint+1
1636 tabvint(lvarint)=nibcld
1637 lvarint=lvarint+1
1638 tabvint(lvarint)=lfaccld
1639!
1640 lvarint=lvarint+1
1641 tabvint(lvarint)=nigrv
1642 lvarint=lvarint+1
1643 tabvint(lvarint)=lfacgrv
1644C BCS/CYCLIC
1645 lvarint=lvarint+1
1646 tabvint(lvarint)=nbcscyc
1647 lvarint=lvarint+1
1648 tabvint(lvarint)=sibcscyc
1649 lvarint=lvarint+1
1650 tabvint(lvarint)=slbcscyc
1651
1652 lvarint=lvarint+1
1653 tabvint(lvarint)=inter18_autoparam
1654 lvarint=lvarint+1
1655 IF(inter18_is_variable_gap_defined) THEN
1656 tabvint(lvarint) = 1
1657 ELSE
1658 tabvint(lvarint) = 0
1659 ENDIF
1660
1661
1662 IF ((iale > 0 .AND. ale%GRID%NWALE == 6) .OR. inter18_autoparam == 1 .OR. inter18_is_variable_gap_defined) THEN
1663 lvarint = lvarint + 1
1664 tabvint(lvarint) = ne_slercvois
1665 lvarint = lvarint + 1
1666 tabvint(lvarint) = ne_slesdvois
1667 lvarint = lvarint + 1
1668 tabvint(lvarint) = ne_nsvois
1669 lvarint = lvarint + 1
1670 tabvint(lvarint) = ne_nqvois
1671 lvarint = lvarint + 1
1672 tabvint(lvarint) = ne_ntgvois
1673 ENDIF
1674 lvarint=lvarint+1
1675 tabvint(lvarint)=pdel
1676C-----Seatbelts - slipring / retractors
1677 lvarint=lvarint+1
1678 tabvint(lvarint)=nslipring
1679 lvarint=lvarint+1
1680 tabvint(lvarint)=nretractor
1681 lvarint=lvarint+1
1682 tabvint(lvarint)=nslipring_g
1683 lvarint=lvarint+1
1684 tabvint(lvarint)=nretractor_g
1685 lvarint=lvarint+1
1686 tabvint(lvarint)=n_anchor_remote
1687 lvarint=lvarint+1
1688 tabvint(lvarint)=n_anchor_remote_send
1689 lvarint=lvarint+1
1690 tabvint(lvarint)=n_seatbelt
1691 lvarint=lvarint+1
1692 tabvint(lvarint)=n_seatbelt_2d
1693C
1694 lvarint=lvarint+1
1695 tabvint(lvarint)=lastanimcycle
1696
1697 lvarint=lvarint+1
1698 tabvint(lvarint)=lasth3dcycle
1699
1700 lvarint=lvarint+1
1701 tabvint(lvarint)=lastdyncycle
1702
1703 lvarint=lvarint+1
1704 tabvint(lvarint)=laststatcycle
1705
1706C
1707C---- Starter input version
1708 lvarint=lvarint+1
1709 tabvint(lvarint)=st_invers
1710C
1711C---- Number of RBODY before merge
1712 lvarint=lvarint+1
1713 tabvint(lvarint)=nrbody0
1714C---- MAX (/H3D)
1715 lvarint=lvarint+1
1716 tabvint(lvarint)=lmax_dis
1717 lvarint=lvarint+1
1718 tabvint(lvarint)=lmax_vel
1719 lvarint=lvarint+1
1720 tabvint(lvarint)=lmax_nsig
1721 lvarint=lvarint+1
1722 tabvint(lvarint)=lmax_nstra
1723C---- Time history strain flag
1724 lvarint=lvarint+1
1725 tabvint(lvarint)=th_strain
1726C draped shell element
1727 lvarint=lvarint+1
1728 tabvint(lvarint) = numelc_drape
1729 lvarint=lvarint+1
1730 tabvint(lvarint) = numeltg_drape
1731C
1732 lvarint=lvarint+1
1733 tabvint(lvarint) = inter_parameters%ISTIF_DT
1734C
1735 lvarint=lvarint+1
1736 tabvint(lvarint) = inter_parameters%INTCAREA
1737C
1738C /LOAD/CLOAD
1739 lvarint=lvarint+1
1740 tabvint(lvarint) = loads%NLOAD_CLOAD
1741C /LOAD/PLOAD
1742 lvarint=lvarint+1
1743 tabvint(lvarint) = loads%NLOAD_PLOAD
1744C-----/DAMP/VREL
1745 lvarint=lvarint+1
1746 tabvint(lvarint) = ndamp_vrel
1747!
1748 lvarint=lvarint+1
1749 tabvint(lvarint) = inter_parameters%INT25_EROSION_SOLID
1750C-----/INIVEL w/ T_start
1751 lvarint=lvarint+1
1752 tabvint(lvarint) = loads%NINIVELT
1753C-----ALE%REZON
1754 lvarint=lvarint+1
1755 tabvint(lvarint) = ale%REZON%NUM_NUVAR_MAT
1756 lvarint=lvarint+1
1757 tabvint(lvarint) = ale%REZON%NUM_NUVAR_EOS
1758C----------------------------------------------------------------
1759C warning to radioss developers : Check LVARINT < LMXVINT
1760C----------------------------------------------------------------
1761 IF (lvarint > lmxvint)stop 123
1762c-----------
1763 RETURN
ale_mod
Definition ale_mod.F:149
ale_mod::ale
type(ale_) ale
Definition ale_mod.F:249
alefvm_mod
Definition alefvm_mod.F:88
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
anim_mod
Definition anim_mod.F:96
damp_mod
Definition damp_mod.F:33
damp_mod::ndamp_vrel
integer ndamp_vrel
Definition damp_mod.F:44
drape_mod
Definition drape_mod.F:54
drape_mod::numeltg_drape
integer numeltg_drape
Definition drape_mod.F:92
drape_mod::numelc_drape
integer numelc_drape
Definition drape_mod.F:92
h3d_mod
Definition h3d_mod.F:308
outmax_mod
Definition outmax_mod.F:52
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::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_efricg
integer s_efricg
Definition outputs_mod.F:64
outputs_mod::s_efricintg
integer s_efricintg
Definition outputs_mod.F:64
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
parameters_mod
Definition parameters_mod.F:49
pinchtype_mod
Definition pinchtype_mod.F:69
pinchtype_mod::nploadpinch
integer nploadpinch
Definition pinchtype_mod.F:74
pinchtype_mod::npinch
integer npinch
Definition pinchtype_mod.F:73
state_mod
Definition state_mod.F:54
th_mod
Definition th_mod.F:42
th_mod::th_has_noda_pext
integer th_has_noda_pext
Definition th_mod.F:121
write_array
subroutine write_array(array, idx1, idx2, tabvint, lvarint)
Definition write_array.F:29

◆ wrcomr()

subroutine wrcomr ( integer lmxvrea,
integer lvarrea,
tabvrea,
type (dynain_database), intent(in) dynain_data,
type (parameters_), intent(in) inter_parameters,
type(output_), intent(inout) output,
type (glob_therm_), intent(in) glob_therm )
Parameters
[in,out]outputoutput structure

Definition at line 1779 of file wrcomm.F.

1781C-----------------------------------------------
1782C M o d u l e s
1783C-----------------------------------------------
1784 USE anim_mod
1785 USE outputs_mod
1786 USE state_mod
1787 USE ale_mod
1788 USE parameters_mod
1789 USE output_mod
1790 USE multimat_param_mod , ONLY : m51_iflg6
1791 use glob_therm_mod
1792C-----------------------------------------------
1793C I m p l i c i t T y p e s
1794C-----------------------------------------------
1795#include "implicit_f.inc"
1796C-----------------------------------------------
1797C D u m m y A r g u m e n t s
1798C-----------------------------------------------
1799 INTEGER LMXVREA,LVARREA, I
1800 my_real tabvrea(*)
1801 TYPE (DYNAIN_DATABASE), INTENT(IN) :: DYNAIN_DATA
1802 TYPE (PARAMETERS_) ,INTENT(IN):: INTER_PARAMETERS
1803 TYPE(OUTPUT_), INTENT(INOUT) :: OUTPUT !< output structure
1804 type (glob_therm_) ,intent(in) :: glob_therm
1805C-----------------------------------------------
1806C C o m m o n B l o c k s
1807C-----------------------------------------------
1808#include "com06_c.inc"
1809#include "com08_c.inc"
1810#include "cong2_c.inc"
1811#include "couple_c.inc"
1812#include "lagmult.inc"
1813#include "remesh_c.inc"
1814#include "sphcom.inc"
1815#include "scr06_c.inc"
1816#include "scr11_c.inc"
1817#include "scr18_c.inc"
1818#include "scr19_c.inc"
1819#include "scrnoi_c.inc"
1820#include "sms_c.inc"
1821#include "statr_c.inc"
1822#include "sysunit.inc"
1823#include "inter22.inc"
1824#include "itet2_c.inc"
1825C-----------------------------------------------
1826#include "ddspmd_c.inc"
1827C-----------------------------------------------
1828C L o c a l V a r i a b l e s
1829C-----------------------------------------------
1830 INTEGER IVAR,RVARINT,J
1831C--------------------------------------
1832C REAL VARIABLES TO BE WRITTEN IN RFILE
1833C=======================================================================
1834 DO ivar=1,lmxvrea
1835 tabvrea(ivar)=zero
1836 ENDDO
1837C-----
1838 tabvrea(1)=tt
1839 tabvrea(2)=dt1
1840 tabvrea(3)=dt2
1841 tabvrea(4)=dt12
1842 tabvrea(5)=dt2old
1843 tabvrea(6)=tstop
1844 tabvrea(7)=0 !no longer used
1845 tabvrea(8)=output%TH%THIS
1846C-----
1847 tabvrea(9)=0 !no longer used
1848 tabvrea(10)=output%TH%DTHIS
1849 tabvrea(11)=dtfac
1850 tabvrea(12)=dtmin
1851 tabvrea(13)=volmin
1852 tabvrea(14)=output%TH%WFEXT
1853 tabvrea(15)=reint
1854 tabvrea(16)=0 !no longer used
1855 tabvrea(17)=0 !no longer used
1856 tabvrea(18)=dtanim
1857 tabvrea(19)=tanim
1858 tabvrea(20)=ureint
1859 tabvrea(21)=econtv
1860 tabvrea(22)=ehour
1861 tabvrea(23)=dtoutp
1862 tabvrea(24)=toutp
1863 tabvrea(25)=t1s
1864 tabvrea(26)=dt2s
1865 tabvrea(27)=epor
1866 !unused TABVREA(28)=USREINT
1867 tabvrea(29)=r2rfx1
1868 tabvrea(30)=r2rfx2
1869 tabvrea(31)=dampa
1870 tabvrea(32)=dampb
1871 tabvrea(33)=dampw
1872C-----
1873 tabvrea(34)=ale%GRID%ALPHA
1874 tabvrea(35)=ale%GRID%GAMMA
1875 tabvrea(36)=ale%GRID%VGX
1876 tabvrea(37)=ale%GRID%VGY
1877 tabvrea(38)=ale%GRID%VGZ
1878C-----
1879C SPAOLD is not written into Rfile.
1880 tabvrea(39)=spasort
1881 tabvrea(40)=spatrue
1882 DO i=1,9
1883 tabvrea(40+i) = output%TH%DTHIS1(i)
1884 tabvrea(49+i) = output%TH%THIS1(i)
1885 ENDDO
1886 tabvrea(59) = mass0
1887 tabvrea(60) = entot0
1888 lvarrea=60
1889 tabvrea(61)=lagm_tol
1890 tabvrea(62)=lag_alph
1891 tabvrea(63)=lag_alphs
1892 DO i=1,12
1893 tabvrea(63 + i) = dtfac1(i)
1894 tabvrea(63 + 12 +i) = dtmin1(i)
1895 ENDDO
1896 tabvrea(88) = beta
1897 tabvrea(89) = betate
1898 tabvrea(90) = period
1899 tabvrea(91) = dmtmxs
1900 tabvrea(92) = dmnmxs
1901 tabvrea(93) = dmnmxs
1902 tabvrea(94) = dtin
1903 tabvrea(95) = dtmx
1904 tabvrea(96) = madul
1905 tabvrea(97) = madut
1906 tabvrea(98) = madum
1907 tabvrea(99) = ale%SUB%DTFSUB
1908 tabvrea(100) = ale%SUB%DTMSUB
1909 tabvrea(101) = eps
1910 tabvrea(102) = eps2
1911 tabvrea(103) = ale%UPWIND%CUPWM
1912Cnoise
1913 tabvrea(104) = tnoise
1914 tabvrea(105) = dtnoise
1915 tabvrea(106)=dwmad
1916 lvarrea=106
1917 tabvrea(107)=fac_mass
1918 tabvrea(108)=fac_length
1919 tabvrea(109)=fac_time
1920 tabvrea(110)=t1sh
1921 tabvrea(111) = ale%UPWIND%UPWSM
1922 rvarint = 111
1923 rvarint = rvarint + 1
1924 tabvrea(rvarint) = tpsref
1925C THERMAL ANALYSIS
1926 rvarint = rvarint + 1
1927 tabvrea(rvarint) = glob_therm%HEAT_STORED
1928 rvarint = rvarint + 1
1929 tabvrea(rvarint) = glob_therm%HEAT_MECA
1930 rvarint = rvarint + 1
1931 tabvrea(rvarint) = glob_therm%HEAT_CONV
1932 rvarint = rvarint + 1
1933 tabvrea(rvarint) = glob_therm%HEAT_RADIA
1934 rvarint = rvarint + 1
1935 tabvrea(rvarint) = glob_therm%HEAT_FFLUX
1936C TABLEAU SOL1TNL
1937 DO i=0, maxlaw
1938 rvarint = rvarint + 1
1939 tabvrea(rvarint) = sol1tnl(i,1)
1940 rvarint = rvarint + 1
1941 tabvrea(rvarint) = sol1tnl(i,2)
1942 ENDDO
1943C TABLEAU SOL8TNL
1944 DO i=0, maxlaw
1945 rvarint = rvarint + 1
1946 tabvrea(rvarint) = sol8tnl(i,1)
1947 rvarint = rvarint + 1
1948 tabvrea(rvarint) = sol8tnl(i,2)
1949 ENDDO
1950 DO i=0, maxlaw
1951 rvarint = rvarint + 1
1952 tabvrea(rvarint) = tet10tnl(i,1)
1953 ENDDO
1954 DO i=0, maxlaw
1955 rvarint = rvarint + 1
1956 tabvrea(rvarint) = tet10tnl(i,1)
1957 ENDDO
1958C TABLEAU SHTNL
1959 DO i=0, maxlaw
1960 DO j=0,3
1961 rvarint = rvarint + 1
1962 tabvrea(rvarint) = shtnl(i,j,1)
1963 rvarint = rvarint + 1
1964 tabvrea(rvarint) = shtnl(i,j,2)
1965 rvarint = rvarint + 1
1966 tabvrea(rvarint) = shtnl(i,j,3)
1967 ENDDO
1968 ENDDO
1969C TABLEAU TRITNL
1970 DO i=0, maxlaw
1971 DO j=0,3
1972 rvarint = rvarint + 1
1973 tabvrea(rvarint) = tritnl(i,j,1)
1974 rvarint = rvarint + 1
1975 tabvrea(rvarint) = tritnl(i,j,2)
1976 rvarint = rvarint + 1
1977 tabvrea(rvarint) = tritnl(i,j,3)
1978 ENDDO
1979 ENDDO
1980C TABLEAU SOLTELT
1981 DO i=1,8
1982 rvarint = rvarint + 1
1983 tabvrea(rvarint) = soltelt(i)
1984 ENDDO
1985 rvarint = rvarint + 1
1986 tabvrea(rvarint) = tet4telt(1)
1987 rvarint = rvarint + 1
1988 tabvrea(rvarint) = tet10telt(1)
1989C TABLEAU SHTELT
1990 DO i=1,10
1991 rvarint = rvarint + 1
1992 tabvrea(rvarint) = shtelt(i)
1993 ENDDO
1994C TABLEAU TRITELT
1995 DO i=1,10
1996 rvarint = rvarint + 1
1997 tabvrea(rvarint) = tritelt(i)
1998 ENDDO
1999C
2000C .sta files
2001 rvarint = rvarint + 1
2002 tabvrea(rvarint)=dtstat
2003 rvarint = rvarint + 1
2004 tabvrea(rvarint)=tstat
2005C .dynain files
2006 rvarint = rvarint + 1
2007 tabvrea(rvarint)=dynain_data%DTDYNAIN
2008 rvarint = rvarint + 1
2009 tabvrea(rvarint)=dynain_data%TDYNAIN
2010C
2011 rvarint = rvarint + 1
2012 tabvrea(rvarint) = tadmesh
2013 rvarint = rvarint + 1
2014 tabvrea(rvarint) = dtadmesh
2015C
2016 rvarint = rvarint + 1
2017 tabvrea(rvarint) = dtfacs
2018 rvarint = rvarint + 1
2019 tabvrea(rvarint) = dtmins
2020 rvarint = rvarint + 1
2021 tabvrea(rvarint) = tol_sms
2022C abf files
2023 DO i=1,10
2024 rvarint = rvarint + 1
2025 tabvrea(rvarint) = tabfis(i)
2026 rvarint = rvarint + 1
2027 tabvrea(rvarint) = dtabf(i)
2028 rvarint = rvarint + 1
2029 tabvrea(rvarint) = dtabfwr(i)
2030 rvarint = rvarint + 1
2031 tabvrea(rvarint) = tabfwr(i)
2032 ENDDO
2033
2034C
2035 rvarint = rvarint + 1
2036 tabvrea(rvarint) = ratio22
2037C
2038 rvarint = rvarint + 1
2039 tabvrea(rvarint) = m51_iflg6
2040C
2041 rvarint = rvarint + 1
2042 tabvrea(rvarint) = ms_nd
2043C
2044 rvarint = rvarint + 1
2045 tabvrea(rvarint) = dmsi2
2046C
2047 rvarint = rvarint + 1
2048 tabvrea(rvarint) = msi20
2049C
2050 rvarint = rvarint + 1
2051 tabvrea(rvarint) = dtfac1(51)
2052 rvarint = rvarint + 1
2053 tabvrea(rvarint) = dtmin1(51)
2054C /DT/FVMBAG
2055 rvarint = rvarint + 1
2056 tabvrea(rvarint) = dtfac1(52)
2057 rvarint = rvarint + 1
2058 tabvrea(rvarint) = dtmin1(52)
2059C
2060 rvarint = rvarint + 1
2061 tabvrea(rvarint) = dtfac1(102)
2062 rvarint = rvarint + 1
2063 tabvrea(rvarint) = dtmin1(102)
2064C
2065 rvarint = rvarint + 1
2066 tabvrea(rvarint) = dtfacs_int
2067 rvarint = rvarint + 1
2068 tabvrea(rvarint) = dtmins_int
2069C
2070C BETATE_0, EINT_0,ENCIN_0,PIMAX ,PCMAX,PINT ,PCIN
2071 rvarint = rvarint + 1
2072 tabvrea(rvarint) = betate
2073 rvarint = rvarint + 1
2074 tabvrea(rvarint) = eint_0
2075 rvarint = rvarint + 1
2076 tabvrea(rvarint) = encin_0
2077 rvarint = rvarint + 1
2078 tabvrea(rvarint) = pimax
2079 rvarint = rvarint + 1
2080 tabvrea(rvarint) = pcmax
2081 rvarint = rvarint + 1
2082 tabvrea(rvarint) = pint
2083 rvarint = rvarint + 1
2084 tabvrea(rvarint) = pcin
2085 rvarint = rvarint + 1
2086 tabvrea(rvarint:rvarint+3) = fil_ie(1:4)
2087 rvarint = rvarint + 4
2088 tabvrea(rvarint:rvarint+3) = fil_ke(1:4)
2089 rvarint = rvarint + 4
2090 tabvrea(rvarint) = nfirst
2091C
2092 rvarint = rvarint + 1
2093 tabvrea(rvarint) = ale%GRID%VGY0
2094 rvarint = rvarint + 1
2095 tabvrea(rvarint) = ale%GRID%VGZ0
2096 rvarint = rvarint + 1
2097 tabvrea(rvarint) = econtd
2098 rvarint = rvarint + 1
2099 tabvrea(rvarint) = econt_cumu
2100C
2101C INITIAL MASS IN STARTER
2102 rvarint = rvarint + 1
2103 tabvrea(rvarint) = mass0_start
2104 rvarint = rvarint + 1
2105 tabvrea(rvarint) = percent_addmass_old
2106
2107 rvarint = rvarint + 1
2108 tabvrea(rvarint) = tanim_stop
2109
2110 rvarint = rvarint + 1
2111 tabvrea(rvarint) = xi_res
2112 rvarint = rvarint + 1
2113 tabvrea(rvarint) = yi_res
2114 rvarint = rvarint + 1
2115 tabvrea(rvarint) = zi_res
2116C
2117 rvarint = rvarint + 1
2118 tabvrea(rvarint) = inter_parameters%DT_STIFINT
2119C KINETIC ENERGY
2120 rvarint = rvarint + 1
2121 tabvrea(rvarint) = encin
2122 rvarint = rvarint + 1
2123 tabvrea(rvarint) = enrot
2124C
2125 lvarrea =rvarint
2126C----------------------------------------------------------------
2127C warning to radioss developers : Check LVARREA < LMXVREA
2128C--------------------------------------
2129 RETURN
my_real
#define my_real
Definition cppsort.cpp:32