# HG changeset patch
# User jwe
# Date 948495686 0
# Node ID fe0c38ca9d826d0c95574dabf4c1f60a900d5a31
# Parent  a2dc6de198f9840183d2657e0e9be45bfc200502
[project @ 2000-01-21 23:01:26 by jwe]

diff -r a2dc6de198f9 -r fe0c38ca9d82 liboctave/CMatrix.cc
--- a/liboctave/CMatrix.cc	Fri Jan 21 22:13:13 2000 +0000
+++ b/liboctave/CMatrix.cc	Fri Jan 21 23:01:26 2000 +0000
@@ -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)
     {
diff -r a2dc6de198f9 -r fe0c38ca9d82 liboctave/dMatrix.cc
--- a/liboctave/dMatrix.cc	Fri Jan 21 22:13:13 2000 +0000
+++ b/liboctave/dMatrix.cc	Fri Jan 21 23:01:26 2000 +0000
@@ -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)
     {