Mercurial > octave

diff liboctave/numeric/eigs-base.cc @ 29931:7faff48840eb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 e7c10a552ecc
children f3f3e3793fb5
line wrap: on
line diff
--- a/liboctave/numeric/eigs-base.cc	Fri Jul 30 17:34:10 2021 +0200
+++ b/liboctave/numeric/eigs-base.cc	Fri Jul 30 11:46:05 2021 -0400
@@ -245,7 +245,7 @@
   double rcond;
   MatrixType ltyp (MatrixType::Lower);
   M retval (n, b_nc);
-  const double *qv = Q.fortran_vec ();
+  const double *qv = Q.data ();
   for (octave_idx_type j = 0; j < b_nc; j++)
     {
       for (octave_idx_type i = 0; i < n; i++)
@@ -266,7 +266,7 @@
   MatrixType utyp (MatrixType::Upper);
   M tmp = U.solve (utyp, m, err, rcond, nullptr);
   M retval;
-  const double *qv = Q.fortran_vec ();
+  const double *qv = Q.data ();
 
   if (! err)
     {
@@ -537,7 +537,7 @@
           if (cholB)
             {
               Matrix tmp = sigma * b.transpose () * b;
-              const double *pB = permB.fortran_vec ();
+              const double *pB = permB.data ();
               double *p = AminusSigmaB.fortran_vec ();
 
               if (permB.numel ())
@@ -719,7 +719,7 @@
           if (cholB)
             {
               ComplexMatrix tmp = sigma * b.hermitian () * b;
-              const double *pB = permB.fortran_vec ();
+              const double *pB = permB.data ();
               Complex *p = AminusSigmaB.fortran_vec ();
 
               if (permB.numel ())