Esope source files

   1 : C CHDEG     SOURCE    CHAT      05/01/12    21:56:14     5004           
   2 : C**************************************************************************
   3 : C**************************************************************************
   4 : C****************************                   ***************************
   5 : c************************          CHDEG           ***********************
   6 : c****************************                   ***************************
   7 : C**************************************************************************
   8 : C**************************************************************************
   9 : C       CHerche DEGre minimum.
  10 : 
  11 : 
  12 : C       cherche les noeuds qui ont le moins de liens possibles parmi les 
  13 : C       NOERES (NOEuds REStants) et les renvoie dans NOEMIN (NOEuds de
  14 : C       MINinimum_degre).
  15 : 
  16 :         SUBROUTINE CHDEG(NPVOIS,NVOIS,NOERES,NOEUD,NBENS)
  17 :       IMPLICIT INTEGER(I-N)
  18 :         
  19 : 
  20 :         SEGMENT NPVOIS(0),NVOIS(0)
  21 :         INTEGER NBENS,COMPT,NOEUD
  22 :         SEGMENT NOERES(0),NOEMIN(0)
  23 :         
  24 :         INTEGER D
  25 : C       D correspond au degre minimum.
  26 : C       inialise pour chaque recherche a NBENS.
  27 : 
  28 :         
  29 :         D=NBENS
  30 :         N=NOERES(1)+1
  31 :         DO 10 I=2,N
  32 :                 ID=NPVOIS(NOERES(I)+NBENS)-NPVOIS(NOERES(I))+1
  33 : C               ID= nbre de voisins de NOERES(I).
  34 :                 IF (ID.LE.D) THEN
  35 :                         D=ID
  36 :                         NOEUD=NOERES(I)
  37 : C               NOEUD est le dernier noeud de NOERES de degre
  38 : C               inferieur a D.
  39 :                 ENDIF
  40 : 
  41 : 10      CONTINUE
  42 :         RETURN
  43 :         END
  44 :