C CHDEG     SOURCE    CHAT      05/01/12    21:56:14     5004
C**************************************************************************
C**************************************************************************
C****************************                   ***************************
c************************          CHDEG           ***********************
c****************************                   ***************************
C**************************************************************************
C**************************************************************************
C       CHerche DEGre minimum.


C       cherche les noeuds qui ont le moins de liens possibles parmi les
C       NOERES (NOEuds REStants) et les renvoie dans NOEMIN (NOEuds de
C       MINinimum_degre).

        SUBROUTINE CHDEG(NPVOIS,NVOIS,NOERES,NOEUD,NBENS)
      IMPLICIT INTEGER(I-N)


        SEGMENT NPVOIS(0),NVOIS(0)
        INTEGER NBENS,COMPT,NOEUD
        SEGMENT NOERES(0),NOEMIN(0)

        INTEGER D
C       D correspond au degre minimum.
C       inialise pour chaque recherche a NBENS.


        D=NBENS
        N=NOERES(1)+1
        DO 10 I=2,N
                ID=NPVOIS(NOERES(I)+NBENS)-NPVOIS(NOERES(I))+1
C               ID= nbre de voisins de NOERES(I).
                IF (ID.LE.D) THEN
                        D=ID
                        NOEUD=NOERES(I)
C               NOEUD est le dernier noeud de NOERES de degre
C               inferieur a D.
                ENDIF

10      CONTINUE
        RETURN
        END