Mercurial > octave-nkf
diff liboctave/sparse-dmsolve.cc @ 5792:eb90c83b4f91
[project @ 2006-05-04 20:14:49 by dbateman]
| author | dbateman |
|---|---|
| date | Thu, 04 May 2006 20:14:50 +0000 |
| parents | 6b9cec830d72 |
| children | 1138ced03f14 |
line wrap: on
line diff
--- a/liboctave/sparse-dmsolve.cc Thu May 04 18:38:45 2006 +0000 +++ b/liboctave/sparse-dmsolve.cc Thu May 04 20:14:50 2006 +0000 @@ -387,9 +387,15 @@ csm.p = const_cast<octave_idx_type *>(a.cidx ()); csm.i = const_cast<octave_idx_type *>(a.ridx ()); +#if defined(CS_VER) && (CS_VER >= 2) + CXSPARSE_DNAME (d) *dm = CXSPARSE_DNAME(_dmperm) (&csm, 0); + octave_idx_type *p = dm->p; + octave_idx_type *q = dm->q; +#else CXSPARSE_DNAME (d) *dm = CXSPARSE_DNAME(_dmperm) (&csm); octave_idx_type *p = dm->P; octave_idx_type *q = dm->Q; +#endif OCTAVE_LOCAL_BUFFER (octave_idx_type, pinv, nr); for (octave_idx_type i = 0; i < nr; i++) pinv [p [i]] = i;