Mercurial > hg > octave-lyh
diff liboctave/CmplxAEPBAL.cc @ 1253:bb67a902760b
[project @ 1995-04-11 16:35:23 by jwe]
| author | jwe |
|---|---|
| date | Tue, 11 Apr 1995 16:35:23 +0000 |
| parents | 97eac19837dc |
| children | f93b7fa5e113 |
line wrap: on
line diff
--- a/liboctave/CmplxAEPBAL.cc +++ b/liboctave/CmplxAEPBAL.cc @@ -31,12 +31,14 @@ extern "C" { - int F77_FCN (zgebal) (const char*, const int&, Complex*, const int&, - int&, int&, double*, int&, long, long); + int F77_FCN (zgebal, ZGEBAL) (const char*, const int&, Complex*, + const int&, int&, int&, double*, int&, + long, long); - int F77_FCN (zgebak) (const char*, const char*, const int&, const int&, - const int&, double*, const int&, Complex*, - const int&, int&, long, long); + int F77_FCN (zgebak, ZGEBAK) (const char*, const char*, const int&, + const int&, const int&, double*, const + int&, Complex*, const int&, int&, + long, long); } int @@ -56,8 +58,9 @@ balanced_mat = a; - F77_FCN (zgebal) (balance_job, n, balanced_mat.fortran_vec (), - n, ilo, ihi, scale, info, 1L, 1L); + F77_FCN (zgebal, ZGEBAL) (balance_job, n, + balanced_mat.fortran_vec (), n, ilo, ihi, + scale, info, 1L, 1L); // Initialize balancing matrix to identity. @@ -65,8 +68,9 @@ for (int i = 0; i < n; i++) balancing_mat (i, i) = 1.0; - F77_FCN (zgebak) (balance_job, "R", n, ilo, ihi, scale, n, - balancing_mat.fortran_vec (), n, info, 1L, 1L); + F77_FCN (zgebak, ZGEBAK) (balance_job, "R", n, ilo, ihi, scale, n, + balancing_mat.fortran_vec (), n, info, 1L, + 1L); delete [] scale;