Mercurial > hg > octave-lyh

diff liboctave/dMatrix.cc @ 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 45742a3b1f7c
line wrap: on
line diff
--- 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)
     {