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

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