Mercurial > hg > octave-jordi

comparison liboctave/CMatrix.cc @ 6482:7e958a1532c6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-04-04 02:37:07 by jwe]
author jwe
date Wed, 04 Apr 2007 02:37:07 +0000
parents 2ee8293554a3
children e978a9233cf6
comparison
equal deleted inserted replaced
6481:89ed13fec6fe 6482:7e958a1532c6
983 ComplexMatrix 983 ComplexMatrix
984 ComplexMatrix::inverse (octave_idx_type& info, double& rcond, int force, 984 ComplexMatrix::inverse (octave_idx_type& info, double& rcond, int force,
985 int calc_cond) const 985 int calc_cond) const
986 { 986 {
987 MatrixType mattype (*this); 987 MatrixType mattype (*this);
988 return inverse (mattype, info, rcond, 0, 0); 988 return inverse (mattype, info, rcond, force, calc_cond);
989 } 989 }
990 990
991 ComplexMatrix 991 ComplexMatrix
992 ComplexMatrix::inverse (MatrixType &mattype) const 992 ComplexMatrix::inverse (MatrixType &mattype) const
993 { 993 {
1039 else if (calc_cond) 1039 else if (calc_cond)
1040 { 1040 {
1041 octave_idx_type ztrcon_info = 0; 1041 octave_idx_type ztrcon_info = 0;
1042 char job = '1'; 1042 char job = '1';
1043 1043
1044 OCTAVE_LOCAL_BUFFER (Complex, cwork, 2 * nr); 1044 OCTAVE_LOCAL_BUFFER (Complex, cwork, 2*nr);
1045 OCTAVE_LOCAL_BUFFER (double, rwork, nr); 1045 OCTAVE_LOCAL_BUFFER (double, rwork, nr);
1046 1046
1047 F77_XFCN (ztrcon, ZTRCON, (F77_CONST_CHAR_ARG2 (&job, 1), 1047 F77_XFCN (ztrcon, ZTRCON, (F77_CONST_CHAR_ARG2 (&job, 1),
1048 F77_CONST_CHAR_ARG2 (&uplo, 1), 1048 F77_CONST_CHAR_ARG2 (&uplo, 1),
1049 F77_CONST_CHAR_ARG2 (&udiag, 1), 1049 F77_CONST_CHAR_ARG2 (&udiag, 1),