C DEGMIN SOURCE CHAT 05/01/12 22:40:59 5004 C**************************************************************************** C**************************************************************************** C*************DEGMIN...DEGre MINinimum*************************************** C**************************************************************************** C**************************************************************************** C recherche du degre minimum,c-a-d du noeud qui a le moins de voisins ; C le degre minimum est le nombre de voisins minimum. C DEGMIN renvoie aussi un noeud, parmi ceux de deg. min., comme PIVOT. SUBROUTINE DEGMIN(IADJ,IVOIS,NOELON,PIVOT,DIMLON) IMPLICIT INTEGER(I-N) SEGMENT IADJ(0) SEGMENT IVOIS(0),NOELON(0) INTEGER PIVOT,DIMLON INTEGER DEG,X,DX DEG=IADJ(/1) DO 10 I=1,DIMLON X=NOELON(I) DX=IADJ(X+1)-IADJ(X)+1 IF(DX.LE.DEG) THEN DEG=DX PIVOT=X ENDIF 10 CONTINUE RETURN END