Mercurial > hg > octave-nkf

comparison liboctave/sparse-dmsolve.cc @ 11570:57632dea2446

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
attempt better backward compatibility for Array constructors
author John W. Eaton <jwe@octave.org>
date Wed, 19 Jan 2011 17:55:56 -0500
parents fd0a3ac60b0e
children a83bad07f7e3
comparison
equal deleted inserted replaced
11569:7e9a111cae20 11570:57632dea2446
128 if (c1 > c2) { octave_idx_type tmp = c1; c1 = c2; c2 = tmp; } 128 if (c1 > c2) { octave_idx_type tmp = c1; c1 = c2; c2 = tmp; }
129 129
130 octave_idx_type new_r = r2 - r1 + 1; 130 octave_idx_type new_r = r2 - r1 + 1;
131 octave_idx_type new_c = c2 - c1 + 1; 131 octave_idx_type new_c = c2 - c1 + 1;
132 132
133 MArray<T> result (new_r, new_c); 133 MArray<T> result (dim_vector (new_r, new_c));
134 134
135 for (octave_idx_type j = 0; j < new_c; j++) 135 for (octave_idx_type j = 0; j < new_c; j++)
136 for (octave_idx_type i = 0; i < new_r; i++) 136 for (octave_idx_type i = 0; i < new_r; i++)
137 result.xelem (i, j) = m.elem (r1+i, c1+j); 137 result.xelem (i, j) = m.elem (r1+i, c1+j);
138 138