Mercurial > hg > octave-nkf

changeset 3469:fe0c38ca9d82

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2000-01-21 23:01:26 by jwe]
author jwe
date Fri, 21 Jan 2000 23:01:26 +0000
parents a2dc6de198f9
children b3a16793a390
files liboctave/CMatrix.cc liboctave/dMatrix.cc
diffstat 2 files changed, 6 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/liboctave/CMatrix.cc
+++ b/liboctave/CMatrix.cc
@@ -1614,7 +1614,7 @@
   // Permute first
   char job = 'P';
   F77_XFCN (zgebal, ZGEBAL, (&job, nc, mp, nc, ilo, ihi,
-            dpermute.fortran_vec(), info, 1L, 1L));
+            dpermute.fortran_vec (), info, 1L, 1L));
 
   if (f77_exception_encountered)
     {
@@ -1625,7 +1625,7 @@
   // then scale
   job = 'S';
   F77_XFCN (zgebal, ZGEBAL, (&job, nc, mp, nc, ilos, ihis,
-            dscale.fortran_vec(), info, 1L, 1L));
+            dscale.fortran_vec (), info, 1L, 1L));
 
   if (f77_exception_encountered)
     {
--- a/liboctave/dMatrix.cc
+++ b/liboctave/dMatrix.cc
@@ -1359,17 +1359,16 @@
   int info, ilo, ihi, ilos, ihis;
   Array<double> dpermute (nc);
   Array<double> dscale (nc);
-  double *dp;
 
   // permutation first
   char job = 'P';
-  dp = dpermute.fortran_vec();
-  F77_XFCN (dgebal, DGEBAL, (&job, nc, p_m, nc, ilo, ihi, dp, info, 1L, 1L));
+  F77_XFCN (dgebal, DGEBAL, (&job, nc, p_m, nc, ilo, ihi,
+			     dpermute.fortran_vec (), info, 1L, 1L));
 
   // then scaling
   job = 'S';
-  dp = dscale.fortran_vec();
-  F77_XFCN (dgebal, DGEBAL, (&job, nc, p_m, nc, ilos, ihis, dp, info, 1L, 1L));
+  F77_XFCN (dgebal, DGEBAL, (&job, nc, p_m, nc, ilos, ihis,
+			     dscale.fortran_vec (), info, 1L, 1L));
 
   if (f77_exception_encountered)
     {