Télécharger chdeg.eso

Retour à la liste

Numérotation des lignes :

  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.  
  45.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales