C SORTID    SOURCE    PV        11/03/07    21:18:23     6885
C****************************************************************************
C****************************************************************************
C*************SORTID....SORTIe des Donnees***********************************
C****************************************************************************
C****************************************************************************



C Cette procedure affiche les resultats sous forme de maillage dont les
C  noeuds sont numerotes dans l'ordre d'elimination




        SUBROUTINE SORTID(IADJ,IVOIS,IORDRE,NUMERO,NODES,NBENS,JNT)
      IMPLICIT INTEGER(I-N)



        SEGMENT IADJ(0)
        SEGMENT IVOIS(0)
        SEGMENT IPOS(0)
        SEGMENT NUMERO(0)
        SEGMENT IORDRE(0)
        SEGMENT JNT(0)
        INTEGER NODES,NBENS

C       on lit chaque noeud des qu'il appartient a l'ensemble considere
C       on le numerote.
        ICOMPT=1
        DO 100 I=1,NBENS
                DO 120 J=1,NODES
                        IF(IORDRE(NUMERO(J)+NBENS).EQ.I) THEN
                                JNT(J)=ICOMPT
                                ICOMPT=ICOMPT+1
                        ENDIF
120             CONTINUE
100     CONTINUE


        RETURN
        END