OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
boxbox.F File Reference
#include "implicit_f.inc"
#include "com04_c.inc"
#include "param_c.inc"
#include "scr17_c.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine boxbox (ibox, skew, flagg, icount, iter, ibufbox, x, iadb, id, titr, key, flag, iboxmax)
subroutine boxbox2 (ibox, skew, flagg, icount, iter, boxtype, x, ix, flag, iboxmax, nix, nix1, iparte, ipart, klevtree, eltree, keltree, numel, nadmesh, id, titr, mes, iadb, ibufbox)
subroutine boxboxs (ibox, skew, flagg, icount, iter, boxtype, ibufbox, x, iadb, ix, nix, nix1, nix2, numel, isurf0, ieltyp, id, titr, mess, flag, tagshellbox, iext)
subroutine elstagboxbox (ibox, skew, flagg, icount, iter, boxtype, ibufbox, x, iadb, ixs, knod2els, nod2els, iext, flag, ixs10, ixs16, ixs20, elstag, id, titr, knod2elc, nod2elc, ixc, tagshellboxc, knod2eltg, nod2eltg, ixtg, tagshellboxg, iext_set)

Function/Subroutine Documentation

◆ boxbox()

subroutine boxbox ( type (box_), dimension(nbbox) ibox,
skew,
integer flagg,
integer icount,
integer iter,
integer, dimension(*) ibufbox,
x,
integer iadb,
integer id,
character(len=nchartitle) titr,
character(len=ncharfield) key,
integer flag,
integer iboxmax )

Definition at line 35 of file boxbox.F.

39C-----------------------------------------------
40C M o d u l e s
41C-----------------------------------------------
42 USE message_mod
43 USE optiondef_mod
44 USE names_and_titles_mod , ONLY : nchartitle, ncharfield
45C-----------------------------------------------
46C I m p l i c i t T y p e s
47C-----------------------------------------------
48#include "implicit_f.inc"
49C-----------------------------------------------
50C C o m m o n B l o c k s
51C-----------------------------------------------
52#include "com04_c.inc"
53#include "param_c.inc"
54C-----------------------------------------------
55C D u m m y A r g u m e n t s
56C-----------------------------------------------
57 INTEGER IBUFBOX(*),
58 . IAD,FLAGG,ICOUNT,ITER,IADB,FLAG,IBOXMAX
59 my_real
60 . x(3,*),skew(lskew,*)
61 INTEGER ID
62 CHARACTER(LEN=NCHARTITLE) :: TITR
63 CHARACTER(LEN=NCHARFIELD) :: KEY
64 TYPE (BOX_) , DIMENSION(NBBOX) :: IBOX
65C-----------------------------------------------
66C L o c a l V a r i a b l e s
67C-----------------------------------------------
68 INTEGER I,K,L,J,JJ,IB,IBS,IDBS,NBOX,
69 . SKIPFLAG,IADX,CNT
70C-----------------------------------------------
71 IF (flagg == 0) icount=0
72C---
73C boucle sur les boxes
74C---
75 DO ib=1,nbbox
76 skipflag = 0
77 cnt = 0
78 nbox = ibox(ib)%NBOXBOX
79 IF(flagg == 0 .AND. ibox(ib)%NBLEVELS == -1)THEN
80C---
81 IF(skipflag == 0)THEN
82 DO k=1,nbox
83 j = ibox(ib)%IBOXBOX(k)
84 ibs = abs(j)
85 idbs = ibox(ibs)%ID
86C activate sublevel boxes of main box:
87 IF(idbs == 0)THEN
88 CALL ancmsg(msgid=796,
89 . msgtype=msgerror,
90 . anmode=aninfo,
91 . i1=id,
92 . c1=titr,
93 . i2=idbs)
94 ELSEIF(ibox(ibs)%LEVEL == 0)THEN
95C reference a un box non initialise
96 IF(iter > nbbox)GOTO 900
97 ibox(ib)%NBLEVELS=-1
98 ibox(ib)%LEVEL=0
99 icount=1
100 skipflag = 1
101 GOTO 10
102 ELSE
103C reference a un box initialise
104 cnt = cnt + 1
105 ENDIF
106 END DO
107C---
108 10 CONTINUE
109C---
110 END IF
111C---
112 IF(skipflag == 0)THEN
113 ibox(ib)%NBLEVELS= cnt
114 ENDIF
115C---
116 ELSEIF(flagg == 1 .AND. ibox(ib)%LEVEL == 0 .AND.
117 . ibox(ib)%NBLEVELS > -1)THEN
118C---
119 DO k=1,nbox
120 j = ibox(ib)%IBOXBOX(k)
121 ibs = abs(j)
122 idbs = ibox(ibs)%ID
123 IF(ibox(ibs)%NBLEVELS == -1)THEN
124 GOTO 20
125 ELSE
126C
127C fill each sub-box only one time:
128C
129 IF(ibox(ibs)%ACTIBOX == 0)THEN
130 CALL boxtagn(x ,ibufbox,skew,iadb,
131 . ibox,ibs ,flag,iboxmax)
132 ibox(ibs)%ACTIBOX = 1
133 END IF
134C---
135 ENDIF
136 END DO
137C---
138 ibox(ib)%LEVEL=1
139 CALL boxassem1(ibox,ibufbox,ib,iadb,flag)
140C-----
141 20 CONTINUE
142C---
143 END IF
144 END DO
145C---
146C-----------
147 RETURN
148 900 CONTINUE
149 CALL ancmsg(msgid=797,
150 . msgtype=msgerror,
151 . anmode=aninfo,
152 . c1=key,
153 . i1=id,
154 . c2=key,
155 . c3=titr,
156 . i2=ibox(ib)%ID,c4='BOXBOX')
157 RETURN
158 999 CALL freerr(1)
159C-----------
160 RETURN
boxtagn
subroutine boxtagn(x, ibufbox, skew, iadb, ibox, isu, flag, iboxmax)
Definition bigbox.F:188
boxassem1
subroutine boxassem1(ibox, ibufbox, ib, iadb, flag)
Definition bigbox.F:304
my_real
#define my_real
Definition cppsort.cpp:32
id
initmumps id
Definition multiplerhs_example.m:4
message_mod
Definition message_mod.F:1249
names_and_titles_mod
Definition names_and_titles_mod.F:997
names_and_titles_mod::nchartitle
integer, parameter nchartitle
Definition names_and_titles_mod.F:1003
names_and_titles_mod::ncharfield
integer, parameter ncharfield
Definition names_and_titles_mod.F:1005
optiondef_mod
Definition optiondef_mod.F:90
ancmsg
subroutine ancmsg(msgid, msgtype, anmode, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, r1, r2, r3, r4, r5, r6, r7, r8, r9, c1, c2, c3, c4, c5, c6, c7, c8, c9, prmode)
Definition message.F:889
freerr
subroutine freerr(it)
Definition freform.F:506

◆ boxbox2()

subroutine boxbox2 ( type (box_), dimension(nbbox) ibox,
skew,
integer flagg,
integer icount,
integer iter,
integer boxtype,
x,
integer, dimension(nix,*) ix,
integer flag,
integer iboxmax,
integer nix,
integer nix1,
integer, dimension(*) iparte,
integer, dimension(lipart1,*) ipart,
integer klevtree,
integer, dimension(keltree,*) eltree,
integer keltree,
integer numel,
integer nadmesh,
integer id,
character(len=nchartitle) titr,
character mes,
integer iadb,
integer, dimension(*) ibufbox )

Definition at line 174 of file boxbox.F.

181C-----------------------------------------------
182C M o d u l e s
183C-----------------------------------------------
184 USE message_mod
185 USE optiondef_mod
186C-----------------------------------------------
187C I m p l i c i t T y p e s
188C-----------------------------------------------
189#include "implicit_f.inc"
190C-----------------------------------------------
191C C o m m o n B l o c k s
192C-----------------------------------------------
193#include "scr17_c.inc"
194#include "com04_c.inc"
195#include "param_c.inc"
196C-----------------------------------------------
197C D u m m y A r g u m e n t s
198C-----------------------------------------------
199 INTEGER
200 . FLAGG,ICOUNT,ITER,BOXTYPE,NIX,
201 . IX(NIX,*),NIX1,IPARTE(*),IPART(LIPART1,*),
202 . KLEVTREE,KELTREE,ELTREE(KELTREE,*),NUMEL,
203 . NADMESH,FLAG,IBOXMAX,IADB,IBUFBOX(*)
204 my_real
205 . x(3,*),skew(lskew,*)
206 INTEGER ID
207 CHARACTER(LEN=NCHARTITLE) :: TITR
208 CHARACTER MES*40
209 TYPE (BOX_) , DIMENSION(NBBOX) :: IBOX
210C-----------------------------------------------
211C L o c a l V a r i a b l e s
212C-----------------------------------------------
213 INTEGER I,K,L,J,JJ,IB,IBS,IDBS,NBOX,
214 . SKIPFLAG,CNT
215C-----------------------------------------------
216 IF (flagg == 0) icount=0
217C---
218C boucle sur les boxes
219C---
220 DO ib=1,nbbox
221 skipflag = 0
222 cnt = 0
223 nbox = ibox(ib)%NBOXBOX
224 IF(flagg == 0 .AND. ibox(ib)%NBLEVELS == -1)THEN
225C---
226 IF(skipflag == 0)THEN
227 DO k=1,nbox
228 j = ibox(ib)%IBOXBOX(k)
229 ibs = abs(j)
230 idbs = ibox(ibs)%ID
231C activate sublevel boxes of main box:
232 IF(idbs == 0)THEN
233 CALL ancmsg(msgid=796,
234 . msgtype=msgerror,
235 . anmode=aninfo,
236 . i1=id,
237 . c1=titr,
238 . i2=idbs)
239 ELSEIF(ibox(ibs)%LEVEL == 0)THEN
240C reference a un box non initialise
241 IF(iter > nbbox)GOTO 900
242 ibox(ib)%NBLEVELS=-1
243 ibox(ib)%LEVEL=0
244 icount=1
245 skipflag = 1
246 GOTO 10
247 ELSE
248C reference a un box initialise
249 cnt = cnt + 1
250 ENDIF
251 END DO
252C---
253 10 CONTINUE
254C---
255 END IF
256C---
257 IF(skipflag == 0)THEN
258 ibox(ib)%NBLEVELS= cnt
259 ENDIF
260C---
261 ELSEIF(flagg == 1 .AND. ibox(ib)%LEVEL == 0 .AND.
262 . ibox(ib)%NBLEVELS > -1)THEN
263C---
264 DO k=1,nbox
265 j = ibox(ib)%IBOXBOX(k)
266 ibs = abs(j)
267 idbs = ibox(ibs)%ID
268 IF(ibox(ibs)%NBLEVELS == -1)THEN
269 GOTO 20
270 ELSE
271C
272C fill each sub-box only one time:
273C
274 IF(ibox(ibs)%ACTIBOX == 0)THEN
275 CALL boxtage(x ,skew ,ibox ,
276 . ibs ,boxtype,ix ,nix ,
277 . nix1 ,iparte ,ipart ,klevtree,eltree,
278 . keltree,numel ,nadmesh,flag ,iboxmax,
279 . iadb,ibufbox)
280 ibox(ibs)%ACTIBOX = 1
281 END IF
282C---
283 ENDIF
284 END DO
285C---
286 ibox(ib)%LEVEL=1
287 CALL boxassem2(ibox,ibufbox,ib,iadb,numel,flag,iboxmax)
288C-----
289 20 CONTINUE
290C---
291 END IF
292 END DO
293C-----------
294 RETURN
295 900 CONTINUE
296 CALL ancmsg(msgid=797,
297 . msgtype=msgerror,
298 . anmode=aninfo,
299 . c1=mes,
300 . i1=id,
301 . c2=mes,
302 . c3=titr,
303 . i2=ibox(ib)%ID,c4='BOXBOX2')
304 RETURN
305 999 CALL freerr(1)
306C-----------
307 RETURN
boxtage
subroutine boxtage(x, skew, ibox, isu, boxtype, ix, nix, nix1, iparte, ipart, klevtree, eltree, keltree, numel, nadmesh, flag, iboxmax, iadb, ibufbox)
Definition bigbox.F:1033
boxassem2
subroutine boxassem2(ibox, ibufbox, ib, iadb, numel, flag, iboxmax)
Definition bigbox.F:428

◆ boxboxs()

subroutine boxboxs ( type (box_), dimension(nbbox) ibox,
skew,
integer flagg,
integer icount,
integer iter,
integer boxtype,
integer, dimension(*) ibufbox,
x,
integer iadb,
integer, dimension(nix,*) ix,
integer nix,
integer nix1,
integer nix2,
integer numel,
integer isurf0,
integer ieltyp,
integer id,
character(len=nchartitle) titr,
character mess,
integer flag,
integer, dimension(*) tagshellbox,
integer iext )

Definition at line 321 of file boxbox.F.

326C-----------------------------------------------
327C M o d u l e s
328C-----------------------------------------------
329 USE message_mod
330 USE optiondef_mod
331C-----------------------------------------------
332C I m p l i c i t T y p e s
333C-----------------------------------------------
334#include "implicit_f.inc"
335C-----------------------------------------------
336C C o m m o n B l o c k s
337C-----------------------------------------------
338#include "com04_c.inc"
339#include "param_c.inc"
340C-----------------------------------------------
341C D u m m y A r g u m e n t s
342C-----------------------------------------------
343 INTEGER IBUFBOX(*),
344 . IAD,FLAGG,ICOUNT,ITER,BOXTYPE,IADB,NIX,
345 . IX(NIX,*),NIX1,NIX2,ISURF0,IELTYP,NUMEL,FLAG,
346 . TAGSHELLBOX(*),IEXT
347 my_real
348 . x(3,*),skew(lskew,*)
349 INTEGER ID
350 CHARACTER(LEN=NCHARTITLE) :: TITR
351 CHARACTER MESS*40
352 TYPE (BOX_) , DIMENSION(NBBOX) :: IBOX
353C-----------------------------------------------
354C L o c a l V a r i a b l e s
355C-----------------------------------------------
356 INTEGER I,K,L,J,JJ,IB,IBS,IDBS,NBOX,SKIPFLAG,
357 . IADX,CNT
358C-----------------------------------------------
359 IF (flagg == 0) icount=0
360C---
361C boucle sur les boxes
362C---
363 DO ib=1,nbbox
364 skipflag = 0
365 cnt = 0
366 nbox = ibox(ib)%NBOXBOX
367 IF(flagg == 0 .AND. ibox(ib)%NBLEVELS == -1)THEN
368C---
369 IF(skipflag == 0)THEN
370 DO k=1,nbox
371 j = ibox(ib)%IBOXBOX(k)
372 ibs = abs(j)
373 idbs = ibox(ibs)%ID
374C activate sublevel boxes of main box:
375 IF (idbs == 0)THEN
376 CALL ancmsg(msgid=796,
377 . msgtype=msgerror,
378 . anmode=aninfo,
379 . i1=id,
380 . c1=titr,
381 . i2=idbs)
382 ELSEIF(ibox(ibs)%LEVEL == 0)THEN
383C reference a un box non initialise
384 IF (iter > nbbox) GOTO 900
385 ibox(ib)%NBLEVELS=-1
386 ibox(ib)%LEVEL=0
387 icount=1
388 skipflag = 1
389 GOTO 10
390 ELSE
391C reference a un box initialise
392 cnt = cnt + 1
393 ENDIF
394 END DO
395C---
396 10 CONTINUE
397C---
398 END IF
399C---
400 IF(skipflag == 0)THEN
401 ibox(ib)%NBLEVELS= cnt
402 ENDIF
403C---
404 ELSEIF(flagg == 1 .AND. ibox(ib)%LEVEL == 0 .AND.
405 . ibox(ib)%NBLEVELS > -1)THEN
406C---
407 DO k=1,nbox
408 j = ibox(ib)%IBOXBOX(k)
409 ibs = abs(j)
410 idbs = ibox(ibs)%ID
411 IF(ibox(ibs)%NBLEVELS == -1)THEN
412 GOTO 20
413 ELSE
414C fill each sub-box only once time:
415 IF(ibox(ibs)%ACTIBOX == 0)THEN
416 CALL box_surf_sh(x ,ibufbox,skew ,iadb ,boxtype,
417 . ibox ,ibs ,numel ,nix ,ix ,
418 . nix1 ,nix2 ,isurf0,ieltyp ,flag ,
419 . tagshellbox,iext )
420 ibox(ibs)%ACTIBOX = 1
421 END IF
422C---
423 ENDIF
424 END DO
425C---
426 ibox(ib)%LEVEL=1
427 CALL boxassem3(ibox,ibufbox,ib ,iadb ,numel ,
428 . nix ,ix ,nix1 ,nix2,isurf0,ieltyp,
429 . flag ,iext)
430C-----
431 20 CONTINUE
432C---
433 END IF
434 END DO
435C---
436C-----------
437 RETURN
438 900 CONTINUE
439 CALL ancmsg(msgid=797,
440 . msgtype=msgerror,
441 . anmode=aninfo,
442 . c1=mess,
443 . i1=id,
444 . c2=mess,
445 . c3=titr,
446 . i2=ibox(ib)%ID,c4='BOXBOX3')
447 RETURN
448 999 CALL freerr(1)
449C-----------
450 RETURN
boxassem3
subroutine boxassem3(ibox, ibufbox, ib, iadb, numel, nix, ix, nix1, nix2, isurf0, ieltyp, flag, iext)
Definition bigbox.F:554
box_surf_sh
subroutine box_surf_sh(x, ibufbox, skew, iadb, boxtype, ibox, isu, numel, nix, ix, nix1, nix2, isurf0, ieltyp, flag, tagshellbox, iext)
Definition bigbox.F:1421

◆ elstagboxbox()

subroutine elstagboxbox ( type (box_), dimension(nbbox) ibox,
skew,
integer flagg,
integer icount,
integer iter,
integer boxtype,
integer, dimension(*) ibufbox,
x,
integer iadb,
integer, dimension(nixs,*) ixs,
integer, dimension(*) knod2els,
integer, dimension(*) nod2els,
integer iext,
integer flag,
integer, dimension(6,*) ixs10,
integer, dimension(8,*) ixs16,
integer, dimension(12,*) ixs20,
integer, dimension(*) elstag,
integer id,
character(len=nchartitle) titr,
integer, dimension(*) knod2elc,
integer, dimension(*) nod2elc,
integer, dimension(nixc,*) ixc,
integer, dimension(*) tagshellboxc,
integer, dimension(*) knod2eltg,
integer, dimension(*) nod2eltg,
integer, dimension(nixtg,*) ixtg,
integer, dimension(*) tagshellboxg,
integer iext_set )

Definition at line 464 of file boxbox.F.

472C-----------------------------------------------
473C M o d u l e s
474C-----------------------------------------------
475 USE message_mod
476 USE optiondef_mod
477 USE names_and_titles_mod , ONLY : nchartitle
478C-----------------------------------------------
479C I m p l i c i t T y p e s
480C-----------------------------------------------
481#include "implicit_f.inc"
482C-----------------------------------------------
483C C o m m o n B l o c k s
484C-----------------------------------------------
485#include "com04_c.inc"
486#include "param_c.inc"
487C-----------------------------------------------
488C D u m m y A r g u m e n t s
489C-----------------------------------------------
490 INTEGER IBUFBOX(*),
491 . FLAGG,ICOUNT,ITER,BOXTYPE,IADB,
492 . IXS(NIXS,*),KNOD2ELS(*),NOD2ELS(*),IEXT,
493 . FLAG,IXS10(6,*),IXS16(8,*),IXS20(12,*),
494 . ELSTAG(*),KNOD2ELC(*),NOD2ELC(*),IXC(NIXC,*),
495 . TAGSHELLBOXC(*),KNOD2ELTG(*),NOD2ELTG(*),IXTG(NIXTG,*) ,
496 . TAGSHELLBOXG(*),IEXT_SET
497 my_real
498 . x(3,*),skew(lskew,*)
499 INTEGER ID
500 CHARACTER(LEN=NCHARTITLE) :: TITR
501 TYPE (BOX_) , DIMENSION(NBBOX) :: IBOX
502C-----------------------------------------------
503C L o c a l V a r i a b l e s
504C-----------------------------------------------
505 INTEGER I,K,L,J,JJ,IB,IBS,IDBS,NBOX,
506 . SKIPFLAG,IADX,CNT
507C-----------------------------------------------
508 IF(flagg == 0)icount=0
509C---
510C boucle sur les boxes
511C---
512 DO ib=1,nbbox
513 skipflag = 0
514 cnt = 0
515 nbox = ibox(ib)%NBOXBOX
516 IF(flagg == 0 .AND. ibox(ib)%NBLEVELS == -1)THEN
517C---
518 IF (skipflag == 0) THEN
519 DO k=1,nbox
520 j = ibox(ib)%IBOXBOX(k)
521 ibs = abs(j)
522 idbs = ibox(ibs)%ID
523 IF(idbs == 0)THEN
524 CALL ancmsg(msgid=796,
525 . msgtype=msgerror,
526 . anmode=aninfo,
527 . i1=id,
528 . c1=titr,
529 . i2=idbs)
530 ELSEIF(ibox(ibs)%LEVEL == 0)THEN
531C reference a un box non initialise
532 IF(iter > nbbox)GOTO 900
533 ibox(ib)%NBLEVELS=-1
534 ibox(ib)%LEVEL=0
535 icount=1
536 skipflag = 1
537 GOTO 10
538 ELSE
539C reference a un box initialise
540 cnt = cnt + 1
541 ENDIF
542 END DO
543C---
544 10 CONTINUE
545C---
546 END IF
547C---
548 IF(skipflag == 0)THEN
549 ibox(ib)%NBLEVELS= cnt
550 ENDIF
551C---
552 ELSEIF(flagg == 1 .AND. ibox(ib)%LEVEL == 0 .AND.
553 . ibox(ib)%NBLEVELS > -1)THEN
554C---
555 DO k=1,nbox
556 j = ibox(ib)%IBOXBOX(k)
557 ibs = abs(j)
558 idbs = ibox(ibs)%ID
559 IF(ibox(ibs)%NBLEVELS == -1)THEN
560 GOTO 20
561 ELSE
562C fill each sub-box only one time:
563 IF(ibox(ibs)%ACTIBOX == 0)THEN
564C---
565C tag faces of solids within box
566C---
567 CALL elstagbox(ixs ,elstag ,x ,skew ,boxtype,
568 . ibs ,ibox )
569C---
570C fill tmp "IBUFBOX" for taged faces
571C---
572 CALL facebox(ixs ,x ,knod2els ,nod2els ,iext ,
573 . flag ,ixs10 ,ixs16 ,ixs20 ,skew ,
574 . ibox ,elstag ,ibufbox ,iadb ,ibs ,
575 . id ,titr ,knod2elc ,nod2elc ,ixc ,
576 . tagshellboxc ,knod2eltg ,nod2eltg ,ixtg ,tagshellboxg,
577 . iext_set )
578 ibox(ibs)%ACTIBOX = 1
579 END IF
580C---
581 ENDIF
582 END DO
583C---
584 ibox(ib)%LEVEL=1
585 CALL boxassem4(ibox,ibufbox,ib,iadb,flag,iext_set)
586C-----
587 20 CONTINUE
588C---
589 END IF
590 END DO
591C---
592C-----------
593 RETURN
594 900 CONTINUE
595 CALL ancmsg(msgid=797,
596 . msgtype=msgerror,
597 . anmode=aninfo,
598 . c1='SURFACE',
599 . i1=id,
600 . c2='SURFACE',
601 . c3=titr,
602 . i2=ibox(ib)%ID,c4='BOXBOX4')
603 RETURN
604 999 CALL freerr(1)
605C-----------
606 RETURN
boxassem4
subroutine boxassem4(ibox, ibufbox, ib, iadb, flag, iext_set)
Definition bigbox.F:728
facebox
subroutine facebox(ixs, x, knod2els, nod2els, iext, flag, ixs10, ixs16, ixs20, skew, ibox, elstag, ibufbox, iadb, isu, id, titr, knod2elc, nod2elc, ixc, tagshellboxc, knod2eltg, nod2eltg, ixtg, tagshellboxg, iext_set)
Definition bigbox.F:2130
elstagbox
subroutine elstagbox(ixs, elstag, x, skew, boxtype, isu, ibox)
Definition bigbox.F:1819