tonpow.for

POWELL方法数值计算源代码

	PROGRAM TONPOW
	DIMENSION X(2),Y(2)
	X(1)=-1.2
	X(2)=1.5
	CALL POWELL(X,Y,FY,2,5000,ICOVG,0.0001,0.0001,1)
	WRITE(6,1)Y,FY,ICOVG
1	FORMAT(5X,3E21.10,2X,I5//)
	STOP
	END