Mercurial > octave
diff liboctave/array/fMatrix.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 | 3cb8519fed0f |
children | 1e277c6b6626 |
line wrap: on
line diff
--- a/liboctave/array/fMatrix.cc Fri Jul 30 17:34:10 2021 +0200 +++ b/liboctave/array/fMatrix.cc Fri Jul 30 11:46:05 2021 -0400 @@ -739,7 +739,7 @@ nsamples = nc; } - const float *in (fortran_vec ()); + const float *in (data ()); FloatComplex *out (retval.fortran_vec ()); octave::fftw::fft (in, out, npts, nsamples); @@ -782,7 +782,7 @@ { dim_vector dv (rows (), cols ()); - const float *in = fortran_vec (); + const float *in = data (); FloatComplexMatrix retval (rows (), cols ()); octave::fftw::fftNd (in, retval.fortran_vec (), 2, dv); @@ -1045,7 +1045,7 @@ // Only calculate the condition number for LU/Cholesky if (typ == MatrixType::Upper) { - const float *tmp_data = fortran_vec (); + const float *tmp_data = data (); F77_INT info = 0; char norm = '1'; char uplo = 'U'; @@ -1073,7 +1073,7 @@ ("permuted triangular matrix not implemented"); else if (typ == MatrixType::Lower) { - const float *tmp_data = fortran_vec (); + const float *tmp_data = data (); F77_INT info = 0; char norm = '1'; char uplo = 'L'; @@ -1219,7 +1219,7 @@ ("permuted triangular matrix not implemented"); else { - const float *tmp_data = fortran_vec (); + const float *tmp_data = data (); retval = b; float *result = retval.fortran_vec (); @@ -1322,7 +1322,7 @@ ("permuted triangular matrix not implemented"); else { - const float *tmp_data = fortran_vec (); + const float *tmp_data = data (); retval = b; float *result = retval.fortran_vec ();