Mercurial > hg > octave-nkf
diff liboctave/dbleAEPBAL.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/dbleAEPBAL.cc +++ b/liboctave/dbleAEPBAL.cc @@ -30,13 +30,14 @@ extern "C" { - int F77_FCN (dgebal) (const char*, const int&, double*, - const int&, int&, int&, double*, - int&, long, long); + int F77_FCN (dgebal, DGEBAL) (const char*, const int&, double*, + const int&, int&, int&, double*, + int&, long, long); - int F77_FCN (dgebak) (const char*, const char*, const int&, const int&, - const int&, double*, const int&, double*, const int&, - int&, long, long); + int F77_FCN (dgebak, DGEBAK) (const char*, const char*, const int&, + const int&, const int&, double*, + const int&, double*, const int&, + int&, long, long); } int @@ -62,8 +63,9 @@ balanced_mat = a; - F77_FCN (dgebal) (balance_job, n, balanced_mat.fortran_vec (), - n, ilo, ihi, scale, info, 1L, 1L); + F77_FCN (dgebal, DGEBAL) (balance_job, n, + balanced_mat.fortran_vec (), n, ilo, ihi, + scale, info, 1L, 1L); // Initialize balancing matrix to identity. @@ -71,8 +73,9 @@ for (int i = 0; i < n; i++) balancing_mat.elem (i ,i) = 1.0; - F77_FCN (dgebak) (balance_job, "R", n, ilo, ihi, scale, n, - balancing_mat.fortran_vec (), n, info, 1L, 1L); + F77_FCN (dgebak, DGEBAK) (balance_job, "R", n, ilo, ihi, scale, n, + balancing_mat.fortran_vec (), n, info, 1L, + 1L); delete [] scale;