OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
boxbox.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!|| boxbox ../starter/source/model/box/boxbox.F
25!||--- called by ------------------------------------------------------
26!|| bigbox ../starter/source/model/box/bigbox.F
27!|| hm_bigbox ../starter/source/model/box/hm_bigbox.F
28!||--- calls -----------------------------------------------------
29!|| ancmsg ../starter/source/output/message/message.F
30!|| boxassem1 ../starter/source/model/box/bigbox.F
31!|| boxtagn ../starter/source/model/box/bigbox.F
32!||--- uses -----------------------------------------------------
33!|| message_mod ../starter/share/message_module/message_mod.F
34!||====================================================================
35 SUBROUTINE boxbox(IBOX ,SKEW ,
36 . FLAGG ,ICOUNT,ITER ,IBUFBOX,
37 . X ,IADB ,ID ,TITR ,
38 . KEY ,FLAG ,IBOXMAX)
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 . 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 K,J,IB,IBS,IDBS,NBOX,
69 . SKIPFLAG,CNT
70C-----------------------------------------------
71 IF (flagg == 0) icount=0
72C---
73C loop over the 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 END
159!||====================================================================
160!|| boxbox2 ../starter/source/model/box/boxbox.F
161!||--- called by ------------------------------------------------------
162!|| bigbox2 ../starter/source/model/box/bigbox.F
163!|| hm_bigbox2 ../starter/source/model/box/hm_bigbox2.F
164!||--- calls -----------------------------------------------------
165!|| ancmsg ../starter/source/output/message/message.F
166!|| boxassem2 ../starter/source/model/box/bigbox.F
167!|| boxtage ../starter/source/model/box/bigbox.F
168!||--- uses -----------------------------------------------------
169!|| message_mod ../starter/share/message_module/message_mod.F
170!||====================================================================
171 SUBROUTINE boxbox2(IBOX ,SKEW ,
172 . FLAGG ,ICOUNT,ITER ,BOXTYPE,
173 . X ,IX ,FLAG ,IBOXMAX,
174 . NIX ,NIX1 ,IPARTE ,IPART ,
175 . KLEVTREE,ELTREE,KELTREE ,NUMEL ,
176 . NADMESH ,ID ,TITR ,MES ,
177 . IADB,IBUFBOX)
178C-----------------------------------------------
179C M o d u l e s
180C-----------------------------------------------
181 USE message_mod
182 USE optiondef_mod
183C-----------------------------------------------
184C I m p l i c i t T y p e s
185C-----------------------------------------------
186#include "implicit_f.inc"
187C-----------------------------------------------
188C C o m m o n B l o c k s
189C-----------------------------------------------
190#include "scr17_c.inc"
191#include "com04_c.inc"
192#include "param_c.inc"
193C-----------------------------------------------
194C D u m m y A r g u m e n t s
195C-----------------------------------------------
196 INTEGER
197 . FLAGG,ICOUNT,ITER,BOXTYPE,NIX,
198 . IX(NIX,*),NIX1,IPARTE(*),IPART(LIPART1,*),
199 . KLEVTREE,KELTREE,ELTREE(KELTREE,*),NUMEL,
200 . NADMESH,FLAG,IBOXMAX,IADB,IBUFBOX(*)
201 my_real
202 . X(3,*),SKEW(LSKEW,*)
203 INTEGER ID
204 CHARACTER(LEN=NCHARTITLE) :: TITR
205 CHARACTER MES*40
206 TYPE (BOX_) , DIMENSION(NBBOX) :: IBOX
207C-----------------------------------------------
208C L o c a l V a r i a b l e s
209C-----------------------------------------------
210 INTEGER K,J,IB,IBS,IDBS,NBOX,
211 . SKIPFLAG,CNT
212C-----------------------------------------------
213 IF (flagg == 0) icount=0
214C---
215C loop over the boxes
216C---
217 DO ib=1,nbbox
218 skipflag = 0
219 cnt = 0
220 nbox = ibox(ib)%NBOXBOX
221 IF(flagg == 0 .AND. ibox(ib)%NBLEVELS == -1)THEN
222C---
223 IF(skipflag == 0)THEN
224 DO k=1,nbox
225 j = ibox(ib)%IBOXBOX(k)
226 ibs = abs(j)
227 idbs = ibox(ibs)%ID
228C activate sublevel boxes of main box:
229 IF(idbs == 0)THEN
230 CALL ancmsg(msgid=796,
231 . msgtype=msgerror,
232 . anmode=aninfo,
233 . i1=id,
234 . c1=titr,
235 . i2=idbs)
236 ELSEIF(ibox(ibs)%LEVEL == 0)THEN
237C reference a un box non initialise
238 IF(iter > nbbox)GOTO 900
239 ibox(ib)%NBLEVELS=-1
240 ibox(ib)%LEVEL=0
241 icount=1
242 skipflag = 1
243 GOTO 10
244 ELSE
245C reference a un box initialise
246 cnt = cnt + 1
247 ENDIF
248 END DO
249C---
250 10 CONTINUE
251C---
252 END IF
253C---
254 IF(skipflag == 0)THEN
255 ibox(ib)%NBLEVELS= cnt
256 ENDIF
257C---
258 ELSEIF(flagg == 1 .AND. ibox(ib)%LEVEL == 0 .AND.
259 . ibox(ib)%NBLEVELS > -1)THEN
260C---
261 DO k=1,nbox
262 j = ibox(ib)%IBOXBOX(k)
263 ibs = abs(j)
264 idbs = ibox(ibs)%ID
265 IF(ibox(ibs)%NBLEVELS == -1)THEN
266 GOTO 20
267 ELSE
268C
269C fill each sub-box only one time:
270C
271 IF(ibox(ibs)%ACTIBOX == 0)THEN
272 CALL boxtage(x ,skew ,ibox ,
273 . ibs ,boxtype,ix ,nix ,
274 . nix1 ,iparte ,ipart ,klevtree,eltree,
275 . keltree,numel ,nadmesh,flag ,iboxmax,
276 . iadb,ibufbox)
277 ibox(ibs)%ACTIBOX = 1
278 END IF
279C---
280 ENDIF
281 END DO
282C---
283 ibox(ib)%LEVEL=1
284 CALL boxassem2(ibox,ibufbox,ib,iadb,numel,flag,iboxmax)
285C-----
286 20 CONTINUE
287C---
288 END IF
289 END DO
290C-----------
291 RETURN
292 900 CONTINUE
293 CALL ancmsg(msgid=797,
294 . msgtype=msgerror,
295 . anmode=aninfo,
296 . c1=mes,
297 . i1=id,
298 . c2=mes,
299 . c3=titr,
300 . i2=ibox(ib)%ID,c4='BOXBOX2')
301 RETURN
302 END
303!||====================================================================
304!|| boxboxs ../starter/source/model/box/boxbox.F
305!||--- called by ------------------------------------------------------
306!|| bigsbox ../starter/source/model/box/bigbox.F
307!|| hm_bigsbox ../starter/source/groups/hm_bigsbox.F
308!||--- calls -----------------------------------------------------
309!|| ancmsg ../starter/source/output/message/message.F
310!|| box_surf_sh ../starter/source/model/box/bigbox.F
311!|| boxassem3 ../starter/source/model/box/bigbox.F
312!||--- uses -----------------------------------------------------
313!|| message_mod ../starter/share/message_module/message_mod.F
314!||====================================================================
315 SUBROUTINE boxboxs(IBOX ,SKEW ,FLAGG ,ICOUNT ,ITER ,
316 . BOXTYPE ,IBUFBOX ,X ,IADB ,IX ,
317 . NIX ,NIX1 ,NIX2 ,NUMEL ,ISURF0 ,
318 . IELTYP ,ID ,TITR ,MESS ,FLAG ,
319 . TAGSHELLBOX,IEXT )
320C-----------------------------------------------
321C M o d u l e s
322C-----------------------------------------------
323 USE message_mod
324 USE optiondef_mod
325C-----------------------------------------------
326C I m p l i c i t T y p e s
327C-----------------------------------------------
328#include "implicit_f.inc"
329C-----------------------------------------------
330C C o m m o n B l o c k s
331C-----------------------------------------------
332#include "com04_c.inc"
333#include "param_c.inc"
334C-----------------------------------------------
335C D u m m y A r g u m e n t s
336C-----------------------------------------------
337 INTEGER IBUFBOX(*),
338 . FLAGG,ICOUNT,ITER,BOXTYPE,IADB,NIX,
339 . IX(NIX,*),NIX1,NIX2,ISURF0,IELTYP,NUMEL,FLAG,
340 . TAGSHELLBOX(*),IEXT
341 my_real
342 . X(3,*),SKEW(LSKEW,*)
343 INTEGER ID
344 CHARACTER(LEN=NCHARTITLE) :: TITR
345 CHARACTER MESS*40
346 TYPE (BOX_) , DIMENSION(NBBOX) :: IBOX
347C-----------------------------------------------
348C L o c a l V a r i a b l e s
349C-----------------------------------------------
350 INTEGER K,J,IB,IBS,IDBS,NBOX,SKIPFLAG,
351 . CNT
352C-----------------------------------------------
353 IF (FLAGG == 0) icount=0
354C---
355C loop over the boxes
356C---
357 DO ib=1,nbbox
358 skipflag = 0
359 cnt = 0
360 nbox = ibox(ib)%NBOXBOX
361 IF(flagg == 0 .AND. ibox(ib)%NBLEVELS == -1)THEN
362C---
363 IF(skipflag == 0)THEN
364 DO k=1,nbox
365 j = ibox(ib)%IBOXBOX(k)
366 ibs = abs(j)
367 idbs = ibox(ibs)%ID
368C activate sublevel boxes of main box:
369 IF (idbs == 0)THEN
370 CALL ancmsg(msgid=796,
371 . msgtype=msgerror,
372 . anmode=aninfo,
373 . i1=id,
374 . c1=titr,
375 . i2=idbs)
376 ELSEIF(ibox(ibs)%LEVEL == 0)THEN
377C reference a un box non initialise
378 IF (iter > nbbox) GOTO 900
379 ibox(ib)%NBLEVELS=-1
380 ibox(ib)%LEVEL=0
381 icount=1
382 skipflag = 1
383 GOTO 10
384 ELSE
385C reference a un box initialise
386 cnt = cnt + 1
387 ENDIF
388 END DO
389C---
390 10 CONTINUE
391C---
392 END IF
393C---
394 IF(skipflag == 0)THEN
395 ibox(ib)%NBLEVELS= cnt
396 ENDIF
397C---
398 ELSEIF(flagg == 1 .AND. ibox(ib)%LEVEL == 0 .AND.
399 . ibox(ib)%NBLEVELS > -1)THEN
400C---
401 DO k=1,nbox
402 j = ibox(ib)%IBOXBOX(k)
403 ibs = abs(j)
404 idbs = ibox(ibs)%ID
405 IF(ibox(ibs)%NBLEVELS == -1)THEN
406 GOTO 20
407 ELSE
408C fill each sub-box only once time:
409 IF(ibox(ibs)%ACTIBOX == 0)THEN
410 CALL box_surf_sh(x ,ibufbox,skew ,iadb ,boxtype,
411 . ibox ,ibs ,numel ,nix ,ix ,
412 . nix1 ,nix2 ,isurf0,ieltyp ,flag ,
413 . tagshellbox,iext )
414 ibox(ibs)%ACTIBOX = 1
415 END IF
416C---
417 ENDIF
418 END DO
419C---
420 ibox(ib)%LEVEL=1
421 CALL boxassem3(ibox,ibufbox,ib ,iadb ,numel ,
422 . nix ,ix ,nix1 ,nix2,isurf0,ieltyp,
423 . flag ,iext)
424C-----
425 20 CONTINUE
426C---
427 END IF
428 END DO
429C---
430C-----------
431 RETURN
432 900 CONTINUE
433 CALL ancmsg(msgid=797,
434 . msgtype=msgerror,
435 . anmode=aninfo,
436 . c1=mess,
437 . i1=id,
438 . c2=mess,
439 . c3=titr,
440 . i2=ibox(ib)%ID,c4='BOXBOX3')
441 RETURN
442 END
443!||====================================================================
444!|| elstagboxbox ../starter/source/model/box/boxbox.F
445!||--- called by ------------------------------------------------------
446!|| sboxboxsurf ../starter/source/model/box/bigbox.F
447!||--- calls -----------------------------------------------------
448!|| ancmsg ../starter/source/output/message/message.F
449!|| boxassem4 ../starter/source/model/box/bigbox.F
450!|| elstagbox ../starter/source/model/box/bigbox.F
451!|| facebox ../starter/source/model/box/bigbox.F
452!||--- uses -----------------------------------------------------
453!|| message_mod ../starter/share/message_module/message_mod.F
454!||====================================================================
455 SUBROUTINE elstagboxbox(IBOX ,SKEW ,
456 . FLAGG ,ICOUNT ,ITER ,BOXTYPE,
457 . IBUFBOX,X ,IADB ,IXS ,
458 . KNOD2ELS,NOD2ELS,
459 . IEXT ,FLAG ,IXS10 ,
460 . IXS16 ,IXS20 ,ELSTAG ,ID,TITR,
461 . KNOD2ELC,NOD2ELC,IXC ,TAGSHELLBOXC,
462 . KNOD2ELTG,NOD2ELTG,IXTG ,TAGSHELLBOXG,IEXT_SET)
463C-----------------------------------------------
464C M o d u l e s
465C-----------------------------------------------
466 USE message_mod
467 USE optiondef_mod
468 USE names_and_titles_mod , ONLY : nchartitle
469 use element_mod , only : nixs,nixc,nixtg
470C-----------------------------------------------
471C I m p l i c i t T y p e s
472C-----------------------------------------------
473#include "implicit_f.inc"
474C-----------------------------------------------
475C C o m m o n B l o c k s
476C-----------------------------------------------
477#include "com04_c.inc"
478#include "param_c.inc"
479C-----------------------------------------------
480C D u m m y A r g u m e n t s
481C-----------------------------------------------
482 INTEGER IBUFBOX(*),
483 . FLAGG,ICOUNT,ITER,BOXTYPE,IADB,
484 . IXS(NIXS,*),KNOD2ELS(*),NOD2ELS(*),IEXT,
485 . FLAG,IXS10(6,*),IXS16(8,*),IXS20(12,*),
486 . elstag(*),knod2elc(*),nod2elc(*),ixc(nixc,*),
487 . tagshellboxc(*),knod2eltg(*),nod2eltg(*),ixtg(nixtg,*) ,
488 . tagshellboxg(*),iext_set
489 my_real
490 . x(3,*),skew(lskew,*)
491 INTEGER ID
492 CHARACTER(LEN=NCHARTITLE) :: TITR
493 TYPE (BOX_) , DIMENSION(NBBOX) :: IBOX
494C-----------------------------------------------
495C L o c a l V a r i a b l e s
496C-----------------------------------------------
497 INTEGER K,J,IB,IBS,IDBS,NBOX,
498 . SKIPFLAG,CNT
499C-----------------------------------------------
500 IF(FLAGG == 0)icount=0
501C---
502C loop over the boxes
503C---
504 DO ib=1,nbbox
505 skipflag = 0
506 cnt = 0
507 nbox = ibox(ib)%NBOXBOX
508 IF(flagg == 0 .AND. ibox(ib)%NBLEVELS == -1)THEN
509C---
510 IF (skipflag == 0) THEN
511 DO k=1,nbox
512 j = ibox(ib)%IBOXBOX(k)
513 ibs = abs(j)
514 idbs = ibox(ibs)%ID
515 IF(idbs == 0)THEN
516 CALL ancmsg(msgid=796,
517 . msgtype=msgerror,
518 . anmode=aninfo,
519 . i1=id,
520 . c1=titr,
521 . i2=idbs)
522 ELSEIF(ibox(ibs)%LEVEL == 0)THEN
523C reference a un box non initialise
524 IF(iter > nbbox)GOTO 900
525 ibox(ib)%NBLEVELS=-1
526 ibox(ib)%LEVEL=0
527 icount=1
528 skipflag = 1
529 GOTO 10
530 ELSE
531C reference a un box initialise
532 cnt = cnt + 1
533 ENDIF
534 END DO
535C---
536 10 CONTINUE
537C---
538 END IF
539C---
540 IF(skipflag == 0)THEN
541 ibox(ib)%NBLEVELS= cnt
542 ENDIF
543C---
544 ELSEIF(flagg == 1 .AND. ibox(ib)%LEVEL == 0 .AND.
545 . ibox(ib)%NBLEVELS > -1)THEN
546C---
547 DO k=1,nbox
548 j = ibox(ib)%IBOXBOX(k)
549 ibs = abs(j)
550 idbs = ibox(ibs)%ID
551 IF(ibox(ibs)%NBLEVELS == -1)THEN
552 GOTO 20
553 ELSE
554C fill each sub-box only one time:
555 IF(ibox(ibs)%ACTIBOX == 0)THEN
556C---
557C tag faces of solids within box
558C---
559 CALL elstagbox(ixs ,elstag ,x ,skew ,boxtype,
560 . ibs ,ibox )
561C---
562C fill tmp "IBUFBOX" for taged faces
563C---
564 CALL facebox(ixs ,x ,knod2els ,nod2els ,iext ,
565 . flag ,ixs10 ,ixs16 ,ixs20 ,skew ,
566 . ibox ,elstag ,ibufbox ,iadb ,ibs ,
567 . id ,titr ,knod2elc ,nod2elc ,ixc ,
568 . tagshellboxc ,knod2eltg ,nod2eltg ,ixtg ,tagshellboxg,
569 . iext_set )
570 ibox(ibs)%ACTIBOX = 1
571 END IF
572C---
573 ENDIF
574 END DO
575C---
576 ibox(ib)%LEVEL=1
577 CALL boxassem4(ibox,ibufbox,ib,iadb,flag,iext_set)
578C-----
579 20 CONTINUE
580C---
581 END IF
582 END DO
583C---
584C-----------
585 RETURN
586 900 CONTINUE
587 CALL ancmsg(msgid=797,
588 . msgtype=msgerror,
589 . anmode=aninfo,
590 . c1='SURFACE',
591 . i1=id,
592 . c2='SURFACE',
593 . c3=titr,
594 . i2=ibox(ib)%ID,c4='BOXBOX4')
595 RETURN
596 END
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:2132
boxtagn
subroutine boxtagn(x, ibufbox, skew, iadb, ibox, isu, flag, iboxmax)
Definition bigbox.F:188
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
boxassem1
subroutine boxassem1(ibox, ibufbox, ib, iadb, flag)
Definition bigbox.F:304
boxassem2
subroutine boxassem2(ibox, ibufbox, ib, iadb, numel, flag, iboxmax)
Definition bigbox.F:428
boxassem3
subroutine boxassem3(ibox, ibufbox, ib, iadb, numel, nix, ix, nix1, nix2, isurf0, ieltyp, flag, iext)
Definition bigbox.F:554
elstagbox
subroutine elstagbox(ixs, elstag, x, skew, boxtype, isu, ibox)
Definition bigbox.F:1819
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
boxbox2
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)
Definition boxbox.F:178
boxboxs
subroutine boxboxs(ibox, skew, flagg, icount, iter, boxtype, ibufbox, x, iadb, ix, nix, nix1, nix2, numel, isurf0, ieltyp, id, titr, mess, flag, tagshellbox, iext)
Definition boxbox.F:320
elstagboxbox
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)
Definition boxbox.F:463
boxbox
subroutine boxbox(ibox, skew, flagg, icount, iter, ibufbox, x, iadb, id, titr, key, flag, iboxmax)
Definition boxbox.F:39
my_real
#define my_real
Definition cppsort.cpp:32
message_mod
Definition message_mod.F:1257
names_and_titles_mod
Definition names_and_titles_mod.F:1002
names_and_titles_mod::nchartitle
integer, parameter nchartitle
Definition names_and_titles_mod.F:1008
names_and_titles_mod::ncharfield
integer, parameter ncharfield
Definition names_and_titles_mod.F:1010
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:895