Mercurial > octave-libgccjit
diff examples/mysparse.c @ 9932:6cb30a539481
untabify files in examples directory
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Mon, 07 Dec 2009 14:53:20 -0500 |
| parents | 4295d634797d |
| children | 9a8dbd6b6b20 |
line wrap: on
line diff
--- a/examples/mysparse.c Mon Dec 07 14:49:48 2009 -0500 +++ b/examples/mysparse.c Mon Dec 07 14:53:20 2009 -0500 @@ -2,7 +2,7 @@ void mexFunction (int nlhs, mxArray *plhs[], int nrhs, - const mxArray *prhs[]) + const mxArray *prhs[]) { mwSize n, m, nz; mxArray *v; @@ -22,7 +22,7 @@ if (mxIsComplex (prhs[0])) { mexPrintf ("Matrix is %d-by-%d complex", - " sparse matrix", m, n); + " sparse matrix", m, n); mexPrintf (" with %d elements\n", nz); pr = mxGetPr (prhs[0]); @@ -33,7 +33,7 @@ i = n; while (jc[i] == jc[i-1] && i != 0) i--; mexPrintf ("last non-zero element (%d, %d) =", - ir[nz-1]+ 1, i); + ir[nz-1]+ 1, i); mexPrintf (" (%g, %g)\n", pr[nz-1], pi[nz-1]); v = mxCreateSparse (m, n, nz, mxCOMPLEX); @@ -58,7 +58,7 @@ { bool *pbr, *pbr2; mexPrintf ("Matrix is %d-by-%d logical", - " sparse matrix", m, n); + " sparse matrix", m, n); mexPrintf (" with %d elements\n", nz); pbr = mxGetLogicals (prhs[0]); @@ -89,7 +89,7 @@ else { mexPrintf ("Matrix is %d-by-%d real", - " sparse matrix", m, n); + " sparse matrix", m, n); mexPrintf (" with %d elements\n", nz); pr = mxGetPr (prhs[0]);