Mercurial > hg > octave-nkf

comparison liboctave/CmplxLU.cc @ 9694:50db3c5175b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
allow unpacked form of LU
author Jaroslav Hajek <highegg@gmail.com>
date Mon, 05 Oct 2009 15:39:44 +0200
parents eb63fbe60fab
children 6f3ffe11d926
comparison
equal deleted inserted replaced
9693:1c19877799d3 9694:50db3c5175b5
59 59
60 octave_idx_type info = 0; 60 octave_idx_type info = 0;
61 61
62 F77_XFCN (zgetrf, ZGETRF, (a_nr, a_nc, tmp_data, a_nr, pipvt, info)); 62 F77_XFCN (zgetrf, ZGETRF, (a_nr, a_nc, tmp_data, a_nr, pipvt, info));
63 63
64 ipvt -= static_cast<octave_idx_type> (1); 64 for (octave_idx_type i = 0; i < mn; i++)
65 pipvt[i] -= 1;
65 } 66 }
66 67
67 /* 68 /*
68 ;;; Local Variables: *** 69 ;;; Local Variables: ***
69 ;;; mode: C++ *** 70 ;;; mode: C++ ***