i18tri.F File Reference

#include "implicit_f.inc"
#include "comlock.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	i18tri (index, i_stok, cand_n, itab, nsn, nsv, nin)

Function/Subroutine Documentation

i18tri()

subroutine i18tri	(	integer, dimension(*)	index,
		integer	i_stok,
		integer, dimension(*)	cand_n,
		integer, dimension(*)	itab,
		integer	nsn,
		integer, dimension(*)	nsv,
		integer	nin )

Definition at line 30 of file i18tri.F.

C Tri des candidats suivant le numero de noeud user
C=======================================================================
C   M o d u l e s
C-----------------------------------------------
      USE tri7box
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
#include      "comlock.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER I_STOK, NSN, NIN,
     .        INDEX(*),CAND_N(*), ITAB(*), NSV(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER  I, NI,
     .         ITRI(I_STOK),INDTRI(2*I_STOK),WORK(70000)
C-----------------------------------------------
      DO i = 1, i_stok
        ni = cand_n(index(i))                  ! l ordre des facette n importe plus a nouveau P/on
         IF(ni<=nsn) THEN
            itri(i) = itab(nsv(ni)) ! 1 seul critere : noeud (user)
        ELSE
          itri(i) = itafi(nin)%P(ni-nsn)       ! attention au noeud frontiere
        END IF
      END DO
C
      CALL my_orders(0,work,itri,indtri,i_stok,1)
C
      DO i = 1, i_stok
        indtri(i_stok+i) = index(i)
      END DO
C
      DO i = 1, i_stok
        index(i) = indtri(i_stok+indtri(i))
      END DO
C
      RETURN