Télécharger la plaquette Cast3M


fr en

Télécharger chdeg.eso

Retour à la liste

Numérotation des lignes : 

chdeg

  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