diff --git a/math/csint.f b/math/csint.f
index 26d2612409..03c22639a1 100644
--- a/math/csint.f
+++ b/math/csint.f
@@ -254,7 +254,7 @@ Subroutine C9INI(ndata,xdata,fdata,dfdata,break,c)
       Do j = 1,ndata
             idx(j) = j
       Enddo
-      Call SVRGP(ndata,xdata,break,1,idx)
+      Call SVRGP(ndata,xdata,break,.true.,idx)
       Do j = 1,ndata
             c(1,idx(j)) = fdata(j)
             c(2,idx(j)) = dfdata(j)
diff --git a/math/dcsint.f b/math/dcsint.f
index e574b365b4..3a0682b136 100644
--- a/math/dcsint.f
+++ b/math/dcsint.f
@@ -248,7 +248,7 @@ Subroutine DC9INI(ndata,xdata,fdata,dfdata,break,c)
       Do j = 1,ndata
             idx(j) = j
       Enddo
-      Call DSVRGP(ndata,xdata,break,1,idx)
+      Call DSVRGP(ndata,xdata,break,.true.,idx)
       Do j = 1,ndata
             c(1,idx(j)) = fdata(j)
             c(2,idx(j)) = dfdata(j)