Mercurial > hg > octave-lojdl
changeset 3469:fe0c38ca9d82
[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) {