Esope source files

   1 : C DEGMIN    SOURCE    CHAT      05/01/12    22:40:59     5004           
   2 : C****************************************************************************
   3 : C****************************************************************************
   4 : C*************DEGMIN...DEGre MINinimum***************************************
   5 : C****************************************************************************
   6 : C****************************************************************************
   7 : C recherche du degre minimum,c-a-d du noeud qui a le moins de voisins ;
   8 : C le degre minimum est le nombre de voisins minimum.
   9 : C DEGMIN renvoie aussi un noeud, parmi ceux de deg. min., comme PIVOT.
  10 : 
  11 : 
  12 : 
  13 :         SUBROUTINE DEGMIN(IADJ,IVOIS,NOELON,PIVOT,DIMLON) 
  14 :       IMPLICIT INTEGER(I-N)
  15 :         SEGMENT IADJ(0)
  16 :         SEGMENT IVOIS(0),NOELON(0)
  17 :         INTEGER PIVOT,DIMLON          
  18 :         INTEGER DEG,X,DX        
  19 :         DEG=IADJ(/1)
  20 :         DO 10 I=1,DIMLON
  21 :                 X=NOELON(I)
  22 :                 DX=IADJ(X+1)-IADJ(X)+1
  23 :                 IF(DX.LE.DEG) THEN
  24 :                         DEG=DX
  25 :                         PIVOT=X
  26 :                 ENDIF
  27 : 10      CONTINUE
  28 :         RETURN
  29 :         END
  30 :