OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
i7dstk.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!|| i7dstk ../starter/source/interfaces/inter3d1/i7dstk.F
25!||--- called by ------------------------------------------------------
26!|| i11tri ../starter/source/interfaces/inter3d1/i11tri.F
27!|| i21tri ../starter/source/interfaces/inter3d1/i21tri.f
28!|| i23tri ../starter/source/interfaces/inter3d1/i23tri.F
29!|| i24tri ../starter/source/interfaces/inter3d1/i24tri.F
30!|| i7tri ../starter/source/interfaces/inter3d1/i7tri.F
31!||====================================================================
32 SUBROUTINE i7dstk(I_ADD,NB_NC,NB_EC,ADD,BPN,PN,BPE,PE)
33C============================================================================
34C this routine is called by: I7TRI(/inter3d1/i7tri.F)
35C I11TRI(/inter3d1/i11tri.F)
36C I2TRI(/inter3d1/i2tri.F)
37C----------------------------------------------------------------------------
38C this routine calls: -
39C============================================================================
40C-----------------------------------------------
41C I m p l i c i t T y p e s
42C-----------------------------------------------
43#include "implicit_f.inc"
44C-----------------------------------------------
45C ROLE OF THE ROUTINE:
46C ===================
47C RELOAD THE BOTTOM STACK VECTORS BPN AND BPE WITH THE BOTTOMS OF
48C STACKS PN AND PE
49C-----------------------------------------------
50C D u m m y A r g u m e n t s
51C
52C NOM DESCRIPTION E/S
53C
54C BPE ARRAY OF FACETTES TO SORT S
55C AND THE RESULT ON THE MAX SIDE
56C PE ARRAY OF FACETTES E
57C RESULTAT COTE MIN
58C BPN SORTED NODES ARRAY S
59C AND THE RESULT ON THE MAX SIDE
60C PN NODES ARRAY E
61C RESULTAT COTE MIN
62C ADD(2,*) ARRAY OF ADRESSES E
63C 1.......ADRESSES NODES C 2.......ADRESSES ELEMENTS
64C NB_NC NUMBER OF CANDIDATE NODES s
65C NB_EC NUMBER OF CANDIDATE ELEMENTS s
66C I_ADD POSITION IN THE TABLE OF I/O ADDRESSES
67C
68C-----------------------------------------------
69 INTEGER NB_NC,NB_EC,I_ADD
70 INTEGER ADD(2,0:*),BPE(*),PE(*),BPN(*),PN(*)
71C-----------------------------------------------
72C L o c a l V a r i a b l e s
73C-----------------------------------------------
74 INTEGER I,IPROV
75C
76 i_add = i_add - 1
77 IF(i_add==0) RETURN
78C
79C 1- STACK OF NODES
80 iprov = 2*(i_add-1)
81 nb_nc = add(1,1) - add(1,0)
82 DO 10 i=1,nb_nc
83 bpn(i) = pn(add(1,0)+i)
84 10 CONTINUE
85C 2- STACK OF ELEMENTS
86 nb_ec = add(2,1) - add(2,0)
87 DO 20 i=1,nb_ec
88 bpe(i) = pe(add(2,0)+i)
89 20 CONTINUE
90 RETURN
91 END
subroutine i21tri(bpe, pe, bpn, pn, add, irect, x, nb_nc, nb_ec, xyzm, i_add, nsv, i_amax, xmax, ymax, zmax, maxsiz, i_stok, i_mem, nb_n_b, cand_n, cand_e, nsn, noint, tzinf, maxbox, minbox, j_stok, msr, xm0, multimp, itab, gap, gap_s, igap, gapmin, gapmax, marge, depth, drad, id, titr, ix1, ix2, ix3, ix4, nsvg, x1, x2, x3, x4, y1, y2, y3, y4, z1, z2, z3, z4, xi, yi, zi, x0, y0, z0, stif, nx1, ny1, nz1, nx2, ny2, nz2, nx3, ny3, nz3, nx4, ny4, nz4, p1, p2, p3, p4, lb1, lb2, lb3, lb4, lc1, lc2, lc3, lc4, pene, prov_n, prov_e, n11, n21, n31, dgapload)
Definition i21tri.F:58
subroutine i7dstk(i_add, nb_nc, nb_ec, add, bpn, pn, bpe, pe)
Definition i7dstk.F:33
program starter
Definition starter.F:39