Télécharger degmin.eso

Retour à la liste

Numérotation des lignes :

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

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