OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
i7dstk.F File Reference
#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine i7dstk (i_add, nb_nc, nb_ec, add, bpn, pn, bpe, pe)

Function/Subroutine Documentation

◆ i7dstk()

subroutine i7dstk ( integer i_add,
integer nb_nc,
integer nb_ec,
integer, dimension(2,0:*) add,
integer, dimension(*) bpn,
integer, dimension(*) pn,
integer, dimension(*) bpe,
integer, dimension(*) pe )

Definition at line 33 of file i7dstk.F.

34C============================================================================
35C cette routine est appelee par : I7TRI(/inter3d1/i7tri.F)
36C I11TRI(/inter3d1/i11tri.F)
37C I2TRI(/inter3d1/i2tri.F)
38C----------------------------------------------------------------------------
39C cette routine appelle : -
40C============================================================================
41C-----------------------------------------------
42C I m p l i c i t T y p e s
43C-----------------------------------------------
44#include "implicit_f.inc"
45C-----------------------------------------------
46C ROLE DE LA ROUTINE:
47C ===================
48C RECHAGE LES VECTEURS BAS DE PILE BPN ET BPE AVEC LES BAS DES
49C PILES PN ET PE
50C-----------------------------------------------
51C D u m m y A r g u m e n t s
52C
53C NOM DESCRIPTION E/S
54C
55C BPE TABLEAU DES FACETTES A TRIER S
56C ET DU RESULTAT COTE MAX
57C PE TABLEAU DES FACETTES E
58C RESULTAT COTE MIN
59C BPN TABLEAU DES NOEUDS A TRIER S
60C ET DU RESULTAT COTE MAX
61C PN TABLEAU DES NOEUDS E
62C RESULTAT COTE MIN
63C ADD(2,*) TABLEAU DES ADRESSES E
64C 1.......ADRESSES NOEUDS
65C 2.......ADRESSES ELEMENTS
66C NB_NC NOMBRE DE NOEUDS CANDIDATS s
67C NB_EC NOMBRE D'ELTS CANDIDATS s
68C I_ADD POSITION DANS LE TAB DES ADRESSES e/s
69C
70C-----------------------------------------------
71 INTEGER NB_NC,NB_EC,I_ADD
72 INTEGER ADD(2,0:*),BPE(*),PE(*),BPN(*),PN(*)
73C-----------------------------------------------
74C L o c a l V a r i a b l e s
75C-----------------------------------------------
76 INTEGER I,IPROV
77C
78 i_add = i_add - 1
79 IF(i_add==0) RETURN
80C
81C 1- PILE DES NOEUDS
82 iprov = 2*(i_add-1)
83 nb_nc = add(1,1) - add(1,0)
84 DO 10 i=1,nb_nc
85 bpn(i) = pn(add(1,0)+i)
86 10 CONTINUE
87C 2- PILE DES ELEMENTS
88 nb_ec = add(2,1) - add(2,0)
89 DO 20 i=1,nb_ec
90 bpe(i) = pe(add(2,0)+i)
91 20 CONTINUE
92 RETURN