Mercurial > octave-nkf

diff liboctave/dMatrix.cc @ 3572:8d641545e006

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2000-02-03 21:39:48 by jwe]
author jwe
date Thu, 03 Feb 2000 21:39:50 +0000
parents 5eef8a2294bd
children 6ae6f1180e62
line wrap: on
line diff
--- a/liboctave/dMatrix.cc	Thu Feb 03 11:39:10 2000 +0000
+++ b/liboctave/dMatrix.cc	Thu Feb 03 21:39:50 2000 +0000
@@ -718,7 +718,7 @@
     F77_FCN (cfftb, CFFTB) (npts, &tmp_data[npts*j], pwsave);
 
   for (int j = 0; j < npts*nsamples; j++)
-    tmp_data[j] = tmp_data[j] / npts;
+    tmp_data[j] = tmp_data[j] / static_cast<double> (npts);
 
   return retval;
 }
@@ -818,7 +818,7 @@
     F77_FCN (cfftb, CFFTB) (npts, &tmp_data[npts*j], pwsave);
 
   for (int j = 0; j < npts*nsamples; j++)
-    tmp_data[j] = tmp_data[j] / npts;
+    tmp_data[j] = tmp_data[j] / static_cast<double> (npts);
 
   npts = nc;
   nsamples = nr;
@@ -840,7 +840,7 @@
       F77_FCN (cfftb, CFFTB) (npts, prow, pwsave);
 
       for (int i = 0; i < npts; i++)
-	tmp_data[i*nr + j] = prow[i] / npts;
+	tmp_data[i*nr + j] = prow[i] / static_cast<double> (npts);
     }
 
   return retval;