ton.for

conjugate gradient source code

	PROGRAM TON
	DIMENSION X(2),Y(2),GX(2)
	IOBF=1
	IDER=1
	X(1)=-1.2
	X(2)=1.5
	CALL PRP(X,Y,FY,GX,2,1000,ICOVG,0.000001,1)
	WRITE(6,1)Y,FY,ICOVG
1	FORMAT(5X,3E21.10,2X,I5//)
	STOP
	END