Mercurial > hg > octave-nkf
diff liboctave/CmplxSCHUR.cc @ 4552:6f3382e08a52
[project @ 2003-10-27 20:38:02 by jwe]
| author | jwe |
|---|---|
| date | Mon, 27 Oct 2003 20:38:03 +0000 |
| parents | 5719210fff4c |
| children | c2bb27ada496 |
line wrap: on
line diff
--- a/liboctave/CmplxSCHUR.cc +++ b/liboctave/CmplxSCHUR.cc @@ -34,13 +34,18 @@ extern "C" { - int F77_FUNC (zgeesx, ZGEESX) (const char*, const char*, - ComplexSCHUR::select_function, - const char*, const int&, Complex*, - const int&, int&, Complex*, Complex*, - const int&, double&, double&, - Complex*, const int&, double*, int*, - int&, long, long, long); + F77_RET_T + F77_FUNC (zgeesx, ZGEESX) (F77_CONST_CHAR_ARG_DECL, + F77_CONST_CHAR_ARG_DECL, + ComplexSCHUR::select_function, + F77_CONST_CHAR_ARG_DECL, + const int&, Complex*, const int&, int&, + Complex*, Complex*, const int&, double&, + double&, Complex*, const int&, double*, int*, + int& + F77_CHAR_ARG_LEN_DECL + F77_CHAR_ARG_LEN_DECL + F77_CHAR_ARG_LEN_DECL); } static int @@ -113,9 +118,15 @@ Array<int> bwork ((ord_char == 'N' || ord_char == 'n') ? 0 : n); int *pbwork = bwork.fortran_vec (); - F77_XFCN (zgeesx, ZGEESX, (&jobvs, &sort, selector, &sense, n, s, n, - sdim, pw, q, n, rconde, rcondv, pwork, - lwork, prwork, pbwork, info, 1L, 1L, 1L)); + F77_XFCN (zgeesx, ZGEESX, (F77_CONST_CHAR_ARG2 (&jobvs, 1), + F77_CONST_CHAR_ARG2 (&sort, 1), + selector, + F77_CONST_CHAR_ARG2 (&sense, 1), + n, s, n, sdim, pw, q, n, rconde, rcondv, + pwork, lwork, prwork, pbwork, info + F77_CHAR_ARG_LEN (1) + F77_CHAR_ARG_LEN (1) + F77_CHAR_ARG_LEN (1))); if (f77_exception_encountered) (*current_liboctave_error_handler) ("unrecoverable error in zgeesx");