diff --git a/cephes-double/fresnl.c b/cephes-double/fresnl.c index 0d98cf8..6f88a36 100644 --- a/cephes-double/fresnl.c +++ b/cephes-double/fresnl.c @@ -488,7 +488,6 @@ if( x > 36974.0 ) /* Asymptotic power series auxiliary functions * for large argument */ - x2 = x * x; t = PI * x2; u = 1.0/(t * t); t = 1.0/t; diff --git a/cephes-single/fresnlf.c b/cephes-single/fresnlf.c index bb7f94c..59a150b 100644 --- a/cephes-single/fresnlf.c +++ b/cephes-single/fresnlf.c @@ -151,7 +151,6 @@ if( x > 36974.0 ) /* Asymptotic power series auxiliary functions * for large argument */ - x2 = x * x; t = PIF * x2; u = 1.0/(t * t); t = 1.0/t;