Mercurial > hg > octave-nkf

diff liboctave/CMatrix.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 2923f52d8fda
line wrap: on
line diff
--- a/liboctave/CMatrix.cc
+++ b/liboctave/CMatrix.cc
@@ -1026,7 +1026,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;
 }
@@ -1126,7 +1126,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;
@@ -1148,7 +1148,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;