PROGRAM D10R13
	PARAMETER (NCITY=10)
	DIMENSION X(NCITY),Y(NCITY),IORDER(NCITY)
C	Create points of sale
	IDUM=-111
	DO 11 I=1,NCITY
		X(I)=RAN3(IDUM)
		Y(I)=RAN3(IDUM)
		IORDER(I)=I
11	CONTINUE
	CALL ANNEAL(X,Y,IORDER,NCITY)
	WRITE(*,*) '*** System Frozen ***'
	WRITE(*,*) 'Final path:'
	WRITE(*,'(1X,T3,A,T13,A,T23,A)') 'city','x','y'
	DO 12 I=1,NCITY
		II=IORDER(I)
		WRITE(*,'(1X,I4,2F10.4)') II,X(II),Y(II)
12	CONTINUE
	END