OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
write_intbuf.F
Go to the documentation of this file.
1Copyright> OpenRadioss
2Copyright> Copyright (C) 1986-2025 Altair Engineering Inc.
3Copyright>
4Copyright> This program is free software: you can redistribute it and/or modify
5Copyright> it under the terms of the GNU Affero General Public License as published by
6Copyright> the Free Software Foundation, either version 3 of the License, or
7Copyright> (at your option) any later version.
8Copyright>
9Copyright> This program is distributed in the hope that it will be useful,
10Copyright> but WITHOUT ANY WARRANTY; without even the implied warranty of
11Copyright> MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12Copyright> GNU Affero General Public License for more details.
13Copyright>
14Copyright> You should have received a copy of the GNU Affero General Public License
15Copyright> along with this program. If not, see <https://www.gnu.org/licenses/>.
16Copyright>
17Copyright>
18Copyright> Commercial Alternative: Altair Radioss Software
19Copyright>
20Copyright> As an alternative to this open-source version, Altair also offers Altair Radioss
21Copyright> software under a commercial license. Contact Altair to discuss further if the
22Copyright> commercial version may interest you: https://www.altair.com/radioss/.
23
24
25!||====================================================================
26!|| write_intbuf ../engine/source/output/restart/write_intbuf.F
27!||--- called by ------------------------------------------------------
28!|| wrrestp ../engine/source/output/restart/wrrestp.F
29!||--- calls -----------------------------------------------------
30!|| arret ../engine/source/system/arret.F
31!|| compress_i_nnz ../common_source/comm/compress_nnz.F
32!|| compress_r_nnz ../common_source/comm/compress_nnz.F
33!|| write_db ../common_source/tools/input_output/write_db.F
34!|| write_i_c ../common_source/tools/input_output/write_routtines.c
35!|| write_intbuf_t8 ../engine/source/output/restart/write_intbuf.F
36!||--- uses -----------------------------------------------------
37!|| intbufdef_mod ../common_source/modules/interfaces/intbufdef_mod.F90
38!||====================================================================
39 SUBROUTINE write_intbuf(INTBUF_TAB)
40C-----------------------------------------------
41C M o d u l e s
42C-----------------------------------------------
43 USE intbufdef_mod
44C-----------------------------------------------
45C I m p l i c i t T y p e s
46C-----------------------------------------------
47#include "implicit_f.inc"
48C-----------------------------------------------
49C C o m m o n B l o c k s
50C-----------------------------------------------
51#include "com04_c.inc"
52#include "units_c.inc"
53C-----------------------------------------------
54C D u m m y A r g u m e n t s
55C-----------------------------------------------
56c my_real
57c .
58 INTEGER, DIMENSION(:),ALLOCATABLE :: INTBUF_SIZE
59
60 TYPE(intbuf_struct_) INTBUF_TAB(*)
61C-----------------------------------------------
62C L o c a l V a r i a b l e s
63C-----------------------------------------------
64 INTEGER I,N,NI,SIZ,L_INTBUF_SIZE
65C=======================================================================
66 ALLOCATE(intbuf_size(l_intbuf_size_max))
67 intbuf_size(1:l_intbuf_size_max) = 0
68
69 DO ni= 1, ninter
70
71 n = 1
72C=======================================================================
73C integer arrays sizes
74C=======================================================================
75 intbuf_size(n) = intbuf_tab(ni)%S_IRECTS
76 n = n+1
77 intbuf_size(n) = intbuf_tab(ni)%S_IRECTM
78 n = n+1
79 intbuf_size(n) = intbuf_tab(ni)%S_NSV
80 n = n+1
81 intbuf_size(n) = intbuf_tab(ni)%S_MSR
82 n = n+1
83 intbuf_size(n) = intbuf_tab(ni)%S_IRTLM
84 n = n+1
85 intbuf_size(n) = intbuf_tab(ni)%S_IRUPT
86 n = n+1
87 intbuf_size(n) = intbuf_tab(ni)%S_INORM
88 n = n+1
89 intbuf_size(n) = intbuf_tab(ni)%S_IELEC
90 n = n+1
91 intbuf_size(n) = intbuf_tab(ni)%S_IELES
92 n = n+1
93 intbuf_size(n) = intbuf_tab(ni)%S_LISUB
94 n = n+1
95 intbuf_size(n) = intbuf_tab(ni)%S_TYPSUB
96 n = n+1
97 intbuf_size(n) = intbuf_tab(ni)%S_ADDSUBS
98 n = n+1
99 intbuf_size(n) = intbuf_tab(ni)%S_ADDSUBM
100 n = n+1
101 intbuf_size(n) = intbuf_tab(ni)%S_LISUBS
102 n = n+1
103 intbuf_size(n) = intbuf_tab(ni)%S_LISUBM
104 n = n+1
105 intbuf_size(n) = intbuf_tab(ni)%S_INFLG_SUBS
106 n = n+1
107 intbuf_size(n) = intbuf_tab(ni)%S_INFLG_SUBM
108 n = n+1
109 intbuf_size(n) = intbuf_tab(ni)%S_ADDSUBE
110 n = n+1
111 intbuf_size(n) = intbuf_tab(ni)%S_LISUBE
112 n = n+1
113 intbuf_size(n) = intbuf_tab(ni)%S_INFLG_SUBE
114 n = n+1
115 intbuf_size(n) = intbuf_tab(ni)%S_MSEGTYP
116 n = n+1
117 intbuf_size(n) = intbuf_tab(ni)%S_CAND_E
118 n = n+1
119 intbuf_size(n) = intbuf_tab(ni)%S_CAND_N
120 n = n+1
121 intbuf_size(n) = intbuf_tab(ni)%S_I_STOK
122 n = n+1
123 intbuf_size(n) = intbuf_tab(ni)%S_I_STOK_E
124 n = n+1
125 intbuf_size(n) = intbuf_tab(ni)%S_IFPEN
126 n = n+1
127 intbuf_size(n) = intbuf_tab(ni)%S_KREMNODE
128 n = n+1
129 intbuf_size(n) = intbuf_tab(ni)%S_REMNODE
130 n = n+1
131 intbuf_size(n) = intbuf_tab(ni)%S_KREMNOR
132 n = n+1
133 intbuf_size(n) = intbuf_tab(ni)%S_REMNOR
134 n = n+1
135 intbuf_size(n) = intbuf_tab(ni)%S_ADCCM
136 n = n+1
137 intbuf_size(n) = intbuf_tab(ni)%S_CHAIN
138 n = n+1
139 intbuf_size(n) = intbuf_tab(ni)%S_NIGE
140!type20
141 n = n+1
142 intbuf_size(n) = intbuf_tab(ni)%S_DAANC6
143 n = n+1
144 intbuf_size(n) = intbuf_tab(ni)%S_NBINFLG
145 n = n+1
146 intbuf_size(n) = intbuf_tab(ni)%S_MBINFLG
147 n = n+1
148 intbuf_size(n) = intbuf_tab(ni)%S_EBINFLG
149 n = n+1
150 intbuf_size(n) = intbuf_tab(ni)%S_NLG
151 n = n+1
152 intbuf_size(n) = intbuf_tab(ni)%S_ISLINS
153 n = n+1
154 intbuf_size(n) = intbuf_tab(ni)%S_ISLINM
155 n = n+1
156 intbuf_size(n) = intbuf_tab(ni)%S_IXLINS
157 n = n+1
158 intbuf_size(n) = intbuf_tab(ni)%S_IXLINM
159 n = n+1
160 intbuf_size(n) = intbuf_tab(ni)%S_NSVL
161 n = n+1
162 intbuf_size(n) = intbuf_tab(ni)%S_MSRL
163 n = n+1
164 intbuf_size(n) = intbuf_tab(ni)%S_LCAND_N
165 n = n+1
166 intbuf_size(n) = intbuf_tab(ni)%S_LCAND_S
167 n = n+1
168 intbuf_size(n) = intbuf_tab(ni)%S_ADCCM20
169 n = n+1
170 intbuf_size(n) = intbuf_tab(ni)%S_CHAIN20
171!type1
172 n = n+1
173 intbuf_size(n) = intbuf_tab(ni)%S_ILOCS
174 n = n+1
175 intbuf_size(n) = intbuf_tab(ni)%S_NSEGM
176 n = n+1
177 intbuf_size(n) = intbuf_tab(ni)%S_NRT
178!type2
179 n = n+1
180 intbuf_size(n) = intbuf_tab(ni)%S_MSEGTYP2
181!type3
182 n = n+1
183 intbuf_size(n) = intbuf_tab(ni)%S_IRTLS
184 n = n+1
185 intbuf_size(n) = intbuf_tab(ni)%S_ILOCM
186 n = n+1
187 intbuf_size(n) = intbuf_tab(ni)%S_IRTLOM
188 n = n+1
189 intbuf_size(n) = intbuf_tab(ni)%S_IRTLOS
190 n = n+1
191 intbuf_size(n) = intbuf_tab(ni)%S_NSEGS
192 n = n+1
193 intbuf_size(n) = intbuf_tab(ni)%S_LNSV
194 n = n+1
195 intbuf_size(n) = intbuf_tab(ni)%S_LMSR
196!type4
197 n = n+1
198 intbuf_size(n) = intbuf_tab(ni)%S_IELEM
199!type12
200 n = n+1
201 intbuf_size(n) = intbuf_tab(ni)%S_FCOUNT
202!type14
203 n = n+1
204 intbuf_size(n) = intbuf_tab(ni)%S_KSURF
205 n = n+1
206 intbuf_size(n) = intbuf_tab(ni)%S_IMPACT
207!type21
208 n = n+1
209 intbuf_size(n) = intbuf_tab(ni)%S_MSR21
210 n = n+1
211 intbuf_size(n) = intbuf_tab(ni)%S_MNDD
212 n = n+1
213 intbuf_size(n) = intbuf_tab(ni)%S_MSR_L
214!type24
215 n = n+1
216 intbuf_size(n) = intbuf_tab(ni)%S_MVOISIN
217 n = n+1
218 intbuf_size(n) = intbuf_tab(ni)%S_NVOISIN
219 n = n+1
220 intbuf_size(n) = intbuf_tab(ni)%S_MSEGLO
221 n = n+1
222 intbuf_size(n) = intbuf_tab(ni)%S_MSEGTYP24
223C------- to be cleaned later
224 n = n+1
225 intbuf_size(n) = intbuf_tab(ni)%S_ISEADD
226 n = n+1
227 intbuf_size(n) = intbuf_tab(ni)%S_ISEDGE
228 n = n+1
229 intbuf_size(n) = intbuf_tab(ni)%S_CAND_T
230 n = n+1
231 intbuf_size(n) = intbuf_tab(ni)%S_ISEG_PXFEM
232 n = n+1
233 intbuf_size(n) = intbuf_tab(ni)%S_ISEG_PLY
234 n = n+1
235 intbuf_size(n) = intbuf_tab(ni)%S_ICONT_I
236 n = n+1
237 intbuf_size(n) = intbuf_tab(ni)%S_IRTSE
238 n = n+1
239 intbuf_size(n) = intbuf_tab(ni)%S_IS2SE
240 n = n+1
241 intbuf_size(n) = intbuf_tab(ni)%S_IS2PT
242 n = n+1
243 intbuf_size(n) = intbuf_tab(ni)%S_ISPT2
244 n = n+1
245 intbuf_size(n) = intbuf_tab(ni)%S_ISEGPT
246 n = n+1
247 intbuf_size(n) = intbuf_tab(ni)%S_IS2ID
248!type25
249 n = n+1
250 intbuf_size(n) = intbuf_tab(ni)%S_EVOISIN
251 n = n+1
252 intbuf_size(n) = intbuf_tab(ni)%S_ADMSR
253 n = n+1
254 intbuf_size(n) = intbuf_tab(ni)%S_LEDGE
255 n = n+1
256 intbuf_size(n) = intbuf_tab(ni)%S_LBOUND
257 n = n+1
258 intbuf_size(n) = intbuf_tab(ni)%S_ACTNOR
259 n = n+1
260 intbuf_size(n) = intbuf_tab(ni)%S_FARM
261 n = n+1
262 intbuf_size(n) = intbuf_tab(ni)%S_ADSKYN
263 n = n+1
264 intbuf_size(n) = intbuf_tab(ni)%S_IADNOR
265 n = n+1
266 intbuf_size(n) = intbuf_tab(ni)%S_ISLIDE
267 n = n+1
268 intbuf_size(n) = intbuf_tab(ni)%S_KNOR2MSR
269 n = n+1
270 intbuf_size(n) = intbuf_tab(ni)%S_NOR2MSR
271 n = n+1
272 intbuf_size(n) = intbuf_tab(ni)%S_CAND_OPT_N
273 n = n+1
274 intbuf_size(n) = intbuf_tab(ni)%S_CAND_OPT_E
275 n = n+1
276 intbuf_size(n) = intbuf_tab(ni)%S_IF_ADH
277 n = n+1
278 intbuf_size(n) = intbuf_tab(ni)%S_CANDM_E2E
279 n = n+1
280 intbuf_size(n) = intbuf_tab(ni)%S_CANDS_E2E
281 n = n+1
282 intbuf_size(n) = intbuf_tab(ni)%S_CANDM_E2S
283 n = n+1
284 intbuf_size(n) = intbuf_tab(ni)%S_CANDS_E2S
285 n = n+1
286 intbuf_size(n) = intbuf_tab(ni)%S_IFPEN_E
287 n = n+1
288 intbuf_size(n) = intbuf_tab(ni)%S_IFPEN_E2S
289 n = n+1
290 intbuf_size(n) = intbuf_tab(ni)%S_IPARTFRICS
291 n = n+1
292 intbuf_size(n) = intbuf_tab(ni)%S_IPARTFRICM
293 n = n+1
294 intbuf_size(n) = intbuf_tab(ni)%S_IPARTFRIC_E
295 n = n+1
296 intbuf_size(n) = intbuf_tab(ni)%S_IELNRTS
297 n = n+1
298 intbuf_size(n) = intbuf_tab(ni)%S_ADRECTS
299 n = n+1
300 intbuf_size(n) = intbuf_tab(ni)%S_FACNRTS
301 n = n+1
302 intbuf_size(n) = intbuf_tab(ni)%S_IREP_FRICM
303 n = n+1
304 intbuf_size(n) = intbuf_tab(ni)%S_E2S_ACTNOR
305 n = n+1
306 intbuf_size(n) = intbuf_tab(ni)%S_KREMNODE_EDG
307 n = n+1
308 intbuf_size(n) = intbuf_tab(ni)%S_REMNODE_EDG
309 n = n+1
310 intbuf_size(n) = intbuf_tab(ni)%S_KREMNODE_E2S
311 n = n+1
312 intbuf_size(n) = intbuf_tab(ni)%S_REMNODE_E2S
313 n = n+1
314 intbuf_size(n) = intbuf_tab(ni)%S_IELEM_M
315 n = n+1
316 intbuf_size(n) = intbuf_tab(ni)%S_PROC_MVOISIN
317
318C=======================================================================
319C real arrays sizes
320C=======================================================================
321 n = n+1
322 intbuf_size(n) = intbuf_tab(ni)%S_STFAC
323 n = n+1
324 intbuf_size(n) = intbuf_tab(ni)%S_VARIABLES
325 n = n+1
326 intbuf_size(n) = intbuf_tab(ni)%S_CSTS
327 n = n+1
328 intbuf_size(n) = intbuf_tab(ni)%S_DPARA
329 n = n+1
330 intbuf_size(n) = intbuf_tab(ni)%S_NMAS
331 n = n+1
332 intbuf_size(n) = intbuf_tab(ni)%S_AREAS2
333 n = n+1
334 intbuf_size(n) = intbuf_tab(ni)%S_SMAS
335 n = n+1
336 intbuf_size(n) = intbuf_tab(ni)%S_SINER
337 n = n+1
338 intbuf_size(n) = intbuf_tab(ni)%S_UVAR
339 n = n+1
340 intbuf_size(n) = intbuf_tab(ni)%S_XM0
341 n = n+1
342 intbuf_size(n) = intbuf_tab(ni)%S_SPENALTY
343 n = n+1
344 intbuf_size(n) = intbuf_tab(ni)%S_STFR_PENALTY
345 n = n+1
346 intbuf_size(n) = intbuf_tab(ni)%S_SKEW
347 n = n+1
348 intbuf_size(n) = intbuf_tab(ni)%S_DSM
349 n = n+1
350 intbuf_size(n) = intbuf_tab(ni)%S_FSM
351 n = n+1
352 intbuf_size(n) = intbuf_tab(ni)%S_RUPT
353 n = n+1
354 intbuf_size(n) = intbuf_tab(ni)%S_FINI
355 n = n+1
356 intbuf_size(n) = intbuf_tab(ni)%S_STFNS
357 n = n+1
358 intbuf_size(n) = intbuf_tab(ni)%S_STFM
359 n = n+1
360 intbuf_size(n) = intbuf_tab(ni)%S_STFS
361 n = n+1
362 intbuf_size(n) = intbuf_tab(ni)%S_PENIM
363 n = n+1
364 intbuf_size(n) = intbuf_tab(ni)%S_PENIS
365 n = n+1
366 intbuf_size(n) = intbuf_tab(ni)%S_STIFMSDT_S
367 n = n+1
368 intbuf_size(n) = intbuf_tab(ni)%S_STIFMSDT_M
369 n = n+1
370 intbuf_size(n) = intbuf_tab(ni)%S_GAP_M
371 n = n+1
372 intbuf_size(n) = intbuf_tab(ni)%S_GAP_S
373 n = n+1
374 intbuf_size(n) = intbuf_tab(ni)%S_XSAV
375 n = n+1
376 intbuf_size(n) = intbuf_tab(ni)%S_CRIT
377 n = n+1
378 intbuf_size(n) = intbuf_tab(ni)%S_FRIC_P
379 n = n+1
380 intbuf_size(n) = intbuf_tab(ni)%S_XFILTR
381 n = n+1
382 intbuf_size(n) = intbuf_tab(ni)%S_AREAS
383 n = n+1
384 intbuf_size(n) = intbuf_tab(ni)%S_AREAM
385 n = n+1
386 intbuf_size(n) = intbuf_tab(ni)%S_GAP_ML
387 n = n+1
388 intbuf_size(n) = intbuf_tab(ni)%S_GAP_SL
389 n = n+1
390 intbuf_size(n) = intbuf_tab(ni)%S_CAND_P
391 n = n+1
392 intbuf_size(n) = intbuf_tab(ni)%S_CAND_PS
393 n = n+1
394 intbuf_size(n) = intbuf_tab(ni)%S_GAPE
395 n = n+1
396 intbuf_size(n) = intbuf_tab(ni)%S_GAP_E_L
397 n = n+1
398 intbuf_size(n) = intbuf_tab(ni)%S_STFE
399 n = n+1
400 intbuf_size(n) = intbuf_tab(ni)%S_STIFMSDT_EDG
401 n = n+1
402 intbuf_size(n) = intbuf_tab(ni)%S_FTSAVX
403 n = n+1
404 intbuf_size(n) = intbuf_tab(ni)%S_FTSAVY
405 n = n+1
406 intbuf_size(n) = intbuf_tab(ni)%S_FTSAVZ
407 n = n+1
408 intbuf_size(n) = intbuf_tab(ni)%S_RIGE
409 n = n+1
410 intbuf_size(n) = intbuf_tab(ni)%S_XIGE
411 n = n+1
412 intbuf_size(n) = intbuf_tab(ni)%S_VIGE
413 n = n+1
414 intbuf_size(n) = intbuf_tab(ni)%S_MASSIGE
415!type10
416 n = n+1
417 intbuf_size(n) = intbuf_tab(ni)%S_CAND_F
418!type20
419 n = n+1
420 intbuf_size(n) = intbuf_tab(ni)%S_XA
421 n = n+1
422 intbuf_size(n) = intbuf_tab(ni)%S_VA
423 n = n+1
424 intbuf_size(n) = intbuf_tab(ni)%S_STFA
425 n = n+1
426 intbuf_size(n) = intbuf_tab(ni)%S_AVX_ANCR
427 n = n+1
428 intbuf_size(n) = intbuf_tab(ni)%S_GAP_SH
429 n = n+1
430 intbuf_size(n) = intbuf_tab(ni)%S_CAND_FX
431 n = n+1
432 intbuf_size(n) = intbuf_tab(ni)%S_CAND_FY
433 n = n+1
434 intbuf_size(n) = intbuf_tab(ni)%S_CAND_FZ
435 n = n+1
436 intbuf_size(n) = intbuf_tab(ni)%S_GAP_SE
437 n = n+1
438 intbuf_size(n) = intbuf_tab(ni)%S_GAP_ME
439 n = n+1
440 intbuf_size(n) = intbuf_tab(ni)%S_STF
441 n = n+1
442 intbuf_size(n) = intbuf_tab(ni)%S_STFNE
443 n = n+1
444 intbuf_size(n) = intbuf_tab(ni)%S_CRITX
445 n = n+1
446 intbuf_size(n) = intbuf_tab(ni)%S_PENISE
447 n = n+1
448 intbuf_size(n) = intbuf_tab(ni)%S_PENIME
449 n = n+1
450 intbuf_size(n) = intbuf_tab(ni)%S_PENIA
451 n = n+1
452 intbuf_size(n) = intbuf_tab(ni)%S_ALPHAK
453 n = n+1
454!type1
455 intbuf_size(n) = intbuf_tab(ni)%S_N
456!type 3,4,5,9
457 n = n+1
458 intbuf_size(n) = intbuf_tab(ni)%S_CSTM
459 n = n+1
460 intbuf_size(n) = intbuf_tab(ni)%S_EE
461 n = n+1
462 intbuf_size(n) = intbuf_tab(ni)%S_STFNM
463 n = n+1
464 intbuf_size(n) = intbuf_tab(ni)%S_FRICOS
465 n = n+1
466 intbuf_size(n) = intbuf_tab(ni)%S_FRICOM
467 n = n+1
468 intbuf_size(n) = intbuf_tab(ni)%S_FTSAV
469!type 6
470 n = n+1
471 intbuf_size(n) = intbuf_tab(ni)%S_FCONT
472 n = n+1
473 intbuf_size(n) = intbuf_tab(ni)%S_FS
474 n = n+1
475 intbuf_size(n) = intbuf_tab(ni)%S_FM
476 n = n+1
477 intbuf_size(n) = intbuf_tab(ni)%S_RMAS
478 n = n+1
479 intbuf_size(n) = intbuf_tab(ni)%S_ANSMX0
480!type 8
481 n = n+1
482 intbuf_size(n) = intbuf_tab(ni)%S_T8
483 n = n+1
484 intbuf_size(n) = intbuf_tab(ni)%S_GAPN
485 n = n+1
486 intbuf_size(n) = intbuf_tab(ni)%S_STF8
487!type 14
488 n = n+1
489 intbuf_size(n) = intbuf_tab(ni)%S_CIMP
490 n = n+1
491 intbuf_size(n) = intbuf_tab(ni)%S_NIMP
492!type 15
493 n = n+1
494 intbuf_size(n) = intbuf_tab(ni)%S_IOLD
495 n = n+1
496 intbuf_size(n) = intbuf_tab(ni)%S_HOLD
497 n = n+1
498 intbuf_size(n) = intbuf_tab(ni)%S_NOLD
499 n = n+1
500 intbuf_size(n) = intbuf_tab(ni)%S_DOLD
501!type 17
502 n = n+1
503 intbuf_size(n) = intbuf_tab(ni)%S_KS
504 n = n+1
505 intbuf_size(n) = intbuf_tab(ni)%S_KM
506 n = n+1
507 intbuf_size(n) = intbuf_tab(ni)%S_FROTS
508 n = n+1
509 intbuf_size(n) = intbuf_tab(ni)%S_FROTM
510!type 21
511 n = n+1
512 intbuf_size(n) = intbuf_tab(ni)%S_NOD_NORMAL
513!type21
514 n = n+1
515 intbuf_size(n) = intbuf_tab(ni)%S_RCURV
516 n = n+1
517 intbuf_size(n) = intbuf_tab(ni)%S_ANGLM
518 n = n+1
519 intbuf_size(n) = intbuf_tab(ni)%S_FROT_P
520 n = n+1
521 intbuf_size(n) = intbuf_tab(ni)%S_ALPHA0
522 n = n+1
523 intbuf_size(n) = intbuf_tab(ni)%S_AS
524 n = n+1
525 intbuf_size(n) = intbuf_tab(ni)%S_BS
526 n = n+1
527 intbuf_size(n) = intbuf_tab(ni)%S_THKNOD0
528!type 24
529 n = n+1
530 intbuf_size(n) = intbuf_tab(ni)%S_GAPN_M
531 n = n+1
532 intbuf_size(n) = intbuf_tab(ni)%S_SECND_FR
533 n = n+1
534 intbuf_size(n) = intbuf_tab(ni)%S_PENE_OLD
535 n = n+1
536 intbuf_size(n) = intbuf_tab(ni)%S_STIF_OLD
537 n = n+1
538 intbuf_size(n) = intbuf_tab(ni)%S_TIME_S
539 n = n+1
540 intbuf_size(n) = intbuf_tab(ni)%S_GAP_NM
541 n = n+1
542 intbuf_size(n) = intbuf_tab(ni)%S_EDGE8L2
543 n = n+1
544 intbuf_size(n) = intbuf_tab(ni)%S_NOD_2RY_LGTH
545 n = n+1
546 intbuf_size(n) = intbuf_tab(ni)%S_NOD_MAS_LGTH
547 n = n+1
548 intbuf_size(n) = intbuf_tab(ni)%S_GAP_N0
549 n = n+1
550 intbuf_size(n) = intbuf_tab(ni)%S_DGAP_NM
551 n = n+1
552 intbuf_size(n) = intbuf_tab(ni)%S_DGAP_M
553 n = n+1
554 intbuf_size(n) = intbuf_tab(ni)%S_DELTA_PMAX_DGAP
555 n = n+1
556 intbuf_size(n) = intbuf_tab(ni)%S_XFIC
557 n = n+1
558 intbuf_size(n) = intbuf_tab(ni)%S_VFIC
559 n = n+1
560 intbuf_size(n) = intbuf_tab(ni)%S_MSFIC
561!type 25
562 n = n+1
563 intbuf_size(n) = intbuf_tab(ni)%S_EDGE_BISECTOR
564 n = n+1
565 intbuf_size(n) = intbuf_tab(ni)%S_PENM
566 n = n+1
567 intbuf_size(n) = intbuf_tab(ni)%S_DISTM
568 n = n+1
569 intbuf_size(n) = intbuf_tab(ni)%S_LBM
570 n = n+1
571 intbuf_size(n) = intbuf_tab(ni)%S_LCM
572 n = n+1
573 intbuf_size(n) = intbuf_tab(ni)%S_VTX_BISECTOR
574 n = n+1
575 intbuf_size(n) = intbuf_tab(ni)%S_FTSAVX_E
576 n = n+1
577 intbuf_size(n) = intbuf_tab(ni)%S_FTSAVY_E
578 n = n+1
579 intbuf_size(n) = intbuf_tab(ni)%S_FTSAVZ_E
580 n = n+1
581 intbuf_size(n) = intbuf_tab(ni)%S_FTSAVX_E2S
582 n = n+1
583 intbuf_size(n) = intbuf_tab(ni)%S_FTSAVY_E2S
584 n = n+1
585 intbuf_size(n) = intbuf_tab(ni)%S_FTSAVZ_E2S
586!type2
587 n = n+1
588 intbuf_size(n) = intbuf_tab(ni)%S_CSTS_BIS
589 n = n+1
590 intbuf_size(n) = intbuf_tab(ni)%S_DIR_FRICM
591!type25
592 n = n+1
593 intbuf_size(n) = intbuf_tab(ni)%S_GAPMSAV
594
595 n = n+1
596 intbuf_size(n) = intbuf_tab(ni)%S_E2S_NOD_NORMAL
597
598C=======================================================================
599C write all INTBUF_TAB arrays sizes on disk
600C=======================================================================
601
602 l_intbuf_size=n
603 IF(l_intbuf_size > l_intbuf_size_max)THEN
604 WRITE(istdo,'(A,/,A)')
605 . ' ** Internal error in routine WRITE_INTBUF:',
606 . ' Hard coded value for L_INTBUF_SIZE_MAX needs to be updated'
607 CALL arret(2)
608 END IF
609
610 CALL write_i_c(l_intbuf_size,1)
611 CALL write_i_c(intbuf_size,l_intbuf_size)
612
613C=======================================================================
614C write INTEGER arrays on disk
615C=======================================================================
616 siz = intbuf_tab(ni)%S_IRECTS
617 CALL write_i_c(intbuf_tab(ni)%IRECTS,siz)
618
619 siz = intbuf_tab(ni)%S_IRECTM
620 CALL write_i_c(intbuf_tab(ni)%IRECTM,siz)
621
622 siz = intbuf_tab(ni)%S_NSV
623 CALL write_i_c(intbuf_tab(ni)%NSV,siz)
624
625 siz = intbuf_tab(ni)%S_MSR
626 CALL write_i_c(intbuf_tab(ni)%MSR,siz)
627
628 siz = intbuf_tab(ni)%S_IRTLM
629 CALL write_i_c(intbuf_tab(ni)%IRTLM,siz)
630
631 siz = intbuf_tab(ni)%S_IRUPT
632 CALL write_i_c(intbuf_tab(ni)%IRUPT,siz)
633
634 siz = intbuf_tab(ni)%S_MSEGTYP2
635 CALL write_i_c(intbuf_tab(ni)%MSEGTYP2,siz)
636
637 siz = intbuf_tab(ni)%S_INORM
638 CALL write_i_c(intbuf_tab(ni)%INORM,siz)
639
640 siz = intbuf_tab(ni)%S_IELEC
641 CALL write_i_c(intbuf_tab(ni)%IELEC,siz)
642
643 siz = intbuf_tab(ni)%S_IELES
644 CALL write_i_c(intbuf_tab(ni)%IELES,siz)
645
646 siz = intbuf_tab(ni)%S_LISUB
647 CALL write_i_c(intbuf_tab(ni)%LISUB,siz)
648
649 siz = intbuf_tab(ni)%S_TYPSUB
650 CALL write_i_c(intbuf_tab(ni)%TYPSUB,siz)
651
652 siz = intbuf_tab(ni)%S_ADDSUBS
653 CALL write_i_c(intbuf_tab(ni)%ADDSUBS,siz)
654
655 siz = intbuf_tab(ni)%S_ADDSUBM
656 CALL write_i_c(intbuf_tab(ni)%ADDSUBM,siz)
657
658 siz = intbuf_tab(ni)%S_LISUBS
659 CALL write_i_c(intbuf_tab(ni)%LISUBS,siz)
660
661 siz = intbuf_tab(ni)%S_LISUBM
662 CALL write_i_c(intbuf_tab(ni)%LISUBM,siz)
663
664 siz = intbuf_tab(ni)%S_INFLG_SUBS
665 CALL write_i_c(intbuf_tab(ni)%INFLG_SUBS,siz)
666
667 siz = intbuf_tab(ni)%S_INFLG_SUBM
668 CALL write_i_c(intbuf_tab(ni)%INFLG_SUBM,siz)
669
670 siz = intbuf_tab(ni)%S_ADDSUBE
671 CALL write_i_c(intbuf_tab(ni)%ADDSUBE,siz)
672
673 siz = intbuf_tab(ni)%S_LISUBE
674 CALL write_i_c(intbuf_tab(ni)%LISUBE,siz)
675
676 siz = intbuf_tab(ni)%S_INFLG_SUBE
677 CALL write_i_c(intbuf_tab(ni)%INFLG_SUBE,siz)
678
679 siz = intbuf_tab(ni)%S_CAND_E
680 CALL write_i_c(intbuf_tab(ni)%CAND_E,siz)
681
682 siz = intbuf_tab(ni)%S_CAND_N
683 CALL write_i_c(intbuf_tab(ni)%CAND_N,siz)
684
685 siz = intbuf_tab(ni)%S_I_STOK
686 CALL write_i_c(intbuf_tab(ni)%I_STOK,siz)
687
688!type20
689 siz = intbuf_tab(ni)%S_LCAND_N
690 CALL write_i_c(intbuf_tab(ni)%LCAND_N,siz)
691
692 siz = intbuf_tab(ni)%S_LCAND_S
693 CALL write_i_c(intbuf_tab(ni)%LCAND_S,siz)
694
695!fin type20
696
697 siz = intbuf_tab(ni)%S_I_STOK_E
698 CALL write_i_c(intbuf_tab(ni)%I_STOK_E,siz)
699
700
701C ! IF edges
702C SIZ = INTBUF_TAB(NI)%S_GAPE
703C IF(SIZ > 0) THEN
704C CALL WRITE_I_C(INTBUF_TAB(NI)%NB_INTERNAL_EDGES,1)
705C CALL WRITE_I_C(INTBUF_TAB(NI)%NB_BOUNDARY_EDGES_LOCAL,1)
706C CALL WRITE_I_C(INTBUF_TAB(NI)%NB_BOUNDARY_EDGES_REMOTE,1)
707C ENDIF
708
709 siz = intbuf_tab(ni)%S_IFPEN
710 CALL write_i_c(intbuf_tab(ni)%IFPEN,siz)
711
712 siz = intbuf_tab(ni)%S_IPARTFRICS
713 CALL write_i_c(intbuf_tab(ni)%IPARTFRICS,siz)
714
715 siz = intbuf_tab(ni)%S_IPARTFRICM
716 CALL write_i_c(intbuf_tab(ni)%IPARTFRICM,siz)
717
718 siz = intbuf_tab(ni)%S_IPARTFRIC_E
719 CALL write_i_c(intbuf_tab(ni)%IPARTFRIC_E,siz)
720
721 siz = intbuf_tab(ni)%S_IREP_FRICM
722 CALL write_i_c(intbuf_tab(ni)%IREP_FRICM,siz)
723
724 siz = intbuf_tab(ni)%S_KREMNODE
725 CALL write_i_c(intbuf_tab(ni)%KREMNODE,siz)
726
727 siz = intbuf_tab(ni)%S_REMNODE
728 CALL write_i_c(intbuf_tab(ni)%REMNODE,siz)
729
730 siz = intbuf_tab(ni)%S_KREMNOR
731 CALL write_i_c(intbuf_tab(ni)%KREMNOR,siz)
732
733 siz = intbuf_tab(ni)%S_REMNOR
734 CALL write_i_c(intbuf_tab(ni)%REMNOR,siz)
735
736 siz = intbuf_tab(ni)%S_KREMNODE_EDG
737 CALL write_i_c(intbuf_tab(ni)%KREMNODE_EDG,siz)
738
739 siz = intbuf_tab(ni)%S_REMNODE_EDG
740 CALL write_i_c(intbuf_tab(ni)%REMNODE_EDG,siz)
741
742 siz = intbuf_tab(ni)%S_KREMNODE_E2S
743 CALL write_i_c(intbuf_tab(ni)%KREMNODE_E2S,siz)
744
745 siz = intbuf_tab(ni)%S_REMNODE_E2S
746 CALL write_i_c(intbuf_tab(ni)%REMNODE_E2S,siz)
747
748 siz = intbuf_tab(ni)%S_ADCCM
749 CALL write_i_c(intbuf_tab(ni)%ADCCM,siz)
750
751 siz = intbuf_tab(ni)%S_CHAIN
752 CALL write_i_c(intbuf_tab(ni)%CHAIN,siz)
753
754 siz = intbuf_tab(ni)%S_NIGE
755 CALL write_i_c(intbuf_tab(ni)%NIGE,siz)
756
757!type20
758 siz = intbuf_tab(ni)%S_NBINFLG
759 CALL write_i_c(intbuf_tab(ni)%NBINFLG,siz)
760
761 siz = intbuf_tab(ni)%S_MBINFLG
762 CALL write_i_c(intbuf_tab(ni)%MBINFLG,siz)
763
764 siz = intbuf_tab(ni)%S_EBINFLG
765 CALL write_i_c(intbuf_tab(ni)%EBINFLG,siz)
766
767 siz = intbuf_tab(ni)%S_NLG
768 CALL write_i_c(intbuf_tab(ni)%NLG,siz)
769
770 siz = intbuf_tab(ni)%S_DAANC6
771 CALL write_i_c(intbuf_tab(ni)%DAANC6,siz)
772
773 siz = intbuf_tab(ni)%S_ISLINS
774 CALL write_i_c(intbuf_tab(ni)%ISLINS,siz)
775
776 siz = intbuf_tab(ni)%S_ISLINM
777 CALL write_i_c(intbuf_tab(ni)%ISLINM,siz)
778
779 siz = intbuf_tab(ni)%S_IXLINS
780 CALL write_i_c(intbuf_tab(ni)%IXLINS,siz)
781
782 siz = intbuf_tab(ni)%S_IXLINM
783 CALL write_i_c(intbuf_tab(ni)%IXLINM,siz)
784
785 siz = intbuf_tab(ni)%S_MSRL
786 CALL write_i_c(intbuf_tab(ni)%MSRL,siz)
787
788 siz = intbuf_tab(ni)%S_NSVL
789 CALL write_i_c(intbuf_tab(ni)%NSVL,siz)
790
791 siz = intbuf_tab(ni)%S_ADCCM20
792 CALL write_i_c(intbuf_tab(ni)%ADCCM20,siz)
793
794 siz = intbuf_tab(ni)%S_CHAIN20
795 CALL write_i_c(intbuf_tab(ni)%CHAIN20,siz)
796!fin type20
797
798!type1
799 siz = intbuf_tab(ni)%S_ILOCS
800 CALL write_i_c(intbuf_tab(ni)%ILOCS,siz)
801
802 siz = intbuf_tab(ni)%S_NSEGM
803 CALL write_i_c(intbuf_tab(ni)%NSEGM,siz)
804
805 siz = intbuf_tab(ni)%S_NRT
806 CALL write_i_c(intbuf_tab(ni)%NRT,siz)
807!type3
808 siz = intbuf_tab(ni)%S_IRTLS
809 CALL write_i_c(intbuf_tab(ni)%IRTLS,siz)
810
811 siz = intbuf_tab(ni)%S_ILOCM
812 CALL write_i_c(intbuf_tab(ni)%ILOCM,siz)
813
814 siz = intbuf_tab(ni)%S_IRTLOM
815 CALL write_i_c(intbuf_tab(ni)%IRTLOM,siz)
816
817 siz = intbuf_tab(ni)%S_IRTLOS
818 CALL write_i_c(intbuf_tab(ni)%IRTLOS,siz)
819
820 siz = intbuf_tab(ni)%S_NSEGS
821 CALL write_i_c(intbuf_tab(ni)%NSEGS,siz)
822
823 siz = intbuf_tab(ni)%S_LNSV
824 CALL write_i_c(intbuf_tab(ni)%LNSV,siz)
825
826 siz = intbuf_tab(ni)%S_LMSR
827 CALL write_i_c(intbuf_tab(ni)%LMSR,siz)
828
829!type4
830 siz = intbuf_tab(ni)%S_IELEM
831 CALL write_i_c(intbuf_tab(ni)%IELEM,siz)
832
833!type12
834 siz = intbuf_tab(ni)%S_FCOUNT
835 CALL write_i_c(intbuf_tab(ni)%FCOUNT,siz)
836
837!type14
838 siz = intbuf_tab(ni)%S_KSURF
839 CALL write_i_c(intbuf_tab(ni)%KSURF,siz)
840
841 siz = intbuf_tab(ni)%S_IMPACT
842 CALL write_i_c(intbuf_tab(ni)%IMPACT,siz)
843
844!type21
845 siz = intbuf_tab(ni)%S_MSR21
846 CALL write_i_c(intbuf_tab(ni)%MSR21,siz)
847
848 siz = intbuf_tab(ni)%S_MNDD
849 CALL write_i_c(intbuf_tab(ni)%MNDD,siz)
850
851 siz = intbuf_tab(ni)%S_MSR_L
852 CALL write_i_c(intbuf_tab(ni)%MSR_L,siz)
853!type24
854 siz = intbuf_tab(ni)%S_CAND_T
855 CALL write_i_c(intbuf_tab(ni)%CAND_T,siz)
856
857 siz = intbuf_tab(ni)%S_MVOISIN
858 CALL write_i_c(intbuf_tab(ni)%MVOISIN,siz)
859
860 siz = intbuf_tab(ni)%S_NVOISIN
861 CALL write_i_c(intbuf_tab(ni)%NVOISIN,siz)
862
863 siz = intbuf_tab(ni)%S_MSEGLO
864 CALL write_i_c(intbuf_tab(ni)%MSEGLO,siz)
865
866 siz = intbuf_tab(ni)%S_MSEGTYP24
867 CALL write_i_c(intbuf_tab(ni)%MSEGTYP24,siz)
868
869 siz = intbuf_tab(ni)%S_ISEADD
870 CALL write_i_c(intbuf_tab(ni)%ISEADD,siz)
871
872 siz = intbuf_tab(ni)%S_ISEDGE
873 CALL write_i_c(intbuf_tab(ni)%ISEDGE,siz)
874
875 siz = intbuf_tab(ni)%S_ISEG_PXFEM
876 CALL write_i_c(intbuf_tab(ni)%ISEG_PXFEM,siz)
877
878 siz = intbuf_tab(ni)%S_ISEG_PLY
879 CALL write_i_c(intbuf_tab(ni)%ISEG_PLY,siz)
880
881 siz = intbuf_tab(ni)%S_ICONT_I
882 CALL write_i_c(intbuf_tab(ni)%ICONT_I,siz)
883
884
885 siz = intbuf_tab(ni)%S_IRTSE
886 CALL write_i_c(intbuf_tab(ni)%IRTSE,siz)
887
888 siz = intbuf_tab(ni)%S_IS2SE
889 CALL write_i_c(intbuf_tab(ni)%IS2SE,siz)
890
891 siz = intbuf_tab(ni)%S_IS2PT
892 CALL write_i_c(intbuf_tab(ni)%IS2PT,siz)
893
894 siz = intbuf_tab(ni)%S_ISPT2
895 CALL write_i_c(intbuf_tab(ni)%ISPT2,siz)
896
897 siz = intbuf_tab(ni)%S_ISEGPT
898 CALL write_i_c(intbuf_tab(ni)%ISEGPT,siz)
899
900 siz = intbuf_tab(ni)%S_IS2ID
901 CALL write_i_c(intbuf_tab(ni)%IS2ID,siz)
902
903!type25
904 siz = intbuf_tab(ni)%S_EVOISIN
905 CALL write_i_c(intbuf_tab(ni)%EVOISIN,siz)
906
907 siz = intbuf_tab(ni)%S_ADMSR
908 CALL write_i_c(intbuf_tab(ni)%ADMSR,siz)
909
910 siz = intbuf_tab(ni)%S_LEDGE
911 CALL write_i_c(intbuf_tab(ni)%LEDGE,siz)
912
913 siz = intbuf_tab(ni)%S_LBOUND
914 CALL write_i_c(intbuf_tab(ni)%LBOUND,siz)
915
916 siz = intbuf_tab(ni)%S_ACTNOR
917 CALL write_i_c(intbuf_tab(ni)%ACTNOR,siz)
918
919c SIZ = INTBUF_TAB(NI)%S_FARM
920c CALL WRITE_I_C(INTBUF_TAB(NI)%FARM,SIZ)
921
922 siz = intbuf_tab(ni)%S_ADSKYN
923 CALL write_i_c(intbuf_tab(ni)%ADSKYN,siz)
924
925 siz = intbuf_tab(ni)%S_IADNOR
926 CALL write_i_c(intbuf_tab(ni)%IADNOR,siz)
927
928 siz = intbuf_tab(ni)%S_ISLIDE
929 CALL write_i_c(intbuf_tab(ni)%ISLIDE,siz)
930
931 siz = intbuf_tab(ni)%S_KNOR2MSR
932 CALL write_i_c(intbuf_tab(ni)%KNOR2MSR,siz)
933
934 siz = intbuf_tab(ni)%S_NOR2MSR
935 CALL write_i_c(intbuf_tab(ni)%NOR2MSR,siz)
936
937 siz = intbuf_tab(ni)%S_CAND_OPT_N
938 IF(siz > 0) CALL compress_i_nnz(intbuf_tab(ni)%CAND_OPT_N,siz)
939
940 siz = intbuf_tab(ni)%S_CAND_OPT_E
941 IF(siz > 0) CALL compress_i_nnz(intbuf_tab(ni)%CAND_OPT_E,siz)
942
943 siz = intbuf_tab(ni)%S_IF_ADH
944 CALL write_i_c(intbuf_tab(ni)%IF_ADH,siz)
945
946 siz = intbuf_tab(ni)%S_CANDM_E2E
947C we can avoid to write 0
948 IF(siz > 0) siz = intbuf_tab(ni)%I_STOK_E(1)
949 CALL write_i_c(intbuf_tab(ni)%CANDM_E2E,siz)
950 CALL write_i_c(intbuf_tab(ni)%CANDS_E2E,siz)
951
952 siz = intbuf_tab(ni)%S_CANDM_E2S
953 IF(siz > 0) siz = intbuf_tab(ni)%I_STOK_E(2)
954
955 CALL write_i_c(intbuf_tab(ni)%CANDM_E2S,siz)
956 CALL write_i_c(intbuf_tab(ni)%CANDS_E2S,siz)
957
958 siz = intbuf_tab(ni)%S_IFPEN_E
959 CALL write_i_c(intbuf_tab(ni)%IFPEN_E,siz)
960
961 siz = intbuf_tab(ni)%S_IFPEN_E2S
962 IF(siz > 0) siz = intbuf_tab(ni)%I_STOK_E(2)
963 CALL write_i_c(intbuf_tab(ni)%IFPEN_E2S,siz)
964
965 siz = intbuf_tab(ni)%S_IELNRTS
966 CALL write_i_c(intbuf_tab(ni)%IELNRTS,siz)
967
968 siz = intbuf_tab(ni)%S_ADRECTS
969 CALL write_i_c(intbuf_tab(ni)%ADRECTS,siz)
970
971 siz = intbuf_tab(ni)%S_FACNRTS
972 CALL write_i_c(intbuf_tab(ni)%FACNRTS,siz)
973
974 siz = intbuf_tab(ni)%S_IELEM_M
975 CALL write_i_c(intbuf_tab(ni)%IELEM_M,siz)
976
977 siz = intbuf_tab(ni)%S_PROC_MVOISIN
978 CALL write_i_c(intbuf_tab(ni)%PROC_MVOISIN,siz)
979
980C=======================================================================
981C write REAL arrays on disk
982C=======================================================================
983 siz = intbuf_tab(ni)%S_STFAC
984 CALL write_db(intbuf_tab(ni)%STFAC,siz)
985
986 siz = intbuf_tab(ni)%S_VARIABLES
987 CALL write_db(intbuf_tab(ni)%VARIABLES,siz)
988
989 siz = intbuf_tab(ni)%S_CSTS
990 CALL write_db(intbuf_tab(ni)%CSTS,siz)
991
992 siz = intbuf_tab(ni)%S_DPARA
993 CALL write_db(intbuf_tab(ni)%DPARA,siz)
994
995 siz = intbuf_tab(ni)%S_NMAS
996 CALL write_db(intbuf_tab(ni)%NMAS,siz)
997
998 siz = intbuf_tab(ni)%S_AREAS2
999 CALL write_db(intbuf_tab(ni)%AREAS2,siz)
1000
1001 siz = intbuf_tab(ni)%S_SMAS
1002 CALL write_db(intbuf_tab(ni)%SMAS,siz)
1003
1004 siz = intbuf_tab(ni)%S_SINER
1005 CALL write_db(intbuf_tab(ni)%SINER,siz)
1006
1007 siz = intbuf_tab(ni)%S_UVAR
1008 CALL write_db(intbuf_tab(ni)%UVAR,siz)
1009
1010 siz = intbuf_tab(ni)%S_XM0
1011 CALL write_db(intbuf_tab(ni)%XM0,siz)
1012
1013 siz = intbuf_tab(ni)%S_SPENALTY
1014 CALL write_db(intbuf_tab(ni)%SPENALTY,siz)
1015
1016 siz = intbuf_tab(ni)%S_STFR_PENALTY
1017 CALL write_db(intbuf_tab(ni)%STFR_PENALTY,siz)
1018
1019 siz = intbuf_tab(ni)%S_SKEW
1020 CALL write_db(intbuf_tab(ni)%SKEW,siz)
1021
1022 siz = intbuf_tab(ni)%S_DSM
1023 CALL write_db(intbuf_tab(ni)%DSM,siz)
1024
1025 siz = intbuf_tab(ni)%S_FSM
1026 CALL write_db(intbuf_tab(ni)%FSM,siz)
1027
1028 siz = intbuf_tab(ni)%S_RUPT
1029 CALL write_db(intbuf_tab(ni)%RUPT,siz)
1030
1031 siz = intbuf_tab(ni)%S_FINI
1032 CALL write_db(intbuf_tab(ni)%FINI,siz)
1033
1034 siz = intbuf_tab(ni)%S_STFNS
1035 CALL write_db(intbuf_tab(ni)%STFNS,siz)
1036
1037 siz = intbuf_tab(ni)%S_STFM
1038 CALL write_db(intbuf_tab(ni)%STFM,siz)
1039
1040 siz = intbuf_tab(ni)%S_STFS
1041 CALL write_db(intbuf_tab(ni)%STFS,siz)
1042
1043 siz = intbuf_tab(ni)%S_PENIM
1044 CALL write_db(intbuf_tab(ni)%PENIM,siz)
1045
1046 siz = intbuf_tab(ni)%S_PENIS
1047 CALL write_db(intbuf_tab(ni)%PENIS,siz)
1048
1049 siz = intbuf_tab(ni)%S_STIFMSDT_S
1050 CALL write_db(intbuf_tab(ni)%STIFMSDT_S,siz)
1051
1052 siz = intbuf_tab(ni)%S_STIFMSDT_M
1053 CALL write_db(intbuf_tab(ni)%STIFMSDT_M,siz)
1054
1055 siz = intbuf_tab(ni)%S_GAP_M
1056 CALL write_db(intbuf_tab(ni)%GAP_M,siz)
1057
1058 siz = intbuf_tab(ni)%S_GAP_S
1059 CALL write_db(intbuf_tab(ni)%GAP_S,siz)
1060
1061 siz = intbuf_tab(ni)%S_XSAV
1062 CALL write_db(intbuf_tab(ni)%XSAV,siz)
1063
1064 siz = intbuf_tab(ni)%S_CRIT
1065 CALL write_db(intbuf_tab(ni)%CRIT,siz)
1066
1067 siz = intbuf_tab(ni)%S_FRIC_P
1068 CALL write_db(intbuf_tab(ni)%FRIC_P,siz)
1069
1070 siz = intbuf_tab(ni)%S_XFILTR
1071 CALL write_db(intbuf_tab(ni)%XFILTR,siz)
1072
1073 siz = intbuf_tab(ni)%S_AREAS
1074 CALL write_db(intbuf_tab(ni)%AREAS,siz)
1075
1076 siz = intbuf_tab(ni)%S_AREAM
1077 CALL write_db(intbuf_tab(ni)%AREAM,siz)
1078
1079 siz = intbuf_tab(ni)%S_GAP_ML
1080 CALL write_db(intbuf_tab(ni)%GAP_ML,siz)
1081
1082 siz = intbuf_tab(ni)%S_GAP_SL
1083 CALL write_db(intbuf_tab(ni)%GAP_SL,siz)
1084
1085 siz = intbuf_tab(ni)%S_CAND_P
1086 CALL write_db(intbuf_tab(ni)%CAND_P,siz)
1087
1088 siz = intbuf_tab(ni)%S_CAND_PS
1089 IF(siz > 0) THEN
1090 siz =intbuf_tab(ni)%I_STOK_E(2)*4
1091 CALL write_db(intbuf_tab(ni)%CAND_PS,siz)
1092 ENDIF
1093
1094 siz = intbuf_tab(ni)%S_GAPE
1095 CALL write_db(intbuf_tab(ni)%GAPE,siz)
1096
1097 siz = intbuf_tab(ni)%S_GAP_E_L
1098 CALL write_db(intbuf_tab(ni)%GAP_E_L,siz)
1099
1100 siz = intbuf_tab(ni)%S_STFE
1101 CALL write_db(intbuf_tab(ni)%STFE,siz)
1102
1103 siz = intbuf_tab(ni)%S_STIFMSDT_EDG
1104 CALL write_db(intbuf_tab(ni)%STIFMSDT_EDG,siz)
1105!type10
1106 siz = intbuf_tab(ni)%S_CAND_F
1107 CALL write_db(intbuf_tab(ni)%CAND_F,siz)
1108!fin type10
1109
1110 siz = intbuf_tab(ni)%S_FTSAVX
1111 CALL write_db(intbuf_tab(ni)%FTSAVX,siz)
1112
1113 siz = intbuf_tab(ni)%S_FTSAVY
1114 CALL write_db(intbuf_tab(ni)%FTSAVY,siz)
1115
1116 siz = intbuf_tab(ni)%S_FTSAVZ
1117 CALL write_db(intbuf_tab(ni)%FTSAVZ,siz)
1118
1119 siz = intbuf_tab(ni)%S_RIGE
1120 CALL write_db(intbuf_tab(ni)%RIGE,siz)
1121
1122 siz = intbuf_tab(ni)%S_XIGE
1123 CALL write_db(intbuf_tab(ni)%XIGE,siz)
1124
1125 siz = intbuf_tab(ni)%S_VIGE
1126 CALL write_db(intbuf_tab(ni)%VIGE,siz)
1127
1128 siz = intbuf_tab(ni)%S_MASSIGE
1129 CALL write_db(intbuf_tab(ni)%MASSIGE,siz)
1130
1131!type20
1132 siz = intbuf_tab(ni)%S_CAND_FX
1133 CALL write_db(intbuf_tab(ni)%CAND_FX,siz)
1134
1135 siz = intbuf_tab(ni)%S_CAND_FY
1136 CALL write_db(intbuf_tab(ni)%CAND_FY,siz)
1137
1138 siz = intbuf_tab(ni)%S_CAND_FZ
1139 CALL write_db(intbuf_tab(ni)%CAND_FZ,siz)
1140
1141 siz = intbuf_tab(ni)%S_XA
1142 CALL write_db(intbuf_tab(ni)%XA,siz)
1143
1144 siz = intbuf_tab(ni)%S_VA
1145 CALL write_db(intbuf_tab(ni)%VA,siz)
1146
1147 siz = intbuf_tab(ni)%S_STFA
1148 CALL write_db(intbuf_tab(ni)%STFA,siz)
1149
1150 siz = intbuf_tab(ni)%S_PENIA
1151 CALL write_db(intbuf_tab(ni)%PENIA,siz)
1152
1153 siz = intbuf_tab(ni)%S_ALPHAK
1154 CALL write_db(intbuf_tab(ni)%ALPHAK,siz)
1155
1156 siz = intbuf_tab(ni)%S_GAP_SH
1157 CALL write_db(intbuf_tab(ni)%GAP_SH,siz)
1158
1159 siz = intbuf_tab(ni)%S_AVX_ANCR
1160 CALL write_db(intbuf_tab(ni)%AVX_ANCR,siz)
1161
1162 siz = intbuf_tab(ni)%S_CRITX
1163 CALL write_db(intbuf_tab(ni)%CRITX,siz)
1164
1165 siz = intbuf_tab(ni)%S_GAP_ME
1166 CALL write_db(intbuf_tab(ni)%GAP_ME,siz)
1167
1168 siz = intbuf_tab(ni)%S_STF
1169 CALL write_db(intbuf_tab(ni)%STF,siz)
1170
1171 siz = intbuf_tab(ni)%S_PENIME
1172 CALL write_db(intbuf_tab(ni)%PENIME,siz)
1173
1174 siz = intbuf_tab(ni)%S_GAP_SE
1175 CALL write_db(intbuf_tab(ni)%GAP_SE,siz)
1176
1177 siz = intbuf_tab(ni)%S_PENISE
1178 CALL write_db(intbuf_tab(ni)%PENISE,siz)
1179!fin type20
1180
1181!type1
1182 siz = intbuf_tab(ni)%S_N
1183 CALL write_db(intbuf_tab(ni)%N,siz)
1184
1185!type 3,4,5,9
1186 siz = intbuf_tab(ni)%S_CSTM
1187 CALL write_db(intbuf_tab(ni)%CSTM,siz)
1188
1189 siz = intbuf_tab(ni)%S_EE
1190 CALL write_db(intbuf_tab(ni)%EE,siz)
1191
1192 siz = intbuf_tab(ni)%S_STFNM
1193 CALL write_db(intbuf_tab(ni)%STFNM,siz)
1194
1195 siz = intbuf_tab(ni)%S_FRICOS
1196 CALL write_db(intbuf_tab(ni)%FRICOS,siz)
1197
1198 siz = intbuf_tab(ni)%S_FRICOM
1199 CALL write_db(intbuf_tab(ni)%FRICOM,siz)
1200
1201 siz = intbuf_tab(ni)%S_FTSAV
1202 CALL write_db(intbuf_tab(ni)%FTSAV,siz)
1203
1204!type 6
1205 siz = intbuf_tab(ni)%S_FCONT
1206 CALL write_db(intbuf_tab(ni)%FCONT,siz)
1207
1208 siz = intbuf_tab(ni)%S_FS
1209 CALL write_db(intbuf_tab(ni)%FS,siz)
1210
1211 siz = intbuf_tab(ni)%S_FM
1212 CALL write_db(intbuf_tab(ni)%FM,siz)
1213
1214 siz = intbuf_tab(ni)%S_RMAS
1215 CALL write_db(intbuf_tab(ni)%RMAS,siz)
1216
1217 siz = intbuf_tab(ni)%S_ANSMX0
1218 CALL write_db(intbuf_tab(ni)%ANSMX0,siz)
1219
1220!type 8
1221
1222 siz = intbuf_tab(ni)%S_GAPN
1223 CALL write_db(intbuf_tab(ni)%GAPN,siz)
1224
1225 siz = intbuf_tab(ni)%S_STF8
1226 CALL write_db(intbuf_tab(ni)%STF8,siz)
1227
1228!type 14
1229 siz = intbuf_tab(ni)%S_CIMP
1230 CALL write_db(intbuf_tab(ni)%CIMP,siz)
1231
1232 siz = intbuf_tab(ni)%S_NIMP
1233 CALL write_db(intbuf_tab(ni)%NIMP,siz)
1234
1235!type 15
1236 siz = intbuf_tab(ni)%S_IOLD
1237 CALL write_db(intbuf_tab(ni)%IOLD,siz)
1238
1239 siz = intbuf_tab(ni)%S_HOLD
1240 CALL write_db(intbuf_tab(ni)%HOLD,siz)
1241
1242 siz = intbuf_tab(ni)%S_NOLD
1243 CALL write_db(intbuf_tab(ni)%NOLD,siz)
1244
1245 siz = intbuf_tab(ni)%S_DOLD
1246 CALL write_db(intbuf_tab(ni)%DOLD,siz)
1247
1248!type 17
1249 siz = intbuf_tab(ni)%S_KS
1250 CALL write_db(intbuf_tab(ni)%KS,siz)
1251
1252 siz = intbuf_tab(ni)%S_KM
1253 CALL write_db(intbuf_tab(ni)%KM,siz)
1254
1255 siz = intbuf_tab(ni)%S_FROTS
1256 CALL write_db(intbuf_tab(ni)%FROTS,siz)
1257
1258 siz = intbuf_tab(ni)%S_FROTM
1259 CALL write_db(intbuf_tab(ni)%FROTM,siz)
1260
1261!
1262 siz = intbuf_tab(ni)%S_RCURV
1263 CALL write_db(intbuf_tab(ni)%RCURV,siz)
1264
1265 siz = intbuf_tab(ni)%S_ANGLM
1266 CALL write_db(intbuf_tab(ni)%ANGLM,siz)
1267
1268 siz = intbuf_tab(ni)%S_FROT_P
1269 CALL write_db(intbuf_tab(ni)%FROT_P,siz)
1270
1271 siz = intbuf_tab(ni)%S_ALPHA0
1272 CALL write_db(intbuf_tab(ni)%ALPHA0,siz)
1273
1274 siz = intbuf_tab(ni)%S_AS
1275 CALL write_db(intbuf_tab(ni)%AS,siz)
1276
1277 siz = intbuf_tab(ni)%S_BS
1278 CALL write_db(intbuf_tab(ni)%BS,siz)
1279
1280 siz = intbuf_tab(ni)%S_THKNOD0
1281 CALL write_db(intbuf_tab(ni)%THKNOD0,siz)
1282
1283!type 24
1284 siz = intbuf_tab(ni)%S_GAPN_M
1285 CALL write_db(intbuf_tab(ni)%GAPN_M,siz)
1286
1287 siz = intbuf_tab(ni)%S_SECND_FR
1288 CALL write_db(intbuf_tab(ni)%SECND_FR,siz)
1289
1290 siz = intbuf_tab(ni)%S_PENE_OLD
1291 CALL write_db(intbuf_tab(ni)%PENE_OLD,siz)
1292
1293 siz = intbuf_tab(ni)%S_STIF_OLD
1294 CALL write_db(intbuf_tab(ni)%STIF_OLD,siz)
1295
1296 siz = intbuf_tab(ni)%S_TIME_S
1297 CALL write_db(intbuf_tab(ni)%TIME_S,siz)
1298
1299 siz = intbuf_tab(ni)%S_GAP_NM
1300 CALL write_db(intbuf_tab(ni)%GAP_NM,siz)
1301
1302 siz = intbuf_tab(ni)%S_EDGE8L2
1303 CALL write_db(intbuf_tab(ni)%EDGE8L2,siz)
1304
1305 siz = intbuf_tab(ni)%S_NOD_2RY_LGTH
1306 CALL write_db(intbuf_tab(ni)%NOD_2RY_LGTH,siz)
1307
1308 siz = intbuf_tab(ni)%S_NOD_MAS_LGTH
1309 CALL write_db(intbuf_tab(ni)%NOD_MAS_LGTH,siz)
1310
1311 siz = intbuf_tab(ni)%S_GAP_N0
1312 CALL write_db(intbuf_tab(ni)%GAP_N0,siz)
1313
1314 siz = intbuf_tab(ni)%S_DGAP_NM
1315 CALL write_db(intbuf_tab(ni)%DGAP_NM,siz)
1316
1317 siz = intbuf_tab(ni)%S_DGAP_M
1318 CALL write_db(intbuf_tab(ni)%DGAP_M,siz)
1319
1320 siz = intbuf_tab(ni)%S_DELTA_PMAX_DGAP
1321 CALL write_db(intbuf_tab(ni)%DELTA_PMAX_DGAP,siz)
1322
1323 siz = intbuf_tab(ni)%S_XFIC
1324 CALL write_db(intbuf_tab(ni)%XFIC,siz)
1325
1326 siz = intbuf_tab(ni)%S_VFIC
1327 CALL write_db(intbuf_tab(ni)%VFIC,siz)
1328
1329 siz = intbuf_tab(ni)%S_MSFIC
1330 CALL write_db(intbuf_tab(ni)%MSFIC,siz)
1331
1332
1333!type 21 & 25
1334 siz = intbuf_tab(ni)%S_NOD_NORMAL
1335 CALL write_db(intbuf_tab(ni)%NOD_NORMAL,siz)
1336
1337 IF( intbuf_tab(ni)%S_T8 == 1) THEN
1338 CALL write_intbuf_t8(intbuf_tab(ni)%T8)
1339 ENDIF
1340!type 2
1341 siz = intbuf_tab(ni)%S_CSTS_BIS
1342 CALL write_db(intbuf_tab(ni)%CSTS_BIS,siz)
1343
1344 siz = intbuf_tab(ni)%S_DIR_FRICM
1345 CALL write_db(intbuf_tab(ni)%DIR_FRICM,siz)
1346!type25
1347 siz = intbuf_tab(ni)%S_GAPMSAV
1348 CALL write_db(intbuf_tab(ni)%GAPMSAV,siz)
1349
1350 siz = intbuf_tab(ni)%S_FTSAVX_E
1351 IF(siz > 0) CALL compress_r_nnz(intbuf_tab(ni)%FTSAVX_E,siz)
1352
1353 siz = intbuf_tab(ni)%S_FTSAVY_E
1354 IF(siz > 0) CALL compress_r_nnz(intbuf_tab(ni)%FTSAVY_E,siz)
1355
1356 siz = intbuf_tab(ni)%S_FTSAVZ_E
1357 IF(siz > 0) CALL compress_r_nnz(intbuf_tab(ni)%FTSAVZ_E,siz)
1358
1359 siz = intbuf_tab(ni)%S_FTSAVX_E2S
1360 IF(siz > 0) siz = 4*intbuf_tab(ni)%I_STOK_E(2)
1361 IF(siz > 0) CALL compress_r_nnz(intbuf_tab(ni)%FTSAVX_E2S,siz)
1362
1363 siz = intbuf_tab(ni)%S_FTSAVY_E2S
1364 IF(siz > 0) siz = 4*intbuf_tab(ni)%I_STOK_E(2)
1365 IF(siz > 0) CALL compress_r_nnz(intbuf_tab(ni)%FTSAVY_E2S,siz)
1366
1367 siz = intbuf_tab(ni)%S_FTSAVZ_E2S
1368 IF(siz > 0) siz = 4*intbuf_tab(ni)%I_STOK_E(2)
1369 IF(siz > 0) CALL compress_r_nnz(intbuf_tab(ni)%FTSAVZ_E2S,siz)
1370
1371 ENDDO !NI=1,NINTER
1372
1373 DEALLOCATE(intbuf_size)
1374C-----
1375 RETURN
1376
1377 END SUBROUTINE write_intbuf
1378C-----
1379!||====================================================================
1380!|| write_intbuf_t8 ../engine/source/output/restart/write_intbuf.F
1381!||--- called by ------------------------------------------------------
1382!|| write_intbuf ../engine/source/output/restart/write_intbuf.F
1383!||--- calls -----------------------------------------------------
1384!|| write_i_c ../common_source/tools/input_output/write_routtines.c
1385!||--- uses -----------------------------------------------------
1386!|| int8_mod ../common_source/modules/interfaces/int8_mod.F90
1387!||====================================================================
1388 SUBROUTINE write_intbuf_t8(T8)
1389C-----------------------------------------------
1390C M o d u l e s
1391C-----------------------------------------------
1392 USE int8_mod
1393C-----------------------------------------------
1394C I m p l i c i t T y p e s
1395C-----------------------------------------------
1396#include "implicit_f.inc"
1397C-----------------------------------------------
1398C C o m m o n B l o c k s
1399C-----------------------------------------------
1400#include "com01_c.inc"
1401C-----------------------------------------------
1402C D u m m y A r g u m e n t s
1403C-----------------------------------------------
1404 TYPE(int8_struct_) :: T8
1405C-----------------------------------------------
1406C L o c a l V a r i a b l e s
1407C-----------------------------------------------
1408 INTEGER I,K,NBS_INTERF,NBM_INTERF,SIZ,P2
1409
1410 IF(nspmd > 1) THEN
1411 siz = t8%S_COMM
1412 CALL write_i_c(siz,1)
1413
1414 DO k=1,t8%S_COMM
1415 CALL write_i_c(t8%SPMD_COMM_PATTERN(k)%NUMLOC,1)
1416 CALL write_i_c(t8%SPMD_COMM_PATTERN(k)%UID,1)
1417 CALL write_i_c(t8%SPMD_COMM_PATTERN(k)%NBCOM,1)
1418 CALL write_i_c(t8%SPMD_COMM_PATTERN(k)%PROCLIST,nspmd)
1419 CALL write_i_c(t8%SPMD_COMM_PATTERN(k)%BUF_INDEX,nspmd)
1420
1421 ENDDO
1422 DO p2=1,nspmd
1423 nbs_interf = t8%BUFFER(p2)%NBSECND_TOT
1424 nbm_interf = t8%BUFFER(p2)%NBMAIN
1425
1426 CALL write_i_c(nbm_interf,1)
1427 CALL write_i_c(nbs_interf,1)
1428 !nb secnds per main
1429 IF(nbm_interf > 0) THEN
1430 CALL write_i_c(t8%BUFFER(p2)%NBSECND,nbm_interf)
1431 CALL write_i_c(t8%BUFFER(p2)%MAIN_ID,nbm_interf)
1432 CALL write_i_c(t8%BUFFER(p2)%MAIN_UID,nbm_interf)
1433 ELSE
1434
1435 ENDIF
1436 ENDDO
1437 ENDIF
1438
1439 RETURN
1440 END SUBROUTINE write_intbuf_t8
compress_i_nnz
subroutine compress_i_nnz(array, len)
Definition compress_nnz.F:91
compress_r_nnz
subroutine compress_r_nnz(array, len)
Definition compress_nnz.F:154
arret
subroutine arret(nn)
Definition arret.F:87
write_db
subroutine write_db(a, n)
Definition write_db.F:140
write_intbuf_t8
subroutine write_intbuf_t8(t8)
Definition write_intbuf.F:1389
write_intbuf
subroutine write_intbuf(intbuf_tab)
Definition write_intbuf.F:40
write_i_c
void write_i_c(int *w, int *len)
Definition write_routtines.c:645