OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
stat_brick_spmd.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!|| stat_brick_spmd ../engine/source/output/sta/stat_brick_spmd.F
25!||--- called by ------------------------------------------------------
26!|| genstat ../engine/source/output/sta/genstat.F
27!||--- calls -----------------------------------------------------
28!|| my_orders ../common_source/tools/sort/my_orders.c
29!|| spmd_iget_partn_sta ../engine/source/mpi/output/spmd_stat.F
30!||--- uses -----------------------------------------------------
31!|| elbufdef_mod ../common_source/modules/mat_elem/elbufdef_mod.F90
32!|| my_alloc_mod ../common_source/tools/memory/my_alloc.F90
33!||====================================================================
34 SUBROUTINE stat_brick_spmd(ITAB,IPART,IGEO,IXS,IPARTS,
35 . IPART_STATE,NODTAG,STAT_INDXS,
36 . IPARG, LENGS,IXS10,IXS16,IXS20,
37 . ELBUF_TAB,IDEL )
38C-----------------------------------------------
39C M o d u l e s
40C-----------------------------------------------
41 USE elbufdef_mod
42 USE my_alloc_mod
43C-----------------------------------------------
44C I m p l i c i t T y p e s
45C-----------------------------------------------
46#include "implicit_f.inc"
47C-----------------------------------------------
48C C o m m o n B l o c k s
49C-----------------------------------------------
50#include "com01_c.inc"
51#include "com04_c.inc"
52#include "param_c.inc"
53#include "scr16_c.inc"
54#include "scr17_c.inc"
55#include "spmd_c.inc"
56#include "task_c.inc"
57#include "units_c.inc"
58C-----------------------------------------------
59C D u m m y A r g u m e n t s
60C-----------------------------------------------
61 INTEGER ITAB(*), IPART(LIPART1,*),
62 . IGEO(NPROPGI,*), IXS(NIXS,*),
63 . IPARTS(*), IPART_STATE(*),
64 . nodtag(*), stat_indxs(*),
65 . iparg(nparg,*),lengs,ixs10(6,*),ixs16(8,*),
66 . ixs20(12,*),idel
67 TYPE (ELBUF_STRUCT_), DIMENSION(NGROUP), TARGET :: ELBUF_TAB
68C-----------------------------------------------
69C L o c a l V a r i a b l e s
70C-----------------------------------------------
71 INTEGER I, N, JJ, IPRT, BUF, IPRT0, K, STAT_NUMELS_1
72 INTEGER NG, NEL, NFT, LFT, LLT, ITY, ISOLNOD, IOFF
73 INTEGER,DIMENSION(:,:),ALLOCATABLE :: IADG
74 INTEGER,DIMENSION(:),ALLOCATABLE :: IADD
75 INTEGER,DIMENSION(:),ALLOCATABLE :: NP
76 INTEGER,DIMENSION(:),ALLOCATABLE :: NPGLOB
77 INTEGER,DIMENSION(:,:),ALLOCATABLE :: CLEF
78 INTEGER WORK(70000)
79 TYPE(g_bufel_) ,POINTER :: GBUF
80C-----------------------------------------------
81C 8 NODES BRICK
82C-----------------------------------------------
83 CALL my_alloc(iadg,nspmd,npart)
84 CALL my_alloc(iadd,npart+1)
85 CALL my_alloc(np,24*numelsg)
86 CALL my_alloc(npglob,24*numelsg)
87 CALL my_alloc(clef,2,numelsg)
88C-----------------------------------------------
89 iadd = 0
90 npglob(1:24*numelsg) = 0
91C
92C en spmd il faut envoyer l'info meme qd on a 0 elem local
93 jj = 0
94 DO ng=1,ngroup
95 ity =iparg(5,ng)
96 isolnod = iparg(28,ng)
97 nel =iparg(2,ng)
98 nft =iparg(3,ng)
99 gbuf => elbuf_tab(ng)%GBUF
100 lft=1
101 llt=nel
102 IF(ity == 1) THEN
103 DO i=lft,llt
104 n = i + nft
105
106 iprt=iparts(n)
107 IF(ipart_state(iprt)==0)cycle
108
109 np(jj+1) = ixs(nixs,n)
110 IF (isolnod == 10)THEN
111 np(jj+2) = itab(ixs(2,n))
112 np(jj+3) = itab(ixs(4,n))
113 np(jj+4) = itab(ixs(7,n))
114 np(jj+5) = itab(ixs(6,n))
115 IF(ixs10(1,n - numels8) /= 0)THEN
116 np(jj+6) = itab(ixs10(1,n - numels8))
117 ELSE
118 np(jj+6) = 0
119 ENDIF
120 IF(ixs10(2,n - numels8) /= 0)THEN
121 np(jj+7) = itab(ixs10(2,n - numels8))
122 ELSE
123 np(jj+7) = 0
124 ENDIF
125 IF(ixs10(3,n - numels8) /= 0)THEN
126 np(jj+8) = itab(ixs10(3,n - numels8))
127 ELSE
128 np(jj+8) = 0
129 ENDIF
130 IF(ixs10(4,n - numels8) /= 0)THEN
131 np(jj+9) = itab(ixs10(4,n - numels8))
132 ELSE
133 np(jj+9) = 0
134 ENDIF
135 IF(ixs10(5,n - numels8) /= 0)THEN
136 np(jj+10) = itab(ixs10(5,n - numels8))
137 ELSE
138 np(jj+10) = 0
139 ENDIF
140 IF(ixs10(6,n - numels8) /= 0)THEN
141 np(jj+11) = itab(ixs10(6,n - numels8))
142 ELSE
143 np(jj+11) = 0
144 ENDIF
145 np(jj+12) = 0
146 np(jj+13) = 0
147 np(jj+14) = 0
148 np(jj+15) = 0
149 np(jj+16) = 0
150 np(jj+17) = 0
151 np(jj+18) = 0
152 np(jj+19) = 0
153 np(jj+20) = 0
154 np(jj+21) = 0
155 ELSEIF (isolnod == 16)THEN
156 np(jj+2) = itab(ixs(2,n))
157 np(jj+3) = itab(ixs(3,n))
158 np(jj+4) = itab(ixs(4,n))
159 np(jj+5) = itab(ixs(5,n))
160 np(jj+6) = itab(ixs(6,n))
161 np(jj+7) = itab(ixs(7,n))
162 np(jj+8) = itab(ixs(8,n))
163 np(jj+9) = itab(ixs(9,n))
164 IF(ixs16(1,n - (numels8+numels10+numels20)) /= 0)THEN
165 np(jj+10) = itab(ixs16(1,n - (numels8+numels10+numels20)))
166 ELSE
167 np(jj+10) = 0
168 ENDIF
169 IF(ixs16(2,n - (numels8+numels10+numels20)) /= 0)THEN
170 np(jj+11) = itab(ixs16(2,n - (numels8+numels10+numels20)))
171 ELSE
172 np(jj+11) = 0
173 ENDIF
174 IF(ixs16(3,n - (numels8+numels10+numels20)) /= 0)THEN
175 np(jj+12) = itab(ixs16(3,n - (numels8+numels10+numels20)))
176 ELSE
177 np(jj+12) = 0
178 ENDIF
179 IF(ixs16(4,n - (numels8+numels10+numels20)) /= 0)THEN
180 np(jj+13) = itab(ixs16(4,n - (numels8+numels10+numels20)))
181 ELSE
182 np(jj+13) = 0
183 ENDIF
184 IF(ixs16(5,n - (numels8+numels10+numels20)) /= 0)THEN
185 np(jj+14) = itab(ixs16(5,n - (numels8+numels10+numels20)))
186 ELSE
187 np(jj+14) = 0
188 ENDIF
189 IF(ixs16(6,n - (numels8+numels10+numels20)) /= 0)THEN
190 np(jj+15) = itab(ixs16(6,n - (numels8+numels10+numels20)))
191 ELSE
192 np(jj+15) = 0
193 ENDIF
194 IF(ixs16(7,n - (numels8+numels10+numels20)) /= 0)THEN
195 np(jj+16) = itab(ixs16(7,n - (numels8+numels10+numels20)))
196 ELSE
197 np(jj+16) = 0
198 ENDIF
199 IF(ixs16(8,n - (numels8+numels10+numels20)) /= 0)THEN
200 np(jj+17) = itab(ixs16(8,n - (numels8+numels10+numels20)))
201 ELSE
202 np(jj+17) = 0
203 ENDIF
204 np(jj+18) = 0
205 np(jj+19) = 0
206 np(jj+20) = 0
207 np(jj+21) = 0
208 ELSEIF (isolnod == 20)THEN
209 np(jj+2) = itab(ixs(2,n))
210 np(jj+3) = itab(ixs(3,n))
211 np(jj+4) = itab(ixs(4,n))
212 np(jj+5) = itab(ixs(5,n))
213 np(jj+6) = itab(ixs(6,n))
214 np(jj+7) = itab(ixs(7,n))
215 np(jj+8) = itab(ixs(8,n))
216 np(jj+9) = itab(ixs(9,n))
217 IF(ixs20(1,n - (numels8+numels10)) /= 0)THEN
218 np(jj+10) = itab(ixs20(1,n - (numels8+numels10)))
219 ELSE
220 np(jj+10) = 0
221 ENDIF
222 IF(ixs20(2,n - (numels8+numels10)) /= 0)THEN
223 np(jj+11) = itab(ixs20(2,n - (numels8+numels10)))
224 ELSE
225 np(jj+11) = 0
226 ENDIF
227 IF(ixs20(3,n - (numels8+numels10)) /= 0)THEN
228 np(jj+12) = itab(ixs20(3,n - (numels8+numels10)))
229 ELSE
230 np(jj+12) = 0
231 ENDIF
232 IF(ixs20(4,n - (numels8+numels10)) /= 0)THEN
233 np(jj+13) = itab(ixs20(4,n - (numels8+numels10)))
234 ELSE
235 np(jj+13) = 0
236 ENDIF
237 IF(ixs20(5,n - (numels8+numels10)) /= 0)THEN
238 np(jj+14) = itab(ixs20(5,n - (numels8+numels10)))
239 ELSE
240 np(jj+14) = 0
241 ENDIF
242 IF(ixs20(6,n - (numels8+numels10)) /= 0)THEN
243 np(jj+15) = itab(ixs20(6,n - (numels8+numels10)))
244 ELSE
245 np(jj+15) = 0
246 ENDIF
247 IF(ixs20(7,n - (numels8+numels10)) /= 0)THEN
248 np(jj+16) = itab(ixs20(7,n - (numels8+numels10)))
249 ELSE
250 np(jj+16) = 0
251 ENDIF
252 IF(ixs20(8,n - (numels8+numels10)) /= 0)THEN
253 np(jj+17) = itab(ixs20(8,n - (numels8+numels10)))
254 ELSE
255 np(jj+17) = 0
256 ENDIF
257 IF(ixs20(9,n - (numels8+numels10)) /= 0)THEN
258 np(jj+18) = itab(ixs20(9,n - (numels8+numels10)))
259 ELSE
260 np(jj+18) = 0
261 ENDIF
262 IF(ixs20(10,n - (numels8+numels10)) /= 0)THEN
263 np(jj+19) = itab(ixs20(10,n - (numels8+numels10)))
264 ELSE
265 np(jj+19) = 0
266 ENDIF
267 IF(ixs20(11,n - (numels8+numels10)) /= 0)THEN
268 np(jj+20) = itab(ixs20(11,n - (numels8+numels10)))
269 ELSE
270 np(jj+20) = 0
271 ENDIF
272 IF(ixs20(12,n - (numels8+numels10)) /= 0)THEN
273 np(jj+21) = itab(ixs20(12,n - (numels8+numels10)))
274 ELSE
275 np(jj+21) = 0
276 ENDIF
277 ELSE
278 np(jj+2) = itab(ixs(2,n))
279 np(jj+3) = itab(ixs(3,n))
280 np(jj+4) = itab(ixs(4,n))
281 np(jj+5) = itab(ixs(5,n))
282 np(jj+6) = itab(ixs(6,n))
283 np(jj+7) = itab(ixs(7,n))
284 np(jj+8) = itab(ixs(8,n))
285 np(jj+9) = itab(ixs(9,n))
286 np(jj+10) = 0
287 np(jj+11) = 0
288 np(jj+12) = 0
289 np(jj+13) = 0
290 np(jj+14) = 0
291 np(jj+15) = 0
292 np(jj+16) = 0
293 np(jj+17) = 0
294 np(jj+18) = 0
295 np(jj+19) = 0
296 np(jj+20) = 0
297 np(jj+21) = 0
298 ENDIF
299 np(jj+22) = iprt
300 np(jj+23) = isolnod
301 np(jj+24) = iabs(nint(gbuf%OFF(i)))
302 jj = jj + 24
303
304 stat_numels =stat_numels+1
305
306 IF (isolnod == 10)THEN
307 nodtag(ixs(2,n))=1
308 nodtag(ixs(4,n))=1
309 nodtag(ixs(7,n))=1
310 nodtag(ixs(6,n))=1
311 IF (ixs10(1,n - numels8) /= 0) nodtag(ixs10(1,n - numels8))=1
312 IF (ixs10(2,n - numels8) /= 0) nodtag(ixs10(2,n - numels8))=1
313 IF (ixs10(3,n - numels8) /= 0) nodtag(ixs10(3,n - numels8))=1
314 IF (ixs10(4,n - numels8) /= 0) nodtag(ixs10(4,n - numels8))=1
315 IF (ixs10(5,n - numels8) /= 0) nodtag(ixs10(5,n - numels8))=1
316 IF (ixs10(6,n - numels8) /= 0) nodtag(ixs10(6,n - numels8))=1
317 ELSEIF (isolnod == 16)THEN
318 nodtag(ixs(2,n))=1
319 nodtag(ixs(3,n))=1
320 nodtag(ixs(4,n))=1
321 nodtag(ixs(5,n))=1
322 nodtag(ixs(6,n))=1
323 nodtag(ixs(7,n))=1
324 nodtag(ixs(8,n))=1
325 nodtag(ixs(9,n))=1
326 IF (ixs16(1,n - (numels8+numels10+numels20)) /= 0) nodtag(ixs16(1,n - (numels8+numels10+numels20)))=1
327 IF (ixs16(2,n - (numels8+numels10+numels20)) /= 0) nodtag(ixs16(2,n - (numels8+numels10+numels20)))=1
328 IF (ixs16(3,n - (numels8+numels10+numels20)) /= 0) nodtag(ixs16(3,n - (numels8+numels10+numels20)))=1
329 IF (ixs16(4,n - (numels8+numels10+numels20)) /= 0) nodtag(ixs16(4,n - (numels8+numels10+numels20)))=1
330 IF (ixs16(5,n - (numels8+numels10+numels20)) /= 0) nodtag(ixs16(5,n - (numels8+numels10+numels20)))=1
331 IF (ixs16(6,n - (numels8+numels10+numels20)) /= 0) nodtag(ixs16(6,n - (numels8+numels10+numels20)))=1
332 IF (ixs16(7,n - (numels8+numels10+numels20)) /= 0) nodtag(ixs16(7,n - (numels8+numels10+numels20)))=1
333 IF (ixs16(8,n - (numels8+numels10+numels20)) /= 0) nodtag(ixs16(8,n - (numels8+numels10+numels20)))=1
334 ELSEIF (isolnod == 20)THEN
335 nodtag(ixs(2,n))=1
336 nodtag(ixs(3,n))=1
337 nodtag(ixs(4,n))=1
338 nodtag(ixs(5,n))=1
339 nodtag(ixs(6,n))=1
340 nodtag(ixs(7,n))=1
341 nodtag(ixs(8,n))=1
342 nodtag(ixs(9,n))=1
343 IF (ixs20(1,n - (numels8+numels10)) /= 0) nodtag(ixs20(1,n - (numels8+numels10)))=1
344 IF (ixs20(2,n - (numels8+numels10)) /= 0) nodtag(ixs20(2,n - (numels8+numels10)))=1
345 IF (ixs20(3,n - (numels8+numels10)) /= 0) nodtag(ixs20(3,n - (numels8+numels10)))=1
346 IF (ixs20(4,n - (numels8+numels10)) /= 0) nodtag(ixs20(4,n - (numels8+numels10)))=1
347 IF (ixs20(5,n - (numels8+numels10)) /= 0) nodtag(ixs20(5,n - (numels8+numels10)))=1
348 IF (ixs20(6,n - (numels8+numels10)) /= 0) nodtag(ixs20(6,n - (numels8+numels10)))=1
349 IF (ixs20(7,n - (numels8+numels10)) /= 0) nodtag(ixs20(7,n - (numels8+numels10)))=1
350 IF (ixs20(8,n - (numels8+numels10)) /= 0) nodtag(ixs20(8,n - (numels8+numels10)))=1
351 IF (ixs20(9,n - (numels8+numels10)) /= 0) nodtag(ixs20(9,n - (numels8+numels10)))=1
352 IF (ixs20(10,n - (numels8+numels10)) /= 0) nodtag(ixs20(10,n - (numels8+numels10)))=1
353 IF (ixs20(11,n - (numels8+numels10)) /= 0) nodtag(ixs20(11,n - (numels8+numels10)))=1
354 IF (ixs20(12,n - (numels8+numels10)) /= 0) nodtag(ixs20(12,n - (numels8+numels10)))=1
355 ELSE
356 nodtag(ixs(2,n))=1
357 nodtag(ixs(3,n))=1
358 nodtag(ixs(4,n))=1
359 nodtag(ixs(5,n))=1
360 nodtag(ixs(6,n))=1
361 nodtag(ixs(7,n))=1
362 nodtag(ixs(8,n))=1
363 nodtag(ixs(9,n))=1
364 ENDIF
365 END DO
366 END IF
367 END DO
368C-----
369 stat_numels_g=0
370 CALL spmd_iget_partn_sta(24,stat_numels,stat_numels_g,lengs,np,
371 . iadg,npglob,stat_indxs)
372C-----
373 IF (ispmd==0) THEN
374 DO n=1,stat_numels_g
375 stat_indxs(n)=n
376 clef(1,n)=npglob(19*(n-1)+22)
377 clef(2,n)=npglob(19*(n-1)+1)
378 END DO
379 CALL my_orders(0,work,clef,stat_indxs,stat_numels_g,2)
380
381 iprt0=0
382 DO n=1,stat_numels_g
383 k=stat_indxs(n)
384 jj=24*(k-1)
385 iprt=npglob(jj+22)
386 ioff=npglob(jj+24)
387 IF (npglob(jj+23) == 4) THEN
388 IF(idel==0.OR.(idel==1.AND.ioff >= 1)) THEN
389 IF(iprt /= iprt0)THEN
390 WRITE(iugeo,'(A,I10)')'/TETRA4/',ipart(4,iprt)
391 WRITE(iugeo,'(A)')
392 . '# TETRA4ID NOD1 NOD2 NOD3 NOD4'
393 iprt0=iprt
394 END IF
395 WRITE(iugeo,'(5I10)') npglob(jj+1),npglob(jj+2),npglob(jj+4),
396 . npglob(jj+8),npglob(jj+6)
397 ENDIF
398 ELSEIF (npglob(jj+23) == 6) THEN
399 IF(idel==0.OR.(idel==1.AND.ioff >= 1)) THEN
400 IF(iprt /= iprt0)THEN
401 WRITE(iugeo,'(A,I10)')'/PENTA6/',ipart(4,iprt)
402 WRITE(iugeo,'(A)')
403 . '# PENTA6ID NOD1 NOD2 NOD3 NOD4 NOD5 NOD6'
404 iprt0=iprt
405 END IF
406 WRITE(iugeo,'(7i10)') NPGLOB(JJ+1),NPGLOB(JJ+2),NPGLOB(JJ+3),
407 . NPGLOB(JJ+4),NPGLOB(JJ+6),NPGLOB(JJ+7),
408 . NPGLOB(JJ+8)
409 ENDIF
410 ELSEIF (NPGLOB(JJ+23) == 8) THEN
411.OR..AND. IF(IDEL==0(IDEL==1IOFF >= 1)) THEN
412 IF(IPRT /= IPRT0)THEN
413 WRITE(IUGEO,'(a,i10)')'/brick/',IPART(4,IPRT)
414 WRITE(IUGEO,'(a)')
415 . '# BRICKID NOD1 NOD2 NOD3 NOD4 NOD5 NOD6 NOD7 NOD8'
416 iprt0=iprt
417 END IF
418 WRITE(iugeo,'(9I10)') npglob(jj+1),npglob(jj+2),npglob(jj+3),
419 . npglob(jj+4),npglob(jj+5),npglob(jj+6),
420 . npglob(jj+7),npglob(jj+8),npglob(jj+9)
421 ENDIF
422 ELSEIF (npglob(jj+23) == 10) THEN
423 IF(idel==0.OR.(idel==1.AND.ioff >= 1)) THEN
424 IF(iprt /= iprt0)THEN
425 WRITE(iugeo,'(A,I10)')'/TETRA10/',ipart(4,iprt)
426 WRITE(iugeo,'(A)')
427 . '#TETRA10ID'
428 WRITE(iugeo,'(A)')
429 . '# NOD1 NOD2 NOD3 NOD4 NOD5 NOD6 NOD7 NOD8 NOD9 NOD10'
430 iprt0=iprt
431 END IF
432 WRITE(iugeo,'(I10)') npglob(jj+1)
433 WRITE(iugeo,'(10I10)') npglob(jj+2),npglob(jj+3),npglob(jj+4),
434 . npglob(jj+5),npglob(jj+6),npglob(jj+7),
435 . npglob(jj+8),npglob(jj+9),npglob(jj+10),
436 . npglob(jj+11)
437 ENDIF
438 ELSEIF (npglob(jj+23) == 16) THEN
439 IF(idel==0.OR.(idel==1.AND.ioff >= 1)) THEN
440 IF(iprt /= iprt0)THEN
441 WRITE(iugeo,'(A,I10)')'/SHEL16/',ipart(4,iprt)
442 WRITE(iugeo,'(A)')
443 . '#TSHEL16ID NOD1 NOD2 NOD3 NOD4 NOD5 NOD6 NOD7 NOD8'
444 WRITE(iugeo,'(A)')
445 . '# NOD9 NOD10 NOD11 NOD12'
446 WRITE(iugeo,'(a)')
447 . '# NOD13 NOD14 NOD15 NOD16'
448 iprt0=iprt
449 ENDIF
450 WRITE(iugeo,'(9I10)') npglob(jj+1),npglob(jj+2),npglob(jj+3),
451 . npglob(jj+4),npglob(jj+5),npglob(jj+6),
452 . npglob(jj+7), npglob(jj+8),npglob(jj+9)
453 WRITE(iugeo,'(4I10)') npglob(jj+10),npglob(jj+11),
454 . npglob(jj+12), npglob(jj+13)
455 WRITE(iugeo,'(4I10)') npglob(jj+14),npglob(jj+15),
456 . npglob(jj+16),npglob(jj+17)
457 ENDIF
458 ELSEIF (npglob(jj+23) == 20) THEN
459 IF(idel==0.OR.(idel==1.AND.ioff >= 1)) THEN
460 IF(iprt /= iprt0)THEN
461 WRITE(iugeo,'(A,I10)')'/BRIC20/',ipart(4,iprt)
462 WRITE(iugeo,'(A)')
463 . '#BRICK20ID NOD1 NOD2 NOD3 NOD4 NOD5 NOD6 NOD7 NOD8'
464 WRITE(iugeo,'(A)')
465 . '# NOD9 NOD10 NOD11 NOD12 NOD13 NOD14 NOD15 NOD16'
466 WRITE(iugeo,'(A)')
467 . '# NOD17 NOD18 NOD19 NOD20'
468 iprt0=iprt
469 END IF
470 WRITE(iugeo,'(9I10)') npglob(jj+1),npglob(jj+2),npglob(jj+3),
471 . npglob(jj+4),npglob(jj+5),npglob(jj+6),
472 . npglob(jj+7), npglob(jj+8),npglob(jj+9)
473 WRITE(iugeo,'(8I10)')npglob(jj+10),npglob(jj+11),
474 . npglob(jj+12),npglob(jj+13),
475 . npglob(jj+14),npglob(jj+15),
476 . npglob(jj+16),npglob(jj+17)
477 WRITE(iugeo,'(4I10)')npglob(jj+18),npglob(jj+19),
478 . npglob(jj+20),npglob(jj+21)
479 ENDIF
480 ENDIF
481 END DO
482 ENDIF
483C-----------------------------------------------
484 DEALLOCATE(iadg)
485 DEALLOCATE(iadd)
486 DEALLOCATE(np)
487 DEALLOCATE(npglob)
488 DEALLOCATE(clef)
489C-----------------------------------------------
490 RETURN
491 END
my_orders
void my_orders(int *mode, int *iwork, int *data, int *index, int *n, int *irecl)
Definition my_orders.c:82
spmd_iget_partn_sta
subroutine spmd_iget_partn_sta(size, stat_numel, stat_lenelg, leng, np, iadg, npglob, stat_indx)
Definition spmd_stat.F:129
stat_brick_spmd
subroutine stat_brick_spmd(itab, ipart, igeo, ixs, iparts, ipart_state, nodtag, stat_indxs, iparg, lengs, ixs10, ixs16, ixs20, elbuf_tab, idel)
Definition stat_brick_spmd.F:38