Sources Esope | Cast3M

degmin
C DEGMIN    SOURCE    CHAT      05/01/12    22:40:59     5004
C****************************************************************************
C****************************************************************************
C*************DEGMIN...DEGre MINinimum***************************************
C****************************************************************************
C****************************************************************************
C recherche du degre minimum,c-a-d du noeud qui a le moins de voisins ;
C le degre minimum est le nombre de voisins minimum.
C DEGMIN renvoie aussi un noeud, parmi ceux de deg. min., comme PIVOT.
 
 
 
        SUBROUTINE DEGMIN(IADJ,IVOIS,NOELON,PIVOT,DIMLON)
      IMPLICIT INTEGER(I-N)
        SEGMENT IADJ(0)
        SEGMENT IVOIS(0),NOELON(0)
        INTEGER PIVOT,DIMLON
        INTEGER DEG,X,DX
        DEG=IADJ(/1)
        DO 10 I=1,DIMLON
                X=NOELON(I)
                DX=IADJ(X+1)-IADJ(X)+1
                IF(DX.LE.DEG) THEN
                        DEG=DX
                        PIVOT=X
                ENDIF
10      CONTINUE
        RETURN
        END