fix type compatibility when compiling with Intel Fortran (ifort)

MDSplus · Apr 6, 2023 · 6899a74 · 6899a74
1 parent 84d8084
commit 6899a74
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git 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
@@ -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)