5025 IF KT=1 THEN TOL=100*X*SQR((XNM-XNP)*PQ/((XNP-1)*XNM))