adjusting IC computation after the extension of the coverage of the m…

…assive CFs
scarrazza · May 6, 2016 · 2cd8fc1 · 2cd8fc1
1 parent 67c5ca5
commit 2cd8fc1
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/DIS/integrandsIC.f b/src/DIS/integrandsIC.f
@@ -51,7 +51,7 @@ function integrandsICm(y)
       double precision integrandsICm
 *
       integrandsICm = 0d0
-      if(y.ge.1d0) return
+      if(y.ge.one) return
 *
 *     Interpolant functions
 *

diff --git a/src/commons/wrapIC.h b/src/commons/wrapIC.h
@@ -6,7 +6,7 @@
       double precision m2strange
       parameter(m2strange = 0.01d0)
       double precision one
-      parameter(one=0.9999999999999999d0)
+      parameter(one=0.999999999999999d0)
 *
       double precision Q2IC,m12,m22,m1,m2
       double precision Splus,Sminus,Rplus,Rminus