4990 IF KT=1 THEN TOL=X*XK*SQR((1-XNM/XNP)/XNM)