Mercurial > octave
changeset 1248:961d2acf5e86
[project @ 1995-04-11 00:56:19 by jwe]
| author | jwe |
|---|---|
| date | Tue, 11 Apr 1995 00:56:19 +0000 |
| parents | 7bddfd169d27 |
| children | 86fc40576f22 |
| files | src/qzval.cc |
| diffstat | 1 files changed, 13 insertions(+), 13 deletions(-) [+] |
line wrap: on
line diff
--- a/src/qzval.cc Tue Apr 11 00:53:08 1995 +0000 +++ b/src/qzval.cc Tue Apr 11 00:56:19 1995 +0000 @@ -44,14 +44,14 @@ extern "C" { - int F77_FCN (qzhes) (const int*, const int*, double*, double*, const - long*, double*); + int F77_FCN (qzhes) (const int&, const int&, double*, double*, + const long&, double*); - int F77_FCN (qzit) (const int*, const int*, double*, double*, const - double*, const long*, double*, int*); + int F77_FCN (qzit) (const int&, const int&, double*, double*, + const double&, const long&, double*, int&); - int F77_FCN (qzval) (const int*, const int*, double*, double*, - double*, double*, double*, const long*, double*); + int F77_FCN (qzval) (const int&, const int&, double*, double*, + double*, double*, double*, const long&, double*); } DEFUN_DLD_BUILTIN ("qzval", Fqzval, Sqzval, 3, 1, @@ -135,20 +135,20 @@ // Use EISPACK qz functions. - F77_FCN (qzhes) (&a_nr, &a_nr, ca.fortran_vec (), - cb.fortran_vec (), &matz, jnk.fortran_vec ()); + F77_FCN (qzhes) (a_nr, a_nr, ca.fortran_vec (), + cb.fortran_vec (), matz, jnk.fortran_vec ()); - F77_FCN (qzit) (&a_nr, &a_nr, ca.fortran_vec (), - cb.fortran_vec (), &eps, &matz, - jnk.fortran_vec (), &info); + F77_FCN (qzit) (a_nr, a_nr, ca.fortran_vec (), + cb.fortran_vec (), eps, matz, + jnk.fortran_vec (), info); if (info) error ("qzval: trouble in qzit, info = %d", info); - F77_FCN (qzval) (&a_nr, &a_nr, ca.fortran_vec (), + F77_FCN (qzval) (a_nr, a_nr, ca.fortran_vec (), cb.fortran_vec (), alfr.fortran_vec (), alfi.fortran_vec (), beta.fortran_vec (), - &matz, jnk.fortran_vec ()); + matz, jnk.fortran_vec ()); // Count and extract finite generalized eigenvalues.