Mercurial > octave-nkf
diff liboctave/CMatrix.cc @ 1950:ab6abe89aaa1
[project @ 1996-02-14 04:36:21 by jwe]
author | jwe |
---|---|
date | Wed, 14 Feb 1996 04:38:44 +0000 |
parents | d7dec93d4b87 |
children | a2e206524aa0 |
line wrap: on
line diff
--- a/liboctave/CMatrix.cc Wed Feb 14 04:28:46 1996 +0000 +++ b/liboctave/CMatrix.cc Wed Feb 14 04:38:44 1996 +0000 @@ -3685,16 +3685,23 @@ double scale; int info; + + Complex *pa = sch_a.fortran_vec (); + Complex *pb = sch_b.fortran_vec (); + Complex *px = cx.fortran_vec (); - F77_FCN (ztrsyl, ZTRSYL) ("N", "N", 1, a_nr, b_nr, - sch_a.fortran_vec (), a_nr, - sch_b.fortran_vec (), b_nr, - cx.fortran_vec (), a_nr, scale, - info, 1L, 1L); - - // XXX FIXME XXX -- check info? - - retval = -ua * cx * ub.hermitian (); + F77_XFCN (ztrsyl, ZTRSYL, ("N", "N", 1, a_nr, b_nr, pa, a_nr, pb, + b_nr, px, a_nr, scale, + info, 1L, 1L)); + + if (f77_exception_encountered) + (*current_liboctave_error_handler) ("unrecoverable error in ztrsyl"); + else + { + // XXX FIXME XXX -- check info? + + retval = -ua * cx * ub.hermitian (); + } return retval; }