i7dstk.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	i7dstk (nb_nc, nb_ec, add, bpn, pn, bpe, pe)

Function/Subroutine Documentation

i7dstk()

subroutine i7dstk	(	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.

C============================================================================
C  this routine is called by: I7TRI(/int7/i7tri.F)
C                                  I10TRI(/int10/i10tri.F)
C                                  I11TRI(/int11/i11tri.F)
C----------------------------------------------------------------------------
C  this routine calls: -
C============================================================================
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   role of the routine:
C   ===================
C   reload the stack bottom vectors BPN and BPE with the bottoms of
C   stacks PN and PE
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C
C     NOM          DESCRIPTION                       E/S
C
C     BPE          ARRAY OF FACETTES TO SORT      S
C                  and result on max side
C     PE           ARRAY OF FACETTES              E
C                  RESULTAT COTE MIN
C     BPN          SORTED NODES ARRAY        S
C                  and result on max side
C     PN           NODES ARRAY E
C                  RESULTAT COTE MIN
C     ADD(2,*)     ARRAY OF ADRESSES              E  
C          1.......ADRESSES NODES C          2.......ADRESSES ELEMENTS
C     NB_NC        NUMBER OF CANDIDATE NODES        s 
C     NB_EC        NUMBER OF CANDIDATE ELEMENTS           s 
C 
C-----------------------------------------------
      INTEGER NB_NC,NB_EC
      INTEGER ADD(2,0:*),BPE(*),PE(*),BPN(*),PN(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I
C
C
C     1- nodes stack
C
      nb_nc = add(1,1) - add(1,0)
      DO 10 i=1,nb_nc
        bpn(i) = pn(add(1,0)+i)
   10 CONTINUE
C
C     2- elements stack
C
      nb_ec = add(2,1) - add(2,0)
      DO 20 i=1,nb_ec
        bpe(i) = pe(add(2,0)+i)
   20 CONTINUE
      RETURN