Quiet more warnings.

admb-project · Dec 8, 2023 · 91233da · 91233da
1 parent c5b5d6d
commit 91233da
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/src/linad99/dvsort2.cpp b/src/linad99/dvsort2.cpp
@@ -57,10 +57,10 @@ dvector sort(const dvector& v, int NSTACK)
       i=l;
       j=ir;
       fx=(fx*FA+FC) % FM;
-      iq=l+((ir-l+1)*fx)/FM;
+      iq=l+((ir-l+1)*static_cast<int>(fx))/FM;
       if (iq<=0)
       {
-        iq=l+((ir-l+1.0)*fx)/FM;
+        iq=l+((ir-l+1)*static_cast<int>(fx))/FM;
       } 
       a=arr[iq];
       arr[iq]=arr[l];
@@ -176,10 +176,10 @@ dvector sort(const dvector& _v, const ivector& _index, int NSTACK)
       i=l;
       j=ir;
       fx=(fx*FA+FC) % FM;
-      iq=l+((ir-l+1)*fx)/FM;
+      iq=l+((ir-l+1)*static_cast<int>(fx))/FM;
       if (iq<0)
       {
-        iq=l+((ir-l+1.0)*fx)/FM;
+        iq=l+((ir-l+1)*static_cast<int>(fx))/FM;
       }
       a=arr[iq];
       iii=index[iq];

diff --git a/src/linad99/ivsort2.cpp b/src/linad99/ivsort2.cpp
@@ -57,7 +57,7 @@ ivector sort(const ivector& v, int NSTACK)
       i=l;
       j=ir;
       fx=(fx*FA+FC) % FM;
-      iq=l+((ir-l+1)*fx)/FM;
+      iq=l+((ir-l+1)*static_cast<int>(fx))/FM;
       a=arr[iq];
       arr[iq]=arr[l];
       for (;;)
@@ -172,7 +172,7 @@ ivector sort(const ivector& _v, const ivector& _index, int NSTACK)
       i=l;
       j=ir;
       fx=(fx*FA+FC) % FM;
-      iq=l+((ir-l+1)*fx)/FM;
+      iq=l+((ir-l+1)*static_cast<int>(fx))/FM;
       a=arr[iq];
       iii=index[iq];
       arr[iq]=arr[l];