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