Mercurial > octave
comparison libinterp/corefcn/__dsearchn__.cc @ 29931:7faff48840eb
prefer data over fortran_vec for read-only access to data
See also the discussion here: https://octave.discourse.group/t/rename-uses-of-fortran-vec-to-data-for-clarity/1439
* Array.h (const T * Array<T>::fortran_vec (void) const): Deprecate.
Change all uses to call data instead.
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Fri, 30 Jul 2021 11:46:05 -0400 |
| parents | 7854d5752dd2 |
| children | 32c3a5805893 |
comparison
equal
deleted
inserted
replaced
| 29930:aa98b5fdfbbb | 29931:7faff48840eb |
|---|---|
| 66 double yd = y[k] - yi[k]; \ | 66 double yd = y[k] - yi[k]; \ |
| 67 dd += yd * yd; \ | 67 dd += yd * yd; \ |
| 68 } \ | 68 } \ |
| 69 dd = sqrt (dd) | 69 dd = sqrt (dd) |
| 70 | 70 |
| 71 const double *pxi = xi.fortran_vec (); | 71 const double *pxi = xi.data (); |
| 72 for (octave_idx_type i = 0; i < nxi; i++) | 72 for (octave_idx_type i = 0; i < nxi; i++) |
| 73 { | 73 { |
| 74 double d0; | 74 double d0; |
| 75 const double *px = x.fortran_vec (); | 75 const double *px = x.data (); |
| 76 DIST(d0, px, pxi, n); | 76 DIST(d0, px, pxi, n); |
| 77 *pidx = 1.; | 77 *pidx = 1.; |
| 78 for (octave_idx_type j = 1; j < nx; j++) | 78 for (octave_idx_type j = 1; j < nx; j++) |
| 79 { | 79 { |
| 80 px += n; | 80 px += n; |