OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
wrcommp.F File Reference
#include "implicit_f.inc"
#include "com01_c.inc"
#include "com04_c.inc"
#include "com09_c.inc"
#include "com10_c.inc"
#include "com_xfem1.inc"
#include "drape_c.inc"
#include "eigcom.inc"
#include "flowcom.inc"
#include "fxbcom.inc"
#include "ige3d_c.inc"
#include "inter18.inc"
#include "inter22.inc"
#include "intstamp_c.inc"
#include "lagmult.inc"
#include "param_c.inc"
#include "r2r_c.inc"
#include "remesh_c.inc"
#include "scr03_c.inc"
#include "scr16_c.inc"
#include "scr17_c.inc"
#include "scr23_c.inc"
#include "sms_c.inc"
#include "sphcom.inc"
#include "spmd_c.inc"
#include "tabsiz_c.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine wrcomip (lmxvint, lvarint, tabvint, ngroup_l, lbufel_l, lenwa_l, intbag_l, numelq_l, numels_l, numelc_l, numelt_l, numelr_l, numelp_l, numelx_l, isumnx_l, numels10_l, numels20_l, numels8_l, numels16_l, lnom_opt, numeltg_l, numeltg6_l, nslarb_l, numnod_l, numel_l, nsvois_l, nqvois_l, ntgvois_l, lenlas, nllink_l, llgrav_l, llbvel_l, nslaw_l, neslaw_l, nskyll_l, nstrf_l, ljoint_l, lenvolu, lenthg, lbufmat, lbufgeo, lbufsf, lenxlas, lwsav_l, lsecbuf_l, numpor_l, npts, nbddnod_l, nfxvel_l, nbddnrb_l, lcne_l, nskyrw_l, nskyrbk_l, nbddi2m_l, lcni2_l, niskyi2_l, i2nsnt_l, nconld_l, nnmv_l, nnmvc_l, nbddncj_l, nbddnrbm_l, nskyrbm_l, nnodt_l, nnodl_l, nmadsh4_l, nmadsh3_l, nmadsol_l, nmadnod_l, imaximp_l, isp0, num16shift_l, numsph_l, lwasph_l, sphshift_l, nrcvvois_l, nsndvois_l, nervois_l, nesvois_l, ilaw11_l, nsegfl_l, nbi18_l, nskyi18_l, leibuf_l, lenthbuf, nfasolfr_l, lennod_l, lenmod_l, lenelm_l, lensig_l, lenglm_l, lencp_l, lenlm_l, lenfls_l, lendls_l, lenmcd_l, lengrvi_l, lengrvr_l, nlagf_l, lrbagale, skippon_l, nconv_l, nfxtemp_l, nfxflux_l, nrbe3_l, llrbe3_l, nbddnrbe3_l, nskyrbe3_l, nslarbm_l, nskyrbmk_l, nbddnrbym_l, madcl_nmadnod_l, nradia_l, nrbe2_l, llrbe2_l, nbddnrbe2_l, numelcpxfe_l, numnodpxfe_l, lcnepxfem_l, llcfield_l, llloadp_l, numelcrkxfe_l, numnodcrkxfe_l, lcnecrkxfem_l, slonfsph_l, slprtsph_l, ssphveln_l, i2nsn25_l, numelccrkxfe_l, numeltgcrkxfe_l, numedges_l, nbddedge_l, sdd_r2r_elem, numnodxfe_l, nsphsol_l, first_sphsol_l, ncluster_l, lenthbufr, numnor_l, nbddnort_l, nbddnor_max_l, nbccnor_l, nbccfr25_l, ns10e_l, lcncnd_l, nbddcndm_l, nbebcs, iebcs_lgth, multi_fvm, nsegquadfr_l, nbddedgt_l, nbddedg_max_l, nrtmx25_l, lenigrnod_l, lenigrbric_l, lenigrquad_l, lenigrsh4n_l, lenigrtrus_l, lenigrbeam_l, lenigrspri_l, lenigrsh3n_l, lenisurf_l, lenislin_l, ne_nervois_l, ne_nesvois_l, ne_nsvois_l, ne_nqvois_l, ne_ntgvois_l, nbcscyc_l, llbcscyc_l, ale_connectivity, n_slipring_l, n_retractor_l, n_anchor_remote_l, n_anchor_remote_send_l, n_seatbelt_l, n_seatbelt_2d_l, dynain_data, numsh4n_l, numsh3n_l, inter_parameters, sensors, nload_cyl, ncload_l, npload_l, ndamp_vrel_l, unitab, lwamp_l, lwanmp_l, ninivelt_l, glob_therm, pblast)

Function/Subroutine Documentation

◆ wrcomip()

subroutine wrcomip ( integer lmxvint,
integer lvarint,
integer, dimension(*) tabvint,
integer ngroup_l,
integer lbufel_l,
integer lenwa_l,
integer intbag_l,
integer numelq_l,
integer numels_l,
integer numelc_l,
integer numelt_l,
integer numelr_l,
integer numelp_l,
integer numelx_l,
integer isumnx_l,
integer numels10_l,
integer numels20_l,
integer numels8_l,
integer numels16_l,
integer lnom_opt,
integer numeltg_l,
integer numeltg6_l,
integer nslarb_l,
integer numnod_l,
integer numel_l,
integer nsvois_l,
integer nqvois_l,
integer ntgvois_l,
integer lenlas,
integer nllink_l,
integer llgrav_l,
integer llbvel_l,
integer nslaw_l,
integer neslaw_l,
integer nskyll_l,
integer nstrf_l,
integer ljoint_l,
integer lenvolu,
integer lenthg,
integer lbufmat,
integer lbufgeo,
integer lbufsf,
integer lenxlas,
integer lwsav_l,
integer lsecbuf_l,
integer numpor_l,
integer npts,
integer nbddnod_l,
integer nfxvel_l,
integer nbddnrb_l,
integer lcne_l,
integer nskyrw_l,
integer nskyrbk_l,
integer nbddi2m_l,
integer lcni2_l,
integer niskyi2_l,
integer i2nsnt_l,
integer nconld_l,
integer nnmv_l,
integer nnmvc_l,
integer nbddncj_l,
integer nbddnrbm_l,
integer nskyrbm_l,
integer nnodt_l,
integer nnodl_l,
integer nmadsh4_l,
integer nmadsh3_l,
integer nmadsol_l,
integer nmadnod_l,
integer imaximp_l,
integer isp0,
integer num16shift_l,
integer numsph_l,
integer lwasph_l,
integer sphshift_l,
integer nrcvvois_l,
integer nsndvois_l,
integer nervois_l,
integer nesvois_l,
integer ilaw11_l,
integer nsegfl_l,
integer nbi18_l,
integer nskyi18_l,
integer leibuf_l,
integer lenthbuf,
integer nfasolfr_l,
integer lennod_l,
integer lenmod_l,
integer lenelm_l,
integer lensig_l,
integer lenglm_l,
integer lencp_l,
integer lenlm_l,
integer lenfls_l,
integer lendls_l,
integer lenmcd_l,
integer lengrvi_l,
integer lengrvr_l,
integer nlagf_l,
integer lrbagale,
integer skippon_l,
integer nconv_l,
integer nfxtemp_l,
integer nfxflux_l,
integer nrbe3_l,
integer llrbe3_l,
integer nbddnrbe3_l,
integer nskyrbe3_l,
integer nslarbm_l,
integer nskyrbmk_l,
integer nbddnrbym_l,
integer madcl_nmadnod_l,
integer nradia_l,
integer nrbe2_l,
integer llrbe2_l,
integer nbddnrbe2_l,
integer numelcpxfe_l,
integer numnodpxfe_l,
integer lcnepxfem_l,
integer llcfield_l,
integer llloadp_l,
integer numelcrkxfe_l,
integer numnodcrkxfe_l,
integer lcnecrkxfem_l,
integer slonfsph_l,
integer slprtsph_l,
integer ssphveln_l,
integer i2nsn25_l,
integer numelccrkxfe_l,
integer numeltgcrkxfe_l,
integer numedges_l,
integer nbddedge_l,
integer sdd_r2r_elem,
integer numnodxfe_l,
integer nsphsol_l,
integer first_sphsol_l,
integer ncluster_l,
integer lenthbufr,
integer numnor_l,
integer nbddnort_l,
integer nbddnor_max_l,
integer nbccnor_l,
integer nbccfr25_l,
integer ns10e_l,
integer lcncnd_l,
integer nbddcndm_l,
integer nbebcs,
integer iebcs_lgth,
type(multi_fvm_struct) multi_fvm,
integer nsegquadfr_l,
integer nbddedgt_l,
integer nbddedg_max_l,
integer nrtmx25_l,
integer lenigrnod_l,
integer lenigrbric_l,
integer lenigrquad_l,
integer lenigrsh4n_l,
integer lenigrtrus_l,
integer lenigrbeam_l,
integer lenigrspri_l,
integer lenigrsh3n_l,
integer lenisurf_l,
integer lenislin_l,
integer ne_nervois_l,
integer ne_nesvois_l,
integer ne_nsvois_l,
integer ne_nqvois_l,
integer ne_ntgvois_l,
integer nbcscyc_l,
integer llbcscyc_l,
type(t_ale_connectivity), intent(in) ale_connectivity,
integer n_slipring_l,
integer n_retractor_l,
integer n_anchor_remote_l,
integer n_anchor_remote_send_l,
integer n_seatbelt_l,
integer n_seatbelt_2d_l,
type (dynain_database), intent(inout) dynain_data,
integer numsh4n_l,
integer numsh3n_l,
type (parameters_), intent(inout) inter_parameters,
type (sensors_), intent(in) sensors,
integer nload_cyl,
integer, intent(in) ncload_l,
integer, intent(in) npload_l,
integer ndamp_vrel_l,
type (unit_type_), intent(in) unitab,
integer, intent(in) lwamp_l,
integer, intent(in) lwanmp_l,
integer ninivelt_l,
type(glob_therm_), intent(inout) glob_therm,
type(pblast_), intent(in) pblast )
Parameters
[in]lwamp_lSize of Engine work array (WA)
[in]lwanmp_lSize of Engine work array (WA)

Definition at line 31 of file wrcommp.F.

74C-----------------------------------------------
75C M o d u l e s
76C-----------------------------------------------
77 USE multi_fvm_mod
78 USE pinchtype_mod
79 USE ale_ebcs_mod
80 USE ale_connectivity_mod
81 USE outmax_mod
82 USE pload_cyl_mod
83 USE state_mod
84 USE intbufdef_mod
85 USE alemuscl_mod , only:alemuscl_param
86 USE alefvm_mod , only:alefvm_param
87 USE ale_mod
88 USE parameters_mod
89 USE sensor_mod
90 USE submodel_mod , ONLY : nsubmod
91 USE unitab_mod
92 use glob_therm_mod
93 USE pblast_mod
94 USE th_mod , ONLY : th_has_noda_pext
95 USE eos_param_mod , ONLY : analy_temp
96 use element_mod , only : nixs,nixq,nixc,nixp,nixt,nixr,nixtg
97C-----------------------------------------------
98C I m p l i c i t T y p e s
99C-----------------------------------------------
100#include "implicit_f.inc"
101C-----------------------------------------------
102C D u m m y A r g u m e n t s
103C-----------------------------------------------
104 INTEGER LMXVINT,LVARINT,TABVINT(*),
105 . NGROUP_L, LBUFEL_L, LENWA_L, NUMELQ_L, NUMELS_L,
106 . NUMELC_L, NUMELT_L, NUMELR_L, NUMELP_L, NUMELX_L,
107 . ISUMNX_L, NUMELS10_L, NUMELS20_L, NUMELS8_L, NUMELS16_L,
108 . LNOM_OPT, NUMEL_L, NSVOIS_L, NQVOIS_L, NTGVOIS_L, LENLAS,
109 . NLLINK_L, LLGRAV_L, LLBVEL_L, NSLAW_L,
110 . NESLAW_L,NSTRF_L,LJOINT_L,NUMPOR_L,
111 . LENVOLU,INTBAG_L,LENTHG,LBUFMAT,LBUFGEO,NCONLD_L,
112 . LBUFSF,LENXLAS,LWSAV_L,LSECBUF_L,I2NSNT_L,
113 . NUMELTG_L,NUMELTG6_L,NSLARB_L,NUMNOD_L,
114 . NPTS,NBDDNOD_L,NFXVEL_L,NBDDNRB_L,LCNE_L,
115 . NSKYRW_L,NSKYRBK_L,NBDDI2M_L,LCNI2_L,NISKYI2_L,NNMV_L,
116 . NNMVC_L,NSKYLL_L,NBDDNCJ_L,NBDDNRBM_L,NSKYRBM_L, NNODT_L,
117 . NNODL_L, NMADSH4_L ,NMADSH3_L ,NMADSOL_L ,NMADNOD_L,
118 . IMAXIMP_L, NUM16SHIFT_L ,NUMSPH_L, LWASPH_L,
119 . ISP0, SPHSHIFT_L, NRCVVOIS_L, NSNDVOIS_L,
120 . NERVOIS_L, NESVOIS_L, ILAW11_L, NSEGFL_L,
121 . NBI18_L, NSKYI18_L,
122 . LEIBUF_L,LENTHBUF,NFASOLFR_L,
123 . LENNOD_L, LENMOD_L,
124 . LENELM_L, LENSIG_L, LENGLM_L, LENCP_L, LENLM_L, LENFLS_L,
125 . LENDLS_L, LENMCD_L, LENGRVI_L, LENGRVR_L, NLAGF_L,
126 . LRBAGALE, SKIPPON_L,NFXTEMP_L, NCONV_L, NFXFLUX_L,
127 . NBDDNRBE3_L,NSKYRBE3_L,NRBE3_L ,LLRBE3_L,NSLARBM_L,
128 . NSKYRBMK_L,NBDDNRBYM_L,MADCL_NMADNOD_L, NRADIA_L,
129 . NRBE2_L,LLRBE2_L,NBDDNRBE2_L,
130 . NUMELCPXFE_L,NUMNODPXFE_L,LCNEPXFEM_L,LLCFIELD_L,
131 . LLLOADP_L,NUMELCRKXFE_L,
132 . NUMNODCRKXFE_L,LCNECRKXFEM_L,
133 . SLONFSPH_L ,SLPRTSPH_L,SSPHVELN_L,I2NSN25_L,
134 . NUMELCCRKXFE_L,NUMELTGCRKXFE_L,NUMEDGES_L,NBDDEDGE_L,
135 . SDD_R2R_ELEM,NUMNODXFE_L,NSPHSOL_L,FIRST_SPHSOL_L,NCLUSTER_L,
136 . LENTHBUFR, NUMNOR_L,NBDDNORT_L,NBDDNOR_MAX_L,NBCCNOR_L,
137 . NBCCFR25_L,NBDDEDGT_L,NBDDEDG_MAX_L,NRTMX25_L,
138 . NS10E_L,LCNCND_L,NBDDCNDM_L, NBEBCS,IEBCS_LGTH,NSEGQUADFR_L,
139 . LENIGRNOD_L,LENIGRBRIC_L,LENIGRQUAD_L,LENIGRSH4N_L,
140 . LENIGRTRUS_L,LENIGRBEAM_L,LENIGRSPRI_L,LENIGRSH3N_L,LENISURF_L,
141 . LENISLIN_L,NE_NERVOIS_L, NE_NESVOIS_L, NE_NSVOIS_L, NE_NQVOIS_L, NE_NTGVOIS_L,NBCSCYC_L,LLBCSCYC_L,
142 . N_SLIPRING_L,N_RETRACTOR_L,N_ANCHOR_REMOTE_L,N_ANCHOR_REMOTE_SEND_L,N_SEATBELT_L,N_SEATBELT_2D_L,
143 . NUMSH4N_L,NUMSH3N_L,NLOAD_CYL,NDAMP_VREL_L,NINIVELT_L
144 INTEGER, INTENT(IN) :: NCLOAD_L,NPLOAD_L
145 INTEGER, INTENT(IN) :: LWAMP_L !< Size of Engine work array (WA)
146 INTEGER, INTENT(IN) :: LWANMP_L !< Size of Engine work array (WA)
147 TYPE(MULTI_FVM_STRUCT) :: MULTI_FVM
148 TYPE(t_ale_connectivity), INTENT(IN) :: ALE_CONNECTIVITY
149 TYPE (DYNAIN_DATABASE), INTENT(INOUT) :: DYNAIN_DATA
150 TYPE (PARAMETERS_) ,INTENT(INOUT) :: INTER_PARAMETERS
151 TYPE (SENSORS_) ,INTENT(IN) :: SENSORS
152 TYPE (UNIT_TYPE_), INTENT(IN) :: UNITAB
153 TYPE(glob_therm_) ,intent(inout) :: glob_therm
154 TYPE(PBLAST_) ,INTENT(IN) :: PBLAST
155C-----------------------------------------------
156C C o m m o n B l o c k s
157C-----------------------------------------------
158#include "com01_c.inc"
159#include "com04_c.inc"
160#include "com09_c.inc"
161#include "com10_c.inc"
162#include "com_xfem1.inc"
163#include "drape_c.inc"
164#include "eigcom.inc"
165#include "flowcom.inc"
166#include "fxbcom.inc"
167#include "ige3d_c.inc"
168#include "inter18.inc"
169#include "inter22.inc"
170#include "intstamp_c.inc"
171#include "lagmult.inc"
172#include "param_c.inc"
173#include "r2r_c.inc"
174#include "remesh_c.inc"
175#include "scr03_c.inc"
176#include "scr16_c.inc"
177#include "scr17_c.inc"
178#include "scr23_c.inc"
179#include "sms_c.inc"
180#include "sphcom.inc"
181#include "spmd_c.inc"
182#include "tabsiz_c.inc"
183C-----------------------------------------------
184C L o c a l V a r i a b l e s
185C-----------------------------------------------
186 INTEGER IVAR, I
187C--------------------------------------
188C preparation of integer variables for writing to RFILE
189C=======================================================================
190C-----
191 DO ivar=1,lmxvint
192 tabvint(ivar)=0
193 ENDDO
194C-----
195 tabvint(1) =n2d
196 tabvint(2) =ncpri
197 tabvint(3) =0 ! IUSERWI
198 tabvint(4) =iale
199 tabvint(5) =ngroup_l
200 tabvint(6) =ncycle
201 tabvint(7) =irun
202 tabvint(8) =iger
203 tabvint(9) =lbufel_l
204 tabvint(10) =iroddl
205 tabvint(11) =ieuler
206 tabvint(12) =glob_therm%ITHERM
207 tabvint(13) =ihsh
208 tabvint(14) =itestv
209 tabvint(15) =iturb
210 tabvint(16) =ilag
211 tabvint(17) =isecut
212 tabvint(18) =idamp
213 tabvint(19) =irxdp
214 tabvint(20) =nmult
215 tabvint(21) =integ8
216 tabvint(22) =isigi
217 tabvint(23) =nspmd
218 tabvint(24) =lenwa_l
219 tabvint(25) = analy_temp
220 tabvint(26) = th_has_noda_pext
221 tabvint(27) =nnods
222 tabvint(28) =ncnois
223 tabvint(29) =lcne_l
224 tabvint(30) =ipari0
225 tabvint(31) =imaximp_l
226 tabvint(32) =nnoiser
227 tabvint(33) =nspgroup
228 tabvint(34) =iresmd
229 tabvint(35) =ifrwv
230C
231C -------- sizes of integer arrays --------
232C Useless local size
233 tabvint(36) = 0
234 tabvint(37) = numnod_l
235 tabvint(38) = 0 ! no longer used
236 tabvint(39) = numnod_l
237 tabvint(40) = liskn*(numskw+1)+liskn*min(1,nspcond)*numsph_l+liskn*nsubmod
238 tabvint(41) = liskn*(numfram+1)
239 tabvint(42) = 0
240 tabvint(43) = 5*nbcslag
241 tabvint(44) = lipart1*(npart+nthpart)+2*9*(npart+nthpart)+numel_l
242 tabvint(45) = lnom_opt*isp0
243 tabvint(46) = 3*nfunct+1
244 tabvint(47) = 0
245 tabvint(48) = nixtg*numeltg_l + nixtg * ntgvois_l
246 tabvint(49) = 4*numeltg6_l
247 tabvint(50) = nixs*numels_l+nsvois_l*nixs+6*numels10_l+12*numels20_l+8*numels16_l
248 tabvint(51) = nixq*numelq_l+nixq*nqvois_l
249 tabvint(52) = nixc*numelc_l
250 tabvint(53) = nixt*numelt_l
251 tabvint(54) = nixp*numelp_l
252 tabvint(55) = nixr*numelr_l
253 tabvint(56) = numnod_l
254 tabvint(57) = 2*numnod_l
255 tabvint(58) = lkjni*ngjoint*isp0
256 tabvint(59) = numnod_l*max(iale,ieuler, ialelag)
257 tabvint(60) = (numels_l*6+numelq_l*4+numeltg_l*3)*max(iale,ieuler,glob_therm%ITHERM,ialelag)
258 IF(ale_connectivity%has_nn_connect)THEN
259 tabvint(61) = max(iale,ialelag)*ale%GLOBAL%NALENOVS*numnod_l
260 ELSE
261 tabvint(61) = 0
262 END IF
263 tabvint(62) = sifill
264 tabvint(63) = sims
265!! to empty (still available)+++
266 tabvint(64) = 0
267 tabvint(65) = 0
268 tabvint(66) = 0
269 tabvint(67) = 0
270 tabvint(68) = 0
271!! to empty (still available)---
272 tabvint(69) = nixx*numelx_l
273 tabvint(70) = isumnx_l
274 IF (numsph > 0) THEN
275 tabvint(71) = (numsph_l+nbgauge)*nisp
276 tabvint(72) = (numsph_l+nbgauge)*kvoisph
277 tabvint(73) = numnod_l
278 ELSE
279 tabvint(71) = 0
280 tabvint(72) = 0
281 tabvint(73) = 0
282 END IF
283 tabvint(74) = numsph_l*nspcond
284 tabvint(75) = nispcond*nspcond
285C 3 Table for inlet outlet goes to Mono Domaine
286c If case inl outl we pass lprsph_l and longfsph_l in local paintings
287 tabvint(76) = sisphio
288 IF(nsphio>0)THEN
289 tabvint(77) = slprtsph_l
290 tabvint(78) = slonfsph_l
291 ELSE
292 tabvint(77) = slprtsph
293 tabvint(78) = slonfsph
294 ENDIF
295 tabvint(79) = nibcld*(nconld_l)
296 tabvint(80) = nifv*nfxvel_l
297 tabvint(81) = 0
298 tabvint(82) = lenlas*isp0
299 tabvint(83) = 0
300 tabvint(84) = 3*naccelm
301 tabvint(85) = 0 ! NSENSI*NSENSOR
302 tabvint(86) = 10*nlink
303 tabvint(87) = nllink_l
304 tabvint(88) = 0 ! SIUSERW_L
305 tabvint(89) = nparg*ngroup_l
306 tabvint(90) = (nspmd+1)*nspgroup
307 tabvint(91) = nigrv*ngrav
308 tabvint(92) = llgrav_l
309 tabvint(93) = nr2r*nr2rlnk
310 tabvint(94) = nbvelp*nibvel
311 tabvint(95) = llbvel_l
312 tabvint(96) = lactiv*nactiv
313 tabvint(97) = (nummpc+3*lmpc)*isp0
314 tabvint(98) = numnod_l!+NUMFAKENODIGEO
315 tabvint(99) = npari*ninter
316 tabvint(100)= 0 !LINBUF_L
317 tabvint(101)= nnprw*nrwall
318 tabvint(102)= 0 !obsolete option removed
319 tabvint(103)= 7*nconx*isp0
320 tabvint(104)= nmadprt*isp0
321 IF(nexmad/=0)THEN
322 tabvint(105)= nmadsh4_l
323 tabvint(106)= nmadsh3_l
324 tabvint(107)= nmadsol_l
325 tabvint(108)= nmadnod_l
326 tabvint(109)= 0
327 ELSE
328 tabvint(105)= 0
329 tabvint(106)= 0
330 tabvint(107)= 0
331 tabvint(108)= 0
332 tabvint(109)= 0
333 ENDIF
334 tabvint(110) = nnpby*nrbykin
335 tabvint(111) = nnpby*nrbylag*isp0
336 tabvint(112) = nslarb_l
337 tabvint(113) = slpbyl*isp0
338 tabvint(114) = nrivet*4
339 tabvint(115) = nstrf_l
340 tabvint(116) = ljoint_l*isp0
341 tabvint(117) = numpor_l
342 tabvint(118) = lenvolu
343 tabvint(119) = 0
344 IF(lag_ncf>0) tabvint(119) = (lag_nhf+3*lag_ncf+2)*isp0
345! TABVINT(120) = LENTHG - obsolete
346 tabvint(121) = 2*(nspmd+1)
347 tabvint(122) = (nspmd+1)
348 tabvint(123) = 4*(nspmd+1)
349 tabvint(124) = (nspmd+1)
350 tabvint(125) = (nspmd+1)*njoint
351 tabvint(126) = (nspmd+1)
352 tabvint(127) = 4*(nspmd+1)
353 tabvint(128) = 4*(nspmd+1)
354 tabvint(129) = (nspmd+2)*nsect*isecut*isp0
355 tabvint(130) = nbddnod_l
356 tabvint(131) = nbddnrb_l
357 tabvint(132) = nrwall*(nspmd+2)
358 tabvint(133) = 3*nrbykin
359 tabvint(134) = nbddi2m_l
360 tabvint(135) = nvolu*(nspmd+2)
361 tabvint(136) = nlink*(nspmd+2)
362 tabvint(137) = nbddncj_l
363 tabvint(138) = nbddnrbm_l
364 tabvint(139) = 3*nibvel
365 tabvint(140) = (nspmd+1)*nsect
366 tabvint(141) = nnodt_l
367 tabvint(142) = nnodl_l
368 tabvint(143) = 5*(nspmd+1)
369 tabvint(144) = (nspmd+2)*nbi18_l
370 tabvint(145) = numnod_l
371 tabvint(146) = ninter
372 tabvint(147) = numnod_l
373 IF(iale+ieuler+glob_therm%ITHERM + ialelag/=0) THEN
374c SNBRCVOIS
375 tabvint(148) = nspmd+1
376c SNBSDVOIS
377 tabvint(149) = nspmd+1
378c SNBRCVOIS
379 tabvint(150) = nrcvvois_l
380 tabvint(151) = nsndvois_l
381 tabvint(152) = nspmd+1
382 tabvint(153) = nspmd+1
383 tabvint(154) = nervois_l
384 tabvint(155) = nesvois_l
385 tabvint(156) = 0 !obsolete option removed
386 tabvint(157) = 0 !obsolete option removed
387 IF (segindx>0) THEN
388 tabvint(158) = nspmd+1
389 tabvint(159) = nsegfl_l
390 ELSE
391 tabvint(158) = 0
392 tabvint(159) = 0
393 ENDIF
394 IF (numpor>0) THEN
395 tabvint(160) = numgeo
396 tabvint(161) = numpor_l
397 ELSE
398 tabvint(160) = 0
399 tabvint(161) = 0
400 ENDIF
401 ELSE
402 tabvint(148) = 0
403 tabvint(149) = 0
404 tabvint(150) = 0
405 tabvint(151) = 0
406 tabvint(152) = 0
407 tabvint(153) = 0
408 tabvint(154) = 0
409 tabvint(155) = 0
410 tabvint(156) = 0
411 tabvint(157) = 0
412 tabvint(158) = 0
413 tabvint(159) = 0
414 tabvint(160) = 0
415 tabvint(161) = 0
416 ENDIF
417C
418
419C -------- sizes of floating-point arrays --------
420 tabvint(162) = 3*(numnod_l+nrcvvois_l)
421 tabvint(163) = 3*(numnod_l+nrcvvois_l)
422 tabvint(164) = 3*(numnod_l+nrcvvois_l)
423 tabvint(165) = 3*numnod_l*iroddl
424C SX = TABVINT(162)
425C SD = TABVINT(163)
426C SV = TABVINT(164)
427C SVR = TABVINT(165)
428C SDR = TABVINT(166)
429 IF(isecut > 0 .OR. iisrot > 0 .OR. impose_dr /= 0 .OR. idrot > 0)THEN
430 tabvint(166) = 3*numnod_l*iroddl
431 ELSE
432 tabvint(166) = 0
433 ENDIF
434C
435 tabvint(167) = numelc_l+numeltg_l
436C
437 IF (ndamp>0) THEN
438 tabvint(168) = nrdamp*ndamp
439 IF (sdamp > 0) THEN
440 tabvint(169) = 3*numnod_l*(1+iroddl)
441 ELSE
442 tabvint(169) = 0
443 ENDIF
444 ELSE
445 tabvint(168) = 0
446 tabvint(169) = 0
447 ENDIF
448
449 tabvint(170) = numnod_l
450 tabvint(171) = numnod_l*iroddl
451 tabvint(172) = npts
452 tabvint(173) = npropm*nummat
453 tabvint(174) = lskew*(numskw+1) + lskew*min(1,nspcond)*numsph_l+lskew*nsubmod
454 tabvint(175) = nxframe*(numfram+1)
455 tabvint(176) = npropg*numgeo
456 tabvint(177) = numels_l+numelq_l+numelc_l+numeltg_l
457 tabvint(178) = lbufmat
458 tabvint(179) = lbufgeo
459 tabvint(180) = lbufsf
460 tabvint(181) = lmpc*isp0
461 tabvint(182) = lkjnr*ngjoint*isp0
462 IF (iale>0.) THEN
463 tabvint(183) = 3*numnod_l
464 ELSE
465 tabvint(183) = 0
466 ENDIF
467 IF(multi_fvm%ARE_ALL_PARTS_151)THEN
468 tabvint(184) = 0
469 ELSE
470 tabvint(184) = ieuler*(numels_l*lveul+numelq_l*10)
471 ENDIF
472C 3 SPMD Mono multi matte tables
473 tabvint(185) = sfill
474 tabvint(186) = sdfill
475 tabvint(187) = salph
476 IF (ale%GRID%NWALE == 2) THEN
477 tabvint(188) = 3*numnod_l
478 ELSEIF(ale%GRID%NWALE == 4) THEN
479 tabvint(188) = 4*numnod_l
480 ELSE
481 tabvint(188) = 0
482 END IF
483
484 IF(ilag==1.AND.(iale+ieuler)/=0)THEN
485 tabvint(189) = 3*numnod_l
486 tabvint(190) = 0
487 ELSE
488 tabvint(189) = 0
489 tabvint(190) = 0
490 END IF
491
492 IF (ilag==1.AND.(iale+ieuler)/=0)THEN
493 tabvint(191) = 3*numnod_l
494 tabvint(192) = 0
495 tabvint(193) = 0
496 tabvint(194) = 0
497 tabvint(195) = 0
498 ELSE
499 tabvint(191) = 0
500 tabvint(192) = 0
501 tabvint(193) = 0
502 tabvint(194) = 0
503 tabvint(195) = 0
504 END IF
505
506 tabvint(196) = numsph_l*nspbuf
507 tabvint(197) = 0
508 tabvint(198) = 0
509 tabvint(199) = 0
510C Tables used in mono domain for inlet/outlet
511 tabvint(200) = svsphio
512c If case inl outl we pass ssphveln in local board
513 IF(nsphio>0)THEN
514 tabvint(201) = ssphveln_l
515 ELSE
516 tabvint(201) = ssphveln
517 ENDIF
518 IF(iale==1.OR.ieuler==1.OR.ialelag==1) THEN
519 tabvint(202) = numnod_l
520 ELSE
521 tabvint(202) = 0
522 ENDIF
523 tabvint(203) = lfaccld*nconld_l
524 tabvint(204) = lfxvelr*nfxvel_l
525 tabvint(205) = nthvki*(ninter+nrwall+nrbody+nsect+njoint+nrbag+nvolu+nfxbody+nintsub)
526
527 IF(isigi==2.OR.isigi==4) THEN
528 tabvint(206)= 3*numnod_l
529 ELSE IF (iabs(isigi)==5) THEN
530 tabvint(206)= 12*(numelc_l+numeltg_l)
531 ENDIF
532 tabvint(207) = lenxlas*isp0
533 tabvint(208) = 0
534 tabvint(209) = naccelm*llaccelm
535 tabvint(210) = 0 ! NSENSOR*NSENSR
536 tabvint(211) = 3*nibvel
537 tabvint(212) = lfacgrv*ngrav
538
539 IF(ifrwv>0) THEN
540 tabvint(213) = tabvint(213)+numnod_l
541 ELSE
542 tabvint(213) = 0
543 ENDIF
544 tabvint(214) = npart
545 tabvint(215) = 0 !SUSERW_L
546 tabvint(216) = lbufel_l
547 tabvint(217) = 0 !LBUFIN_L
548 tabvint(218) = nrwlp*nrwall
549 tabvint(219) = lwsav_l*3
550 tabvint(220) = 0 !obsolete option removed
551 tabvint(221) = nrby*nrbykin
552 tabvint(222) = nrby*nrbylag*isp0
553 tabvint(223) = nrivet*nrivf
554 tabvint(224) = lsecbuf_l
555 tabvint(225) = nrvolu*nvolu+lrcbag+lrbagjet+lrbaghol+lrbagale
556 tabvint(226) = (lag_ncf+lag_ncl)*isp0
557 tabvint(227) = nconx*nrcnx*isp0
558 tabvint(228) = 2*nfasolfr_l
559 tabvint(229) = nl_ddr2r*(nspmd+1)
560 tabvint(230) = nslaw_l+neslaw_l
561 tabvint(231) = 0 !obsolete option removed
562 tabvint(232) = (nmadprt*isp0+nmadsh4_l+nmadsh3_l+nmadsol_l+nmadnod_l+numelc_l+numeltg_l+numels_l)*nexmad
563 tabvint(233) = npropgi*numgeo
564 tabvint(234) = npropmi*nummat
565 tabvint(235) = skippon_l
566 tabvint(236) = 2*nsegquadfr_l
567c TABVINT(230) =
568C TABVINT(231)=M03
569C TABVINT(232)=M04
570C TABVINT(233)=M05
571C TABVINT(234)=M06
572C TABVINT(235)=M07
573C TABVINT(236)=M08
574C TABVINT(237)=M09
575C
576C Last size = local proc size
577C
578C-----
579 tabvint(238)=nummat
580 tabvint(239)=numnod_l
581 tabvint(240)=numskw
582 tabvint(241)=numbcs
583 tabvint(242)=nanaly
584 tabvint(243)=numelq_l
585 tabvint(244)=numels_l
586 tabvint(245)=numelc_l
587 tabvint(246)=numelt_l
588 tabvint(247)=numgeo
589 tabvint(248)=nfunct
590 tabvint(249)=nconld_l
591 tabvint(250)=ninvel
592 tabvint(251)=nlaser*isp0
593 tabvint(252)=ninter
594 tabvint(253)=nrwall
595 tabvint(254)=nrbody
596 tabvint(255)=nodmas
597 tabvint(256)=nfxvel_l
598 tabvint(257)=nrivet
599 tabvint(258)=numelr_l
600 tabvint(259)=numelp_l
601 tabvint(260)=0 !obsolete option removed
602 tabvint(261)=nsect
603 tabvint(262)=nrbag
604 tabvint(263)=njoint
605 tabvint(264)=ale%GRID%NWALE
606 tabvint(265)=numeltg_l
607 tabvint(266)=nslag
608 tabvint(267)=nfacx
609 tabvint(268)=numpor
610 tabvint(269)=naccelm
611 tabvint(270)=sensors%NSENSOR
612 tabvint(271)=npreten
613 tabvint(272)=nvolu
614 tabvint(273)=npart
615 tabvint(274)=nsurf
616 tabvint(275)=nsubs
617 tabvint(276)=ngrav
618 tabvint(277)=nrby2
619 tabvint(278)=ngrnod
620 tabvint(279)=ngrbric
621 tabvint(280)=ngrquad
622 tabvint(281)=ngrshel
623 tabvint(282)=ngrsh3n
624 tabvint(283)=ngrbeam
625 tabvint(284)=ngrtrus
626 tabvint(285)=ngrspri
627 tabvint(286)=nlink
628 tabvint(287)=invstr
629 tabvint(288)=nslin
630 tabvint(289)=numelx_l
631 tabvint(290)=nconx*isp0
632 tabvint(291)=isumnx_l
633 tabvint(292)=nanim1d
634 tabvint(293)=nr2rlnk
635C-----
636 tabvint(294)=0! no linger used
637 tabvint(295)=ianim
638 tabvint(296)=ioutp
639 tabvint(297)=nhin2
640 tabvint(298)=ideli7
641C-----
642 tabvint(299)=nsnod
643 tabvint(300)=nselq
644 tabvint(301)=nsels
645 tabvint(302)=nselc
646 tabvint(303)=nselt
647 tabvint(304)=nselp
648 tabvint(305)=nselr
649 tabvint(306)=nsrby
650 tabvint(307)=nsmat
651 tabvint(308)=nseltg
652 tabvint(309)=nthgrp
653 tabvint(310)=nthgrp0
654 tabvint(311)=nselu
655C-----
656 tabvint(312)=npropm
657 tabvint(313)=nvsiz
658 tabvint(314)=npropg
659 tabvint(315)=nparg
660 tabvint(316)=lveul
661 tabvint(317)=nixs
662 tabvint(318)=nixq
663 tabvint(319)=nixc
664 tabvint(320)=nixt
665 tabvint(321)=nixp
666 tabvint(322)=nixr
667 tabvint(323)=nixtg
668 tabvint(324)=0
669 tabvint(325)=nixfr1
670 tabvint(326)=nixfr2
671 tabvint(327)=npari
672 tabvint(328)=lwamp_l
673 tabvint(329)=lwanmp_l
674 tabvint(330)=nisx
675 tabvint(331)=ligrn1
676 tabvint(332)=lisub1
677 tabvint(333)=nimv
678 tabvint(334)=nnpby
679 tabvint(335)=nrby
680 tabvint(336)=nifv
681 tabvint(337)=nthvki
682 tabvint(338)=npsav
683 tabvint(339)=nrcnx
684 tabvint(340)=nr2r
685C-----
686C TABVINT(341) to TABVINT(378) obsolete DSA
687C-----
688 tabvint(379)=numfram
689C-----
690 tabvint(380)=numsph_l
691 tabvint(381)=nselsp
692 tabvint(382)=nspcond
693 tabvint(384)=nsphsym
694 tabvint(385)=maxpjet
695 tabvint(386)=nisp
696 tabvint(387)=kvoisph
697 tabvint(388)=nspbuf
698 tabvint(389)=nispcond
699C-----
700C TABVINT(390) to TABVINT(424) obsolete DSA
701C-----
702 tabvint(425)=intbag_l
703 tabvint(426)=ibagsurf
704 tabvint(427)=nrvolu
705 tabvint(428)=numels10_l
706 tabvint(429)=numels20_l
707 tabvint(430)=idampg
708 tabvint(431)=iclose
709C
710 tabvint(432)=0 ! NSENSI
711 tabvint(433)=0 ! NSENSR
712 tabvint(434)=nibvel
713 tabvint(435)=lwasph_l
714 tabvint(436)=numels16_l
715 tabvint(437)=numels8_l
716 tabvint(438)=nrivf
717 tabvint(439)=nxframe
718 tabvint(440)=nsphio
719 tabvint(441)=nisphio
720 tabvint(442)=lag_ncf
721 tabvint(443)=lag_nkf
722 tabvint(444)=lag_nhf
723 tabvint(445)=lag_ncl
724 tabvint(446)=lag_nkl
725 tabvint(447)=lag_nhl
726 tabvint(448)=nbcslag
727 tabvint(449)=lactiv
728 tabvint(450)=nactiv
729 tabvint(451)=ndamp
730 tabvint(452)=nicbag
731 tabvint(453)=nrcbag
732 tabvint(454)=licbag
733 tabvint(455)=lrcbag
734 tabvint(456)=nibjet
735 tabvint(457)=nrbjet
736 tabvint(458)=nibhol
737 tabvint(459)=nrbhol
738 tabvint(460)=libagjet
739 tabvint(461)=lrbagjet
740 tabvint(462)=libaghol
741 tabvint(463)=lrbaghol
742 tabvint(464)=ngjoint
743 tabvint(465)=nummpc
744 tabvint(466)=lvsphio
745 !TABVINT(467)= SITHGRPA removed variable
746 !TABVINT(468)= SITHGRPB removed variable
747 !TABVINT(469)= SITHGRPC removed variable
748 !TABVINT(470)= SITHGRPD removed variable
749 !TABVINT(471)= SITHGRPE removed variable
750 !TABVINT(472)= SITHGRPF removed variable
751 !TABVINT(473)= SITHGRPG removed variable
752 !TABVINT(474)= SITHGRPH removed variable
753 !TABVINT(475)= SITHGRPI removed variable
754C
755 tabvint(476)=nthgrp01(1)
756 tabvint(477)=nthgrp01(2)
757 tabvint(478)=nthgrp01(3)
758 tabvint(479)=nthgrp01(4)
759 tabvint(480)=nthgrp01(5)
760 tabvint(481)=nthgrp01(6)
761 tabvint(482)=nthgrp01(7)
762 tabvint(483)=nthgrp01(8)
763 tabvint(484)=nthgrp01(9)
764C
765 tabvint(485)=nthgrp1(1)
766 tabvint(486)=nthgrp1(2)
767 tabvint(487)=nthgrp1(3)
768 tabvint(488)=nthgrp1(4)
769 tabvint(489)=nthgrp1(5)
770 tabvint(490)=nthgrp1(6)
771 tabvint(491)=nthgrp1(7)
772 tabvint(492)=nthgrp1(8)
773 tabvint(493)=nthgrp1(9)
774 lvarint=493
775
776C
777C---- Debut chk pt restart
778C
779 !OUTP_V, ...OUTP_RT,ANIM_V,...,ANIM_FT
780 DO i=1,19
781 lvarint=lvarint+1
782 tabvint(lvarint)=0
783 ENDDO
784 !ANIM_M,ANIM_K,...,ANIM_VERS
785 DO i=1,8
786 lvarint=lvarint+1
787 tabvint(lvarint)=0
788 ENDDO
789 tabvint(lvarint)=40
790 lvarint=lvarint+1
791 tabvint(lvarint)=0 !IZIP
792
793 lvarint=493+19+8+1
794C
795C----- end chk pt restart
796C
797 lvarint=lvarint+1
798 tabvint(lvarint)=nrbylag
799 lvarint=lvarint+1
800 tabvint(lvarint)=nfvlag
801 lvarint=lvarint+1
802 tabvint(lvarint)=nnprw
803 lvarint=lvarint+1
804 tabvint(lvarint)=nrwlag
805 lvarint=lvarint+1
806 tabvint(lvarint)=nhmax
807 lvarint=lvarint+1
808 tabvint(lvarint)=lagmod
809 lvarint=lvarint+1
810 tabvint(lvarint)=lagopt
811 lvarint=lvarint+1
812 tabvint(lvarint)=segindx
813 lvarint=lvarint+1
814 tabvint(lvarint)=ale%GLOBAL%NVCONV
815 DO i=1,ale%GLOBAL%LCONV
816 tabvint(lvarint+i)=ale%GLOBAL%CODV(i)
817 ENDDO
818 lvarint=lvarint+ale%GLOBAL%LCONV
819 lvarint=lvarint+1
820 tabvint(lvarint)=npebc
821 lvarint=lvarint+1
822 tabvint(lvarint)=nebcs
823 lvarint=lvarint+1
824 tabvint(lvarint)=nrbykin
825 lvarint=lvarint+1
826 tabvint(lvarint)=nbcskin
827 lvarint=lvarint+1
828 tabvint(lvarint)=numels8a
829 lvarint=lvarint+1
830 tabvint(lvarint)=numeltg6_l
831C memory space reserved for checkpoint restarts
832 DO i=1,58
833 tabvint(lvarint+i)=0
834 ENDDO
835 lvarint=lvarint + 58
836 lvarint=lvarint+1
837 tabvint(lvarint)=0 !SIZE OF ANIM_N
838c
839 lvarint=lvarint+1
840 tabvint(lvarint)=ioutp_fmt
841
842 lvarint=lvarint+1
843 tabvint(lvarint)=npropgi
844 lvarint=lvarint+1
845 tabvint(lvarint)=npropmi
846 lvarint=lvarint+1
847 tabvint(lvarint)=nexmad
848 lvarint=lvarint+1
849 tabvint(lvarint)=nmadprt*isp0
850 lvarint=lvarint+1
851 tabvint(lvarint)=nmadsh4_l
852 lvarint=lvarint+1
853 tabvint(lvarint)=nmadsh3_l
854 lvarint=lvarint+1
855 tabvint(lvarint)=nmadsol_l
856 lvarint=lvarint+1
857 tabvint(lvarint)=nmadnod_l
858 lvarint=lvarint+1
859 tabvint(lvarint)=ishfram
860 lvarint=lvarint+1
861 tabvint(lvarint)= nskyrw_l
862 lvarint=lvarint+1
863 tabvint(lvarint)= nskyrbk_l
864 lvarint=lvarint+1
865 tabvint(lvarint)= nbddnod_l
866 lvarint=lvarint+1
867 tabvint(lvarint)= nbddnrb_l
868 lvarint=lvarint+1
869 tabvint(lvarint)= multimax
870 lvarint=lvarint+1
871 tabvint(lvarint)= nbddi2m_l
872 lvarint=lvarint+1
873 tabvint(lvarint)= niskyi2_l
874 lvarint=lvarint+1
875 tabvint(lvarint)= lcni2_l
876 lvarint=lvarint+1
877 tabvint(lvarint)= i2nsnt_l
878 lvarint=lvarint+1
879 tabvint(lvarint)= nnmv_l
880 lvarint=lvarint+1
881 tabvint(lvarint)= nnmvc_l
882 lvarint=lvarint+1
883 tabvint(lvarint)= nskyll_l
884 lvarint=lvarint+1
885 tabvint(lvarint)= nbddncj_l
886 lvarint=lvarint+1
887 tabvint(lvarint)= nbddnrbm_l
888 lvarint=lvarint+1
889 tabvint(lvarint)= nskyrbm_l
890 lvarint=lvarint+1
891 tabvint(lvarint)= nnodt_l
892 lvarint=lvarint+1
893 tabvint(lvarint)= nnodl_l
894 lvarint=lvarint+1
895 tabvint(lvarint)= nbddnrbe3_l
896 lvarint=lvarint+1
897 tabvint(lvarint)= nskyrbe3_l
898 lvarint=lvarint+1
899 tabvint(lvarint)= nparir
900 lvarint=lvarint+1
901 tabvint(lvarint)= numnodg
902 lvarint=lvarint+1
903 tabvint(lvarint)= numnodm
904 lvarint=lvarint+1
905 tabvint(lvarint)= numelqg
906 lvarint=lvarint+1
907 tabvint(lvarint)= numelcg
908 lvarint=lvarint+1
909 tabvint(lvarint)= numeltgg
910 lvarint=lvarint+1
911 tabvint(lvarint)= 0
912 lvarint=lvarint+1
913 tabvint(lvarint)= numelsg
914 lvarint=lvarint+1
915 tabvint(lvarint)= numelpg
916 lvarint=lvarint+1
917 tabvint(lvarint)= numelrg
918 lvarint=lvarint+1
919 tabvint(lvarint)= numeltrg
920 lvarint=lvarint+1
921 tabvint(lvarint)= nb1dg
922 lvarint=lvarint+1
923 tabvint(lvarint)= nskewag
924 lvarint=lvarint+1
925 tabvint(lvarint)= sectiom
926 lvarint=lvarint+1
927 tabvint(lvarint)= numels16g
928 lvarint=lvarint+1
929 tabvint(lvarint)= num16shift_l
930 lvarint=lvarint+1
931 tabvint(lvarint)= outyy_fmt
932 lvarint=lvarint+1
933 tabvint(lvarint)=nfxbody
934 lvarint=lvarint+1
935 tabvint(lvarint)=lennod_l
936 lvarint=lvarint+1
937 tabvint(lvarint)=lenmod_l
938 lvarint=lvarint+1
939 tabvint(lvarint)=lenglm_l
940 lvarint=lvarint+1
941 tabvint(lvarint)=lencp_l
942 lvarint=lvarint+1
943 tabvint(lvarint)=lenlm_l
944 lvarint=lvarint+1
945 tabvint(lvarint)=lenfls_l
946 lvarint=lvarint+1
947 tabvint(lvarint)=lendls_l
948 lvarint=lvarint+1
949 tabvint(lvarint)=lenvar
950 lvarint=lvarint+1
951 tabvint(lvarint)=lenrpm
952 lvarint=lvarint+1
953 tabvint(lvarint)=lenmcd_l
954 lvarint=lvarint+1
955 tabvint(lvarint)=lenelm_l
956 lvarint=lvarint+1
957 tabvint(lvarint)=lensig_l
958 lvarint=lvarint+1
959 tabvint(lvarint)=lengrvi_l
960 lvarint=lvarint+1
961 tabvint(lvarint)=lengrvr_l
962 lvarint=lvarint+1
963 tabvint(lvarint)=nbipm
964 lvarint=lvarint+1
965 tabvint(lvarint)=nsfxby
966 lvarint=lvarint+1
967 tabvint(lvarint)=neig
968 lvarint=lvarint+1
969 tabvint(lvarint)=neipm
970 lvarint=lvarint+1
971 tabvint(lvarint)=nerpm
972 lvarint=lvarint+1
973 tabvint(lvarint)=leibuf_l
974 lvarint=lvarint+1
975 tabvint(lvarint)= nintsub
976 lvarint=lvarint+1
977 tabvint(lvarint)=irootyy
978C
979C---- Debut chk pt restart
980C
981 lvarint=lvarint+1
982 tabvint(lvarint)= 0
983 lvarint=lvarint+1
984 tabvint(lvarint)= 0
985 lvarint=lvarint+1
986 tabvint(lvarint)= 0
987 lvarint=lvarint+1
988 tabvint(lvarint)= 0
989 lvarint=lvarint+1
990 tabvint(lvarint)= 0
991 lvarint=lvarint+1
992 tabvint(lvarint)= 0
993C
994C----- end chk pt restart
995C
996 lvarint=lvarint+1
997 tabvint(lvarint)= trimat
998 lvarint=lvarint+1
999 tabvint(lvarint)= sphshift_l
1000 lvarint=lvarint+1
1001 tabvint(lvarint)= numsphg
1002 lvarint=lvarint+1
1003 tabvint(lvarint)= numelxg
1004 lvarint=lvarint+1
1005 tabvint(lvarint)= nithgr
1006 lvarint=lvarint+1
1007 tabvint(lvarint)=npebcr
1008 lvarint=lvarint+1
1009 tabvint(lvarint)= nbi18_l
1010 lvarint=lvarint+1
1011 tabvint(lvarint)= nskyi18_l
1012C common part SPMD CFD
1013 lvarint=lvarint+1
1014 tabvint(lvarint)= nsvois_l
1015 lvarint=lvarint+1
1016 tabvint(lvarint)= nqvois_l
1017 lvarint=lvarint+1
1018 tabvint(lvarint) = ntgvois_l
1019 lvarint = lvarint + 1
1020 tabvint(lvarint)= nrcvvois_l
1021 lvarint=lvarint+1
1022 tabvint(lvarint)= nsndvois_l
1023 lvarint=lvarint+1
1024 tabvint(lvarint)= nervois_l
1025 lvarint=lvarint+1
1026 tabvint(lvarint)= nesvois_l
1027 lvarint=lvarint+1
1028 tabvint(lvarint)= ilaw11_l
1029 lvarint=lvarint+1
1030 tabvint(lvarint)= nsegfl_l
1031 lvarint=lvarint+1
1032 tabvint(lvarint)= numpor_l
1033 lvarint=lvarint+1
1034 tabvint(lvarint)= ale%GLOBAL%ICAA
1035 lvarint=lvarint+1
1036 tabvint(lvarint)= ale%GLOBAL%HLLC_LOWMACH
1037 lvarint=lvarint+1
1038 tabvint(lvarint)= isphbuc
1039 lvarint=lvarint+1
1040 tabvint(lvarint)= nrdamp
1041 lvarint=lvarint+1
1042 tabvint(lvarint)=nsproc
1043 lvarint=lvarint+1
1044 tabvint(lvarint)=ndsolv
1045 lvarint=lvarint+1
1046 tabvint(lvarint)=nsbmax
1047 lvarint=lvarint+1
1048 tabvint(lvarint)=nsvmaxt
1049 lvarint=lvarint+1
1050 tabvint(lvarint)=nsmod
1051 lvarint=lvarint+1
1052 tabvint(lvarint)=nflow
1053 lvarint=lvarint+1
1054 tabvint(lvarint)=liflow
1055 lvarint=lvarint+1
1056 tabvint(lvarint)=lrflow
1057 lvarint=lvarint+1
1058 tabvint(lvarint)=niflow
1059 lvarint=lvarint+1
1060 tabvint(lvarint)=niioflow
1061 lvarint=lvarint+1
1062 tabvint(lvarint)=nrflow
1063 lvarint=lvarint+1
1064 tabvint(lvarint)=nrioflow
1065 lvarint=lvarint+1
1066 tabvint(lvarint)=icondp
1067 lvarint=lvarint+1
1068 tabvint(lvarint)=impl_s0
1069 lvarint=lvarint+1
1070 tabvint(lvarint)=nfasolfr_l
1071 lvarint=lvarint+1
1072 tabvint(lvarint)=nsegquadfr_l
1073 lvarint=lvarint+1
1074 tabvint(lvarint)=3*(nspmd+1) ! DD_LAGF
1075 lvarint=lvarint+1
1076 tabvint(lvarint)=nlagf_l ! LAGF_L
1077 lvarint=lvarint+1
1078 tabvint(lvarint)=nventtot
1079C
1080 lvarint=lvarint+1
1081 tabvint(lvarint)=numelc0
1082 lvarint=lvarint+1
1083 tabvint(lvarint)=numeltg0
1084 lvarint=lvarint+1
1085 tabvint(lvarint)=numnod0
1086C
1087 lvarint=lvarint+1
1088 tabvint(lvarint)=nadmesh
1089 lvarint=lvarint+1
1090 tabvint(lvarint)=levelmax
1091 lvarint=lvarint+1
1092 tabvint(lvarint)=iadmrule
1093 lvarint=lvarint+1
1094 tabvint(lvarint)=ksh4tree
1095 lvarint=lvarint+1
1096 tabvint(lvarint)=ksh3tree
1097 lvarint=lvarint+1
1098 tabvint(lvarint)=kpadmesh
1099 lvarint=lvarint+1
1100 tabvint(lvarint)=kcontact
1101 lvarint=lvarint+1
1102 tabvint(lvarint)=kipadmesh
1103 lvarint=lvarint+1
1104 IF(kcontact==0)THEN
1105 tabvint(lvarint)=0
1106 ELSE
1107 tabvint(lvarint)=numnod_l
1108 END IF
1109 lvarint=lvarint+1
1110 IF(nadmesh==0)THEN
1111 tabvint(lvarint)=0
1112 ELSE
1113 tabvint(lvarint)=numnod_l
1114 END IF
1115 IF(numskw>0)THEN
1116 lvarint=lvarint+1
1117 tabvint(lvarint)=numskw+1 ! ISKWP
1118 lvarint=lvarint+1
1119 tabvint(lvarint)=nspmd ! NSKWP
1120 ELSE
1121 lvarint=lvarint+1
1122 tabvint(lvarint)=0
1123 lvarint=lvarint+1
1124 tabvint(lvarint)=0
1125 END IF
1126 IF(sensors%NSENSOR>0)THEN
1127 lvarint=lvarint+1
1128 tabvint(lvarint)=sensors%NSENSOR*2 ! ISENSP
1129 lvarint=lvarint+1
1130 tabvint(lvarint)=nspmd ! NSENSP
1131 ELSE
1132 lvarint=lvarint+1
1133 tabvint(lvarint)=0
1134 lvarint=lvarint+1
1135 tabvint(lvarint)=0
1136 END IF
1137 IF(naccelm>0)THEN
1138 lvarint=lvarint+1
1139 tabvint(lvarint)=naccelm ! IACCP
1140 lvarint=lvarint+1
1141 tabvint(lvarint)=nspmd ! NACCP
1142 ELSE
1143 lvarint=lvarint+1
1144 tabvint(lvarint)=0
1145 lvarint=lvarint+1
1146 tabvint(lvarint)=0
1147 END IF
1148 lvarint=lvarint+1
1149 tabvint(lvarint)=iisrot
1150C .sta files
1151 lvarint=lvarint+1
1152 tabvint(lvarint)=mx_stat
1153 lvarint=lvarint+1
1154 tabvint(lvarint)=istatf
1155 DO i=1, mx_stat
1156 lvarint=lvarint+1
1157 tabvint(lvarint)=stat_c(i)
1158 ENDDO
1159C .dynain files
1160 lvarint=lvarint+1
1161 dynain_data%IDYNAINF = 0
1162 tabvint(lvarint)=dynain_data%IDYNAINF
1163 DO i=1, dynain_data%MX_DYNAIN
1164 lvarint=lvarint+1
1165 dynain_data%DYNAIN_C(i) = 0
1166 tabvint(lvarint)=dynain_data%DYNAIN_C(i)
1167 ENDDO
1168 lvarint=lvarint+1
1169 tabvint(lvarint)=dynain_data%DYNAIN_CHECK
1170C heat transfer + int7
1171 lvarint=lvarint+1
1172 tabvint(lvarint) = glob_therm%INTHEAT
1173C xfem
1174 lvarint=lvarint+1
1175 tabvint(lvarint)=numelcrk
1176 lvarint=lvarint+1
1177 tabvint(lvarint)=ninicrack
1178C heat trasfert
1179 lvarint=lvarint+1
1180 tabvint(lvarint) = glob_therm%ITHERM_FE
1181C Static condensation
1182 lvarint=lvarint+1
1183 tabvint(lvarint)=istatcnd
1184C Unit info
1185 lvarint=lvarint+1
1186 tabvint(lvarint)= 4 ! old LUNIT, deprecated
1187 lvarint=lvarint+1
1188 tabvint(lvarint)=unitab%NUNIT0
1189 lvarint=lvarint+1
1190 tabvint(lvarint)=unitab%NUNITS
1191C
1192 lvarint=lvarint+1
1193 tabvint(lvarint)=lsh4trim
1194 lvarint=lvarint+1
1195 tabvint(lvarint)=lsh3trim
1196C
1197 lvarint=lvarint+1
1198 tabvint(lvarint)=iadmerrt
1199C
1200 lvarint=lvarint+1
1201 tabvint(lvarint)=impose_dr
1202C
1203 lvarint=lvarint+1
1204 tabvint(lvarint) = nintstamp
1205C
1206 lvarint=lvarint+1
1207 tabvint(lvarint) = inter_ithknod !defined in interface module (common_source directory)
1208
1209C rigid material
1210 lvarint=lvarint+1
1211 tabvint(lvarint)= irigid_mat
1212C
1213 lvarint=lvarint+1
1214 tabvint(lvarint)= nrbym
1215C
1216 lvarint=lvarint+1
1217 tabvint(lvarint)= nslarbm_l
1218C
1219 lvarint=lvarint+1
1220 tabvint(lvarint)= nfrbym
1221C
1222 lvarint=lvarint+1
1223 tabvint(lvarint)= nirbym
1224C p on rigid material
1225 lvarint=lvarint+1
1226 tabvint(lvarint)= nskyrbmk_l
1227C thermal bc
1228 lvarint=lvarint+1
1229 tabvint(lvarint)= glob_therm%NIFT
1230 lvarint=lvarint+1
1231 tabvint(lvarint)= glob_therm%NICONV
1232 lvarint=lvarint+1
1233 tabvint(lvarint)= glob_therm%LFACTHER
1234 lvarint=lvarint+1
1235 tabvint(lvarint)= nconv_l
1236 lvarint=lvarint+1
1237 tabvint(lvarint)= nfxtemp_l
1238 lvarint=lvarint+1
1239 tabvint(lvarint)= istamping
1240C
1241 lvarint=lvarint+1
1242 tabvint(lvarint)=nrbe3_l
1243 lvarint=lvarint+1
1244 tabvint(lvarint)=nrbe3_l*nrbe3l
1245 lvarint=lvarint+1
1246 tabvint(lvarint)=2*llrbe3_l
1247 lvarint=lvarint+1
1248 tabvint(lvarint)=8*llrbe3_l
1249C ----for spmd
1250 lvarint=lvarint+1
1251 tabvint(lvarint)= nspmd+1
1252 lvarint=lvarint+1
1253 tabvint(lvarint)= nbddnrbe3_l
1254C spmd rigid material
1255 lvarint=lvarint+1
1256 tabvint(lvarint)= nbddnrbym_l
1257 lvarint=lvarint+1
1258 tabvint(lvarint)= 3*nrbym
1259C
1260 lvarint=lvarint+1
1261 tabvint(lvarint) = sinoise
1262 lvarint=lvarint+1
1263 tabvint(lvarint) = sfnoise
1264 lvarint=lvarint+1
1265 tabvint(lvarint) = nnoise_sav
1266C shell xfem
1267 lvarint=lvarint+1
1268 tabvint(lvarint)=iplyxfem
1269 lvarint=lvarint+1
1270 tabvint(lvarint)=nplymax
1271 lvarint=lvarint+1
1272 tabvint(lvarint)=iplybcs
1273 lvarint=lvarint+1
1274 tabvint(lvarint)=numnodpxfe_l
1275 lvarint=lvarint+1
1276 tabvint(lvarint)= numelcpxfe_l
1277C
1278 lvarint=lvarint+1
1279 tabvint(lvarint)=ngrpart
1280C Madymo array
1281 lvarint=lvarint+1
1282 tabvint(lvarint)=(2*nmadnod+nmadsh4+nmadsh3+nmadsol)*isp0
1283C New Madymo coupling
1284 lvarint=lvarint+1
1285 tabvint(lvarint)=madcl_nmadnod_l
1286C
1287 lvarint=lvarint+1
1288 tabvint(lvarint)=idtmins
1289 lvarint=lvarint+1
1290 tabvint(lvarint)=idtgrs
1291C Madymo Restart Array is missing
1292 lvarint=lvarint+1
1293 tabvint(lvarint)=ireac
1294 lvarint=lvarint+1
1295 tabvint(lvarint)=snom_sect
1296 lvarint=lvarint+1
1297 tabvint(lvarint)=igrelem
1298 lvarint=lvarint+1
1299 tabvint(lvarint)=nthpart
1300C
1301C writing of elementary mass arrays to restart
1302 lvarint=lvarint+1
1303 tabvint(lvarint)=irest_mselt
1304C writing nthread to restart
1305 lvarint=lvarint+1
1306 tabvint(lvarint)=nthread
1307C ----for output of rotational dof -----
1308 lvarint=lvarint+1
1309 tabvint(lvarint)=idrot
1310C
1311C radiative flux
1312 lvarint=lvarint+1
1313 tabvint(lvarint)= glob_therm%NIRADIA
1314 lvarint=lvarint+1
1315 tabvint(lvarint)= nradia_l
1316C imposed heat flux
1317 lvarint=lvarint+1
1318 tabvint(lvarint)= glob_therm%NITFLUX
1319 lvarint=lvarint+1
1320 tabvint(lvarint)= nfxflux_l
1321C
1322 lvarint=lvarint+1
1323 tabvint(lvarint)= nsmspcg
1324C
1325 lvarint=lvarint+1
1326 tabvint(lvarint)= ntable
1327C RBE2
1328 lvarint=lvarint+1
1329 tabvint(lvarint)= nbddnrbe2_l
1330 lvarint=lvarint+1
1331 tabvint(lvarint)=nrbe2_l
1332 lvarint=lvarint+1
1333 tabvint(lvarint)=nrbe2_l*nrbe2l
1334 lvarint=lvarint+1
1335 tabvint(lvarint)=llrbe2_l
1336C ----for spmd
1337 lvarint=lvarint+1
1338 tabvint(lvarint)= nspmd+1
1339 lvarint=lvarint+1
1340 tabvint(lvarint)= nbddnrbe2_l
1341C ----for hierarchy both smp & spmd
1342 lvarint=lvarint+1
1343 tabvint(lvarint)=nhrbe2
1344C
1345C --- simplified ale option + lagrange
1346 lvarint=lvarint+1
1347 tabvint(lvarint) = ialelag
1348C
1349 lvarint=lvarint+1
1350 tabvint(lvarint)=nrbe2g
1351C
1352 lvarint=lvarint+1
1353 tabvint(lvarint)=nrbe3g
1354C----------------------------------
1355C ... shell 4-N + shell 3-N (X-FEM)
1356 lvarint=lvarint+1
1357 tabvint(lvarint)=icrack3d
1358C shell xfem + spmd
1359 lvarint=lvarint+1
1360 tabvint(lvarint)=lcnepxfem_l
1361 lvarint=lvarint+1
1362 tabvint(lvarint) = sithvar
1363 lvarint=lvarint+1
1364 tabvint(lvarint)=nplynodg
1365C --- Need NXREF Option for Modif files / SPMD
1366 lvarint=lvarint+1
1367 tabvint(lvarint) = nxref
1368C
1369 lvarint=lvarint+1
1370 tabvint(lvarint)=idtmins_int
1371C
1372 lvarint=lvarint+1
1373 tabvint(lvarint)=llcfield_l
1374 lvarint=lvarint+1
1375 tabvint(lvarint)=nload
1376C
1377 lvarint=lvarint+1
1378 tabvint(lvarint)=idamp_rdof
1379C
1380 lvarint=lvarint+1
1381 tabvint(lvarint)=lskew
1382 lvarint=lvarint+1
1383 tabvint(lvarint)=liskn
1384C
1385 lvarint=lvarint+1
1386 tabvint(lvarint)=lfxvelr
1387C
1388 lvarint=lvarint+1
1389 tabvint(lvarint)=nloadc
1390 lvarint=lvarint+1
1391 tabvint(lvarint)=llloadp_l
1392 lvarint=lvarint+1
1393 tabvint(lvarint)=nloadp
1394 lvarint=lvarint+1
1395 tabvint(lvarint)=nloadp_hyd
1396 lvarint=lvarint+1
1397 tabvint(lvarint)=nintloadp
1398 lvarint=lvarint+1
1399 tabvint(lvarint)=nintloadp21
1400C xfem for layered shell (cracks)
1401 lvarint=lvarint+1
1402 tabvint(lvarint)=lcnecrkxfem_l
1403 lvarint=lvarint+1
1404 tabvint(lvarint)=numnodcrkxfe_l
1405 lvarint=lvarint+1
1406 tabvint(lvarint)=numelcrkxfe_l
1407 lvarint=lvarint+1
1408 tabvint(lvarint)=nlevmax
1409 lvarint=lvarint+1
1410 tabvint(lvarint)=ncrknodg
1411 lvarint=lvarint+1
1412 tabvint(lvarint)=ienrnod
1413c new tab specific inl outl ibufssg_io
1414 lvarint=lvarint+1
1415 tabvint(lvarint)= sibufssg_io
1416 lvarint=lvarint+1
1417 tabvint(lvarint)= nibsph
1418 lvarint=lvarint+1
1419 tabvint(lvarint)= slinale
1420 lvarint=lvarint+1
1421 tabvint(lvarint)= nsubmod
1422 lvarint=lvarint+1
1423 tabvint(lvarint)= ale%GLOBAL%NALENOVS
1424C
1425 lvarint=lvarint+1
1426 tabvint(lvarint)= lnopt1
1427 lvarint=lvarint+1
1428 tabvint(lvarint)= lilset1
1429 lvarint=lvarint+1
1430 tabvint(lvarint)= lislin1
1431 lvarint=lvarint+1
1432 tabvint(lvarint)= ltitr
1433 lvarint=lvarint+1
1434 tabvint(lvarint)= lisurf1
1435 lvarint=lvarint+1
1436 tabvint(lvarint)= lipart1
1437 lvarint=lvarint+1
1438 tabvint(lvarint)= sizfield
1439 lvarint=lvarint+1
1440 tabvint(lvarint)= sizloadp
1441 lvarint=lvarint+1
1442 tabvint(lvarint)= i2nsn25_l
1443 lvarint=lvarint+1
1444 tabvint(lvarint)= lvoisph
1445 lvarint=lvarint+1
1446 tabvint(lvarint)= 0
1447 lvarint=lvarint+1
1448 tabvint(lvarint)= numnod_l
1449 lvarint=lvarint+1
1450 tabvint(lvarint)= 4*numelccrkxfe_l+3*numeltgcrkxfe_l
1451C multilayer xfem shell
1452 lvarint=lvarint+1
1453 tabvint(lvarint)=numelccrkxfe_l
1454 lvarint=lvarint+1
1455 tabvint(lvarint)=numeltgcrkxfe_l
1456 lvarint=lvarint+1
1457 tabvint(lvarint)=numedges_l
1458C inter22
1459 lvarint=lvarint+1
1460 tabvint(lvarint)=int22
1461 lvarint=lvarint+1
1462 tabvint(lvarint)=i22_aleul
1463 lvarint=lvarint+1
1464 tabvint(lvarint)=nsub22
1465 lvarint=lvarint+1
1466 tabvint(lvarint)=ioutp22
1467 lvarint=lvarint+1
1468 tabvint(lvarint)=i22law37
1469 lvarint=lvarint+1
1470 tabvint(lvarint)=i22law51
1471c
1472 lvarint=lvarint+1
1473 tabvint(lvarint)= icrash
1474c
1475 lvarint=lvarint+1
1476 tabvint(lvarint) = nspmd+1
1477 lvarint=lvarint+1
1478 tabvint(lvarint) = nbddedge_l
1479 lvarint=lvarint+1
1480 tabvint(lvarint) = nspmd+1
1481c
1482 lvarint=lvarint+1
1483 tabvint(lvarint) = nbgauge
1484 lvarint=lvarint+1
1485 tabvint(lvarint)= llaccelm
1486 lvarint=lvarint+1
1487 tabvint(lvarint)= llgauge
1488c
1489 IF(nbgauge>0)THEN
1490 lvarint=lvarint+1
1491 tabvint(lvarint)=nbgauge ! IGAUP
1492 lvarint=lvarint+1
1493 tabvint(lvarint)=nspmd ! NGAUP
1494 ELSE
1495 lvarint=lvarint+1
1496 tabvint(lvarint)=0
1497 lvarint=lvarint+1
1498 tabvint(lvarint)=0
1499 END IF
1500C
1501 lvarint=lvarint+1
1502 tabvint(lvarint)=sdd_r2r_elem
1503 lvarint=lvarint+1
1504 tabvint(lvarint)=r2r_siu
1505C heat trasfert for interface Type21 : main temperature is variable
1506 lvarint=lvarint+1
1507 tabvint(lvarint) = ftempvar21
1508C
1509 lvarint=lvarint+1
1510 tabvint(lvarint)=numnodxfe_l
1511 lvarint=lvarint+1
1512 tabvint(lvarint)=numnodxfe_l
1513c
1514 lvarint=lvarint+1
1515 tabvint(lvarint) = nsphsol_l
1516 lvarint=lvarint+1
1517 tabvint(lvarint)= first_sphsol_l
1518C
1519 lvarint=lvarint+1
1520 tabvint(lvarint)=iddom_l
1521 lvarint=lvarint+1
1522 tabvint(lvarint)=nummat0
1523 lvarint=lvarint+1
1524 tabvint(lvarint)=numgeo0
1525 lvarint=lvarint+1
1526 tabvint(lvarint) = intplyxfem
1527 lvarint=lvarint+1
1528 tabvint(lvarint) = i22len_l
1529c
1530 lvarint=lvarint+1
1531 tabvint(lvarint) = ncluster_l
1532C
1533 lvarint=lvarint+1
1534 tabvint(lvarint)=nxlaymax
1535C
1536 lvarint=lvarint+1
1537 tabvint(lvarint)=lenthbufr
1538
1539 lvarint=lvarint+1
1540 tabvint(lvarint)= numelig3d
1541 lvarint=lvarint+1
1542 tabvint(lvarint)= skxig3d
1543 lvarint=lvarint+1
1544 tabvint(lvarint)= sixig3d
1545 lvarint=lvarint+1
1546 tabvint(lvarint)= sknot
1547 lvarint=lvarint+1
1548 tabvint(lvarint)= sknotlocpc
1549 lvarint=lvarint+1
1550 tabvint(lvarint)= sknotlocel
1551 lvarint=lvarint+1
1552 tabvint(lvarint)= numfakenodigeo
1553 lvarint=lvarint+1
1554 tabvint(lvarint)= deg_max
1555C
1556 lvarint=lvarint+1
1557 tabvint(lvarint) = nxel
1558C
1559 lvarint=lvarint+1
1560 tabvint(lvarint) = nfilsol
1561C
1562 lvarint=lvarint+1
1563 tabvint(lvarint) = sensors%SFSAV
1564C
1565 lvarint=lvarint+1
1566 tabvint(lvarint) = sensors%STABSEN
1567C Stack info
1568 lvarint=lvarint+1
1569 tabvint(lvarint)=ipart_stack
1570 lvarint=lvarint+1
1571 tabvint(lvarint)=npt_stack
1572 lvarint=lvarint+1
1573 tabvint(lvarint)=ns_stack
1574 lvarint=lvarint+1
1575 tabvint(lvarint)=alefvm_param%IEnabled
1576 lvarint=lvarint+1
1577 tabvint(lvarint)=alefvm_param%ISOLVER
1578 lvarint=lvarint+1
1579 tabvint(lvarint)=alemuscl_param%IALEMUSCL
1580 lvarint=lvarint+1
1581 tabvint(lvarint)=alemuscl_param%BETA
1582 lvarint=lvarint+1
1583 tabvint(lvarint)=alemuscl_param%I_LAW
1584C
1585C ITETRA=3
1586 lvarint=lvarint+1
1587 tabvint(lvarint)=isfem
1588C /LOAD/PBLAST
1589 lvarint=lvarint+1
1590 tabvint(lvarint) = nloadp_f
1591 lvarint=lvarint+1
1592 tabvint(lvarint) = pblast%NLOADP_B
1593C /LOAD/PCYL
1594 lvarint=lvarint+1
1595 tabvint(lvarint) = nload_cyl
1596C memory space reserved for checkpoint restarts
1597C IDTMIN(51)
1598 lvarint=lvarint+1
1599 tabvint(lvarint)=0
1600C IDTMIN(52)
1601 lvarint=lvarint+1
1602 tabvint(lvarint)=0
1603C
1604 lvarint=lvarint+1
1605 tabvint(lvarint)=nbr_gpmp
1606C
1607 lvarint=lvarint+1
1608 tabvint(lvarint)=taille
1609C
1610 lvarint=lvarint+1
1611 tabvint(lvarint)=ninter25
1612C
1613 lvarint=lvarint+1
1614 tabvint(lvarint)=numnor_l
1615C
1616 lvarint=lvarint+1
1617 tabvint(lvarint)=nbddnort_l
1618C
1619 lvarint=lvarint+1
1620 tabvint(lvarint)=nbddnor_max_l
1621C
1622 lvarint=lvarint+1
1623 tabvint(lvarint)=nbccfr25_l
1624C
1625 lvarint=lvarint+1
1626 tabvint(lvarint)=nbccnor_l
1627C
1628 lvarint=lvarint+1
1629 tabvint(lvarint)=nbddedgt_l
1630C
1631 lvarint=lvarint+1
1632 tabvint(lvarint)=nbddedg_max_l
1633C
1634 lvarint=lvarint+1
1635 tabvint(lvarint)=nsnt25
1636C
1637 lvarint=lvarint+1
1638 tabvint(lvarint)=nrtmx25_l
1639C
1640C Drape option
1641 lvarint=lvarint+1
1642 tabvint(lvarint) = ndrape
1643C activation element
1644 lvarint=lvarint+1
1645 tabvint(lvarint) = lractiv
1646C PLY_INFO -> animation file
1647 lvarint=lvarint+1
1648 tabvint(lvarint) = numply
1649C PLY_INFO -> animation file
1650 lvarint=lvarint+1
1651 tabvint(lvarint) = numstack
1652C tab_mat_prop size
1653 lvarint=lvarint+1
1654 tabvint(lvarint) = tabmp_l
1655C SOL2SPH flag
1656 lvarint=lvarint+1
1657 tabvint(lvarint) = sol2sph_flag
1658 lvarint=lvarint+1
1659 tabvint(lvarint) = itsol2sph
1660C ISFINT (ALESOLVER) with caa method
1661 lvarint=lvarint+1
1662 tabvint(lvarint) = ale%GLOBAL%ISFINT
1663C ICNDS10 dyna condensation for S10
1664 lvarint=lvarint+1
1665 tabvint(lvarint) = ns10e_l
1666 lvarint=lvarint+1
1667 tabvint(lvarint) = lcncnd_l
1668C--- SIAD_CNDM, SFR_CNDM
1669 lvarint=lvarint+1
1670 tabvint(lvarint) = nspmd + 1
1671 lvarint=lvarint+1
1672 tabvint(lvarint) = nbddcndm_l
1673C---- old local sys of shell3n
1674 lvarint=lvarint+1
1675 tabvint(lvarint)=ish3nfram
1676 lvarint=lvarint+1
1677 tabvint(lvarint)=ngroup_l
1678C SMS auto switch
1679 lvarint=lvarint+1
1680 tabvint(lvarint) = isms_selec
1681C MULTI fluid law
1682 lvarint=lvarint+1
1683 tabvint(lvarint) = 0
1684 IF (multi_fvm%IS_USED) tabvint(lvarint) = 1
1685 lvarint=lvarint+1
1686 tabvint(lvarint) = 0
1687 IF (multi_fvm%IS_USED) tabvint(lvarint) = multi_fvm%NBMAT
1688C---- old Isolid=17
1689 lvarint=lvarint+1
1690 tabvint(lvarint)=is17old
1691C IH3D -> H3D count
1692 lvarint=lvarint+1
1693 tabvint(lvarint) = ih3d
1694C
1695 lvarint=lvarint+1
1696 tabvint(lvarint) = numels10g
1697C
1698 lvarint=lvarint+1
1699 tabvint(lvarint) = numels20g
1700!
1701 lvarint=lvarint+1
1702 tabvint(lvarint) = ale%GLOBAL%I_DT_NODA_ALE_ON
1703C Interface Adhesion
1704 lvarint=lvarint+1
1705 tabvint(lvarint) = interadhesion
1706!
1707C Friction interface
1708 lvarint=lvarint+1
1709 tabvint(lvarint) = ninterfric
1710!
1711 lvarint=lvarint+1
1712 tabvint(lvarint) = lensubs
1713!
1714 lvarint=lvarint+1
1715 tabvint(lvarint) = lenigrnod_l
1716!
1717 lvarint=lvarint+1
1718 tabvint(lvarint) = lenigrbric_l
1719!
1720 lvarint=lvarint+1
1721 tabvint(lvarint) = lenigrquad_l
1722!
1723 lvarint=lvarint+1
1724 tabvint(lvarint) = lenigrsh4n_l
1725!
1726 lvarint=lvarint+1
1727 tabvint(lvarint) = lenigrsh3n_l
1728!
1729 lvarint=lvarint+1
1730 tabvint(lvarint) = lenigrtrus_l
1731!
1732 lvarint=lvarint+1
1733 tabvint(lvarint) = lenigrbeam_l
1734!
1735 lvarint=lvarint+1
1736 tabvint(lvarint) = lenigrspri_l
1737!
1738 lvarint=lvarint+1
1739 tabvint(lvarint) = lenigrpart
1740!
1741 lvarint=lvarint+1
1742 tabvint(lvarint) = lenisurf_l
1743!
1744 lvarint=lvarint+1
1745 tabvint(lvarint) = lenislin_l
1746C
1747C---- Debut chk pt restart
1748C
1749! IDTS6, IDT1SOL, IDT1TET10, IDT1SH <=> CHKPT
1750 lvarint=lvarint+1
1751 tabvint(lvarint) = 0
1752 lvarint=lvarint+1
1753 tabvint(lvarint) = 0
1754 lvarint=lvarint+1
1755 tabvint(lvarint)=0
1756 lvarint=lvarint+1
1757 tabvint(lvarint) = 0
1758C
1759C----- end chk pt restart
1760C
1761! H3D -> number of skid lines
1762 lvarint=lvarint+1
1763 tabvint(lvarint) = 0
1764! H3D ANIM -> FCONT_MAX computing IFCONTMAX/IFCONTPMAX/IFCONT2MAX/IFCONTP2MAX
1765 lvarint=lvarint+1
1766 tabvint(lvarint) = 0
1767 lvarint=lvarint+1
1768 tabvint(lvarint) = 0
1769 lvarint=lvarint+1
1770 tabvint(lvarint) = 0
1771 lvarint=lvarint+1
1772 tabvint(lvarint) = 0
1773 lvarint=lvarint+1
1774 tabvint(lvarint) = 0
1775 lvarint=lvarint+1
1776 tabvint(lvarint) = 0
1777! H3D output for frictional energy
1778 lvarint=lvarint+1
1779 tabvint(lvarint) = 0
1780 lvarint=lvarint+1
1781 tabvint(lvarint) = 0
1782 lvarint=lvarint+1
1783 tabvint(lvarint) = 0
1784 lvarint=lvarint+1
1785 tabvint(lvarint) = 0
1786 lvarint=lvarint+1
1787 tabvint(lvarint) = 0
1788 lvarint=lvarint+1
1789 tabvint(lvarint) = 0
1790C Nitsche Method
1791 lvarint=lvarint+1
1792 tabvint(lvarint) = nitsche
1793C CBA Pinching
1794 lvarint=lvarint+1
1795 tabvint(lvarint) = npinch
1796 lvarint=lvarint+1
1797 tabvint(lvarint) = nploadpinch
1798C I_SUPG_ON_OFF
1799 lvarint=lvarint+1
1800 tabvint(lvarint) = 0
1801!
1802 lvarint=lvarint+1
1803 tabvint(lvarint) = nledge
1804!
1805 lvarint=lvarint+1
1806 tabvint(lvarint) = inispri
1807!
1808 lvarint=lvarint+1
1809 tabvint(lvarint) = sensors%NSTOP
1810 lvarint=lvarint+1
1811 tabvint(lvarint) = sensors%NSTAT
1812 lvarint=lvarint+1
1813 tabvint(lvarint) = sensors%NOUTP
1814 lvarint=lvarint+1
1815 tabvint(lvarint) = sensors%NANIM
1816!
1817 lvarint=lvarint+1
1818 tabvint(lvarint)=nibcld
1819 lvarint=lvarint+1
1820 tabvint(lvarint)=lfaccld
1821!
1822 lvarint=lvarint+1
1823 tabvint(lvarint)=nigrv
1824 lvarint=lvarint+1
1825 tabvint(lvarint)=lfacgrv
1826C BCS/CYCLIC
1827 lvarint=lvarint+1
1828 tabvint(lvarint)=nbcscyc_l
1829 lvarint=lvarint+1
1830C-----SIBCSCYC
1831 tabvint(lvarint)=nbcscyc_l*4
1832 lvarint=lvarint+1
1833C-----SLBCSCYC
1834 tabvint(lvarint)=llbcscyc_l*2
1835
1836 lvarint=lvarint+1
1837 tabvint(lvarint) = inter18_autoparam
1838 lvarint=lvarint+1
1839 tabvint(lvarint)=0
1840 IF(inter18_is_variable_gap_defined)tabvint(lvarint) = 1
1841
1842 IF (ale_connectivity%has_ne_connect) THEN
1843 lvarint=lvarint+1
1844 tabvint(lvarint) = ne_nervois_l
1845 lvarint=lvarint+1
1846 tabvint(lvarint) = ne_nesvois_l
1847 lvarint=lvarint+1
1848 tabvint(lvarint) = ne_nsvois_l
1849 lvarint=lvarint+1
1850 tabvint(lvarint) = ne_nqvois_l
1851 lvarint=lvarint+1
1852 tabvint(lvarint) = ne_ntgvois_l
1853 ENDIF
1854C
1855 lvarint=lvarint+1
1856 tabvint(lvarint)=pdel
1857C-----Seatbelts - slipring / retractors
1858 lvarint=lvarint+1
1859 tabvint(lvarint)=n_slipring_l
1860 lvarint=lvarint+1
1861 tabvint(lvarint)=n_retractor_l
1862 lvarint=lvarint+1
1863 tabvint(lvarint)=nslipring
1864 lvarint=lvarint+1
1865 tabvint(lvarint)=nretractor
1866 lvarint=lvarint+1
1867 tabvint(lvarint)=n_anchor_remote_l
1868 lvarint=lvarint+1
1869 tabvint(lvarint)=n_anchor_remote_send_l
1870 lvarint=lvarint+1
1871 tabvint(lvarint)=n_seatbelt_l
1872 lvarint=lvarint+1
1873 tabvint(lvarint)=n_seatbelt_2d_l
1874
1875! Need to write output variables LASTANIMCYCLE,LASTH3DCYCLE,LASTDYNCYCLE,LASTSTATCYCLE
1876
1877 lvarint=lvarint+1
1878 tabvint(lvarint)=0
1879
1880 lvarint=lvarint+1
1881 tabvint(lvarint)=0
1882
1883 lvarint=lvarint+1
1884 tabvint(lvarint)=0
1885
1886 lvarint=lvarint+1
1887 tabvint(lvarint)=0
1888C
1889C---- Starter input version
1890 lvarint=lvarint+1
1891 tabvint(lvarint)=invers
1892C
1893C---- Number of RBODY before merge
1894 lvarint=lvarint+1
1895 tabvint(lvarint)=nrbody0
1896C---- MAX (/H3D)
1897 lvarint=lvarint+1
1898 tabvint(lvarint)=lmax_dis
1899 lvarint=lvarint+1
1900 tabvint(lvarint)=lmax_vel
1901 lvarint=lvarint+1
1902 tabvint(lvarint)=lmax_nsig
1903 lvarint=lvarint+1
1904 tabvint(lvarint)=lmax_nstra
1905C---- Time history strain flag
1906 lvarint=lvarint+1
1907 tabvint(lvarint)=th_strain
1908C draped shell element
1909 lvarint = lvarint + 1
1910 tabvint(lvarint) = numsh4n_l
1911 lvarint = lvarint + 1
1912 tabvint(lvarint) = numsh3n_l
1913C
1914 lvarint = lvarint + 1
1915 tabvint(lvarint) = inter_parameters%ISTIF_DT
1916C
1917 lvarint = lvarint + 1
1918 tabvint(lvarint) = inter_parameters%INTCAREA
1919C
1920C /LOAD/CLOAD
1921 lvarint=lvarint+1
1922 tabvint(lvarint) = ncload_l
1923C /LOAD/PLOAD
1924 lvarint=lvarint+1
1925 tabvint(lvarint) = npload_l
1926C
1927C-----/DAMP/VREL
1928 lvarint=lvarint+1
1929 tabvint(lvarint) = ndamp_vrel_l
1930C
1931 lvarint = lvarint + 1
1932 tabvint(lvarint) = inter_parameters%INT25_EROSION_SOLID
1933C-----/INIVEL w/ T_start
1934 lvarint=lvarint+1
1935 tabvint(lvarint) = ninivelt_l
1936C-----ALE%REZON
1937 lvarint=lvarint+1
1938 tabvint(lvarint) = ale%REZON%NUM_NUVAR_MAT
1939 lvarint=lvarint+1
1940 tabvint(lvarint) = ale%REZON%NUM_NUVAR_EOS
1941C----------------------------------------------------------------
1942C warning to radioss developers : Check LVARINT < LMXVINT
1943C----------------------------------------------------------------
1944 IF(lvarint>lmxvint)stop 123
1945C-----------
1946 RETURN
min
#define min(a, b)
Definition macros.h:20
max
#define max(a, b)
Definition macros.h:21
ale_connectivity_mod
Definition ale_connectivity_mod.F:225
ale_ebcs_mod
Definition ale_ebcs_mod.F:40
ale_ebcs_mod::nebcs
integer nebcs
Definition ale_ebcs_mod.F:43
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
outmax_mod
Definition outmax_mod.F:52
outmax_mod::lmax_vel
integer lmax_vel
Definition outmax_mod.F:61
outmax_mod::lmax_nstra
integer lmax_nstra
Definition outmax_mod.F:63
outmax_mod::lmax_dis
integer lmax_dis
Definition outmax_mod.F:60
outmax_mod::lmax_nsig
integer lmax_nsig
Definition outmax_mod.F:62
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
pload_cyl_mod
Definition pload_cyl_mod.F:35
state_mod
Definition state_mod.F:54
submodel_mod
Definition submodel_mod.F:717
submodel_mod::nsubmod
integer nsubmod
Definition submodel_mod.F:725
th_mod
Definition th_mod.F:42
th_mod::th_has_noda_pext
integer th_has_noda_pext
Definition th_mod.F:121
unitab_mod
Definition unitab_mod.F:517