Mercurial > octave-nkf

comparison src/data.cc @ 7919:9d080df0c843

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
new NDArray constructor for ArrayN<octave_idx_type>
author David Bateman <dbateman@free.fr>
date Mon, 30 Jun 2008 15:51:31 +0200
parents e998e81224b5
children 139f47cf17ab
comparison
equal deleted inserted replaced
7918:78eef61f75d5 7919:9d080df0c843
5246 if (return_idx) 5246 if (return_idx)
5247 { 5247 {
5248 Array<octave_idx_type> sidx; 5248 Array<octave_idx_type> sidx;
5249 5249
5250 retval (0) = arg.sort (sidx, dim, smode); 5250 retval (0) = arg.sort (sidx, dim, smode);
5251 5251 retval (1) = NDArray (sidx, true);
5252 octave_idx_type *ps = sidx.fortran_vec ();
5253 NDArray midx (sidx.dims ());
5254 double *pm = midx.fortran_vec ();
5255
5256 for (octave_idx_type i = 0; i < sidx.numel (); i++)
5257 pm [i] = static_cast<double>
5258 (ps [i] + static_cast<octave_idx_type> (1));
5259
5260 retval (1) = midx;
5261 } 5252 }
5262 else 5253 else
5263 retval(0) = arg.sort (dim, smode); 5254 retval(0) = arg.sort (dim, smode);
5264 5255
5265 return retval; 5256 return retval;