Mercurial > octave
changeset 30394:f3f3e3793fb5 stable
maint: style check C++ files in liboctave/ ahead of 7.1 release.
* Array.cc, Array.h, CMatrix.cc, CSparse.cc, MArray.cc, MSparse.cc,
MatrixType.cc, MatrixType.h, Range.cc, Range.h, Sparse.cc, Sparse.h,
dMatrix.cc, dSparse.cc, fCMatrix.cc, fCMatrix.h, fMatrix.cc, fMatrix.h,
idx-vector.cc, idx-vector.h, CollocWt.cc, CollocWt.h, DASPK.cc, DASRT.cc,
DASSL.cc, EIG.cc, LSODE.cc, Quad.cc, aepbalance.cc, chol.cc, eigs-base.cc,
gepbalance.cc, gsvd.cc, lo-amos-proto.h, lo-arpack-proto.h, lo-blas-proto.h,
lo-lapack-proto.h, lo-qrupdate-proto.h, lo-specfun.cc, oct-convn.h, oct-fftw.h,
oct-norm.cc, oct-spparms.cc, randmtzig.cc, sparse-chol.cc, sparse-dmsolve.cc,
sparse-lu.cc, sparse-qr.cc, sparse-qr.h, svd.cc, file-ops.cc, file-stat.cc,
lo-sysinfo.cc, oct-env.cc, f77-fcn.h, lo-cutils.h, lo-ieee.h, lo-regexp.cc,
lo-utils.cc, oct-binmap.h, oct-inttypes.h, oct-sparse.cc, oct-sparse.h,
oct-string.cc, url-transfer.cc:
Style check C++ files in liboctave/ ahead of 7.1 release.
line wrap: on
line diff
--- a/liboctave/array/Array.cc Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/array/Array.cc Mon Nov 29 10:03:47 2021 -0800 @@ -1118,7 +1118,7 @@ octave_idx_type rhl = rhs.numel (); if (rhl != 1 && i.length (n) != rhl) - octave::err_nonconformant ("=", dim_vector(i.length(n),1), rhs.dims()); + octave::err_nonconformant ("=", dim_vector(i.length(n), 1), rhs.dims()); octave_idx_type nx = i.extent (n); bool colon = i.is_colon_equiv (nx); @@ -1870,7 +1870,7 @@ template <typename T> Array<T> -Array<T>::sort (Array<octave_idx_type> &sidx, int dim, +Array<T>::sort (Array<octave_idx_type>& sidx, int dim, sortmode mode) const { if (dim < 0 || dim >= ndims ())
--- a/liboctave/array/Array.h Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/array/Array.h Mon Nov 29 10:03:47 2021 -0800 @@ -533,7 +533,7 @@ OCTARRAY_API crefT checkelem (octave_idx_type i, octave_idx_type j) const; OCTARRAY_API crefT checkelem (octave_idx_type i, octave_idx_type j, - octave_idx_type k) const; + octave_idx_type k) const; OCTARRAY_API crefT checkelem (const Array<octave_idx_type>& ra_idx) const; @@ -640,8 +640,9 @@ return index (i, resize_ok, resize_fill_value ()); } - OCTARRAY_API Array<T> index (const octave::idx_vector& i, const octave::idx_vector& j, bool resize_ok, - const T& rfv) const; + OCTARRAY_API Array<T> index (const octave::idx_vector& i, const octave::idx_vector& j, + bool resize_ok, + const T& rfv) const; Array<T> index (const octave::idx_vector& i, const octave::idx_vector& j, bool resize_ok) const { @@ -649,7 +650,7 @@ } OCTARRAY_API Array<T> index (const Array<octave::idx_vector>& ia, bool resize_ok, - const T& rfv) const; + const T& rfv) const; Array<T> index (const Array<octave::idx_vector>& ia, bool resize_ok) const { return index (ia, resize_ok, resize_fill_value ()); @@ -664,8 +665,9 @@ assign (i, rhs, resize_fill_value ()); } - OCTARRAY_API void assign (const octave::idx_vector& i, const octave::idx_vector& j, const Array<T>& rhs, - const T& rfv); + OCTARRAY_API void assign (const octave::idx_vector& i, const octave::idx_vector& j, + const Array<T>& rhs, + const T& rfv); void assign (const octave::idx_vector& i, const octave::idx_vector& j, const Array<T>& rhs) { assign (i, j, rhs, resize_fill_value ()); @@ -714,8 +716,8 @@ OCTARRAY_API void print_info (std::ostream& os, const std::string& prefix) const; OCTARRAY_API Array<T> sort (int dim = 0, sortmode mode = ASCENDING) const; - OCTARRAY_API Array<T> sort (Array<octave_idx_type> &sidx, int dim = 0, - sortmode mode = ASCENDING) const; + OCTARRAY_API Array<T> sort (Array<octave_idx_type>& sidx, int dim = 0, + sortmode mode = ASCENDING) const; //! Ordering is auto-detected or can be specified. OCTARRAY_API sortmode issorted (sortmode mode = UNSORTED) const;
--- a/liboctave/array/CMatrix.cc Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/array/CMatrix.cc Mon Nov 29 10:03:47 2021 -0800 @@ -793,11 +793,11 @@ F77_INT tmp_info = 0; - F77_XFCN (ztrtri, ZTRTRI,(F77_CONST_CHAR_ARG2 (&uplo, 1), - F77_CONST_CHAR_ARG2 (&udiag, 1), - nr, F77_DBLE_CMPLX_ARG (tmp_data), nr, tmp_info - F77_CHAR_ARG_LEN (1) - F77_CHAR_ARG_LEN (1))); + F77_XFCN (ztrtri, ZTRTRI, (F77_CONST_CHAR_ARG2 (&uplo, 1), + F77_CONST_CHAR_ARG2 (&udiag, 1), + nr, F77_DBLE_CMPLX_ARG (tmp_data), nr, tmp_info + F77_CHAR_ARG_LEN (1) + F77_CHAR_ARG_LEN (1))); info = tmp_info; @@ -938,10 +938,10 @@ if (typ == MatrixType::Diagonal) // a scalar is also classified as Diagonal. { if (std::real (this->elem (0)) == 0 && std::imag (this->elem (0)) == 0) - ret = ComplexMatrix (1,1, + ret = ComplexMatrix (1, 1, Complex (octave::numeric_limits<double>::Inf (), 0.0)); else - ret = Complex (1,0) / (*this); + ret = Complex (1, 0) / (*this); } else if (typ == MatrixType::Upper || typ == MatrixType::Lower) ret = tinverse (mattype, info, rcon, force, calc_cond); @@ -1199,7 +1199,7 @@ if (typ == MatrixType::Lower || typ == MatrixType::Upper) { for (F77_INT i = 0; i < nc; i++) - retval *= elem (i,i); + retval *= elem (i, i); } else if (typ == MatrixType::Hermitian) { @@ -1246,7 +1246,7 @@ } for (F77_INT i = 0; i < nc; i++) - retval *= atmp(i,i); + retval *= atmp(i, i); retval = retval.square (); } @@ -1315,7 +1315,7 @@ { for (F77_INT i = 0; i < nc; i++) { - Complex c = atmp(i,i); + Complex c = atmp(i, i); retval *= (ipvt(i) != (i+1)) ? -c : c; } } @@ -3366,7 +3366,7 @@ F77_CHAR_ARG_LEN (1))); for (F77_INT j = 0; j < a_nr; j++) for (F77_INT i = 0; i < j; i++) - retval.xelem (j,i) = octave::math::conj (retval.xelem (i,j)); + retval.xelem (j, i) = octave::math::conj (retval.xelem (i, j)); } else { @@ -3378,7 +3378,7 @@ F77_CHAR_ARG_LEN (1))); for (F77_INT j = 0; j < a_nr; j++) for (F77_INT i = 0; i < j; i++) - retval.xelem (j,i) = retval.xelem (i,j); + retval.xelem (j, i) = retval.xelem (i, j); }
--- a/liboctave/array/CSparse.cc Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/array/CSparse.cc Mon Nov 29 10:03:47 2021 -0800 @@ -1245,16 +1245,16 @@ if (typ != MatrixType::Diagonal && typ != MatrixType::Permuted_Diagonal) (*current_liboctave_error_handler) ("incorrect matrix type"); - retval.resize (nc, b.cols (), Complex (0.,0.)); + retval.resize (nc, b.cols (), Complex (0., 0.)); if (typ == MatrixType::Diagonal) for (octave_idx_type j = 0; j < b.cols (); j++) for (octave_idx_type i = 0; i < nm; i++) - retval(i,j) = b(i,j) / data (i); + retval(i, j) = b(i, j) / data (i); else for (octave_idx_type j = 0; j < b.cols (); j++) for (octave_idx_type k = 0; k < nc; k++) for (octave_idx_type i = cidx (k); i < cidx (k+1); i++) - retval(k,j) = b(ridx (i),j) / data (i); + retval(k, j) = b(ridx (i), j) / data (i); if (calc_cond) { @@ -1395,16 +1395,16 @@ if (typ != MatrixType::Diagonal && typ != MatrixType::Permuted_Diagonal) (*current_liboctave_error_handler) ("incorrect matrix type"); - retval.resize (nc, b.cols (), Complex (0.,0.)); + retval.resize (nc, b.cols (), Complex (0., 0.)); if (typ == MatrixType::Diagonal) for (octave_idx_type j = 0; j < b.cols (); j++) for (octave_idx_type i = 0; i < nm; i++) - retval(i,j) = b(i,j) / data (i); + retval(i, j) = b(i, j) / data (i); else for (octave_idx_type j = 0; j < b.cols (); j++) for (octave_idx_type k = 0; k < nc; k++) for (octave_idx_type i = cidx (k); i < cidx (k+1); i++) - retval(k,j) = b(ridx (i),j) / data (i); + retval(k, j) = b(ridx (i), j) / data (i); if (calc_cond) { @@ -1572,7 +1572,7 @@ for (octave_idx_type j = 0; j < b_nc; j++) { for (octave_idx_type i = 0; i < nr; i++) - work[i] = b(i,j); + work[i] = b(i, j); for (octave_idx_type i = nr; i < nc; i++) work[i] = 0.; @@ -1650,7 +1650,7 @@ for (octave_idx_type j = 0; j < b_nc; j++) { for (octave_idx_type i = 0; i < nr; i++) - work[i] = b(i,j); + work[i] = b(i, j); for (octave_idx_type i = nr; i < nc; i++) work[i] = 0.; @@ -2083,7 +2083,7 @@ for (octave_idx_type j = 0; j < b_nc; j++) { for (octave_idx_type i = 0; i < nr; i++) - work[i] = b(i,j); + work[i] = b(i, j); for (octave_idx_type i = nr; i < nc; i++) work[i] = 0.; @@ -2161,7 +2161,7 @@ for (octave_idx_type j = 0; j < b_nc; j++) { for (octave_idx_type i = 0; i < nr; i++) - work[i] = b(i,j); + work[i] = b(i, j); for (octave_idx_type i = nr; i < nc; i++) work[i] = 0.; @@ -2597,7 +2597,7 @@ for (octave_idx_type i = 0; i < nm; i++) work[i] = 0.; for (octave_idx_type i = 0; i < nr; i++) - work[perm[i]] = b(i,j); + work[perm[i]] = b(i, j); for (octave_idx_type k = 0; k < nc; k++) { @@ -2695,7 +2695,7 @@ for (octave_idx_type j = 0; j < b_nc; j++) { for (octave_idx_type i = 0; i < nr; i++) - work[i] = b(i,j); + work[i] = b(i, j); for (octave_idx_type i = nr; i < nc; i++) work[i] = 0.; for (octave_idx_type k = 0; k < nc; k++) @@ -3147,7 +3147,7 @@ for (octave_idx_type i = 0; i < nm; i++) work[i] = 0.; for (octave_idx_type i = 0; i < nr; i++) - work[perm[i]] = b(i,j); + work[perm[i]] = b(i, j); for (octave_idx_type k = 0; k < nc; k++) { @@ -3245,7 +3245,7 @@ for (octave_idx_type j = 0; j < b_nc; j++) { for (octave_idx_type i = 0; i < nr; i++) - work[i] = b(i,j); + work[i] = b(i, j); for (octave_idx_type i = nr; i < nc; i++) work[i] = 0.; @@ -4258,7 +4258,7 @@ { for (F77_INT i = 0; i < b_nr; i++) - Bx[i] = b(i,j); + Bx[i] = b(i, j); F77_XFCN (zgttrs, ZGTTRS, (F77_CONST_CHAR_ARG2 (&job, 1), @@ -5323,7 +5323,7 @@ { for (F77_INT i = 0; i < b_nr; i++) - Bx[i] = b(i,j); + Bx[i] = b(i, j); F77_XFCN (zpbtrs, ZPBTRS, (F77_CONST_CHAR_ARG2 (&job, 1), @@ -5795,7 +5795,7 @@ { octave_idx_type jr = j * b.rows (); for (octave_idx_type i = 0; i < b.rows (); i++) - retval.xelem (i,j) = static_cast<Complex *>(X->x)[jr + i]; + retval.xelem (i, j) = static_cast<Complex *>(X->x)[jr + i]; } CHOLMOD_NAME(free_dense) (&X, cm); @@ -6324,7 +6324,7 @@ { octave_idx_type jr = j * b.rows (); for (octave_idx_type i = 0; i < b.rows (); i++) - retval.xelem (i,j) = static_cast<Complex *>(X->x)[jr + i]; + retval.xelem (i, j) = static_cast<Complex *>(X->x)[jr + i]; } CHOLMOD_NAME(free_dense) (&X, cm); @@ -6612,7 +6612,7 @@ for (octave_idx_type j = 0; j < b_nc; j++) { for (octave_idx_type i = 0; i < b_nr; i++) - Bx[i] = b(i,j); + Bx[i] = b(i, j); status = UMFPACK_ZNAME (solve) (UMFPACK_A, octave::to_suitesparse_intptr (Ap),
--- a/liboctave/array/MArray.cc Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/array/MArray.cc Mon Nov 29 10:03:47 2021 -0800 @@ -171,7 +171,7 @@ ext = ddv(dim); } - octave_idx_type l,n,u,ns; + octave_idx_type l, n, u, ns; get_extent_triplet (ddv, dim, l, n, u); ns = sdv(dim);
--- a/liboctave/array/MSparse.cc Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/array/MSparse.cc Mon Nov 29 10:03:47 2021 -0800 @@ -260,7 +260,7 @@ if (a_nr == 1 && a_nc == 1) { - if (a.elem (0,0) == 0.) + if (a.elem (0, 0) == 0.) if (negate) r = -MSparse<T> (b); else @@ -284,7 +284,7 @@ } else if (b_nr == 1 && b_nc == 1) { - if (b.elem (0,0) == 0.) + if (b.elem (0, 0) == 0.) r = MSparse<T> (a); else { @@ -392,7 +392,7 @@ if (a_nr == 1 && a_nc == 1) { - if (a.elem (0,0) == 0.) + if (a.elem (0, 0) == 0.) r = MSparse<T> (b_nr, b_nc); else { @@ -409,7 +409,7 @@ } else if (b_nr == 1 && b_nc == 1) { - if (b.elem (0,0) == 0.) + if (b.elem (0, 0) == 0.) r = MSparse<T> (a_nr, a_nc); else { @@ -490,7 +490,7 @@ if (a_nr == 1 && a_nc == 1) { - T val = a.elem (0,0); + T val = a.elem (0, 0); T fill = val / T (); if (fill == T ()) { @@ -518,7 +518,7 @@ } else if (b_nr == 1 && b_nc == 1) { - T val = b.elem (0,0); + T val = b.elem (0, 0); T fill = T () / val; if (fill == T ()) { @@ -565,18 +565,18 @@ octave_quit (); if ((! jb_lt_max) || (ja_lt_max && (a.ridx (ja) < b.ridx (jb)))) { - r.elem (a.ridx (ja),i) = a.data (ja) / Zero; + r.elem (a.ridx (ja), i) = a.data (ja) / Zero; ja++; ja_lt_max= ja < ja_max; } else if ((! ja_lt_max) || (b.ridx (jb) < a.ridx (ja))) { - r.elem (b.ridx (jb),i) = Zero / b.data (jb); + r.elem (b.ridx (jb), i) = Zero / b.data (jb); jb++; jb_lt_max= jb < jb_max; } else { - r.elem (a.ridx (ja),i) = a.data (ja) / b.data (jb); + r.elem (a.ridx (ja), i) = a.data (ja) / b.data (jb); ja++; ja_lt_max= ja < ja_max; jb++; jb_lt_max= jb < jb_max; }
--- a/liboctave/array/MatrixType.cc Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/array/MatrixType.cc Mon Nov 29 10:03:47 2021 -0800 @@ -105,7 +105,7 @@ for (octave_idx_type j = 0; j < ncols && upper; j++) { - T d = a.elem (j,j); + T d = a.elem (j, j); upper = upper && (d != zero); lower = lower && (d != zero); hermitian = hermitian && (d > zero); @@ -117,8 +117,8 @@ { for (octave_idx_type i = 0; i < j; i++) { - T aij = a.elem (i,j); - T aji = a.elem (j,i); + T aij = a.elem (i, j); + T aji = a.elem (j, i); lower = lower && (aij == zero); upper = upper && (aji == zero); hermitian = hermitian && (aij == aji @@ -164,7 +164,7 @@ for (octave_idx_type j = 0; j < ncols && upper; j++) { - std::complex<T> d = a.elem (j,j); + std::complex<T> d = a.elem (j, j); upper = upper && (d != zero); lower = lower && (d != zero); hermitian = hermitian && (d.real () > zero && d.imag () == zero); @@ -176,8 +176,8 @@ { for (octave_idx_type i = 0; i < j; i++) { - std::complex<T> aij = a.elem (i,j); - std::complex<T> aji = a.elem (j,i); + std::complex<T> aij = a.elem (i, j); + std::complex<T> aji = a.elem (j, i); lower = lower && (aij == zero); upper = upper && (aji == zero); hermitian = hermitian && (aij == octave::math::conj (aji) @@ -335,10 +335,10 @@ if (! singular) { m_bandden = double (nnz) / - (double (ncols) * (double (m_lower_band) + - double (m_upper_band)) - - 0.5 * double (m_upper_band + 1) * double (m_upper_band) - - 0.5 * double (m_lower_band + 1) * double (m_lower_band)); + (double (ncols) * (double (m_lower_band) + + double (m_upper_band)) - + 0.5 * double (m_upper_band + 1) * double (m_upper_band) - + 0.5 * double (m_lower_band + 1) * double (m_lower_band)); if (nrows == ncols && m_sp_bandden != 1. && m_bandden > m_sp_bandden) {
--- a/liboctave/array/MatrixType.h Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/array/MatrixType.h Mon Nov 29 10:03:47 2021 -0800 @@ -73,15 +73,15 @@ template <typename T> OCTAVE_API - MatrixType (const MSparse<T> &a); + MatrixType (const MSparse<T>& a); OCTAVE_API MatrixType (const matrix_type t, bool _full = false); OCTAVE_API MatrixType (const matrix_type t, const octave_idx_type np, - const octave_idx_type *p, bool _full = false); + const octave_idx_type *p, bool _full = false); OCTAVE_API MatrixType (const matrix_type t, const octave_idx_type ku, - const octave_idx_type kl, bool _full = false); + const octave_idx_type kl, bool _full = false); OCTAVE_API ~MatrixType (void);
--- a/liboctave/array/Range.cc Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/array/Range.cc Mon Nov 29 10:03:47 2021 -0800 @@ -484,7 +484,8 @@ double *array = retval.fortran_vec (); - idx.loop (n, [=, &array] (idx_vector i) { + idx.loop (n, [=, &array] (idx_vector i) + { if (i == 0) *array++ = m_base; else if (i < m_numel - 1)
--- a/liboctave/array/Range.h Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/array/Range.h Mon Nov 29 10:03:47 2021 -0800 @@ -262,7 +262,8 @@ T *array = retval.fortran_vec (); - idx.loop (n, [=, &array] (octave_idx_type i) { + idx.loop (n, [=, &array] (octave_idx_type i) + { if (i == 0) // Required for proper NaN handling. *array++ = m_numel == 0 ? m_final : m_base;
--- a/liboctave/array/Sparse.cc Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/array/Sparse.cc Mon Nov 29 10:03:47 2021 -0800 @@ -692,9 +692,9 @@ for (octave_idx_type j = 0; j < nc; j++) { for (octave_idx_type i = 0; i < nr; i++) - if (a.elem (i,j) != T ()) + if (a.elem (i, j) != T ()) { - xdata (ii) = a.elem (i,j); + xdata (ii) = a.elem (i, j); xridx (ii++) = i; } xcidx (j+1) = ii; @@ -2013,7 +2013,7 @@ assign (idx, Sparse<T> (rhl, 1)); } else - octave::err_nonconformant ("=", dim_vector(idx.length (n),1), rhs.dims()); + octave::err_nonconformant ("=", dim_vector(idx.length (n), 1), rhs.dims()); } template <typename T> @@ -2369,7 +2369,7 @@ template <typename T> OCTAVE_API Sparse<T> -Sparse<T>::sort (Array<octave_idx_type> &sidx, octave_idx_type dim, +Sparse<T>::sort (Array<octave_idx_type>& sidx, octave_idx_type dim, sortmode mode) const { Sparse<T> m = *this;
--- a/liboctave/array/Sparse.h Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/array/Sparse.h Mon Nov 29 10:03:47 2021 -0800 @@ -197,12 +197,12 @@ private: - static OCTAVE_API typename Sparse<T>::SparseRep *nil_rep (void); + static OCTAVE_API typename Sparse<T>::SparseRep * nil_rep (void); public: Sparse (void) - : m_rep (nil_rep ()), m_dimensions (dim_vector (0,0)) + : m_rep (nil_rep ()), m_dimensions (dim_vector (0, 0)) { m_rep->m_count++; } @@ -581,7 +581,7 @@ OCTAVE_API Sparse<T> sort (octave_idx_type dim = 0, sortmode mode = ASCENDING) const; OCTAVE_API Sparse<T> - sort (Array<octave_idx_type> &sidx, octave_idx_type dim = 0, + sort (Array<octave_idx_type>& sidx, octave_idx_type dim = 0, sortmode mode = ASCENDING) const; OCTAVE_API Sparse<T> diag (octave_idx_type k = 0) const;
--- a/liboctave/array/dMatrix.cc Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/array/dMatrix.cc Mon Nov 29 10:03:47 2021 -0800 @@ -641,7 +641,7 @@ typ = mattype.type (*this); if (typ == MatrixType::Diagonal) // a scalar is also classified as Diagonal. - ret = 1 / (*this); + ret = 1 / (*this); else if (typ == MatrixType::Upper || typ == MatrixType::Lower) ret = tinverse (mattype, info, rcon, force, calc_cond); else @@ -887,7 +887,7 @@ if (typ == MatrixType::Lower || typ == MatrixType::Upper) { for (F77_INT i = 0; i < nc; i++) - retval *= elem (i,i); + retval *= elem (i, i); } else if (typ == MatrixType::Hermitian) { @@ -935,7 +935,7 @@ } for (F77_INT i = 0; i < nc; i++) - retval *= atmp(i,i); + retval *= atmp(i, i); retval = retval.square (); } @@ -998,7 +998,7 @@ { for (F77_INT i = 0; i < nc; i++) { - double c = atmp(i,i); + double c = atmp(i, i); retval *= (ipvt(i) != (i+1)) ? -c : c; } } @@ -2801,7 +2801,7 @@ F77_CHAR_ARG_LEN (1))); for (int j = 0; j < a_nr; j++) for (int i = 0; i < j; i++) - retval.xelem (j,i) = retval.xelem (i,j); + retval.xelem (j, i) = retval.xelem (i, j); } else
--- a/liboctave/array/dSparse.cc Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/array/dSparse.cc Mon Nov 29 10:03:47 2021 -0800 @@ -1187,12 +1187,12 @@ if (typ == MatrixType::Diagonal) for (octave_idx_type j = 0; j < b.cols (); j++) for (octave_idx_type i = 0; i < nm; i++) - retval(i,j) = b(i,j) / data (i); + retval(i, j) = b(i, j) / data (i); else for (octave_idx_type j = 0; j < b.cols (); j++) for (octave_idx_type k = 0; k < nc; k++) for (octave_idx_type i = cidx (k); i < cidx (k+1); i++) - retval(k,j) = b(ridx (i),j) / data (i); + retval(k, j) = b(ridx (i), j) / data (i); if (calc_cond) { @@ -1335,12 +1335,12 @@ if (typ == MatrixType::Diagonal) for (octave_idx_type j = 0; j < b.cols (); j++) for (octave_idx_type i = 0; i < nm; i++) - retval(i,j) = b(i,j) / data (i); + retval(i, j) = b(i, j) / data (i); else for (octave_idx_type j = 0; j < b.cols (); j++) for (octave_idx_type k = 0; k < nc; k++) for (octave_idx_type i = cidx (k); i < cidx (k+1); i++) - retval(k,j) = b(ridx (i),j) / data (i); + retval(k, j) = b(ridx (i), j) / data (i); if (calc_cond) { @@ -1507,7 +1507,7 @@ for (octave_idx_type j = 0; j < b_nc; j++) { for (octave_idx_type i = 0; i < nr; i++) - work[i] = b(i,j); + work[i] = b(i, j); for (octave_idx_type i = nr; i < nc; i++) work[i] = 0.; @@ -1585,7 +1585,7 @@ for (octave_idx_type j = 0; j < b_nc; j++) { for (octave_idx_type i = 0; i < nr; i++) - work[i] = b(i,j); + work[i] = b(i, j); for (octave_idx_type i = nr; i < nc; i++) work[i] = 0.; @@ -2017,7 +2017,7 @@ for (octave_idx_type j = 0; j < b_nc; j++) { for (octave_idx_type i = 0; i < nr; i++) - cwork[i] = b(i,j); + cwork[i] = b(i, j); for (octave_idx_type i = nr; i < nc; i++) cwork[i] = 0.; @@ -2096,7 +2096,7 @@ for (octave_idx_type j = 0; j < b_nc; j++) { for (octave_idx_type i = 0; i < nr; i++) - cwork[i] = b(i,j); + cwork[i] = b(i, j); for (octave_idx_type i = nr; i < nc; i++) cwork[i] = 0.; @@ -2536,7 +2536,7 @@ for (octave_idx_type i = 0; i < nm; i++) work[i] = 0.; for (octave_idx_type i = 0; i < nr; i++) - work[perm[i]] = b(i,j); + work[perm[i]] = b(i, j); for (octave_idx_type k = 0; k < nc; k++) { @@ -2634,7 +2634,7 @@ for (octave_idx_type j = 0; j < b_nc; j++) { for (octave_idx_type i = 0; i < nr; i++) - work[i] = b(i,j); + work[i] = b(i, j); for (octave_idx_type i = nr; i < nc; i++) work[i] = 0.; for (octave_idx_type k = 0; k < nc; k++) @@ -3088,7 +3088,7 @@ for (octave_idx_type i = 0; i < nm; i++) cwork[i] = 0.; for (octave_idx_type i = 0; i < nr; i++) - cwork[perm[i]] = b(i,j); + cwork[perm[i]] = b(i, j); for (octave_idx_type k = 0; k < nc; k++) { @@ -3187,7 +3187,7 @@ for (octave_idx_type j = 0; j < b_nc; j++) { for (octave_idx_type i = 0; i < nr; i++) - cwork[i] = b(i,j); + cwork[i] = b(i, j); for (octave_idx_type i = nr; i < nc; i++) cwork[i] = 0.; @@ -4191,7 +4191,7 @@ for (F77_INT i = 0; i < b_nr; i++) { - Complex c = b(i,j); + Complex c = b(i, j); Bx[i] = c.real (); Bz[i] = c.imag (); } @@ -5002,7 +5002,7 @@ { for (F77_INT i = 0; i < b_nr; i++) { - Complex c = b(i,j); + Complex c = b(i, j); Bx[i] = c.real (); Bz[i] = c.imag (); } @@ -5157,7 +5157,7 @@ char job = 'N'; F77_INT b_nr = octave::to_f77_int (b.rows ()); octave_idx_type b_nc = b.cols (); - retval.resize (nr,b_nc); + retval.resize (nr, b_nc); OCTAVE_LOCAL_BUFFER (double, Bz, nr); OCTAVE_LOCAL_BUFFER (double, Bx, nr); @@ -5332,7 +5332,7 @@ for (F77_INT i = 0; i < b_nr; i++) { - Complex c = b(i,j); + Complex c = b(i, j); Bx[i] = c.real (); Bz[i] = c.imag (); } @@ -5837,7 +5837,7 @@ { octave_idx_type jr = j * b.rows (); for (octave_idx_type i = 0; i < b.rows (); i++) - retval.xelem (i,j) = static_cast<double *>(X->x)[jr + i]; + retval.xelem (i, j) = static_cast<double *>(X->x)[jr + i]; } CHOLMOD_NAME(free_dense) (&X, cm); @@ -6308,7 +6308,7 @@ { octave_idx_type jr = j * b.rows (); for (octave_idx_type i = 0; i < b.rows (); i++) - retval.xelem (i,j) = static_cast<Complex *>(X->x)[jr + i]; + retval.xelem (i, j) = static_cast<Complex *>(X->x)[jr + i]; } CHOLMOD_NAME(free_dense) (&X, cm); @@ -6360,7 +6360,7 @@ { for (octave_idx_type i = 0; i < b_nr; i++) { - Complex c = b(i,j); + Complex c = b(i, j); Bx[i] = c.real (); Bz[i] = c.imag (); } @@ -6613,7 +6613,7 @@ { for (octave_idx_type i = 0; i < b_nr; i++) { - Complex c = b(i,j); + Complex c = b(i, j); Bx[i] = c.real (); Bz[i] = c.imag (); }
--- a/liboctave/array/fCMatrix.cc Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/array/fCMatrix.cc Mon Nov 29 10:03:47 2021 -0800 @@ -939,7 +939,7 @@ typ = mattype.type (*this); if (typ == MatrixType::Diagonal) // a scalar is also classified as Diagonal. - ret = FloatComplex (1,0) / (*this); + ret = FloatComplex (1, 0) / (*this); else if (typ == MatrixType::Upper || typ == MatrixType::Lower) ret = tinverse (mattype, info, rcon, force, calc_cond); else @@ -1196,7 +1196,7 @@ if (typ == MatrixType::Lower || typ == MatrixType::Upper) { for (F77_INT i = 0; i < nc; i++) - retval *= elem (i,i); + retval *= elem (i, i); } else if (typ == MatrixType::Hermitian) { @@ -1243,7 +1243,7 @@ } for (F77_INT i = 0; i < nc; i++) - retval *= atmp(i,i); + retval *= atmp(i, i); retval = retval.square (); } @@ -1312,7 +1312,7 @@ { for (F77_INT i = 0; i < nc; i++) { - FloatComplex c = atmp(i,i); + FloatComplex c = atmp(i, i); retval *= (ipvt(i) != (i+1)) ? -c : c; } } @@ -3391,7 +3391,7 @@ F77_CHAR_ARG_LEN (1))); for (F77_INT j = 0; j < a_nr; j++) for (F77_INT i = 0; i < j; i++) - retval.xelem (j,i) = octave::math::conj (retval.xelem (i,j)); + retval.xelem (j, i) = octave::math::conj (retval.xelem (i, j)); } else { @@ -3403,7 +3403,7 @@ F77_CHAR_ARG_LEN (1))); for (F77_INT j = 0; j < a_nr; j++) for (F77_INT i = 0; i < j; i++) - retval.xelem (j,i) = retval.xelem (i,j); + retval.xelem (j, i) = retval.xelem (i, j); }
--- a/liboctave/array/fCMatrix.h Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/array/fCMatrix.h Mon Nov 29 10:03:47 2021 -0800 @@ -384,7 +384,7 @@ lssolve (const FloatComplexMatrix& b, octave_idx_type& info) const; OCTAVE_API FloatComplexMatrix lssolve (const FloatComplexMatrix& b, octave_idx_type& info, - octave_idx_type& rank) const; + octave_idx_type& rank) const; OCTAVE_API FloatComplexMatrix lssolve (const FloatComplexMatrix& b, octave_idx_type& info, octave_idx_type& rank, float& rcon) const;
--- a/liboctave/array/fMatrix.cc Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/array/fMatrix.cc Mon Nov 29 10:03:47 2021 -0800 @@ -647,7 +647,7 @@ typ = mattype.type (*this); if (typ == MatrixType::Diagonal) // a scalar is also classified as Diagonal. - ret = 1 / (*this); + ret = 1 / (*this); else if (typ == MatrixType::Upper || typ == MatrixType::Lower) ret = tinverse (mattype, info, rcon, force, calc_cond); else @@ -896,7 +896,7 @@ if (typ == MatrixType::Lower || typ == MatrixType::Upper) { for (F77_INT i = 0; i < nc; i++) - retval *= elem (i,i); + retval *= elem (i, i); } else if (typ == MatrixType::Hermitian) { @@ -944,7 +944,7 @@ } for (F77_INT i = 0; i < nc; i++) - retval *= atmp(i,i); + retval *= atmp(i, i); retval = retval.square (); } @@ -1007,7 +1007,7 @@ { for (F77_INT i = 0; i < nc; i++) { - float c = atmp(i,i); + float c = atmp(i, i); retval *= (ipvt(i) != (i+1)) ? -c : c; } } @@ -2807,7 +2807,7 @@ F77_CHAR_ARG_LEN (1))); for (int j = 0; j < a_nr; j++) for (int i = 0; i < j; i++) - retval.xelem (j,i) = retval.xelem (i,j); + retval.xelem (j, i) = retval.xelem (i, j); } else
--- a/liboctave/array/fMatrix.h Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/array/fMatrix.h Mon Nov 29 10:03:47 2021 -0800 @@ -342,8 +342,8 @@ lssolve (const FloatComplexMatrix& b, octave_idx_type& info, octave_idx_type& rank) const; OCTAVE_API FloatComplexMatrix - lssolve (const FloatComplexMatrix& b, octave_idx_type& info, - octave_idx_type& rank, float& rcon) const; + lssolve (const FloatComplexMatrix& b, octave_idx_type& info, + octave_idx_type& rank, float& rcon) const; OCTAVE_API FloatColumnVector lssolve (const FloatColumnVector& b) const; OCTAVE_API FloatColumnVector
--- a/liboctave/array/idx-vector.cc Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/array/idx-vector.cc Mon Nov 29 10:03:47 2021 -0800 @@ -456,7 +456,7 @@ if (uniq) { octave_idx_type new_len = std::unique (new_data, new_data + m_len) - - new_data; + - new_data; new_rep->m_len = new_len; if (new_rep->m_orig_dims.ndims () == 2 && new_rep->m_orig_dims(0) == 1) new_rep->m_orig_dims = dim_vector (1, new_len);
--- a/liboctave/array/idx-vector.h Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/array/idx-vector.h Mon Nov 29 10:03:47 2021 -0800 @@ -74,7 +74,7 @@ template <typename T, typename D> friend class std::unique_ptr; - private: + private: class OCTAVE_API idx_base_rep { @@ -291,8 +291,8 @@ idx_vector_rep (octave_idx_type *data, octave_idx_type len, octave_idx_type ext, const dim_vector& od, direct) : idx_base_rep (), m_data (data), m_len (len), m_ext (ext), - m_aowner (nullptr), m_orig_dims (od) - { } + m_aowner (nullptr), m_orig_dims (od) + { } // Zero-based constructor. OCTAVE_API idx_vector_rep (const Array<octave_idx_type>& inda); @@ -371,8 +371,8 @@ idx_mask_rep (bool *data, octave_idx_type len, octave_idx_type ext, const dim_vector& od, direct) : idx_base_rep (), m_data (data), m_len (len), m_ext (ext), - m_lsti (-1), m_lste (-1), m_aowner (nullptr), m_orig_dims (od) - { } + m_lsti (-1), m_lste (-1), m_aowner (nullptr), m_orig_dims (od) + { } OCTAVE_API idx_mask_rep (bool); @@ -442,9 +442,9 @@ // The shared empty vector representation (for fast default // constructor). - static OCTAVE_API idx_vector_rep *nil_rep (void); + static OCTAVE_API idx_vector_rep * nil_rep (void); - public: + public: // Fast empty constructor. idx_vector (void) : m_rep (nil_rep ()) { m_rep->m_count++; } @@ -465,7 +465,7 @@ idx_vector (octave_idx_type start, octave_idx_type limit, octave_idx_type step = 1) - : m_rep (new idx_range_rep (start, limit, step)) { } + : m_rep (new idx_range_rep (start, limit, step)) { } static idx_vector make_range (octave_idx_type start, octave_idx_type step, @@ -475,11 +475,11 @@ } idx_vector (const Array<octave_idx_type>& inda) - : m_rep (new idx_vector_rep (inda)) { } + : m_rep (new idx_vector_rep (inda)) { } // Directly pass extent, no checking. idx_vector (const Array<octave_idx_type>& inda, octave_idx_type ext) - : m_rep (new idx_vector_rep (inda, ext, DIRECT)) { } + : m_rep (new idx_vector_rep (inda, ext, DIRECT)) { } // Colon is best constructed by simply copying (or referencing) this member. static const idx_vector colon; @@ -501,7 +501,7 @@ template <typename T> idx_vector (const Array<octave_int<T>>& nda) - : m_rep (new idx_vector_rep (nda)) { } + : m_rep (new idx_vector_rep (nda)) { } idx_vector (const Array<double>& nda) : m_rep (new idx_vector_rep (nda)) { } @@ -1026,7 +1026,7 @@ octave_idx_type max (void) const { return extent (1) - 1; } - private: + private: idx_base_rep *m_rep;
--- a/liboctave/numeric/CollocWt.cc Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/numeric/CollocWt.cc Mon Nov 29 10:03:47 2021 -0800 @@ -455,7 +455,7 @@ pr, pvect); for (octave_idx_type j = 0; j < nt; j++) - m_A(i,j) = vect(j); + m_A(i, j) = vect(j); } // Second derivative weights. @@ -467,7 +467,7 @@ pr, pvect); for (octave_idx_type j = 0; j < nt; j++) - m_B(i,j) = vect(j); + m_B(i, j) = vect(j); } // Gaussian quadrature weights.
--- a/liboctave/numeric/CollocWt.h Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/numeric/CollocWt.h Mon Nov 29 10:03:47 2021 -0800 @@ -80,57 +80,57 @@ ~CollocWt (void) = default; CollocWt& resize (octave_idx_type nc) - { - m_n = nc; - m_initialized = false; - return *this; - } + { + m_n = nc; + m_initialized = false; + return *this; + } CollocWt& add_left (void) - { - m_inc_left = 1; - m_initialized = false; - return *this; - } + { + m_inc_left = 1; + m_initialized = false; + return *this; + } CollocWt& delete_left (void) - { - m_inc_left = 0; - m_initialized = false; - return *this; - } + { + m_inc_left = 0; + m_initialized = false; + return *this; + } CollocWt& set_left (double val); CollocWt& add_right (void) - { - m_inc_right = 1; - m_initialized = false; - return *this; - } + { + m_inc_right = 1; + m_initialized = false; + return *this; + } CollocWt& delete_right (void) - { - m_inc_right = 0; - m_initialized = false; - return *this; - } + { + m_inc_right = 0; + m_initialized = false; + return *this; + } CollocWt& set_right (double val); CollocWt& set_alpha (double val) - { - m_alpha = val; - m_initialized = false; - return *this; - } + { + m_alpha = val; + m_initialized = false; + return *this; + } CollocWt& set_beta (double val) - { - m_beta = val; - m_initialized = false; - return *this; - } + { + m_beta = val; + m_initialized = false; + return *this; + } octave_idx_type ncol (void) const { return m_n; }
--- a/liboctave/numeric/DASPK.cc Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/numeric/DASPK.cc Mon Nov 29 10:03:47 2021 -0800 @@ -36,28 +36,28 @@ #include "lo-error.h" #include "quit.h" -typedef F77_INT (*daspk_fcn_ptr) (const double&, const double*, const double*, - const double&, double*, F77_INT&, double*, - F77_INT*); +typedef F77_INT (*daspk_fcn_ptr) (const double&, const double *, const double *, + const double&, double *, F77_INT&, double *, + F77_INT *); -typedef F77_INT (*daspk_jac_ptr) (const double&, const double*, const double*, - double*, const double&, double*, F77_INT*); +typedef F77_INT (*daspk_jac_ptr) (const double&, const double *, const double *, + double *, const double&, double *, F77_INT *); typedef F77_INT (*daspk_psol_ptr) (const F77_INT&, const double&, - const double*, const double*, - const double*, const double&, - const double*, double*, F77_INT*, - double*, const double&, F77_INT&, - double*, F77_INT*); + const double *, const double *, + const double *, const double&, + const double *, double *, F77_INT *, + double *, const double&, F77_INT&, + double *, F77_INT *); extern "C" { F77_RET_T F77_FUNC (ddaspk, DDASPK) (daspk_fcn_ptr, const F77_INT&, F77_DBLE&, - F77_DBLE*, F77_DBLE*, F77_DBLE&, const F77_INT*, - const F77_DBLE*, const F77_DBLE*, F77_INT&, - F77_DBLE*, const F77_INT&, F77_INT*, - const F77_INT&, const F77_DBLE*, const F77_INT*, + F77_DBLE *, F77_DBLE *, F77_DBLE&, const F77_INT *, + const F77_DBLE *, const F77_DBLE *, F77_INT&, + F77_DBLE *, const F77_INT&, F77_INT *, + const F77_INT&, const F77_DBLE *, const F77_INT *, daspk_jac_ptr, daspk_psol_ptr); } @@ -106,7 +106,7 @@ ddaspk_psol (const F77_INT&, const double&, const double *, const double *, const double *, const double&, const double *, double *, F77_INT *, double *, - const double&, F77_INT&, double *, F77_INT*) + const double&, F77_INT&, double *, F77_INT *) { (*current_liboctave_error_handler) ("daspk: PSOL is not implemented");
--- a/liboctave/numeric/DASRT.cc Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/numeric/DASRT.cc Mon Nov 29 10:03:47 2021 -0800 @@ -35,26 +35,26 @@ #include "lo-error.h" #include "quit.h" -typedef F77_INT (*dasrt_fcn_ptr) (const double&, const double*, const double*, - double*, F77_INT&, double*, F77_INT*); +typedef F77_INT (*dasrt_fcn_ptr) (const double&, const double *, const double *, + double *, F77_INT&, double *, F77_INT *); -typedef F77_INT (*dasrt_jac_ptr) (const double&, const double*, const double*, - double*, const double&, double*, F77_INT*); +typedef F77_INT (*dasrt_jac_ptr) (const double&, const double *, const double *, + double *, const double&, double *, F77_INT *); typedef F77_INT (*dasrt_constr_ptr) (const F77_INT&, const double&, - const double*, const F77_INT&, - double*, double*, F77_INT*); + const double *, const F77_INT&, + double *, double *, F77_INT *); extern "C" { F77_RET_T F77_FUNC (ddasrt, DDASRT) (dasrt_fcn_ptr, const F77_INT&, F77_DBLE&, - F77_DBLE*, F77_DBLE*, const F77_DBLE&, F77_INT*, - const F77_DBLE*, const F77_DBLE*, F77_INT&, - F77_DBLE*, const F77_INT&, F77_INT*, - const F77_INT&, F77_DBLE*, F77_INT*, + F77_DBLE *, F77_DBLE *, const F77_DBLE&, F77_INT *, + const F77_DBLE *, const F77_DBLE *, F77_INT&, + F77_DBLE *, const F77_INT&, F77_INT *, + const F77_INT&, F77_DBLE *, F77_INT *, dasrt_jac_ptr, dasrt_constr_ptr, const F77_INT&, - F77_INT*); + F77_INT *); } static DAEFunc::DAERHSFunc user_fsub; @@ -391,8 +391,8 @@ for (F77_INT i = 0; i < n; i++) { - x_out(0,i) = m_x(i); - xdot_out(0,i) = m_xdot(i); + x_out(0, i) = m_x(i); + xdot_out(0, i) = m_xdot(i); } for (octave_idx_type j = 1; j < n_out; j++) @@ -412,8 +412,8 @@ for (F77_INT i = 0; i < n; i++) { - x_out(j,i) = m_x(i); - xdot_out(j,i) = m_xdot(i); + x_out(j, i) = m_x(i); + xdot_out(j, i) = m_xdot(i); } if (m_istate == 4) @@ -517,8 +517,8 @@ { for (F77_INT i = 0; i < n; i++) { - x_out(i_out-1,i) = m_x(i); - xdot_out(i_out-1,i) = m_xdot(i); + x_out(i_out-1, i) = m_x(i); + xdot_out(i_out-1, i) = m_xdot(i); } t_outs(i_out-1) = t_out;
--- a/liboctave/numeric/DASSL.cc Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/numeric/DASSL.cc Mon Nov 29 10:03:47 2021 -0800 @@ -36,22 +36,22 @@ #include "lo-error.h" #include "quit.h" -typedef F77_INT (*dassl_fcn_ptr) (const double&, const double*, - const double*, double*, F77_INT&, - double*, F77_INT*); +typedef F77_INT (*dassl_fcn_ptr) (const double&, const double *, + const double *, double *, F77_INT&, + double *, F77_INT *); -typedef F77_INT (*dassl_jac_ptr) (const double&, const double*, - const double*, double*, const double&, - double*, F77_INT*); +typedef F77_INT (*dassl_jac_ptr) (const double&, const double *, + const double *, double *, const double&, + double *, F77_INT *); extern "C" { F77_RET_T F77_FUNC (ddassl, DDASSL) (dassl_fcn_ptr, const F77_INT&, F77_DBLE&, - F77_DBLE*, F77_DBLE*, F77_DBLE&, const F77_INT*, - const F77_DBLE*, const F77_DBLE*, F77_INT&, - F77_DBLE*, const F77_INT&, F77_INT*, - const F77_INT&, const F77_DBLE*, const F77_INT*, + F77_DBLE *, F77_DBLE *, F77_DBLE&, const F77_INT *, + const F77_DBLE *, const F77_DBLE *, F77_INT&, + F77_DBLE *, const F77_INT&, F77_INT *, + const F77_INT&, const F77_DBLE *, const F77_INT *, dassl_jac_ptr); }
--- a/liboctave/numeric/EIG.cc Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/numeric/EIG.cc Mon Nov 29 10:03:47 2021 -0800 @@ -617,7 +617,7 @@ F77_INT info = 0; ComplexMatrix tmp = b; - Complex*tmp_data = tmp.fortran_vec (); + Complex *tmp_data = tmp.fortran_vec (); if (! force_qz) {
--- a/liboctave/numeric/LSODE.cc Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/numeric/LSODE.cc Mon Nov 29 10:03:47 2021 -0800 @@ -35,20 +35,20 @@ #include "lo-error.h" #include "quit.h" -typedef F77_INT (*lsode_fcn_ptr) (const F77_INT&, const double&, double*, - double*, F77_INT&); +typedef F77_INT (*lsode_fcn_ptr) (const F77_INT&, const double&, double *, + double *, F77_INT&); -typedef F77_INT (*lsode_jac_ptr) (const F77_INT&, const double&, double*, - const F77_INT&, const F77_INT&, double*, +typedef F77_INT (*lsode_jac_ptr) (const F77_INT&, const double&, double *, + const F77_INT&, const F77_INT&, double *, const F77_INT&); extern "C" { F77_RET_T - F77_FUNC (dlsode, DLSODE) (lsode_fcn_ptr, F77_INT&, F77_DBLE*, F77_DBLE&, - F77_DBLE&, F77_INT&, F77_DBLE&, const F77_DBLE*, - F77_INT&, F77_INT&, F77_INT&, F77_DBLE*, - F77_INT&, F77_INT*, F77_INT&, lsode_jac_ptr, + F77_FUNC (dlsode, DLSODE) (lsode_fcn_ptr, F77_INT&, F77_DBLE *, F77_DBLE&, + F77_DBLE&, F77_INT&, F77_DBLE&, const F77_DBLE *, + F77_INT&, F77_INT&, F77_INT&, F77_DBLE *, + F77_INT&, F77_INT *, F77_INT&, lsode_jac_ptr, F77_INT&); }
--- a/liboctave/numeric/Quad.cc Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/numeric/Quad.cc Mon Nov 29 10:03:47 2021 -0800 @@ -45,11 +45,11 @@ { F77_RET_T F77_FUNC (dqagp, DQAGP) (quad_fcn_ptr, const F77_DBLE&, const F77_DBLE&, - const F77_INT&, const F77_DBLE*, + const F77_INT&, const F77_DBLE *, const F77_DBLE&, const F77_DBLE&, F77_DBLE&, F77_DBLE&, F77_INT&, F77_INT&, const F77_INT&, const F77_INT&, - F77_INT&, F77_INT*, F77_DBLE*); + F77_INT&, F77_INT *, F77_DBLE *); F77_RET_T F77_FUNC (dqagi, DQAGI) (quad_fcn_ptr, const F77_DBLE&, @@ -57,15 +57,15 @@ const F77_DBLE&, F77_DBLE&, F77_DBLE&, F77_INT&, F77_INT&, const F77_INT&, const F77_INT&, - F77_INT&, F77_INT*, F77_DBLE*); + F77_INT&, F77_INT *, F77_DBLE *); F77_RET_T F77_FUNC (qagp, QAGP) (quad_float_fcn_ptr, const F77_REAL&, const F77_REAL&, - const F77_INT&, const F77_REAL*, const F77_REAL&, + const F77_INT&, const F77_REAL *, const F77_REAL&, const F77_REAL&, F77_REAL&, F77_REAL&, F77_INT&, F77_INT&, const F77_INT&, const F77_INT&, F77_INT&, - F77_INT*, F77_REAL*); + F77_INT *, F77_REAL *); F77_RET_T F77_FUNC (qagi, QAGI) (quad_float_fcn_ptr, const F77_REAL&, @@ -73,7 +73,7 @@ const F77_REAL&, F77_REAL&, F77_REAL&, F77_INT&, F77_INT&, const F77_INT&, const F77_INT&, F77_INT&, - F77_INT*, F77_REAL*); + F77_INT *, F77_REAL *); } static F77_INT
--- a/liboctave/numeric/aepbalance.cc Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/numeric/aepbalance.cc Mon Nov 29 10:03:47 2021 -0800 @@ -80,7 +80,7 @@ Matrix balancing_mat (n, n, 0.0); for (F77_INT i = 0; i < n; i++) - balancing_mat.elem (i ,i) = 1.0; + balancing_mat.elem (i, i) = 1.0; F77_INT info; F77_INT t_ilo = to_f77_int (m_ilo); @@ -132,7 +132,7 @@ FloatMatrix balancing_mat (n, n, 0.0); for (F77_INT i = 0; i < n; i++) - balancing_mat.elem (i,i) = 1.0; + balancing_mat.elem (i, i) = 1.0; F77_INT info; F77_INT t_ilo = to_f77_int (m_ilo);
--- a/liboctave/numeric/chol.cc Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/numeric/chol.cc Mon Nov 29 10:03:47 2021 -0800 @@ -285,7 +285,7 @@ { static typename T::element_type zero (0); for (octave_idx_type i = 0; i < a.rows (); i++) - if (a(i,i) == zero) return true; + if (a(i, i) == zero) return true; return false; }
--- a/liboctave/numeric/eigs-base.cc Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/numeric/eigs-base.cc Mon Nov 29 10:03:47 2021 -0800 @@ -249,7 +249,7 @@ for (octave_idx_type j = 0; j < b_nc; j++) { for (octave_idx_type i = 0; i < n; i++) - retval.elem (i,j) = m.elem (static_cast<octave_idx_type> (qv[i]), j); + retval.elem (i, j) = m.elem (static_cast<octave_idx_type> (qv[i]), j); } return L.solve (ltyp, retval, err, rcond, nullptr); } @@ -275,7 +275,7 @@ { for (octave_idx_type i = 0; i < n; i++) retval.elem (static_cast<octave_idx_type> (qv[i]), j) - = tmp.elem (i,j); + = tmp.elem (i, j); } } @@ -422,7 +422,7 @@ LuAminusSigmaB (const SparseMatrix& m, const SparseMatrix& b, bool cholB, const ColumnVector& permB, double sigma, SparseMatrix& L, SparseMatrix& U, octave_idx_type *P, - octave_idx_type *Q, ColumnVector &r) + octave_idx_type *Q, ColumnVector& r) { bool have_b = ! b.isempty (); octave_idx_type n = m.rows (); @@ -439,7 +439,7 @@ { if (permB.numel ()) { - SparseMatrix tmp (n,n,n); + SparseMatrix tmp (n, n, n); for (octave_idx_type i = 0; i < n; i++) { tmp.xcidx (i) = i; @@ -521,7 +521,7 @@ LuAminusSigmaB (const Matrix& m, const Matrix& b, bool cholB, const ColumnVector& permB, double sigma, Matrix& L, Matrix& U, octave_idx_type *P, octave_idx_type *Q, - ColumnVector &r) + ColumnVector& r) { bool have_b = ! b.isempty (); octave_idx_type n = m.cols (); @@ -582,7 +582,7 @@ double maxU = octave::numeric_limits<double>::NaN (); for (octave_idx_type j = 0; j < n; j++) { - double d = std::abs (U.xelem (j,j)); + double d = std::abs (U.xelem (j, j)); if (octave::math::isnan (minU) || d < minU) minU = d; @@ -603,7 +603,7 @@ LuAminusSigmaB (const SparseComplexMatrix& m, const SparseComplexMatrix& b, bool cholB, const ColumnVector& permB, Complex sigma, SparseComplexMatrix& L, SparseComplexMatrix& U, - octave_idx_type *P, octave_idx_type *Q, ColumnVector &r) + octave_idx_type *P, octave_idx_type *Q, ColumnVector& r) { bool have_b = ! b.isempty (); octave_idx_type n = m.rows (); @@ -620,7 +620,7 @@ { if (permB.numel ()) { - SparseMatrix tmp (n,n,n); + SparseMatrix tmp (n, n, n); for (octave_idx_type i = 0; i < n; i++) { tmp.xcidx (i) = i; @@ -703,7 +703,7 @@ LuAminusSigmaB (const ComplexMatrix& m, const ComplexMatrix& b, bool cholB, const ColumnVector& permB, Complex sigma, ComplexMatrix& L, ComplexMatrix& U, octave_idx_type *P, - octave_idx_type *Q, ColumnVector &r) + octave_idx_type *Q, ColumnVector& r) { bool have_b = ! b.isempty (); octave_idx_type n = m.cols (); @@ -764,7 +764,7 @@ double maxU = octave::numeric_limits<double>::NaN (); for (octave_idx_type j = 0; j < n; j++) { - double d = std::abs (U.xelem (j,j)); + double d = std::abs (U.xelem (j, j)); if (octave::math::isnan (minU) || d < minU) minU = d; @@ -924,11 +924,11 @@ F77_INT tmp_info = octave::to_f77_int (info); F77_FUNC (dsaupd, DSAUPD) - (ido, F77_CONST_CHAR_ARG2 (&bmat, 1), n, - F77_CONST_CHAR_ARG2 ((typ.c_str ()), 2), - k, tol, presid, p, v, n, iparam, - ipntr, workd, workl, lwork, tmp_info - F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(2)); + (ido, F77_CONST_CHAR_ARG2 (&bmat, 1), n, + F77_CONST_CHAR_ARG2 ((typ.c_str ()), 2), + k, tol, presid, p, v, n, iparam, + ipntr, workd, workl, lwork, tmp_info + F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(2)); info = tmp_info; @@ -965,14 +965,14 @@ { if (have_b) { - Matrix mtmp (n,1); + Matrix mtmp (n, 1); for (F77_INT i = 0; i < n; i++) - mtmp(i,0) = workd[i + iptr(0) - 1]; + mtmp(i, 0) = workd[i + iptr(0) - 1]; mtmp = ltsolve (b, permB, m * utsolve (bt, permB, mtmp)); for (F77_INT i = 0; i < n; i++) - workd[i+iptr(1)-1] = mtmp(i,0); + workd[i+iptr(1)-1] = mtmp(i, 0); } else if (! vector_product (m, workd + iptr(0) - 1, workd + iptr(1) - 1)) @@ -1009,11 +1009,11 @@ double *d = eig_val.fortran_vec (); F77_FUNC (dseupd, DSEUPD) - (rvec, F77_CONST_CHAR_ARG2 ("A", 1), sel, d, z, n, sigma, - F77_CONST_CHAR_ARG2 (&bmat, 1), n, - F77_CONST_CHAR_ARG2 ((typ.c_str ()), 2), k, tol, presid, p, v, n, iparam, - ipntr, workd, workl, lwork, info2 F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(1) - F77_CHAR_ARG_LEN(2)); + (rvec, F77_CONST_CHAR_ARG2 ("A", 1), sel, d, z, n, sigma, + F77_CONST_CHAR_ARG2 (&bmat, 1), n, + F77_CONST_CHAR_ARG2 ((typ.c_str ()), 2), k, tol, presid, p, v, n, iparam, + ipntr, workd, workl, lwork, info2 F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(1) + F77_CHAR_ARG_LEN(2)); if (info2 == 0) { @@ -1200,11 +1200,11 @@ F77_INT tmp_info = octave::to_f77_int (info); F77_FUNC (dsaupd, DSAUPD) - (ido, F77_CONST_CHAR_ARG2 (&bmat, 1), n, - F77_CONST_CHAR_ARG2 ((typ.c_str ()), 2), - k, tol, presid, p, v, n, iparam, - ipntr, workd, workl, lwork, tmp_info - F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(2)); + (ido, F77_CONST_CHAR_ARG2 (&bmat, 1), n, + F77_CONST_CHAR_ARG2 ((typ.c_str ()), 2), + k, tol, presid, p, v, n, iparam, + ipntr, workd, workl, lwork, tmp_info + F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(2)); info = tmp_info; if (disp > 0 && ! octave::math::isnan (workl[iptr (5)-1])) @@ -1249,13 +1249,13 @@ Matrix tmp (n, 1); for (F77_INT i = 0; i < n; i++) - tmp(i,0) = dtmp[P[i]] / r(P[i]); + tmp(i, 0) = dtmp[P[i]] / r(P[i]); lusolve (L, U, tmp); double *ip2 = workd+iptr(1)-1; for (F77_INT i = 0; i < n; i++) - ip2[Q[i]] = tmp(i,0); + ip2[Q[i]] = tmp(i, 0); } else if (ido == 2) vector_product (b, workd+iptr(0)-1, workd+iptr(1)-1); @@ -1265,13 +1265,13 @@ Matrix tmp (n, 1); for (F77_INT i = 0; i < n; i++) - tmp(i,0) = ip2[P[i]] / r(P[i]); + tmp(i, 0) = ip2[P[i]] / r(P[i]); lusolve (L, U, tmp); ip2 = workd+iptr(1)-1; for (F77_INT i = 0; i < n; i++) - ip2[Q[i]] = tmp(i,0); + ip2[Q[i]] = tmp(i, 0); } } else @@ -1281,13 +1281,13 @@ Matrix tmp (n, 1); for (F77_INT i = 0; i < n; i++) - tmp(i,0) = ip2[P[i]] / r(P[i]); + tmp(i, 0) = ip2[P[i]] / r(P[i]); lusolve (L, U, tmp); ip2 = workd+iptr(1)-1; for (F77_INT i = 0; i < n; i++) - ip2[Q[i]] = tmp(i,0); + ip2[Q[i]] = tmp(i, 0); } } else @@ -1321,11 +1321,11 @@ double *d = eig_val.fortran_vec (); F77_FUNC (dseupd, DSEUPD) - (rvec, F77_CONST_CHAR_ARG2 ("A", 1), sel, d, z, n, sigma, - F77_CONST_CHAR_ARG2 (&bmat, 1), n, - F77_CONST_CHAR_ARG2 ((typ.c_str ()), 2), - k, tol, presid, p, v, n, iparam, ipntr, workd, workl, lwork, info2 - F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(2)); + (rvec, F77_CONST_CHAR_ARG2 ("A", 1), sel, d, z, n, sigma, + F77_CONST_CHAR_ARG2 (&bmat, 1), n, + F77_CONST_CHAR_ARG2 ((typ.c_str ()), 2), + k, tol, presid, p, v, n, iparam, ipntr, workd, workl, lwork, info2 + F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(2)); if (info2 == 0) { @@ -1544,11 +1544,11 @@ F77_INT tmp_info = octave::to_f77_int (info); F77_FUNC (dsaupd, DSAUPD) - (ido, F77_CONST_CHAR_ARG2 (&bmat, 1), n, - F77_CONST_CHAR_ARG2 ((typ.c_str ()), 2), - k, tol, presid, p, v, n, iparam, - ipntr, workd, workl, lwork, tmp_info - F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(2)); + (ido, F77_CONST_CHAR_ARG2 (&bmat, 1), n, + F77_CONST_CHAR_ARG2 ((typ.c_str ()), 2), + k, tol, presid, p, v, n, iparam, + ipntr, workd, workl, lwork, tmp_info + F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(2)); info = tmp_info; @@ -1587,9 +1587,9 @@ { if (mode == 1) // regular mode with factorized B { - Matrix mtmp (n,1); + Matrix mtmp (n, 1); for (F77_INT i = 0; i < n; i++) - mtmp(i,0) = workd[i + iptr(0) - 1]; + mtmp(i, 0) = workd[i + iptr(0) - 1]; mtmp = utsolve (bt, permB, mtmp); ColumnVector y = fun (mtmp, err); @@ -1600,7 +1600,7 @@ mtmp = ltsolve (b, permB, y); for (F77_INT i = 0; i < n; i++) - workd[i+iptr(1)-1] = mtmp(i,0); + workd[i+iptr(1)-1] = mtmp(i, 0); } else // shift-invert mode { @@ -1694,11 +1694,11 @@ double *d = eig_val.fortran_vec (); F77_FUNC (dseupd, DSEUPD) - (rvec, F77_CONST_CHAR_ARG2 ("A", 1), sel, d, z, n, sigma, - F77_CONST_CHAR_ARG2 (&bmat, 1), n, - F77_CONST_CHAR_ARG2 ((typ.c_str ()), 2), - k, tol, presid, p, v, n, iparam, ipntr, workd, workl, lwork, info2 - F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(2)); + (rvec, F77_CONST_CHAR_ARG2 ("A", 1), sel, d, z, n, sigma, + F77_CONST_CHAR_ARG2 (&bmat, 1), n, + F77_CONST_CHAR_ARG2 ((typ.c_str ()), 2), + k, tol, presid, p, v, n, iparam, ipntr, workd, workl, lwork, info2 + F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(2)); if (info2 == 0) { @@ -1903,11 +1903,11 @@ // On exit, ip(4) <= k + 1 is the number of converged eigenvalues. // See dnaupd2. F77_FUNC (dnaupd, DNAUPD) - (ido, F77_CONST_CHAR_ARG2 (&bmat, 1), n, - F77_CONST_CHAR_ARG2 ((typ.c_str ()), 2), - k, tol, presid, p, v, n, iparam, - ipntr, workd, workl, lwork, tmp_info - F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(2)); + (ido, F77_CONST_CHAR_ARG2 (&bmat, 1), n, + F77_CONST_CHAR_ARG2 ((typ.c_str ()), 2), + k, tol, presid, p, v, n, iparam, + ipntr, workd, workl, lwork, tmp_info + F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(2)); // k is not changed info = tmp_info; @@ -1946,14 +1946,14 @@ { if (have_b) { - Matrix mtmp (n,1); + Matrix mtmp (n, 1); for (F77_INT i = 0; i < n; i++) - mtmp(i,0) = workd[i + iptr(0) - 1]; + mtmp(i, 0) = workd[i + iptr(0) - 1]; mtmp = ltsolve (b, permB, m * utsolve (bt, permB, mtmp)); for (F77_INT i = 0; i < n; i++) - workd[i+iptr(1)-1] = mtmp(i,0); + workd[i+iptr(1)-1] = mtmp(i, 0); } else if (! vector_product (m, workd + iptr(0) - 1, workd + iptr(1) - 1)) @@ -2001,11 +2001,11 @@ F77_INT k0 = k; // original number of eigenvalues required F77_FUNC (dneupd, DNEUPD) - (rvec, F77_CONST_CHAR_ARG2 ("A", 1), sel, dr, di, z, n, sigmar, - sigmai, workev, F77_CONST_CHAR_ARG2 (&bmat, 1), n, - F77_CONST_CHAR_ARG2 ((typ.c_str ()), 2), k, tol, presid, p, v, n, iparam, - ipntr, workd, workl, lwork, info2 F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(1) - F77_CHAR_ARG_LEN(2)); + (rvec, F77_CONST_CHAR_ARG2 ("A", 1), sel, dr, di, z, n, sigmar, + sigmai, workev, F77_CONST_CHAR_ARG2 (&bmat, 1), n, + F77_CONST_CHAR_ARG2 ((typ.c_str ()), 2), k, tol, presid, p, v, n, iparam, + ipntr, workd, workl, lwork, info2 F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(1) + F77_CHAR_ARG_LEN(2)); // on exit, if (and only if) rvec == true, k may have been increased by one // and be equal to ip(4), see dngets. @@ -2062,16 +2062,16 @@ if (std::imag (eig_val(i)) == 0) { for (F77_INT j = 0; j < n; j++) - eig_vec(j,i) = Complex (z[j+off1], 0.); + eig_vec(j, i) = Complex (z[j+off1], 0.); i++; } else { for (F77_INT j = 0; j < n; j++) { - eig_vec(j,i) = Complex (z[j+off1],z[j+off2]); + eig_vec(j, i) = Complex (z[j+off1], z[j+off2]); if (i < ip(4) - 1) - eig_vec(j,i+1) = Complex (z[j+off1],-z[j+off2]); + eig_vec(j, i+1) = Complex (z[j+off1], -z[j+off2]); } i+=2; } @@ -2080,7 +2080,7 @@ { for (F77_INT ii = ip(4); ii < k; ii++) for (F77_INT jj = 0; jj < n; jj++) - eig_vec(jj,ii) + eig_vec(jj, ii) = Complex (octave::numeric_limits<double>::NaN (), octave::numeric_limits<double>::NaN ()); } @@ -2088,7 +2088,7 @@ { for (F77_INT ii = ip(4); ii < k; ii++) for (F77_INT jj = 0; jj < n; jj++) - eig_vec(jj,ii) + eig_vec(jj, ii) = Complex (octave::numeric_limits<double>::NaN (), 0.); } if (note3) @@ -2239,11 +2239,11 @@ // On exit, ip(4) <= k + 1 is the number of converged eigenvalues. // See dnaupd2. F77_FUNC (dnaupd, DNAUPD) - (ido, F77_CONST_CHAR_ARG2 (&bmat, 1), n, - F77_CONST_CHAR_ARG2 ((typ.c_str ()), 2), - k, tol, presid, p, v, n, iparam, - ipntr, workd, workl, lwork, tmp_info - F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(2)); + (ido, F77_CONST_CHAR_ARG2 (&bmat, 1), n, + F77_CONST_CHAR_ARG2 ((typ.c_str ()), 2), + k, tol, presid, p, v, n, iparam, + ipntr, workd, workl, lwork, tmp_info + F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(2)); // k is not changed info = tmp_info; @@ -2291,13 +2291,13 @@ Matrix tmp (n, 1); for (F77_INT i = 0; i < n; i++) - tmp(i,0) = dtmp[P[i]] / r(P[i]); + tmp(i, 0) = dtmp[P[i]] / r(P[i]); lusolve (L, U, tmp); double *ip2 = workd+iptr(1)-1; for (F77_INT i = 0; i < n; i++) - ip2[Q[i]] = tmp(i,0); + ip2[Q[i]] = tmp(i, 0); } else if (ido == 2) vector_product (b, workd+iptr(0)-1, workd+iptr(1)-1); @@ -2307,13 +2307,13 @@ Matrix tmp (n, 1); for (F77_INT i = 0; i < n; i++) - tmp(i,0) = ip2[P[i]] / r(P[i]); + tmp(i, 0) = ip2[P[i]] / r(P[i]); lusolve (L, U, tmp); ip2 = workd+iptr(1)-1; for (F77_INT i = 0; i < n; i++) - ip2[Q[i]] = tmp(i,0); + ip2[Q[i]] = tmp(i, 0); } } else @@ -2323,13 +2323,13 @@ Matrix tmp (n, 1); for (F77_INT i = 0; i < n; i++) - tmp(i,0) = ip2[P[i]] / r(P[i]); + tmp(i, 0) = ip2[P[i]] / r(P[i]); lusolve (L, U, tmp); ip2 = workd+iptr(1)-1; for (F77_INT i = 0; i < n; i++) - ip2[Q[i]] = tmp(i,0); + ip2[Q[i]] = tmp(i, 0); } } else @@ -2374,11 +2374,11 @@ F77_INT k0 = k; // original number of eigenvalues required F77_FUNC (dneupd, DNEUPD) - (rvec, F77_CONST_CHAR_ARG2 ("A", 1), sel, dr, di, z, n, sigmar, - sigmai, workev, F77_CONST_CHAR_ARG2 (&bmat, 1), n, - F77_CONST_CHAR_ARG2 ((typ.c_str ()), 2), k, tol, presid, p, v, n, iparam, - ipntr, workd, workl, lwork, info2 F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(1) - F77_CHAR_ARG_LEN(2)); + (rvec, F77_CONST_CHAR_ARG2 ("A", 1), sel, dr, di, z, n, sigmar, + sigmai, workev, F77_CONST_CHAR_ARG2 (&bmat, 1), n, + F77_CONST_CHAR_ARG2 ((typ.c_str ()), 2), k, tol, presid, p, v, n, iparam, + ipntr, workd, workl, lwork, info2 F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(1) + F77_CHAR_ARG_LEN(2)); // On exit, if (and only if) rvec == true, k may have been increased by one // and be equal to ip(4), see dngets. @@ -2436,16 +2436,16 @@ if (std::imag (eig_val(i)) == 0) { for (F77_INT j = 0; j < n; j++) - eig_vec(j,i) = Complex (z[j+off1], 0.); + eig_vec(j, i) = Complex (z[j+off1], 0.); i++; } else { for (F77_INT j = 0; j < n; j++) { - eig_vec(j,i) = Complex (z[j+off1],z[j+off2]); + eig_vec(j, i) = Complex (z[j+off1], z[j+off2]); if (i < ip(4) - 1) - eig_vec(j,i+1) = Complex (z[j+off1],-z[j+off2]); + eig_vec(j, i+1) = Complex (z[j+off1], -z[j+off2]); } i+=2; } @@ -2454,7 +2454,7 @@ { for (F77_INT ii = ip(4); ii < k; ii++) for (F77_INT jj = 0; jj < n; jj++) - eig_vec(jj,ii) + eig_vec(jj, ii) = Complex (octave::numeric_limits<double>::NaN (), octave::numeric_limits<double>::NaN ()); } @@ -2462,7 +2462,7 @@ { for (F77_INT ii = ip(4); ii < k; ii++) for (F77_INT jj = 0; jj < n; jj++) - eig_vec(jj,ii) + eig_vec(jj, ii) = Complex (octave::numeric_limits<double>::NaN (), 0.); } } @@ -2651,11 +2651,11 @@ // On exit, ip(4) <= k + 1 is the number of converged eigenvalues // see dnaupd2. F77_FUNC (dnaupd, DNAUPD) - (ido, F77_CONST_CHAR_ARG2 (&bmat, 1), n, - F77_CONST_CHAR_ARG2 ((typ.c_str ()), 2), - k, tol, presid, p, v, n, iparam, - ipntr, workd, workl, lwork, tmp_info - F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(2)); + (ido, F77_CONST_CHAR_ARG2 (&bmat, 1), n, + F77_CONST_CHAR_ARG2 ((typ.c_str ()), 2), + k, tol, presid, p, v, n, iparam, + ipntr, workd, workl, lwork, tmp_info + F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(2)); // k is not changed info = tmp_info; @@ -2696,9 +2696,9 @@ { if (mode == 1) // regular mode with factorized B { - Matrix mtmp (n,1); + Matrix mtmp (n, 1); for (F77_INT i = 0; i < n; i++) - mtmp(i,0) = workd[i + iptr(0) - 1]; + mtmp(i, 0) = workd[i + iptr(0) - 1]; mtmp = utsolve (bt, permB, mtmp); ColumnVector y = fun (mtmp, err); @@ -2709,7 +2709,7 @@ mtmp = ltsolve (b, permB, y); for (F77_INT i = 0; i < n; i++) - workd[i+iptr(1)-1] = mtmp(i,0); + workd[i+iptr(1)-1] = mtmp(i, 0); } else // shift-invert mode { @@ -2814,11 +2814,11 @@ F77_INT k0 = k; // original number of eigenvalues required F77_FUNC (dneupd, DNEUPD) - (rvec, F77_CONST_CHAR_ARG2 ("A", 1), sel, dr, di, z, n, sigmar, - sigmai, workev, F77_CONST_CHAR_ARG2 (&bmat, 1), n, - F77_CONST_CHAR_ARG2 ((typ.c_str ()), 2), k, tol, presid, p, v, n, iparam, - ipntr, workd, workl, lwork, info2 F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(1) - F77_CHAR_ARG_LEN(2)); + (rvec, F77_CONST_CHAR_ARG2 ("A", 1), sel, dr, di, z, n, sigmar, + sigmai, workev, F77_CONST_CHAR_ARG2 (&bmat, 1), n, + F77_CONST_CHAR_ARG2 ((typ.c_str ()), 2), k, tol, presid, p, v, n, iparam, + ipntr, workd, workl, lwork, info2 F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(1) + F77_CHAR_ARG_LEN(2)); // On exit, if (and only if) rvec == true, k may have been increased by one // and be equal to ip(4), see dngets. @@ -2876,16 +2876,16 @@ if (std::imag (eig_val(i)) == 0) { for (F77_INT j = 0; j < n; j++) - eig_vec(j,i) = Complex (z[j+off1], 0.); + eig_vec(j, i) = Complex (z[j+off1], 0.); i++; } else { for (F77_INT j = 0; j < n; j++) { - eig_vec(j,i) = Complex (z[j+off1],z[j+off2]); + eig_vec(j, i) = Complex (z[j+off1], z[j+off2]); if (i < ip(4) - 1) - eig_vec(j,i+1) = Complex (z[j+off1],-z[j+off2]); + eig_vec(j, i+1) = Complex (z[j+off1], -z[j+off2]); } i+=2; } @@ -2894,7 +2894,7 @@ { for (F77_INT ii = ip(4); ii < k; ii++) for (F77_INT jj = 0; jj < n; jj++) - eig_vec(jj,ii) + eig_vec(jj, ii) = Complex (octave::numeric_limits<double>::NaN (), octave::numeric_limits<double>::NaN ()); } @@ -2902,7 +2902,7 @@ { for (F77_INT ii = ip(4); ii < k; ii++) for (F77_INT jj = 0; jj < n; jj++) - eig_vec(jj,ii) + eig_vec(jj, ii) = Complex (octave::numeric_limits<double>::NaN (), 0.); } if (note3) @@ -2958,7 +2958,7 @@ Array<double> ri (octave::rand::vector (n)); cresid = ComplexColumnVector (n); for (F77_INT i = 0; i < n; i++) - cresid(i) = Complex (rr(i),ri(i)); + cresid(i) = Complex (rr(i), ri(i)); octave::rand::distribution (rand_dist); } else if (m.cols () != cresid.numel ()) @@ -3071,12 +3071,12 @@ F77_INT tmp_info = octave::to_f77_int (info); F77_FUNC (znaupd, ZNAUPD) - (ido, F77_CONST_CHAR_ARG2 (&bmat, 1), n, - F77_CONST_CHAR_ARG2 (typ.c_str (), 2), - k, tol, F77_DBLE_CMPLX_ARG (presid), p, F77_DBLE_CMPLX_ARG (v), n, - iparam, ipntr, - F77_DBLE_CMPLX_ARG (workd), F77_DBLE_CMPLX_ARG (workl), lwork, rwork, - tmp_info F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(2)); + (ido, F77_CONST_CHAR_ARG2 (&bmat, 1), n, + F77_CONST_CHAR_ARG2 (typ.c_str (), 2), + k, tol, F77_DBLE_CMPLX_ARG (presid), p, F77_DBLE_CMPLX_ARG (v), n, + iparam, ipntr, + F77_DBLE_CMPLX_ARG (workd), F77_DBLE_CMPLX_ARG (workl), lwork, rwork, + tmp_info F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(2)); info = tmp_info; @@ -3113,12 +3113,12 @@ { if (have_b) { - ComplexMatrix mtmp (n,1); + ComplexMatrix mtmp (n, 1); for (F77_INT i = 0; i < n; i++) - mtmp(i,0) = workd[i + iptr(0) - 1]; + mtmp(i, 0) = workd[i + iptr(0) - 1]; mtmp = ltsolve (b, permB, m * utsolve (bt, permB, mtmp)); for (F77_INT i = 0; i < n; i++) - workd[i+iptr(1)-1] = mtmp(i,0); + workd[i+iptr(1)-1] = mtmp(i, 0); } else if (! vector_product (m, workd + iptr(0) - 1, @@ -3158,15 +3158,15 @@ OCTAVE_LOCAL_BUFFER (Complex, workev, 2 * p); F77_FUNC (zneupd, ZNEUPD) - (rvec, F77_CONST_CHAR_ARG2 ("A", 1), sel, F77_DBLE_CMPLX_ARG (d), - F77_DBLE_CMPLX_ARG (z), n, F77_CONST_DBLE_CMPLX_ARG (&sigma), - F77_DBLE_CMPLX_ARG (workev), - F77_CONST_CHAR_ARG2 (&bmat, 1), n, - F77_CONST_CHAR_ARG2 ((typ.c_str ()), 2), - k, tol, F77_DBLE_CMPLX_ARG (presid), p, F77_DBLE_CMPLX_ARG (v), n, - iparam, ipntr, - F77_DBLE_CMPLX_ARG (workd), F77_DBLE_CMPLX_ARG (workl), lwork, rwork, - info2 F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(2)); + (rvec, F77_CONST_CHAR_ARG2 ("A", 1), sel, F77_DBLE_CMPLX_ARG (d), + F77_DBLE_CMPLX_ARG (z), n, F77_CONST_DBLE_CMPLX_ARG (&sigma), + F77_DBLE_CMPLX_ARG (workev), + F77_CONST_CHAR_ARG2 (&bmat, 1), n, + F77_CONST_CHAR_ARG2 ((typ.c_str ()), 2), + k, tol, F77_DBLE_CMPLX_ARG (presid), p, F77_DBLE_CMPLX_ARG (v), n, + iparam, ipntr, + F77_DBLE_CMPLX_ARG (workd), F77_DBLE_CMPLX_ARG (workl), lwork, rwork, + info2 F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(2)); if (info2 == 0) { @@ -3265,7 +3265,7 @@ Array<double> ri (octave::rand::vector (n)); cresid = ComplexColumnVector (n); for (F77_INT i = 0; i < n; i++) - cresid(i) = Complex (rr(i),ri(i)); + cresid(i) = Complex (rr(i), ri(i)); octave::rand::distribution (rand_dist); } else if (m.cols () != cresid.numel ()) @@ -3359,12 +3359,12 @@ F77_INT tmp_info = octave::to_f77_int (info); F77_FUNC (znaupd, ZNAUPD) - (ido, F77_CONST_CHAR_ARG2 (&bmat, 1), n, - F77_CONST_CHAR_ARG2 ((typ.c_str ()), 2), - k, tol, F77_DBLE_CMPLX_ARG (presid), p, F77_DBLE_CMPLX_ARG (v), n, - iparam, ipntr, - F77_DBLE_CMPLX_ARG (workd), F77_DBLE_CMPLX_ARG (workl), lwork, rwork, - tmp_info F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(2)); + (ido, F77_CONST_CHAR_ARG2 (&bmat, 1), n, + F77_CONST_CHAR_ARG2 ((typ.c_str ()), 2), + k, tol, F77_DBLE_CMPLX_ARG (presid), p, F77_DBLE_CMPLX_ARG (v), n, + iparam, ipntr, + F77_DBLE_CMPLX_ARG (workd), F77_DBLE_CMPLX_ARG (workl), lwork, rwork, + tmp_info F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(2)); info = tmp_info; @@ -3410,13 +3410,13 @@ ComplexMatrix tmp (n, 1); for (F77_INT i = 0; i < n; i++) - tmp(i,0) = ctmp[P[i]] / r(P[i]); + tmp(i, 0) = ctmp[P[i]] / r(P[i]); lusolve (L, U, tmp); Complex *ip2 = workd+iptr(1)-1; for (F77_INT i = 0; i < n; i++) - ip2[Q[i]] = tmp(i,0); + ip2[Q[i]] = tmp(i, 0); } else if (ido == 2) vector_product (b, workd + iptr(0) - 1, workd + iptr(1) - 1); @@ -3426,13 +3426,13 @@ ComplexMatrix tmp (n, 1); for (F77_INT i = 0; i < n; i++) - tmp(i,0) = ip2[P[i]] / r(P[i]); + tmp(i, 0) = ip2[P[i]] / r(P[i]); lusolve (L, U, tmp); ip2 = workd+iptr(1)-1; for (F77_INT i = 0; i < n; i++) - ip2[Q[i]] = tmp(i,0); + ip2[Q[i]] = tmp(i, 0); } } else @@ -3442,13 +3442,13 @@ ComplexMatrix tmp (n, 1); for (F77_INT i = 0; i < n; i++) - tmp(i,0) = ip2[P[i]] / r(P[i]); + tmp(i, 0) = ip2[P[i]] / r(P[i]); lusolve (L, U, tmp); ip2 = workd+iptr(1)-1; for (F77_INT i = 0; i < n; i++) - ip2[Q[i]] = tmp(i,0); + ip2[Q[i]] = tmp(i, 0); } } else @@ -3484,15 +3484,15 @@ OCTAVE_LOCAL_BUFFER (Complex, workev, 2 * p); F77_FUNC (zneupd, ZNEUPD) - (rvec, F77_CONST_CHAR_ARG2 ("A", 1), sel, F77_DBLE_CMPLX_ARG (d), - F77_DBLE_CMPLX_ARG (z), n, F77_CONST_DBLE_CMPLX_ARG (&sigma), - F77_DBLE_CMPLX_ARG (workev), - F77_CONST_CHAR_ARG2 (&bmat, 1), n, - F77_CONST_CHAR_ARG2 ((typ.c_str ()), 2), - k, tol, F77_DBLE_CMPLX_ARG (presid), p, F77_DBLE_CMPLX_ARG (v), n, - iparam, ipntr, - F77_DBLE_CMPLX_ARG (workd), F77_DBLE_CMPLX_ARG (workl), lwork, rwork, - info2 F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(2)); + (rvec, F77_CONST_CHAR_ARG2 ("A", 1), sel, F77_DBLE_CMPLX_ARG (d), + F77_DBLE_CMPLX_ARG (z), n, F77_CONST_DBLE_CMPLX_ARG (&sigma), + F77_DBLE_CMPLX_ARG (workev), + F77_CONST_CHAR_ARG2 (&bmat, 1), n, + F77_CONST_CHAR_ARG2 ((typ.c_str ()), 2), + k, tol, F77_DBLE_CMPLX_ARG (presid), p, F77_DBLE_CMPLX_ARG (v), n, + iparam, ipntr, + F77_DBLE_CMPLX_ARG (workd), F77_DBLE_CMPLX_ARG (workl), lwork, rwork, + info2 F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(2)); if (info2 == 0) { @@ -3580,7 +3580,7 @@ Array<double> ri (octave::rand::vector (n)); cresid = ComplexColumnVector (n); for (F77_INT i = 0; i < n; i++) - cresid(i) = Complex (rr(i),ri(i)); + cresid(i) = Complex (rr(i), ri(i)); octave::rand::distribution (rand_dist); } else if (n != cresid.numel ()) @@ -3721,12 +3721,12 @@ F77_INT tmp_info = octave::to_f77_int (info); F77_FUNC (znaupd, ZNAUPD) - (ido, F77_CONST_CHAR_ARG2 (&bmat, 1), n, - F77_CONST_CHAR_ARG2 ((typ.c_str ()), 2), - k, tol, F77_DBLE_CMPLX_ARG (presid), p, F77_DBLE_CMPLX_ARG (v), n, - iparam, ipntr, - F77_DBLE_CMPLX_ARG (workd), F77_DBLE_CMPLX_ARG (workl), lwork, rwork, - tmp_info F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(2)); + (ido, F77_CONST_CHAR_ARG2 (&bmat, 1), n, + F77_CONST_CHAR_ARG2 ((typ.c_str ()), 2), + k, tol, F77_DBLE_CMPLX_ARG (presid), p, F77_DBLE_CMPLX_ARG (v), n, + iparam, ipntr, + F77_DBLE_CMPLX_ARG (workd), F77_DBLE_CMPLX_ARG (workl), lwork, rwork, + tmp_info F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(2)); info = tmp_info; @@ -3765,9 +3765,9 @@ { if (mode == 1) // regular mode with factorized B { - ComplexMatrix mtmp (n,1); + ComplexMatrix mtmp (n, 1); for (F77_INT i = 0; i < n; i++) - mtmp(i,0) = workd[i + iptr(0) - 1]; + mtmp(i, 0) = workd[i + iptr(0) - 1]; mtmp = utsolve (bt, permB, mtmp); ComplexColumnVector y = fun (mtmp, err); @@ -3778,7 +3778,7 @@ mtmp = ltsolve (b, permB, y); for (F77_INT i = 0; i < n; i++) - workd[i+iptr(1)-1] = mtmp(i,0); + workd[i+iptr(1)-1] = mtmp(i, 0); } else // shift-invert mode { @@ -3874,15 +3874,15 @@ OCTAVE_LOCAL_BUFFER (Complex, workev, 2 * p); F77_FUNC (zneupd, ZNEUPD) - (rvec, F77_CONST_CHAR_ARG2 ("A", 1), sel, F77_DBLE_CMPLX_ARG (d), - F77_DBLE_CMPLX_ARG (z), n, F77_DBLE_CMPLX_ARG (&sigma), - F77_DBLE_CMPLX_ARG (workev), - F77_CONST_CHAR_ARG2 (&bmat, 1), n, - F77_CONST_CHAR_ARG2 ((typ.c_str ()), 2), - k, tol, F77_DBLE_CMPLX_ARG (presid), p, F77_DBLE_CMPLX_ARG (v), n, - iparam, ipntr, - F77_DBLE_CMPLX_ARG (workd), F77_DBLE_CMPLX_ARG (workl), lwork, rwork, - info2 F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(2)); + (rvec, F77_CONST_CHAR_ARG2 ("A", 1), sel, F77_DBLE_CMPLX_ARG (d), + F77_DBLE_CMPLX_ARG (z), n, F77_DBLE_CMPLX_ARG (&sigma), + F77_DBLE_CMPLX_ARG (workev), + F77_CONST_CHAR_ARG2 (&bmat, 1), n, + F77_CONST_CHAR_ARG2 ((typ.c_str ()), 2), + k, tol, F77_DBLE_CMPLX_ARG (presid), p, F77_DBLE_CMPLX_ARG (v), n, + iparam, ipntr, + F77_DBLE_CMPLX_ARG (workd), F77_DBLE_CMPLX_ARG (workl), lwork, rwork, + info2 F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(1) F77_CHAR_ARG_LEN(2)); if (info2 == 0) {
--- a/liboctave/numeric/gepbalance.cc Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/numeric/gepbalance.cc Mon Nov 29 10:03:47 2021 -0800 @@ -81,8 +81,8 @@ for (F77_INT i = 0; i < n; i++) { octave_quit (); - m_balancing_mat.elem (i,i) = 1.0; - m_balancing_mat2.elem (i,i) = 1.0; + m_balancing_mat.elem (i, i) = 1.0; + m_balancing_mat2.elem (i, i) = 1.0; } double *p_balancing_mat = m_balancing_mat.fortran_vec (); @@ -147,8 +147,8 @@ for (F77_INT i = 0; i < n; i++) { octave_quit (); - m_balancing_mat.elem (i,i) = 1.0; - m_balancing_mat2.elem (i,i) = 1.0; + m_balancing_mat.elem (i, i) = 1.0; + m_balancing_mat2.elem (i, i) = 1.0; } float *p_balancing_mat = m_balancing_mat.fortran_vec (); @@ -215,8 +215,8 @@ for (F77_INT i = 0; i < n; i++) { octave_quit (); - m_balancing_mat.elem (i,i) = 1.0; - m_balancing_mat2.elem (i,i) = 1.0; + m_balancing_mat.elem (i, i) = 1.0; + m_balancing_mat2.elem (i, i) = 1.0; } double *p_balancing_mat = m_balancing_mat.fortran_vec (); @@ -286,8 +286,8 @@ for (F77_INT i = 0; i < n; i++) { octave_quit (); - m_balancing_mat.elem (i,i) = 1.0; - m_balancing_mat2.elem (i,i) = 1.0; + m_balancing_mat.elem (i, i) = 1.0; + m_balancing_mat2.elem (i, i) = 1.0; } float *p_balancing_mat = m_balancing_mat.fortran_vec ();
--- a/liboctave/numeric/gsvd.cc Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/numeric/gsvd.cc Mon Nov 29 10:03:47 2021 -0800 @@ -98,22 +98,22 @@ const F77_INT&, // M const F77_INT&, // N const F77_INT&, // P - F77_INT &, // K - F77_INT &, // L - T1*, // A(LDA,N) + F77_INT&, // K + F77_INT&, // L + T1 *, // A(LDA,N) const F77_INT&, // LDA - T1*, // B(LDB,N) + T1 *, // B(LDB,N) const F77_INT&, // LDB - T1*, // ALPHA(N) - T1*, // BETA(N) - T1*, // U(LDU,M) + T1 *, // ALPHA(N) + T1 *, // BETA(N) + T1 *, // U(LDU,M) const F77_INT&, // LDU - T1*, // V(LDV,P) + T1 *, // V(LDV,P) const F77_INT&, // LDV - T1*, // Q(LDQ,N) + T1 *, // Q(LDQ,N) const F77_INT&, // LDQ - T1*, // WORK - F77_INT*, // IWORK(N) + T1 *, // WORK + F77_INT *, // IWORK(N) F77_INT& // INFO F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL @@ -130,23 +130,23 @@ const F77_INT&, // M const F77_INT&, // N const F77_INT&, // P - F77_INT &, // K - F77_INT &, // L - T1*, // A(LDA,N) + F77_INT&, // K + F77_INT&, // L + T1 *, // A(LDA,N) const F77_INT&, // LDA - T1*, // B(LDB,N) + T1 *, // B(LDB,N) const F77_INT&, // LDB - T1*, // ALPHA(N) - T1*, // BETA(N) - T1*, // U(LDU,M) + T1 *, // ALPHA(N) + T1 *, // BETA(N) + T1 *, // U(LDU,M) const F77_INT&, // LDU - T1*, // V(LDV,P) + T1 *, // V(LDV,P) const F77_INT&, // LDV - T1*, // Q(LDQ,N) + T1 *, // Q(LDQ,N) const F77_INT&, // LDQ - T1*, // WORK + T1 *, // WORK const F77_INT&, // LWORK - F77_INT*, // IWORK(N) + F77_INT *, // IWORK(N) F77_INT& // INFO F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL @@ -163,23 +163,23 @@ const F77_INT&, // M const F77_INT&, // N const F77_INT&, // P - F77_INT &, // K - F77_INT &, // L - T1*, // A(LDA,N) + F77_INT&, // K + F77_INT&, // L + T1 *, // A(LDA,N) const F77_INT&, // LDA - T1*, // B(LDB,N) + T1 *, // B(LDB,N) const F77_INT&, // LDB - T2*, // ALPHA(N) - T2*, // BETA(N) - T1*, // U(LDU,M) + T2 *, // ALPHA(N) + T2 *, // BETA(N) + T1 *, // U(LDU,M) const F77_INT&, // LDU - T1*, // V(LDV,P) + T1 *, // V(LDV,P) const F77_INT&, // LDV - T1*, // Q(LDQ,N) + T1 *, // Q(LDQ,N) const F77_INT&, // LDQ - T1*, // WORK - T2*, // RWORK - F77_INT*, // IWORK(N) + T1 *, // WORK + T2 *, // RWORK + F77_INT *, // IWORK(N) F77_INT& // INFO F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL @@ -196,24 +196,24 @@ const F77_INT&, // M const F77_INT&, // N const F77_INT&, // P - F77_INT &, // K - F77_INT &, // L - T1*, // A(LDA,N) + F77_INT&, // K + F77_INT&, // L + T1 *, // A(LDA,N) const F77_INT&, // LDA - T1*, // B(LDB,N) + T1 *, // B(LDB,N) const F77_INT&, // LDB - T2*, // ALPHA(N) - T2*, // BETA(N) - T1*, // U(LDU,M) + T2 *, // ALPHA(N) + T2 *, // BETA(N) + T1 *, // U(LDU,M) const F77_INT&, // LDU - T1*, // V(LDV,P) + T1 *, // V(LDV,P) const F77_INT&, // LDV - T1*, // Q(LDQ,N) + T1 *, // Q(LDQ,N) const F77_INT&, // LDQ - T1*, // WORK + T1 *, // WORK const F77_INT&, // LWORK - T2*, // RWORK - F77_INT*, // IWORK(N) + T2 *, // RWORK + F77_INT *, // IWORK(N) F77_INT& // INFO F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL @@ -601,7 +601,7 @@ // and R33 is stored in B(M-K+1:L,N+M-K-L+1:N) for (i = m; i < k + l; i++) for (j = n - l - k + m; j < n; j++) - R.xelem (i, j) = btmp.xelem (i - k, j); + R.xelem (i, j) = btmp.xelem (i - k, j); } // Output X = Q*R' @@ -670,12 +670,12 @@ m_sigmaB.resize (p, n); for (i = 0; i < k; i++) - m_sigmaA.xelem (i,i) = 1.0; + m_sigmaA.xelem (i, i) = 1.0; for (i = 0; i < rank; i++) { - m_sigmaA.xelem (k+i,k+i) = alpha.xelem (k+i); - m_sigmaB.xelem (i,k+i) = beta.xelem (k+i); + m_sigmaA.xelem (k+i, k+i) = alpha.xelem (k+i); + m_sigmaB.xelem (i, k+i) = beta.xelem (k+i); } if (! fill_ptn)
--- a/liboctave/numeric/lo-amos-proto.h Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/numeric/lo-amos-proto.h Mon Nov 29 10:03:47 2021 -0800 @@ -35,8 +35,8 @@ // AIRY F77_RET_T - F77_FUNC (cairy, CAIRY) (const F77_CMPLX*, const F77_INT&, - const F77_INT&, F77_CMPLX*, + F77_FUNC (cairy, CAIRY) (const F77_CMPLX *, const F77_INT&, + const F77_INT&, F77_CMPLX *, F77_INT&, F77_INT&); F77_RET_T @@ -48,75 +48,75 @@ // BESH F77_RET_T - F77_FUNC (cbesh, CBESH) (const F77_CMPLX*, const F77_REAL&, + F77_FUNC (cbesh, CBESH) (const F77_CMPLX *, const F77_REAL&, const F77_INT&, const F77_INT&, - const F77_INT&, F77_CMPLX*, + const F77_INT&, F77_CMPLX *, F77_INT&, F77_INT&); F77_RET_T F77_FUNC (zbesh, ZBESH) (const F77_DBLE&, const F77_DBLE&, const F77_DBLE&, const F77_INT&, const F77_INT&, - const F77_INT&, F77_DBLE*, F77_DBLE*, + const F77_INT&, F77_DBLE *, F77_DBLE *, F77_INT&, F77_INT&); // BESI F77_RET_T - F77_FUNC (cbesi, CBESI) (const F77_CMPLX*, const F77_REAL&, + F77_FUNC (cbesi, CBESI) (const F77_CMPLX *, const F77_REAL&, const F77_INT&, const F77_INT&, - F77_CMPLX*, F77_INT&, F77_INT&); + F77_CMPLX *, F77_INT&, F77_INT&); F77_RET_T F77_FUNC (zbesi, ZBESI) (const F77_DBLE&, const F77_DBLE&, const F77_DBLE&, const F77_INT&, const F77_INT&, - F77_DBLE*, F77_DBLE*, F77_INT&, + F77_DBLE *, F77_DBLE *, F77_INT&, F77_INT&); // BESJ F77_RET_T - F77_FUNC (cbesj, cBESJ) (const F77_CMPLX*, const F77_REAL&, + F77_FUNC (cbesj, cBESJ) (const F77_CMPLX *, const F77_REAL&, const F77_INT&, const F77_INT&, - F77_CMPLX*, F77_INT&, F77_INT&); + F77_CMPLX *, F77_INT&, F77_INT&); F77_RET_T F77_FUNC (zbesj, ZBESJ) (const F77_DBLE&, const F77_DBLE&, const F77_DBLE&, const F77_INT&, const F77_INT&, - F77_DBLE*, F77_DBLE*, F77_INT&, + F77_DBLE *, F77_DBLE *, F77_INT&, F77_INT&); // BESK F77_RET_T - F77_FUNC (cbesk, CBESK) (const F77_CMPLX*, const F77_REAL&, + F77_FUNC (cbesk, CBESK) (const F77_CMPLX *, const F77_REAL&, const F77_INT&, const F77_INT&, - F77_CMPLX*, F77_INT&, F77_INT&); + F77_CMPLX *, F77_INT&, F77_INT&); F77_RET_T F77_FUNC (zbesk, ZBESK) (const F77_DBLE&, const F77_DBLE&, const F77_DBLE&, const F77_INT&, const F77_INT&, - F77_DBLE*, F77_DBLE*, F77_INT&, + F77_DBLE *, F77_DBLE *, F77_INT&, F77_INT&); // BESY F77_RET_T - F77_FUNC (cbesy, CBESY) (const F77_CMPLX*, const F77_REAL&, + F77_FUNC (cbesy, CBESY) (const F77_CMPLX *, const F77_REAL&, const F77_INT&, const F77_INT&, - F77_CMPLX*, F77_INT&, - F77_CMPLX*, F77_INT&); + F77_CMPLX *, F77_INT&, + F77_CMPLX *, F77_INT&); F77_RET_T F77_FUNC (zbesy, ZBESY) (const F77_DBLE&, const F77_DBLE&, const F77_DBLE&, const F77_INT&, const F77_INT&, - F77_DBLE*, F77_DBLE*, F77_INT&, F77_DBLE*, - F77_DBLE*, F77_INT&); + F77_DBLE *, F77_DBLE *, F77_INT&, F77_DBLE *, + F77_DBLE *, F77_INT&); // BIRY F77_RET_T - F77_FUNC (cbiry, CBIRY) (const F77_CMPLX*, const F77_INT&, const F77_INT&, - const F77_CMPLX*, F77_INT&); + F77_FUNC (cbiry, CBIRY) (const F77_CMPLX *, const F77_INT&, const F77_INT&, + const F77_CMPLX *, F77_INT&); F77_RET_T F77_FUNC (zbiry, ZBIRY) (const F77_DBLE&, const F77_DBLE&,
--- a/liboctave/numeric/lo-arpack-proto.h Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/numeric/lo-arpack-proto.h Mon Nov 29 10:03:47 2021 -0800 @@ -43,9 +43,9 @@ const F77_INT&, F77_CONST_CHAR_ARG_DECL, F77_INT&, const F77_DBLE&, - F77_DBLE*, const F77_INT&, F77_DBLE*, - const F77_INT&, F77_INT*, - F77_INT*, F77_DBLE*, F77_DBLE*, + F77_DBLE *, const F77_INT&, F77_DBLE *, + const F77_INT&, F77_INT *, + F77_INT *, F77_DBLE *, F77_DBLE *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -56,9 +56,9 @@ const F77_INT&, F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_DBLE&, - F77_DBLE_CMPLX*, const F77_INT&, F77_DBLE_CMPLX*, - const F77_INT&, F77_INT*, - F77_INT*, F77_DBLE_CMPLX*, F77_DBLE_CMPLX*, + F77_DBLE_CMPLX *, const F77_INT&, F77_DBLE_CMPLX *, + const F77_INT&, F77_INT *, + F77_INT *, F77_DBLE_CMPLX *, F77_DBLE_CMPLX *, const F77_INT&, F77_DBLE *, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -68,16 +68,16 @@ F77_RET_T F77_FUNC (dneupd, DNEUPD) (const F77_INT&, F77_CONST_CHAR_ARG_DECL, - F77_INT*, F77_DBLE*, F77_DBLE*, - F77_DBLE*, const F77_INT&, const F77_DBLE&, - const F77_DBLE&, F77_DBLE*, + F77_INT *, F77_DBLE *, F77_DBLE *, + F77_DBLE *, const F77_INT&, const F77_DBLE&, + const F77_DBLE&, F77_DBLE *, F77_CONST_CHAR_ARG_DECL, const F77_INT&, F77_CONST_CHAR_ARG_DECL, - F77_INT&, const F77_DBLE&, F77_DBLE*, - const F77_INT&, F77_DBLE*, - const F77_INT&, F77_INT*, - F77_INT*, F77_DBLE*, F77_DBLE*, + F77_INT&, const F77_DBLE&, F77_DBLE *, + const F77_INT&, F77_DBLE *, + const F77_INT&, F77_INT *, + F77_INT *, F77_DBLE *, F77_DBLE *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL @@ -86,16 +86,16 @@ F77_RET_T F77_FUNC (zneupd, ZNEUPD) (const F77_INT&, F77_CONST_CHAR_ARG_DECL, - F77_INT*, F77_DBLE_CMPLX*, F77_DBLE_CMPLX*, - const F77_INT&, const F77_DBLE_CMPLX*, - F77_DBLE_CMPLX*, + F77_INT *, F77_DBLE_CMPLX *, F77_DBLE_CMPLX *, + const F77_INT&, const F77_DBLE_CMPLX *, + F77_DBLE_CMPLX *, F77_CONST_CHAR_ARG_DECL, const F77_INT&, F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_DBLE&, - F77_DBLE_CMPLX*, const F77_INT&, F77_DBLE_CMPLX*, - const F77_INT&, F77_INT*, - F77_INT*, F77_DBLE_CMPLX*, F77_DBLE_CMPLX*, + F77_DBLE_CMPLX *, const F77_INT&, F77_DBLE_CMPLX *, + const F77_INT&, F77_INT *, + F77_INT *, F77_DBLE_CMPLX *, F77_DBLE_CMPLX *, const F77_INT&, F77_DBLE *, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL @@ -109,9 +109,9 @@ const F77_INT&, F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_DBLE&, - F77_DBLE*, const F77_INT&, F77_DBLE*, - const F77_INT&, F77_INT*, - F77_INT*, F77_DBLE*, F77_DBLE*, + F77_DBLE *, const F77_INT&, F77_DBLE *, + const F77_INT&, F77_INT *, + F77_INT *, F77_DBLE *, F77_DBLE *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -121,15 +121,15 @@ F77_RET_T F77_FUNC (dseupd, DSEUPD) (const F77_INT&, F77_CONST_CHAR_ARG_DECL, - F77_INT*, F77_DBLE*, F77_DBLE*, + F77_INT *, F77_DBLE *, F77_DBLE *, const F77_INT&, const F77_DBLE&, F77_CONST_CHAR_ARG_DECL, const F77_INT&, F77_CONST_CHAR_ARG_DECL, - const F77_INT&, const F77_DBLE&, F77_DBLE*, - const F77_INT&, F77_DBLE*, - const F77_INT&, F77_INT*, - F77_INT*, F77_DBLE*, F77_DBLE*, + const F77_INT&, const F77_DBLE&, F77_DBLE *, + const F77_INT&, F77_DBLE *, + const F77_INT&, F77_INT *, + F77_INT *, F77_DBLE *, F77_DBLE *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL
--- a/liboctave/numeric/lo-blas-proto.h Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/numeric/lo-blas-proto.h Mon Nov 29 10:03:47 2021 -0800 @@ -35,62 +35,62 @@ // DOT (liboctave/external/blas-xtra) F77_RET_T - F77_FUNC (xddot, XDDOT) (const F77_INT&, const F77_DBLE*, - const F77_INT&, const F77_DBLE*, + F77_FUNC (xddot, XDDOT) (const F77_INT&, const F77_DBLE *, + const F77_INT&, const F77_DBLE *, const F77_INT&, F77_DBLE&); F77_RET_T - F77_FUNC (xsdot, XSDOT) (const F77_INT&, const F77_REAL*, - const F77_INT&, const F77_REAL*, + F77_FUNC (xsdot, XSDOT) (const F77_INT&, const F77_REAL *, + const F77_INT&, const F77_REAL *, const F77_INT&, F77_REAL&); // DOT3 F77_RET_T F77_FUNC (ddot3, DDOT3) (const F77_INT&, const F77_INT&, - const F77_INT&, const F77_DBLE*, - const F77_DBLE*, F77_DBLE*); + const F77_INT&, const F77_DBLE *, + const F77_DBLE *, F77_DBLE *); F77_RET_T F77_FUNC (sdot3, SDOT3) (const F77_INT&, const F77_INT&, - const F77_INT&, const F77_REAL*, - const F77_REAL*, F77_REAL*); + const F77_INT&, const F77_REAL *, + const F77_REAL *, F77_REAL *); // DOTC (liboctave/external/blas-xtra) F77_RET_T - F77_FUNC (xcdotc, XCDOTC) (const F77_INT&, const F77_CMPLX*, - const F77_INT&, const F77_CMPLX*, - const F77_INT&, F77_CMPLX*); + F77_FUNC (xcdotc, XCDOTC) (const F77_INT&, const F77_CMPLX *, + const F77_INT&, const F77_CMPLX *, + const F77_INT&, F77_CMPLX *); F77_RET_T - F77_FUNC (xzdotc, XZDOTC) (const F77_INT&, const F77_DBLE_CMPLX*, - const F77_INT&, const F77_DBLE_CMPLX*, - const F77_INT&, F77_DBLE_CMPLX*); + F77_FUNC (xzdotc, XZDOTC) (const F77_INT&, const F77_DBLE_CMPLX *, + const F77_INT&, const F77_DBLE_CMPLX *, + const F77_INT&, F77_DBLE_CMPLX *); // DOTC3 F77_RET_T F77_FUNC (cdotc3, CDOTC3) (const F77_INT&, const F77_INT&, - const F77_INT&, const F77_CMPLX*, - const F77_CMPLX*, F77_CMPLX*); + const F77_INT&, const F77_CMPLX *, + const F77_CMPLX *, F77_CMPLX *); F77_RET_T F77_FUNC (zdotc3, ZDOTC3) (const F77_INT&, const F77_INT&, - const F77_INT&, const F77_DBLE_CMPLX*, - const F77_DBLE_CMPLX*, F77_DBLE_CMPLX*); + const F77_INT&, const F77_DBLE_CMPLX *, + const F77_DBLE_CMPLX *, F77_DBLE_CMPLX *); // DOTU (liboctave/external/blas-xtra) F77_RET_T - F77_FUNC (xcdotu, XCDOTU) (const F77_INT&, const F77_CMPLX*, - const F77_INT&, const F77_CMPLX*, - const F77_INT&, F77_CMPLX*); + F77_FUNC (xcdotu, XCDOTU) (const F77_INT&, const F77_CMPLX *, + const F77_INT&, const F77_CMPLX *, + const F77_INT&, F77_CMPLX *); F77_RET_T - F77_FUNC (xzdotu, XZDOTU) (const F77_INT&, const F77_DBLE_CMPLX*, - const F77_INT&, const F77_DBLE_CMPLX*, - const F77_INT&, F77_DBLE_CMPLX*); + F77_FUNC (xzdotu, XZDOTU) (const F77_INT&, const F77_DBLE_CMPLX *, + const F77_INT&, const F77_DBLE_CMPLX *, + const F77_INT&, F77_DBLE_CMPLX *); // GEMM @@ -99,9 +99,9 @@ F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, const F77_INT&, const F77_CMPLX&, - const F77_CMPLX*, const F77_INT&, - const F77_CMPLX*, const F77_INT&, - const F77_CMPLX&, F77_CMPLX*, + const F77_CMPLX *, const F77_INT&, + const F77_CMPLX *, const F77_INT&, + const F77_CMPLX&, F77_CMPLX *, const F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -111,9 +111,9 @@ F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, const F77_INT&, const F77_DBLE&, - const F77_DBLE*, const F77_INT&, - const F77_DBLE*, const F77_INT&, - const F77_DBLE&, F77_DBLE*, + const F77_DBLE *, const F77_INT&, + const F77_DBLE *, const F77_INT&, + const F77_DBLE&, F77_DBLE *, const F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -123,9 +123,9 @@ F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, const F77_INT&, const F77_REAL&, - const F77_REAL*, const F77_INT&, - const F77_REAL*, const F77_INT&, - const F77_REAL&, F77_REAL*, + const F77_REAL *, const F77_INT&, + const F77_REAL *, const F77_INT&, + const F77_REAL&, F77_REAL *, const F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -135,9 +135,9 @@ F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, const F77_INT&, const F77_DBLE_CMPLX&, - const F77_DBLE_CMPLX*, const F77_INT&, - const F77_DBLE_CMPLX*, const F77_INT&, - const F77_DBLE_CMPLX&, F77_DBLE_CMPLX*, + const F77_DBLE_CMPLX *, const F77_INT&, + const F77_DBLE_CMPLX *, const F77_INT&, + const F77_DBLE_CMPLX&, F77_DBLE_CMPLX *, const F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -147,37 +147,37 @@ F77_RET_T F77_FUNC (cgemv, CGEMV) (F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - const F77_CMPLX&, const F77_CMPLX*, - const F77_INT&, const F77_CMPLX*, + const F77_CMPLX&, const F77_CMPLX *, + const F77_INT&, const F77_CMPLX *, const F77_INT&, const F77_CMPLX&, - F77_CMPLX*, const F77_INT& + F77_CMPLX *, const F77_INT& F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (dgemv, DGEMV) (F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - const F77_DBLE&, const F77_DBLE*, - const F77_INT&, const F77_DBLE*, + const F77_DBLE&, const F77_DBLE *, + const F77_INT&, const F77_DBLE *, const F77_INT&, const F77_DBLE&, - F77_DBLE*, const F77_INT& + F77_DBLE *, const F77_INT& F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (sgemv, SGEMV) (F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - const F77_REAL&, const F77_REAL*, - const F77_INT&, const F77_REAL*, + const F77_REAL&, const F77_REAL *, + const F77_INT&, const F77_REAL *, const F77_INT&, const F77_REAL&, - F77_REAL*, const F77_INT& + F77_REAL *, const F77_INT& F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (zgemv, ZGEMV) (F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - const F77_DBLE_CMPLX&, const F77_DBLE_CMPLX*, - const F77_INT&, const F77_DBLE_CMPLX*, + const F77_DBLE_CMPLX&, const F77_DBLE_CMPLX *, + const F77_INT&, const F77_DBLE_CMPLX *, const F77_INT&, const F77_DBLE_CMPLX&, - F77_DBLE_CMPLX*, const F77_INT& + F77_DBLE_CMPLX *, const F77_INT& F77_CHAR_ARG_LEN_DECL); // MATM3 @@ -185,23 +185,23 @@ F77_RET_T F77_FUNC (cmatm3, CMATM3) (const F77_INT&, const F77_INT&, const F77_INT&, const F77_INT&, - const F77_CMPLX*, const F77_CMPLX*, - F77_CMPLX*); + const F77_CMPLX *, const F77_CMPLX *, + F77_CMPLX *); F77_RET_T F77_FUNC (dmatm3, DMATM3) (const F77_INT&, const F77_INT&, const F77_INT&, const F77_INT&, - const F77_DBLE*, const F77_DBLE*, F77_DBLE*); + const F77_DBLE *, const F77_DBLE *, F77_DBLE *); F77_RET_T F77_FUNC (smatm3, SMATM3) (const F77_INT&, const F77_INT&, const F77_INT&, const F77_INT&, - const F77_REAL*, const F77_REAL*, F77_REAL*); + const F77_REAL *, const F77_REAL *, F77_REAL *); F77_RET_T F77_FUNC (zmatm3, ZMATM3) (const F77_INT&, const F77_INT&, const F77_INT&, const F77_INT&, - const F77_DBLE_CMPLX*, const F77_DBLE_CMPLX*, - F77_DBLE_CMPLX*); + const F77_DBLE_CMPLX *, const F77_DBLE_CMPLX *, + F77_DBLE_CMPLX *); // XERBLA
--- a/liboctave/numeric/lo-lapack-proto.h Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/numeric/lo-lapack-proto.h Mon Nov 29 10:03:47 2021 -0800 @@ -38,19 +38,19 @@ F77_RET_T F77_FUNC (dgbcon, DGBCON) (F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - const F77_INT&, F77_DBLE*, - const F77_INT&, const F77_INT*, - const F77_DBLE&, F77_DBLE&, F77_DBLE*, - F77_INT*, F77_INT& + const F77_INT&, F77_DBLE *, + const F77_INT&, const F77_INT *, + const F77_DBLE&, F77_DBLE&, F77_DBLE *, + F77_INT *, F77_INT& F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (zgbcon, ZGBCON) (F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - const F77_INT&, F77_DBLE_CMPLX*, - const F77_INT&, const F77_INT*, - const F77_DBLE&, F77_DBLE&, F77_DBLE_CMPLX*, - F77_DBLE*, F77_INT& + const F77_INT&, F77_DBLE_CMPLX *, + const F77_INT&, const F77_INT *, + const F77_DBLE&, F77_DBLE&, F77_DBLE_CMPLX *, + F77_DBLE *, F77_INT& F77_CHAR_ARG_LEN_DECL); // GBTRF @@ -58,14 +58,14 @@ F77_RET_T F77_FUNC (dgbtrf, DGBTRF) (const F77_INT&, const F77_INT&, const F77_INT&, const F77_INT&, - F77_DBLE*, const F77_INT&, - F77_INT*, F77_INT&); + F77_DBLE *, const F77_INT&, + F77_INT *, F77_INT&); F77_RET_T F77_FUNC (zgbtrf, ZGBTRF) (const F77_INT&, const F77_INT&, const F77_INT&, const F77_INT&, - F77_DBLE_CMPLX*, const F77_INT&, - F77_INT*, F77_INT&); + F77_DBLE_CMPLX *, const F77_INT&, + F77_INT *, F77_INT&); // GBTRS @@ -73,8 +73,8 @@ F77_FUNC (dgbtrs, DGBTRS) (F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, const F77_INT&, const F77_INT&, - const F77_DBLE*, const F77_INT&, - const F77_INT*, F77_DBLE*, + const F77_DBLE *, const F77_INT&, + const F77_INT *, F77_DBLE *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL); @@ -82,8 +82,8 @@ F77_FUNC (zgbtrs, ZGBTRS) (F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, const F77_INT&, const F77_INT&, - const F77_DBLE_CMPLX*, const F77_INT&, - const F77_INT*, F77_DBLE_CMPLX*, + const F77_DBLE_CMPLX *, const F77_INT&, + const F77_INT *, F77_DBLE_CMPLX *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL); @@ -91,30 +91,30 @@ F77_RET_T F77_FUNC (cgebal, CGEBAL) (F77_CONST_CHAR_ARG_DECL, - const F77_INT&, F77_CMPLX*, + const F77_INT&, F77_CMPLX *, const F77_INT&, F77_INT&, - F77_INT&, F77_REAL*, F77_INT& + F77_INT&, F77_REAL *, F77_INT& F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (dgebal, DGEBAL) (F77_CONST_CHAR_ARG_DECL, - const F77_INT&, F77_DBLE*, + const F77_INT&, F77_DBLE *, const F77_INT&, F77_INT&, - F77_INT&, F77_DBLE*, F77_INT& + F77_INT&, F77_DBLE *, F77_INT& F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (sgebal, SGEBAL) (F77_CONST_CHAR_ARG_DECL, - const F77_INT&, F77_REAL*, + const F77_INT&, F77_REAL *, const F77_INT&, F77_INT&, - F77_INT&, F77_REAL*, F77_INT& + F77_INT&, F77_REAL *, F77_INT& F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (zgebal, ZGEBAL) (F77_CONST_CHAR_ARG_DECL, - const F77_INT&, F77_DBLE_CMPLX*, + const F77_INT&, F77_DBLE_CMPLX *, const F77_INT&, F77_INT&, - F77_INT&, F77_DBLE*, F77_INT& + F77_INT&, F77_DBLE *, F77_INT& F77_CHAR_ARG_LEN_DECL); // GEBAK @@ -123,8 +123,8 @@ F77_FUNC (cgebak, CGEBAK) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - const F77_INT&, const F77_REAL*, - const F77_INT&, F77_CMPLX*, + const F77_INT&, const F77_REAL *, + const F77_INT&, F77_CMPLX *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -133,8 +133,8 @@ F77_FUNC (dgebak, DGEBAK) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - const F77_INT&, const F77_DBLE*, - const F77_INT&, F77_DBLE*, + const F77_INT&, const F77_DBLE *, + const F77_INT&, F77_DBLE *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -143,8 +143,8 @@ F77_FUNC (sgebak, SGEBAK) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - const F77_INT&, const F77_REAL*, - const F77_INT&, F77_REAL*, + const F77_INT&, const F77_REAL *, + const F77_INT&, F77_REAL *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -153,8 +153,8 @@ F77_FUNC (zgebak, ZGEBAK) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - const F77_INT&, const F77_DBLE*, - const F77_INT&, F77_DBLE_CMPLX*, + const F77_INT&, const F77_DBLE *, + const F77_INT&, F77_DBLE_CMPLX *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -163,133 +163,133 @@ F77_RET_T F77_FUNC (cgecon, CGECON) (F77_CONST_CHAR_ARG_DECL, - const F77_INT&, F77_CMPLX*, + const F77_INT&, F77_CMPLX *, const F77_INT&, const F77_REAL&, F77_REAL&, - F77_CMPLX*, F77_REAL*, F77_INT& + F77_CMPLX *, F77_REAL *, F77_INT& F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (dgecon, DGECON) (F77_CONST_CHAR_ARG_DECL, - const F77_INT&, F77_DBLE*, + const F77_INT&, F77_DBLE *, const F77_INT&, const F77_DBLE&, F77_DBLE&, - F77_DBLE*, F77_INT*, F77_INT& + F77_DBLE *, F77_INT *, F77_INT& F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (sgecon, SGECON) (F77_CONST_CHAR_ARG_DECL, - const F77_INT&, F77_REAL*, + const F77_INT&, F77_REAL *, const F77_INT&, const F77_REAL&, F77_REAL&, - F77_REAL*, F77_INT*, F77_INT& + F77_REAL *, F77_INT *, F77_INT& F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (zgecon, ZGECON) (F77_CONST_CHAR_ARG_DECL, - const F77_INT&, F77_DBLE_CMPLX*, + const F77_INT&, F77_DBLE_CMPLX *, const F77_INT&, const F77_DBLE&, F77_DBLE&, - F77_DBLE_CMPLX*, F77_DBLE*, F77_INT& + F77_DBLE_CMPLX *, F77_DBLE *, F77_INT& F77_CHAR_ARG_LEN_DECL); // GEHRD F77_RET_T F77_FUNC (cgehrd, CGEHRD) (const F77_INT&, const F77_INT&, - const F77_INT&, F77_CMPLX*, - const F77_INT&, F77_CMPLX*, F77_CMPLX*, + const F77_INT&, F77_CMPLX *, + const F77_INT&, F77_CMPLX *, F77_CMPLX *, const F77_INT&, F77_INT&); F77_RET_T F77_FUNC (dgehrd, DGEHRD) (const F77_INT&, const F77_INT&, - const F77_INT&, F77_DBLE*, - const F77_INT&, F77_DBLE*, F77_DBLE*, + const F77_INT&, F77_DBLE *, + const F77_INT&, F77_DBLE *, F77_DBLE *, const F77_INT&, F77_INT&); F77_RET_T F77_FUNC (sgehrd, SGEHRD) (const F77_INT&, const F77_INT&, - const F77_INT&, F77_REAL*, - const F77_INT&, F77_REAL*, F77_REAL*, + const F77_INT&, F77_REAL *, + const F77_INT&, F77_REAL *, F77_REAL *, const F77_INT&, F77_INT&); F77_RET_T F77_FUNC (zgehrd, ZGEHRD) (const F77_INT&, const F77_INT&, - const F77_INT&, F77_DBLE_CMPLX*, - const F77_INT&, F77_DBLE_CMPLX*, F77_DBLE_CMPLX*, + const F77_INT&, F77_DBLE_CMPLX *, + const F77_INT&, F77_DBLE_CMPLX *, F77_DBLE_CMPLX *, const F77_INT&, F77_INT&); // GEQP3 F77_RET_T F77_FUNC (cgeqp3, CGEQP3) (const F77_INT&, const F77_INT&, - F77_CMPLX*, const F77_INT&, - F77_INT*, F77_CMPLX*, F77_CMPLX*, - const F77_INT&, F77_REAL*, F77_INT&); + F77_CMPLX *, const F77_INT&, + F77_INT *, F77_CMPLX *, F77_CMPLX *, + const F77_INT&, F77_REAL *, F77_INT&); F77_RET_T F77_FUNC (dgeqp3, DGEQP3) (const F77_INT&, const F77_INT&, - F77_DBLE*, const F77_INT&, - F77_INT*, F77_DBLE*, F77_DBLE*, + F77_DBLE *, const F77_INT&, + F77_INT *, F77_DBLE *, F77_DBLE *, const F77_INT&, F77_INT&); F77_RET_T F77_FUNC (sgeqp3, SGEQP3) (const F77_INT&, const F77_INT&, - F77_REAL*, const F77_INT&, - F77_INT*, F77_REAL*, F77_REAL*, + F77_REAL *, const F77_INT&, + F77_INT *, F77_REAL *, F77_REAL *, const F77_INT&, F77_INT&); F77_RET_T F77_FUNC (zgeqp3, ZGEQP3) (const F77_INT&, const F77_INT&, - F77_DBLE_CMPLX*, const F77_INT&, - F77_INT*, F77_DBLE_CMPLX*, F77_DBLE_CMPLX*, - const F77_INT&, F77_DBLE*, F77_INT&); + F77_DBLE_CMPLX *, const F77_INT&, + F77_INT *, F77_DBLE_CMPLX *, F77_DBLE_CMPLX *, + const F77_INT&, F77_DBLE *, F77_INT&); // GEQRF F77_RET_T F77_FUNC (cgeqrf, CGEQRF) (const F77_INT&, const F77_INT&, - F77_CMPLX*, const F77_INT&, - F77_CMPLX*, F77_CMPLX*, + F77_CMPLX *, const F77_INT&, + F77_CMPLX *, F77_CMPLX *, const F77_INT&, F77_INT&); F77_RET_T F77_FUNC (dgeqrf, DGEQRF) (const F77_INT&, const F77_INT&, - F77_DBLE*, const F77_INT&, - F77_DBLE*, F77_DBLE*, + F77_DBLE *, const F77_INT&, + F77_DBLE *, F77_DBLE *, const F77_INT&, F77_INT&); F77_RET_T F77_FUNC (sgeqrf, SGEQRF) (const F77_INT&, const F77_INT&, - F77_REAL*, const F77_INT&, - F77_REAL*, F77_REAL*, + F77_REAL *, const F77_INT&, + F77_REAL *, F77_REAL *, const F77_INT&, F77_INT&); F77_RET_T F77_FUNC (zgeqrf, ZGEQRF) (const F77_INT&, const F77_INT&, - F77_DBLE_CMPLX*, const F77_INT&, - F77_DBLE_CMPLX*, F77_DBLE_CMPLX*, + F77_DBLE_CMPLX *, const F77_INT&, + F77_DBLE_CMPLX *, F77_DBLE_CMPLX *, const F77_INT&, F77_INT&); // GELQF F77_RET_T F77_FUNC (cgelqf, CGELQF) (const F77_INT&, const F77_INT&, - F77_CMPLX*, const F77_INT&, - F77_CMPLX*, F77_CMPLX*, + F77_CMPLX *, const F77_INT&, + F77_CMPLX *, F77_CMPLX *, const F77_INT&, F77_INT&); F77_RET_T F77_FUNC (dgelqf, DGELQF) (const F77_INT&, const F77_INT&, - F77_DBLE*, const F77_INT&, - F77_DBLE*, F77_DBLE*, + F77_DBLE *, const F77_INT&, + F77_DBLE *, F77_DBLE *, const F77_INT&, F77_INT&); F77_RET_T F77_FUNC (sgelqf, SGELQF) (const F77_INT&, const F77_INT&, - F77_REAL*, const F77_INT&, - F77_REAL*, F77_REAL*, + F77_REAL *, const F77_INT&, + F77_REAL *, F77_REAL *, const F77_INT&, F77_INT&); F77_RET_T F77_FUNC (zgelqf, ZGELQF) (const F77_INT&, const F77_INT&, - F77_DBLE_CMPLX*, const F77_INT&, - F77_DBLE_CMPLX*, F77_DBLE_CMPLX*, + F77_DBLE_CMPLX *, const F77_INT&, + F77_DBLE_CMPLX *, F77_DBLE_CMPLX *, const F77_INT&, F77_INT&); // ORMLQ @@ -298,9 +298,9 @@ F77_FUNC (cormlq, CORMLQ) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, const F77_INT&, - F77_CMPLX*, const F77_INT&, - F77_CMPLX*, F77_CMPLX*, - const F77_INT&, F77_CMPLX*, + F77_CMPLX *, const F77_INT&, + F77_CMPLX *, F77_CMPLX *, + const F77_INT&, F77_CMPLX *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -309,9 +309,9 @@ F77_FUNC (dormlq, DORMLQ) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, const F77_INT&, - F77_DBLE*, const F77_INT&, - F77_DBLE*, F77_DBLE*, - const F77_INT&, F77_DBLE*, + F77_DBLE *, const F77_INT&, + F77_DBLE *, F77_DBLE *, + const F77_INT&, F77_DBLE *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -320,9 +320,9 @@ F77_FUNC (sormlq, SORMLQ) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, const F77_INT&, - F77_REAL*, const F77_INT&, - F77_REAL*, F77_REAL*, - const F77_INT&, F77_REAL*, + F77_REAL *, const F77_INT&, + F77_REAL *, F77_REAL *, + const F77_INT&, F77_REAL *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -331,9 +331,9 @@ F77_FUNC (zormlq, ZORMLQ) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, const F77_INT&, - F77_DBLE_CMPLX*, const F77_INT&, - F77_DBLE_CMPLX*, F77_DBLE_CMPLX*, - const F77_INT&, F77_DBLE_CMPLX*, + F77_DBLE_CMPLX *, const F77_INT&, + F77_DBLE_CMPLX *, F77_DBLE_CMPLX *, + const F77_INT&, F77_DBLE_CMPLX *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -344,9 +344,9 @@ F77_FUNC (cormqr, CORMQR) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, const F77_INT&, - F77_CMPLX*, const F77_INT&, - F77_CMPLX*, F77_CMPLX*, - const F77_INT&, F77_CMPLX*, + F77_CMPLX *, const F77_INT&, + F77_CMPLX *, F77_CMPLX *, + const F77_INT&, F77_CMPLX *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -355,9 +355,9 @@ F77_FUNC (dormqr, DORMQR) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, const F77_INT&, - F77_DBLE*, const F77_INT&, - F77_DBLE*, F77_DBLE*, - const F77_INT&, F77_DBLE*, + F77_DBLE *, const F77_INT&, + F77_DBLE *, F77_DBLE *, + const F77_INT&, F77_DBLE *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -366,9 +366,9 @@ F77_FUNC (sormqr, SORMQR) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, const F77_INT&, - F77_REAL*, const F77_INT&, - F77_REAL*, F77_REAL*, - const F77_INT&, F77_REAL*, + F77_REAL *, const F77_INT&, + F77_REAL *, F77_REAL *, + const F77_INT&, F77_REAL *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -377,9 +377,9 @@ F77_FUNC (zormqr, ZORMQR) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, const F77_INT&, - F77_DBLE_CMPLX*, const F77_INT&, - F77_DBLE_CMPLX*, F77_DBLE_CMPLX*, - const F77_INT&, F77_DBLE_CMPLX*, + F77_DBLE_CMPLX *, const F77_INT&, + F77_DBLE_CMPLX *, F77_DBLE_CMPLX *, + const F77_INT&, F77_DBLE_CMPLX *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -389,40 +389,40 @@ F77_RET_T F77_FUNC (cgesdd, CGESDD) (F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - F77_CMPLX*, const F77_INT&, F77_REAL*, - F77_CMPLX*, const F77_INT&, - F77_CMPLX*, const F77_INT&, - F77_CMPLX*, const F77_INT&, F77_REAL*, + F77_CMPLX *, const F77_INT&, F77_REAL *, + F77_CMPLX *, const F77_INT&, + F77_CMPLX *, const F77_INT&, + F77_CMPLX *, const F77_INT&, F77_REAL *, F77_INT *, F77_INT& F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (dgesdd, DGESDD) (F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - F77_DBLE*, const F77_INT&, F77_DBLE*, - F77_DBLE*, const F77_INT&, - F77_DBLE*, const F77_INT&, - F77_DBLE*, const F77_INT&, + F77_DBLE *, const F77_INT&, F77_DBLE *, + F77_DBLE *, const F77_INT&, + F77_DBLE *, const F77_INT&, + F77_DBLE *, const F77_INT&, F77_INT *, F77_INT& F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (sgesdd, SGESDD) (F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - F77_REAL*, const F77_INT&, F77_REAL*, - F77_REAL*, const F77_INT&, - F77_REAL*, const F77_INT&, - F77_REAL*, const F77_INT&, + F77_REAL *, const F77_INT&, F77_REAL *, + F77_REAL *, const F77_INT&, + F77_REAL *, const F77_INT&, + F77_REAL *, const F77_INT&, F77_INT *, F77_INT& F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (zgesdd, ZGESDD) (F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - F77_DBLE_CMPLX*, const F77_INT&, F77_DBLE*, - F77_DBLE_CMPLX*, const F77_INT&, - F77_DBLE_CMPLX*, const F77_INT&, - F77_DBLE_CMPLX*, const F77_INT&, F77_DBLE*, + F77_DBLE_CMPLX *, const F77_INT&, F77_DBLE *, + F77_DBLE_CMPLX *, const F77_INT&, + F77_DBLE_CMPLX *, const F77_INT&, + F77_DBLE_CMPLX *, const F77_INT&, F77_DBLE *, F77_INT *, F77_INT& F77_CHAR_ARG_LEN_DECL); // GESVD @@ -431,11 +431,11 @@ F77_FUNC (cgesvd, CGESVD) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - F77_CMPLX*, const F77_INT&, F77_REAL*, - F77_CMPLX*, const F77_INT&, - F77_CMPLX*, const F77_INT&, - F77_CMPLX*, const F77_INT&, - F77_REAL*, F77_INT& + F77_CMPLX *, const F77_INT&, F77_REAL *, + F77_CMPLX *, const F77_INT&, + F77_CMPLX *, const F77_INT&, + F77_CMPLX *, const F77_INT&, + F77_REAL *, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -443,9 +443,9 @@ F77_FUNC (dgesvd, DGESVD) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - F77_DBLE*, const F77_INT&, F77_DBLE*, - F77_DBLE*, const F77_INT&, F77_DBLE*, - const F77_INT&, F77_DBLE*, + F77_DBLE *, const F77_INT&, F77_DBLE *, + F77_DBLE *, const F77_INT&, F77_DBLE *, + const F77_INT&, F77_DBLE *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -454,9 +454,9 @@ F77_FUNC (sgesvd, SGESVD) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - F77_REAL*, const F77_INT&, F77_REAL*, - F77_REAL*, const F77_INT&, F77_REAL*, - const F77_INT&, F77_REAL*, + F77_REAL *, const F77_INT&, F77_REAL *, + F77_REAL *, const F77_INT&, F77_REAL *, + const F77_INT&, F77_REAL *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -465,10 +465,10 @@ F77_FUNC (zgesvd, ZGESVD) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - F77_DBLE_CMPLX*, const F77_INT&, - F77_DBLE*, F77_DBLE_CMPLX*, const F77_INT&, - F77_DBLE_CMPLX*, const F77_INT&, F77_DBLE_CMPLX*, - const F77_INT&, F77_DBLE*, F77_INT& + F77_DBLE_CMPLX *, const F77_INT&, + F77_DBLE *, F77_DBLE_CMPLX *, const F77_INT&, + F77_DBLE_CMPLX *, const F77_INT&, F77_DBLE_CMPLX *, + const F77_INT&, F77_DBLE *, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -482,11 +482,11 @@ F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - F77_CMPLX*, const F77_INT&, F77_REAL*, - F77_CMPLX*, const F77_INT&, - F77_CMPLX*, const F77_INT&, - F77_CMPLX*, const F77_INT&, - F77_REAL*, const F77_INT&, + F77_CMPLX *, const F77_INT&, F77_REAL *, + F77_CMPLX *, const F77_INT&, + F77_CMPLX *, const F77_INT&, + F77_CMPLX *, const F77_INT&, + F77_REAL *, const F77_INT&, F77_INT *, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL @@ -503,10 +503,10 @@ F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - F77_DBLE*, const F77_INT&, F77_DBLE*, - F77_DBLE*, const F77_INT&, - F77_DBLE*, const F77_INT&, - F77_DBLE*, const F77_INT&, + F77_DBLE *, const F77_INT&, F77_DBLE *, + F77_DBLE *, const F77_INT&, + F77_DBLE *, const F77_INT&, + F77_DBLE *, const F77_INT&, F77_INT *, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL @@ -523,10 +523,10 @@ F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - F77_REAL*, const F77_INT&, F77_REAL*, - F77_REAL*, const F77_INT&, - F77_REAL*, const F77_INT&, - F77_REAL*, const F77_INT&, + F77_REAL *, const F77_INT&, F77_REAL *, + F77_REAL *, const F77_INT&, + F77_REAL *, const F77_INT&, + F77_REAL *, const F77_INT&, F77_INT *, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL @@ -543,11 +543,11 @@ F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - F77_DBLE_CMPLX*, const F77_INT&, F77_DBLE*, - F77_DBLE_CMPLX*, const F77_INT&, - F77_DBLE_CMPLX*, const F77_INT&, - F77_DBLE_CMPLX*, const F77_INT&, - F77_DBLE*, const F77_INT&, + F77_DBLE_CMPLX *, const F77_INT&, F77_DBLE *, + F77_DBLE_CMPLX *, const F77_INT&, + F77_DBLE_CMPLX *, const F77_INT&, + F77_DBLE_CMPLX *, const F77_INT&, + F77_DBLE *, const F77_INT&, F77_INT *, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL @@ -568,12 +568,12 @@ F77_CONST_CHAR_ARG_DECL, float_complex_selector, F77_CONST_CHAR_ARG_DECL, - const F77_INT&, F77_CMPLX*, + const F77_INT&, F77_CMPLX *, const F77_INT&, F77_INT&, - F77_CMPLX*, F77_CMPLX*, + F77_CMPLX *, F77_CMPLX *, const F77_INT&, F77_REAL&, F77_REAL&, - F77_CMPLX*, const F77_INT&, - F77_REAL*, F77_INT*, F77_INT& + F77_CMPLX *, const F77_INT&, + F77_REAL *, F77_INT *, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -583,12 +583,12 @@ F77_CONST_CHAR_ARG_DECL, double_selector, F77_CONST_CHAR_ARG_DECL, - const F77_INT&, F77_DBLE*, + const F77_INT&, F77_DBLE *, const F77_INT&, F77_INT&, - F77_DBLE*, F77_DBLE*, F77_DBLE*, const F77_INT&, - F77_DBLE&, F77_DBLE&, F77_DBLE*, const F77_INT&, - F77_INT*, const F77_INT&, - F77_INT*, F77_INT& + F77_DBLE *, F77_DBLE *, F77_DBLE *, const F77_INT&, + F77_DBLE&, F77_DBLE&, F77_DBLE *, const F77_INT&, + F77_INT *, const F77_INT&, + F77_INT *, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -598,12 +598,12 @@ F77_CONST_CHAR_ARG_DECL, float_selector, F77_CONST_CHAR_ARG_DECL, - const F77_INT&, F77_REAL*, + const F77_INT&, F77_REAL *, const F77_INT&, F77_INT&, - F77_REAL*, F77_REAL*, F77_REAL*, const F77_INT&, - F77_REAL&, F77_REAL&, F77_REAL*, const F77_INT&, - F77_INT*, const F77_INT&, - F77_INT*, F77_INT& + F77_REAL *, F77_REAL *, F77_REAL *, const F77_INT&, + F77_REAL&, F77_REAL&, F77_REAL *, const F77_INT&, + F77_INT *, const F77_INT&, + F77_INT *, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -613,12 +613,12 @@ F77_CONST_CHAR_ARG_DECL, complex_selector, F77_CONST_CHAR_ARG_DECL, - const F77_INT&, F77_DBLE_CMPLX*, + const F77_INT&, F77_DBLE_CMPLX *, const F77_INT&, F77_INT&, - F77_DBLE_CMPLX*, F77_DBLE_CMPLX*, const F77_INT&, - F77_DBLE&, F77_DBLE&, F77_DBLE_CMPLX*, - const F77_INT&, F77_DBLE*, - F77_INT*, F77_INT& + F77_DBLE_CMPLX *, F77_DBLE_CMPLX *, const F77_INT&, + F77_DBLE&, F77_DBLE&, F77_DBLE_CMPLX *, + const F77_INT&, F77_DBLE *, + F77_INT *, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -630,13 +630,13 @@ F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const F77_INT&, F77_CMPLX*, - const F77_INT&, F77_CMPLX*, F77_CMPLX*, - const F77_INT&, F77_CMPLX*, + const F77_INT&, F77_CMPLX *, + const F77_INT&, F77_CMPLX *, F77_CMPLX *, + const F77_INT&, F77_CMPLX *, const F77_INT&, F77_INT&, - F77_INT&, F77_REAL*, F77_REAL&, F77_REAL*, - F77_REAL*, F77_CMPLX*, const F77_INT&, - F77_REAL*, F77_INT& + F77_INT&, F77_REAL *, F77_REAL&, F77_REAL *, + F77_REAL *, F77_CMPLX *, const F77_INT&, + F77_REAL *, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL @@ -647,13 +647,13 @@ F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const F77_INT&, F77_DBLE*, - const F77_INT&, F77_DBLE*, F77_DBLE*, - F77_DBLE*, const F77_INT&, F77_DBLE*, + const F77_INT&, F77_DBLE *, + const F77_INT&, F77_DBLE *, F77_DBLE *, + F77_DBLE *, const F77_INT&, F77_DBLE *, const F77_INT&, F77_INT&, - F77_INT&, F77_DBLE*, F77_DBLE&, - F77_DBLE*, F77_DBLE*, F77_DBLE*, - const F77_INT&, F77_INT*, + F77_INT&, F77_DBLE *, F77_DBLE&, + F77_DBLE *, F77_DBLE *, F77_DBLE *, + const F77_INT&, F77_INT *, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL @@ -665,13 +665,13 @@ F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const F77_INT&, F77_REAL*, - const F77_INT&, F77_REAL*, F77_REAL*, F77_REAL*, - const F77_INT&, F77_REAL*, + const F77_INT&, F77_REAL *, + const F77_INT&, F77_REAL *, F77_REAL *, F77_REAL *, + const F77_INT&, F77_REAL *, const F77_INT&, F77_INT&, - F77_INT&, F77_REAL*, F77_REAL&, F77_REAL*, - F77_REAL*, F77_REAL*, const F77_INT&, - F77_INT*, F77_INT& + F77_INT&, F77_REAL *, F77_REAL&, F77_REAL *, + F77_REAL *, F77_REAL *, const F77_INT&, + F77_INT *, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL @@ -682,13 +682,13 @@ F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const F77_INT&, F77_DBLE_CMPLX*, - const F77_INT&, F77_DBLE_CMPLX*, - F77_DBLE_CMPLX*, const F77_INT&, F77_DBLE_CMPLX*, + const F77_INT&, F77_DBLE_CMPLX *, + const F77_INT&, F77_DBLE_CMPLX *, + F77_DBLE_CMPLX *, const F77_INT&, F77_DBLE_CMPLX *, const F77_INT&, F77_INT&, - F77_INT&, F77_DBLE*, F77_DBLE&, - F77_DBLE*, F77_DBLE*, F77_DBLE_CMPLX*, - const F77_INT&, F77_DBLE*, + F77_INT&, F77_DBLE *, F77_DBLE&, + F77_DBLE *, F77_DBLE *, F77_DBLE_CMPLX *, + const F77_INT&, F77_DBLE *, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL @@ -699,121 +699,121 @@ F77_RET_T F77_FUNC (cgelsd, CGELSD) (const F77_INT&, const F77_INT&, - const F77_INT&, F77_CMPLX*, - const F77_INT&, F77_CMPLX*, - const F77_INT&, F77_REAL*, F77_REAL&, - F77_INT&, F77_CMPLX*, - const F77_INT&, F77_REAL*, - F77_INT*, F77_INT&); + const F77_INT&, F77_CMPLX *, + const F77_INT&, F77_CMPLX *, + const F77_INT&, F77_REAL *, F77_REAL&, + F77_INT&, F77_CMPLX *, + const F77_INT&, F77_REAL *, + F77_INT *, F77_INT&); F77_RET_T F77_FUNC (dgelsd, DGELSD) (const F77_INT&, const F77_INT&, - const F77_INT&, F77_DBLE*, - const F77_INT&, F77_DBLE*, - const F77_INT&, F77_DBLE*, F77_DBLE&, - F77_INT&, F77_DBLE*, - const F77_INT&, F77_INT*, + const F77_INT&, F77_DBLE *, + const F77_INT&, F77_DBLE *, + const F77_INT&, F77_DBLE *, F77_DBLE&, + F77_INT&, F77_DBLE *, + const F77_INT&, F77_INT *, F77_INT&); F77_RET_T F77_FUNC (sgelsd, SGELSD) (const F77_INT&, const F77_INT&, - const F77_INT&, F77_REAL*, - const F77_INT&, F77_REAL*, - const F77_INT&, F77_REAL*, F77_REAL&, - F77_INT&, F77_REAL*, - const F77_INT&, F77_INT*, + const F77_INT&, F77_REAL *, + const F77_INT&, F77_REAL *, + const F77_INT&, F77_REAL *, F77_REAL&, + F77_INT&, F77_REAL *, + const F77_INT&, F77_INT *, F77_INT&); F77_RET_T F77_FUNC (zgelsd, ZGELSD) (const F77_INT&, const F77_INT&, - const F77_INT&, F77_DBLE_CMPLX*, - const F77_INT&, F77_DBLE_CMPLX*, - const F77_INT&, F77_DBLE*, F77_DBLE&, - F77_INT&, F77_DBLE_CMPLX*, - const F77_INT&, F77_DBLE*, - F77_INT*, F77_INT&); + const F77_INT&, F77_DBLE_CMPLX *, + const F77_INT&, F77_DBLE_CMPLX *, + const F77_INT&, F77_DBLE *, F77_DBLE&, + F77_INT&, F77_DBLE_CMPLX *, + const F77_INT&, F77_DBLE *, + F77_INT *, F77_INT&); // GELSY F77_RET_T F77_FUNC (cgelsy, CGELSY) (const F77_INT&, const F77_INT&, - const F77_INT&, F77_CMPLX*, - const F77_INT&, F77_CMPLX*, - const F77_INT&, F77_INT*, - F77_REAL&, F77_INT&, F77_CMPLX*, - const F77_INT&, F77_REAL*, F77_INT&); + const F77_INT&, F77_CMPLX *, + const F77_INT&, F77_CMPLX *, + const F77_INT&, F77_INT *, + F77_REAL&, F77_INT&, F77_CMPLX *, + const F77_INT&, F77_REAL *, F77_INT&); F77_RET_T F77_FUNC (dgelsy, DGELSY) (const F77_INT&, const F77_INT&, - const F77_INT&, F77_DBLE*, - const F77_INT&, F77_DBLE*, - const F77_INT&, F77_INT*, - F77_DBLE&, F77_INT&, F77_DBLE*, + const F77_INT&, F77_DBLE *, + const F77_INT&, F77_DBLE *, + const F77_INT&, F77_INT *, + F77_DBLE&, F77_INT&, F77_DBLE *, const F77_INT&, F77_INT&); F77_RET_T F77_FUNC (sgelsy, SGELSY) (const F77_INT&, const F77_INT&, - const F77_INT&, F77_REAL*, - const F77_INT&, F77_REAL*, - const F77_INT&, F77_INT*, - F77_REAL&, F77_INT&, F77_REAL*, + const F77_INT&, F77_REAL *, + const F77_INT&, F77_REAL *, + const F77_INT&, F77_INT *, + F77_REAL&, F77_INT&, F77_REAL *, const F77_INT&, F77_INT&); F77_RET_T F77_FUNC (zgelsy, ZGELSY) (const F77_INT&, const F77_INT&, - const F77_INT&, F77_DBLE_CMPLX*, - const F77_INT&, F77_DBLE_CMPLX*, - const F77_INT&, F77_INT*, - F77_DBLE&, F77_INT&, F77_DBLE_CMPLX*, - const F77_INT&, F77_DBLE*, + const F77_INT&, F77_DBLE_CMPLX *, + const F77_INT&, F77_DBLE_CMPLX *, + const F77_INT&, F77_INT *, + F77_DBLE&, F77_INT&, F77_DBLE_CMPLX *, + const F77_INT&, F77_DBLE *, F77_INT&); // GETRF F77_RET_T F77_FUNC (cgetrf, CGETRF) (const F77_INT&, const F77_INT&, - F77_CMPLX*, const F77_INT&, - F77_INT*, F77_INT&); + F77_CMPLX *, const F77_INT&, + F77_INT *, F77_INT&); F77_RET_T F77_FUNC (dgetrf, DGETRF) (const F77_INT&, const F77_INT&, - F77_DBLE*, const F77_INT&, - F77_INT*, F77_INT&); + F77_DBLE *, const F77_INT&, + F77_INT *, F77_INT&); F77_RET_T F77_FUNC (sgetrf, SGETRF) (const F77_INT&, - const F77_INT&, F77_REAL*, + const F77_INT&, F77_REAL *, const F77_INT&, - F77_INT*, F77_INT&); + F77_INT *, F77_INT&); F77_RET_T F77_FUNC (zgetrf, ZGETRF) (const F77_INT&, const F77_INT&, - F77_DBLE_CMPLX*, const F77_INT&, - F77_INT*, F77_INT&); + F77_DBLE_CMPLX *, const F77_INT&, + F77_INT *, F77_INT&); // GETRI F77_RET_T - F77_FUNC (cgetri, CGETRI) (const F77_INT&, F77_CMPLX*, - const F77_INT&, const F77_INT*, - F77_CMPLX*, const F77_INT&, + F77_FUNC (cgetri, CGETRI) (const F77_INT&, F77_CMPLX *, + const F77_INT&, const F77_INT *, + F77_CMPLX *, const F77_INT&, F77_INT&); F77_RET_T - F77_FUNC (dgetri, DGETRI) (const F77_INT&, F77_DBLE*, - const F77_INT&, const F77_INT*, - F77_DBLE*, const F77_INT&, + F77_FUNC (dgetri, DGETRI) (const F77_INT&, F77_DBLE *, + const F77_INT&, const F77_INT *, + F77_DBLE *, const F77_INT&, F77_INT&); F77_RET_T - F77_FUNC (sgetri, SGETRI) (const F77_INT&, F77_REAL*, - const F77_INT&, const F77_INT*, - F77_REAL*, const F77_INT&, F77_INT&); + F77_FUNC (sgetri, SGETRI) (const F77_INT&, F77_REAL *, + const F77_INT&, const F77_INT *, + F77_REAL *, const F77_INT&, F77_INT&); F77_RET_T - F77_FUNC (zgetri, ZGETRI) (const F77_INT&, F77_DBLE_CMPLX*, - const F77_INT&, const F77_INT*, - F77_DBLE_CMPLX*, const F77_INT&, + F77_FUNC (zgetri, ZGETRI) (const F77_INT&, F77_DBLE_CMPLX *, + const F77_INT&, const F77_INT *, + F77_DBLE_CMPLX *, const F77_INT&, F77_INT&); // GETRS @@ -821,32 +821,32 @@ F77_RET_T F77_FUNC (cgetrs, CGETRS) (F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - F77_CMPLX*, const F77_INT&, - const F77_INT*, F77_CMPLX*, + F77_CMPLX *, const F77_INT&, + const F77_INT *, F77_CMPLX *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (dgetrs, DGETRS) (F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - const F77_DBLE*, const F77_INT&, - const F77_INT*, F77_DBLE*, + const F77_DBLE *, const F77_INT&, + const F77_INT *, F77_DBLE *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (sgetrs, SGETRS) (F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - const F77_REAL*, const F77_INT&, - const F77_INT*, F77_REAL*, + const F77_REAL *, const F77_INT&, + const F77_INT *, F77_REAL *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (zgetrs, ZGETRS) (F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - F77_DBLE_CMPLX*, const F77_INT&, - const F77_INT*, F77_DBLE_CMPLX*, + F77_DBLE_CMPLX *, const F77_INT&, + const F77_INT *, F77_DBLE_CMPLX *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL); @@ -935,13 +935,13 @@ F77_RET_T F77_FUNC (cggev, CGGEV) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const F77_INT&, F77_CMPLX*, - const F77_INT&, F77_CMPLX*, - const F77_INT&, F77_CMPLX*, - F77_CMPLX*, F77_CMPLX*, - const F77_INT&, F77_CMPLX*, - const F77_INT&, F77_CMPLX*, - const F77_INT&, F77_REAL*, F77_INT& + const F77_INT&, F77_CMPLX *, + const F77_INT&, F77_CMPLX *, + const F77_INT&, F77_CMPLX *, + F77_CMPLX *, F77_CMPLX *, + const F77_INT&, F77_CMPLX *, + const F77_INT&, F77_CMPLX *, + const F77_INT&, F77_REAL *, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -949,11 +949,11 @@ F77_FUNC (dggev, DGGEV) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const F77_INT&, - F77_DBLE*, const F77_INT&, - F77_DBLE*, const F77_INT&, - F77_DBLE*, F77_DBLE*, F77_DBLE *, F77_DBLE*, - const F77_INT&, F77_DBLE*, - const F77_INT&, F77_DBLE*, + F77_DBLE *, const F77_INT&, + F77_DBLE *, const F77_INT&, + F77_DBLE *, F77_DBLE *, F77_DBLE *, F77_DBLE *, + const F77_INT&, F77_DBLE *, + const F77_INT&, F77_DBLE *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -961,11 +961,11 @@ F77_RET_T F77_FUNC (sggev, SGGEV) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const F77_INT&, F77_REAL*, - const F77_INT&, F77_REAL*, - const F77_INT&, F77_REAL*, F77_REAL*, F77_REAL*, - F77_REAL*, const F77_INT&, F77_REAL*, - const F77_INT&, F77_REAL*, + const F77_INT&, F77_REAL *, + const F77_INT&, F77_REAL *, + const F77_INT&, F77_REAL *, F77_REAL *, F77_REAL *, + F77_REAL *, const F77_INT&, F77_REAL *, + const F77_INT&, F77_REAL *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -974,12 +974,12 @@ F77_FUNC (zggev, ZGGEV) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const F77_INT&, - F77_DBLE_CMPLX*, const F77_INT&, - F77_DBLE_CMPLX*, const F77_INT&, - F77_DBLE_CMPLX*, F77_DBLE_CMPLX*, F77_DBLE_CMPLX*, - const F77_INT&, F77_DBLE_CMPLX*, - const F77_INT&, F77_DBLE_CMPLX*, - const F77_INT&, F77_DBLE*, F77_INT& + F77_DBLE_CMPLX *, const F77_INT&, + F77_DBLE_CMPLX *, const F77_INT&, + F77_DBLE_CMPLX *, F77_DBLE_CMPLX *, F77_DBLE_CMPLX *, + const F77_INT&, F77_DBLE_CMPLX *, + const F77_INT&, F77_DBLE_CMPLX *, + const F77_INT&, F77_DBLE *, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -1015,269 +1015,269 @@ F77_RET_T F77_FUNC (dggsvd, DGGSVD) - (F77_CONST_CHAR_ARG_DECL, // JOBU - F77_CONST_CHAR_ARG_DECL, // JOBV - F77_CONST_CHAR_ARG_DECL, // JOBQ - const F77_INT&, // M - const F77_INT&, // N - const F77_INT&, // P - F77_INT &, // K - F77_INT &, // L - F77_DBLE*, // A(LDA,N) - const F77_INT&, // LDA - F77_DBLE*, // B(LDB,N) - const F77_INT&, // LDB - F77_DBLE*, // ALPHA(N) - F77_DBLE*, // BETA(N) - F77_DBLE*, // U(LDU,M) - const F77_INT&, // LDU - F77_DBLE*, // V(LDV,P) - const F77_INT&, // LDV - F77_DBLE*, // Q(LDQ,N) - const F77_INT&, // LDQ - F77_DBLE*, // WORK - F77_INT*, // IWORK(N) - F77_INT& // INFO - F77_CHAR_ARG_LEN_DECL - F77_CHAR_ARG_LEN_DECL - F77_CHAR_ARG_LEN_DECL); + (F77_CONST_CHAR_ARG_DECL, // JOBU + F77_CONST_CHAR_ARG_DECL, // JOBV + F77_CONST_CHAR_ARG_DECL, // JOBQ + const F77_INT&, // M + const F77_INT&, // N + const F77_INT&, // P + F77_INT&, // K + F77_INT&, // L + F77_DBLE *, // A(LDA,N) + const F77_INT&, // LDA + F77_DBLE *, // B(LDB,N) + const F77_INT&, // LDB + F77_DBLE *, // ALPHA(N) + F77_DBLE *, // BETA(N) + F77_DBLE *, // U(LDU,M) + const F77_INT&, // LDU + F77_DBLE *, // V(LDV,P) + const F77_INT&, // LDV + F77_DBLE *, // Q(LDQ,N) + const F77_INT&, // LDQ + F77_DBLE *, // WORK + F77_INT *, // IWORK(N) + F77_INT& // INFO + F77_CHAR_ARG_LEN_DECL + F77_CHAR_ARG_LEN_DECL + F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (sggsvd, SGGSVD) - (F77_CONST_CHAR_ARG_DECL, // JOBU - F77_CONST_CHAR_ARG_DECL, // JOBV - F77_CONST_CHAR_ARG_DECL, // JOBQ - const F77_INT&, // M - const F77_INT&, // N - const F77_INT&, // P - F77_INT &, // K - F77_INT &, // L - F77_REAL*, // A - const F77_INT&, // LDA - F77_REAL*, // B - const F77_INT&, // LDB - F77_REAL*, // ALPHA - F77_REAL*, // BETA - F77_REAL*, // U - const F77_INT&, // LDU - F77_REAL*, // V - const F77_INT&, // LDV - F77_REAL*, // Q - const F77_INT&, // LDQ - F77_REAL*, // WORK - F77_INT*, // IWORK - F77_INT& // INFO - F77_CHAR_ARG_LEN_DECL - F77_CHAR_ARG_LEN_DECL - F77_CHAR_ARG_LEN_DECL); + (F77_CONST_CHAR_ARG_DECL, // JOBU + F77_CONST_CHAR_ARG_DECL, // JOBV + F77_CONST_CHAR_ARG_DECL, // JOBQ + const F77_INT&, // M + const F77_INT&, // N + const F77_INT&, // P + F77_INT&, // K + F77_INT&, // L + F77_REAL *, // A + const F77_INT&, // LDA + F77_REAL *, // B + const F77_INT&, // LDB + F77_REAL *, // ALPHA + F77_REAL *, // BETA + F77_REAL *, // U + const F77_INT&, // LDU + F77_REAL *, // V + const F77_INT&, // LDV + F77_REAL *, // Q + const F77_INT&, // LDQ + F77_REAL *, // WORK + F77_INT *, // IWORK + F77_INT& // INFO + F77_CHAR_ARG_LEN_DECL + F77_CHAR_ARG_LEN_DECL + F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (zggsvd, ZGGSVD) - (F77_CONST_CHAR_ARG_DECL, // JOBU - F77_CONST_CHAR_ARG_DECL, // JOBV - F77_CONST_CHAR_ARG_DECL, // JOBQ - const F77_INT&, // M - const F77_INT&, // N - const F77_INT&, // P - F77_INT &, // K - F77_INT &, // L - F77_DBLE_CMPLX*, // A(LDA,N) - const F77_INT&, // LDA - F77_DBLE_CMPLX*, // B(LDB,N) - const F77_INT&, // LDB - F77_DBLE*, // ALPHA(N) - F77_DBLE*, // BETA(N) - F77_DBLE_CMPLX*, // U(LDU,M) - const F77_INT&, // LDU - F77_DBLE_CMPLX*, // V(LDV,P) - const F77_INT&, // LDV - F77_DBLE_CMPLX*, // Q(LDQ,N) - const F77_INT&, // LDQ - F77_DBLE_CMPLX*, // WORK - F77_DBLE*, // RWORK - F77_INT*, // IWORK(N) - F77_INT& // INFO - F77_CHAR_ARG_LEN_DECL - F77_CHAR_ARG_LEN_DECL - F77_CHAR_ARG_LEN_DECL); + (F77_CONST_CHAR_ARG_DECL, // JOBU + F77_CONST_CHAR_ARG_DECL, // JOBV + F77_CONST_CHAR_ARG_DECL, // JOBQ + const F77_INT&, // M + const F77_INT&, // N + const F77_INT&, // P + F77_INT&, // K + F77_INT&, // L + F77_DBLE_CMPLX *, // A(LDA,N) + const F77_INT&, // LDA + F77_DBLE_CMPLX *, // B(LDB,N) + const F77_INT&, // LDB + F77_DBLE *, // ALPHA(N) + F77_DBLE *, // BETA(N) + F77_DBLE_CMPLX *, // U(LDU,M) + const F77_INT&, // LDU + F77_DBLE_CMPLX *, // V(LDV,P) + const F77_INT&, // LDV + F77_DBLE_CMPLX *, // Q(LDQ,N) + const F77_INT&, // LDQ + F77_DBLE_CMPLX *, // WORK + F77_DBLE *, // RWORK + F77_INT *, // IWORK(N) + F77_INT& // INFO + F77_CHAR_ARG_LEN_DECL + F77_CHAR_ARG_LEN_DECL + F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (cggsvd, CGGSVD) - (F77_CONST_CHAR_ARG_DECL, // JOBU - F77_CONST_CHAR_ARG_DECL, // JOBV - F77_CONST_CHAR_ARG_DECL, // JOBQ - const F77_INT&, // M - const F77_INT&, // N - const F77_INT&, // P - F77_INT &, // K - F77_INT &, // L - F77_CMPLX*, // A - const F77_INT&, // LDA - F77_CMPLX*, // B - const F77_INT&, // LDB - F77_REAL*, // ALPHA - F77_REAL*, // BETA - F77_CMPLX*, // U - const F77_INT&, // LDU - F77_CMPLX*, // V - const F77_INT&, // LDV - F77_CMPLX*, // Q - const F77_INT&, // LDQ - F77_CMPLX*, // WORK - F77_REAL*, // RWORK - F77_INT*, // IWORK - F77_INT& // INFO - F77_CHAR_ARG_LEN_DECL - F77_CHAR_ARG_LEN_DECL - F77_CHAR_ARG_LEN_DECL); + (F77_CONST_CHAR_ARG_DECL, // JOBU + F77_CONST_CHAR_ARG_DECL, // JOBV + F77_CONST_CHAR_ARG_DECL, // JOBQ + const F77_INT&, // M + const F77_INT&, // N + const F77_INT&, // P + F77_INT&, // K + F77_INT&, // L + F77_CMPLX *, // A + const F77_INT&, // LDA + F77_CMPLX *, // B + const F77_INT&, // LDB + F77_REAL *, // ALPHA + F77_REAL *, // BETA + F77_CMPLX *, // U + const F77_INT&, // LDU + F77_CMPLX *, // V + const F77_INT&, // LDV + F77_CMPLX *, // Q + const F77_INT&, // LDQ + F77_CMPLX *, // WORK + F77_REAL *, // RWORK + F77_INT *, // IWORK + F77_INT& // INFO + F77_CHAR_ARG_LEN_DECL + F77_CHAR_ARG_LEN_DECL + F77_CHAR_ARG_LEN_DECL); // GGSVD3 F77_RET_T F77_FUNC (dggsvd3, DGGSVD3) - (F77_CONST_CHAR_ARG_DECL, // JOBU - F77_CONST_CHAR_ARG_DECL, // JOBV - F77_CONST_CHAR_ARG_DECL, // JOBQ - const F77_INT&, // M - const F77_INT&, // N - const F77_INT&, // P - F77_INT &, // K - F77_INT &, // L - F77_DBLE*, // A(LDA,N) - const F77_INT&, // LDA - F77_DBLE*, // B(LDB,N) - const F77_INT&, // LDB - F77_DBLE*, // ALPHA(N) - F77_DBLE*, // BETA(N) - F77_DBLE*, // U(LDU,M) - const F77_INT&, // LDU - F77_DBLE*, // V(LDV,P) - const F77_INT&, // LDV - F77_DBLE*, // Q(LDQ,N) - const F77_INT&, // LDQ - F77_DBLE*, // WORK - const F77_INT&, // LWORK - F77_INT*, // IWORK(N) - F77_INT& // INFO - F77_CHAR_ARG_LEN_DECL - F77_CHAR_ARG_LEN_DECL - F77_CHAR_ARG_LEN_DECL); + (F77_CONST_CHAR_ARG_DECL, // JOBU + F77_CONST_CHAR_ARG_DECL, // JOBV + F77_CONST_CHAR_ARG_DECL, // JOBQ + const F77_INT&, // M + const F77_INT&, // N + const F77_INT&, // P + F77_INT&, // K + F77_INT&, // L + F77_DBLE *, // A(LDA,N) + const F77_INT&, // LDA + F77_DBLE *, // B(LDB,N) + const F77_INT&, // LDB + F77_DBLE *, // ALPHA(N) + F77_DBLE *, // BETA(N) + F77_DBLE *, // U(LDU,M) + const F77_INT&, // LDU + F77_DBLE *, // V(LDV,P) + const F77_INT&, // LDV + F77_DBLE *, // Q(LDQ,N) + const F77_INT&, // LDQ + F77_DBLE *, // WORK + const F77_INT&, // LWORK + F77_INT *, // IWORK(N) + F77_INT& // INFO + F77_CHAR_ARG_LEN_DECL + F77_CHAR_ARG_LEN_DECL + F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (sggsvd3, SGGSVD3) - (F77_CONST_CHAR_ARG_DECL, // JOBU - F77_CONST_CHAR_ARG_DECL, // JOBV - F77_CONST_CHAR_ARG_DECL, // JOBQ - const F77_INT&, // M - const F77_INT&, // N - const F77_INT&, // P - F77_INT &, // K - F77_INT &, // L - F77_REAL*, // A - const F77_INT&, // LDA - F77_REAL*, // B - const F77_INT&, // LDB - F77_REAL*, // ALPHA - F77_REAL*, // BETA - F77_REAL*, // U - const F77_INT&, // LDU - F77_REAL*, // V - const F77_INT&, // LDV - F77_REAL*, // Q - const F77_INT&, // LDQ - F77_REAL*, // WORK - const F77_INT&, // LWORK - F77_INT*, // IWORK - F77_INT& // INFO - F77_CHAR_ARG_LEN_DECL - F77_CHAR_ARG_LEN_DECL - F77_CHAR_ARG_LEN_DECL); + (F77_CONST_CHAR_ARG_DECL, // JOBU + F77_CONST_CHAR_ARG_DECL, // JOBV + F77_CONST_CHAR_ARG_DECL, // JOBQ + const F77_INT&, // M + const F77_INT&, // N + const F77_INT&, // P + F77_INT&, // K + F77_INT&, // L + F77_REAL *, // A + const F77_INT&, // LDA + F77_REAL *, // B + const F77_INT&, // LDB + F77_REAL *, // ALPHA + F77_REAL *, // BETA + F77_REAL *, // U + const F77_INT&, // LDU + F77_REAL *, // V + const F77_INT&, // LDV + F77_REAL *, // Q + const F77_INT&, // LDQ + F77_REAL *, // WORK + const F77_INT&, // LWORK + F77_INT *, // IWORK + F77_INT& // INFO + F77_CHAR_ARG_LEN_DECL + F77_CHAR_ARG_LEN_DECL + F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (zggsvd3, ZGGSVD3) - (F77_CONST_CHAR_ARG_DECL, // JOBU - F77_CONST_CHAR_ARG_DECL, // JOBV - F77_CONST_CHAR_ARG_DECL, // JOBQ - const F77_INT&, // M - const F77_INT&, // N - const F77_INT&, // P - F77_INT &, // K - F77_INT &, // L - F77_DBLE_CMPLX*, // A(LDA,N) - const F77_INT&, // LDA - F77_DBLE_CMPLX*, // B(LDB,N) - const F77_INT&, // LDB - F77_DBLE*, // ALPHA(N) - F77_DBLE*, // BETA(N) - F77_DBLE_CMPLX*, // U(LDU,M) - const F77_INT&, // LDU - F77_DBLE_CMPLX*, // V(LDV,P) - const F77_INT&, // LDV - F77_DBLE_CMPLX*, // Q(LDQ,N) - const F77_INT&, // LDQ - F77_DBLE_CMPLX*, // WORK - const F77_INT&, // LWORK - F77_DBLE*, // RWORK - F77_INT*, // IWORK(N) - F77_INT& // INFO - F77_CHAR_ARG_LEN_DECL - F77_CHAR_ARG_LEN_DECL - F77_CHAR_ARG_LEN_DECL); + (F77_CONST_CHAR_ARG_DECL, // JOBU + F77_CONST_CHAR_ARG_DECL, // JOBV + F77_CONST_CHAR_ARG_DECL, // JOBQ + const F77_INT&, // M + const F77_INT&, // N + const F77_INT&, // P + F77_INT&, // K + F77_INT&, // L + F77_DBLE_CMPLX *, // A(LDA,N) + const F77_INT&, // LDA + F77_DBLE_CMPLX *, // B(LDB,N) + const F77_INT&, // LDB + F77_DBLE *, // ALPHA(N) + F77_DBLE *, // BETA(N) + F77_DBLE_CMPLX *, // U(LDU,M) + const F77_INT&, // LDU + F77_DBLE_CMPLX *, // V(LDV,P) + const F77_INT&, // LDV + F77_DBLE_CMPLX *, // Q(LDQ,N) + const F77_INT&, // LDQ + F77_DBLE_CMPLX *, // WORK + const F77_INT&, // LWORK + F77_DBLE *, // RWORK + F77_INT *, // IWORK(N) + F77_INT& // INFO + F77_CHAR_ARG_LEN_DECL + F77_CHAR_ARG_LEN_DECL + F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (cggsvd3, CGGSVD3) - (F77_CONST_CHAR_ARG_DECL, // JOBU - F77_CONST_CHAR_ARG_DECL, // JOBV - F77_CONST_CHAR_ARG_DECL, // JOBQ - const F77_INT&, // M - const F77_INT&, // N - const F77_INT&, // P - F77_INT &, // K - F77_INT &, // L - F77_CMPLX*, // A - const F77_INT&, // LDA - F77_CMPLX*, // B - const F77_INT&, // LDB - F77_REAL*, // ALPHA - F77_REAL*, // BETA - F77_CMPLX*, // U - const F77_INT&, // LDU - F77_CMPLX*, // V - const F77_INT&, // LDV - F77_CMPLX*, // Q - const F77_INT&, // LDQ - F77_CMPLX*, // WORK - const F77_INT&, // LWORK - F77_REAL*, // RWORK - F77_INT*, // IWORK - F77_INT& // INFO - F77_CHAR_ARG_LEN_DECL - F77_CHAR_ARG_LEN_DECL - F77_CHAR_ARG_LEN_DECL); + (F77_CONST_CHAR_ARG_DECL, // JOBU + F77_CONST_CHAR_ARG_DECL, // JOBV + F77_CONST_CHAR_ARG_DECL, // JOBQ + const F77_INT&, // M + const F77_INT&, // N + const F77_INT&, // P + F77_INT&, // K + F77_INT&, // L + F77_CMPLX *, // A + const F77_INT&, // LDA + F77_CMPLX *, // B + const F77_INT&, // LDB + F77_REAL *, // ALPHA + F77_REAL *, // BETA + F77_CMPLX *, // U + const F77_INT&, // LDU + F77_CMPLX *, // V + const F77_INT&, // LDV + F77_CMPLX *, // Q + const F77_INT&, // LDQ + F77_CMPLX *, // WORK + const F77_INT&, // LWORK + F77_REAL *, // RWORK + F77_INT *, // IWORK + F77_INT& // INFO + F77_CHAR_ARG_LEN_DECL + F77_CHAR_ARG_LEN_DECL + F77_CHAR_ARG_LEN_DECL); // GTSV F77_RET_T F77_FUNC (dgtsv, DGTSV) (const F77_INT&, const F77_INT&, - F77_DBLE*, F77_DBLE*, F77_DBLE*, F77_DBLE*, + F77_DBLE *, F77_DBLE *, F77_DBLE *, F77_DBLE *, const F77_INT&, F77_INT&); F77_RET_T F77_FUNC (zgtsv, ZGTSV) (const F77_INT&, const F77_INT&, - F77_DBLE_CMPLX*, F77_DBLE_CMPLX*, - F77_DBLE_CMPLX*, F77_DBLE_CMPLX*, + F77_DBLE_CMPLX *, F77_DBLE_CMPLX *, + F77_DBLE_CMPLX *, F77_DBLE_CMPLX *, const F77_INT&, F77_INT&); // GTTRF F77_RET_T - F77_FUNC (dgttrf, DGTTRF) (const F77_INT&, F77_DBLE*, F77_DBLE*, - F77_DBLE*, F77_DBLE*, F77_INT*, + F77_FUNC (dgttrf, DGTTRF) (const F77_INT&, F77_DBLE *, F77_DBLE *, + F77_DBLE *, F77_DBLE *, F77_INT *, F77_INT&); F77_RET_T - F77_FUNC (zgttrf, ZGTTRF) (const F77_INT&, F77_DBLE_CMPLX*, F77_DBLE_CMPLX*, - F77_DBLE_CMPLX*, F77_DBLE_CMPLX*, F77_INT*, + F77_FUNC (zgttrf, ZGTTRF) (const F77_INT&, F77_DBLE_CMPLX *, F77_DBLE_CMPLX *, + F77_DBLE_CMPLX *, F77_DBLE_CMPLX *, F77_INT *, F77_INT&); // GTTRS @@ -1285,18 +1285,18 @@ F77_RET_T F77_FUNC (dgttrs, DGTTRS) (F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - const F77_DBLE*, const F77_DBLE*, - const F77_DBLE*, const F77_DBLE*, - const F77_INT*, F77_DBLE *, + const F77_DBLE *, const F77_DBLE *, + const F77_DBLE *, const F77_DBLE *, + const F77_INT *, F77_DBLE *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (zgttrs, ZGTTRS) (F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - const F77_DBLE_CMPLX*, const F77_DBLE_CMPLX*, - const F77_DBLE_CMPLX*, const F77_DBLE_CMPLX*, - const F77_INT*, F77_DBLE_CMPLX *, + const F77_DBLE_CMPLX *, const F77_DBLE_CMPLX *, + const F77_DBLE_CMPLX *, const F77_DBLE_CMPLX *, + const F77_INT *, F77_DBLE_CMPLX *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL); @@ -1305,18 +1305,18 @@ F77_RET_T F77_FUNC (cheev, CHEEV) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const F77_INT&, F77_CMPLX*, - const F77_INT&, F77_REAL*, F77_CMPLX*, - const F77_INT&, F77_REAL*, F77_INT& + const F77_INT&, F77_CMPLX *, + const F77_INT&, F77_REAL *, F77_CMPLX *, + const F77_INT&, F77_REAL *, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (zheev, ZHEEV) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const F77_INT&, F77_DBLE_CMPLX*, - const F77_INT&, F77_DBLE*, - F77_DBLE_CMPLX*, const F77_INT&, F77_DBLE*, + const F77_INT&, F77_DBLE_CMPLX *, + const F77_INT&, F77_DBLE *, + F77_DBLE_CMPLX *, const F77_INT&, F77_DBLE *, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -1327,10 +1327,10 @@ F77_FUNC (chegv, CHEGV) (const F77_INT&, F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const F77_INT&, F77_CMPLX*, - const F77_INT&, F77_CMPLX*, - const F77_INT&, F77_REAL*, F77_CMPLX*, - const F77_INT&, F77_REAL*, F77_INT& + const F77_INT&, F77_CMPLX *, + const F77_INT&, F77_CMPLX *, + const F77_INT&, F77_REAL *, F77_CMPLX *, + const F77_INT&, F77_REAL *, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -1338,10 +1338,10 @@ F77_FUNC (zhegv, ZHEGV) (const F77_INT&, F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const F77_INT&, F77_DBLE_CMPLX*, - const F77_INT&, F77_DBLE_CMPLX*, - const F77_INT&, F77_DBLE*, F77_DBLE_CMPLX*, - const F77_INT&, F77_DBLE*, F77_INT& + const F77_INT&, F77_DBLE_CMPLX *, + const F77_INT&, F77_DBLE_CMPLX *, + const F77_INT&, F77_DBLE *, F77_DBLE_CMPLX *, + const F77_INT&, F77_DBLE *, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -1351,9 +1351,9 @@ F77_FUNC (cherk, CHERK) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - const F77_REAL&, const F77_CMPLX*, + const F77_REAL&, const F77_CMPLX *, const F77_INT&, const F77_REAL&, - F77_CMPLX*, const F77_INT& + F77_CMPLX *, const F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -1361,8 +1361,8 @@ F77_FUNC (zherk, ZHERK) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - const F77_DBLE&, const F77_DBLE_CMPLX*, - const F77_INT&, const F77_DBLE&, F77_DBLE_CMPLX*, + const F77_DBLE&, const F77_DBLE_CMPLX *, + const F77_INT&, const F77_DBLE&, F77_DBLE_CMPLX *, const F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -1438,35 +1438,35 @@ F77_RET_T F77_FUNC (xclange, XCLANGE) (F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - const F77_CMPLX*, const F77_INT&, - F77_REAL*, F77_REAL& + const F77_CMPLX *, const F77_INT&, + F77_REAL *, F77_REAL& F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (xdlange, XDLANGE) (F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - const F77_DBLE*, const F77_INT&, - F77_DBLE*, F77_DBLE& + const F77_DBLE *, const F77_INT&, + F77_DBLE *, F77_DBLE& F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (xslange, XSLANGE) (F77_CONST_CHAR_ARG_DECL, const F77_INT&, - const F77_INT&, const F77_REAL*, - const F77_INT&, F77_REAL*, F77_REAL& + const F77_INT&, const F77_REAL *, + const F77_INT&, F77_REAL *, F77_REAL& F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (xzlange, XZLANGE) (F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - const F77_DBLE_CMPLX*, const F77_INT&, - F77_DBLE*, F77_DBLE& + const F77_DBLE_CMPLX *, const F77_INT&, + F77_DBLE *, F77_DBLE& F77_CHAR_ARG_LEN_DECL); // LARTG F77_RET_T - F77_FUNC (clartg, CLARTG) (const F77_CMPLX*, const F77_CMPLX*, - F77_REAL&, F77_CMPLX*, F77_CMPLX*); + F77_FUNC (clartg, CLARTG) (const F77_CMPLX *, const F77_CMPLX *, + F77_REAL&, F77_CMPLX *, F77_CMPLX *); F77_RET_T F77_FUNC (dlartg, DLARTG) (const F77_DBLE&, const F77_DBLE&, F77_DBLE&, @@ -1477,36 +1477,36 @@ F77_REAL&, F77_REAL&); F77_RET_T - F77_FUNC (zlartg, ZLARTG) (const F77_DBLE_CMPLX*, const F77_DBLE_CMPLX*, + F77_FUNC (zlartg, ZLARTG) (const F77_DBLE_CMPLX *, const F77_DBLE_CMPLX *, F77_DBLE&, - F77_DBLE_CMPLX*, F77_DBLE_CMPLX*); + F77_DBLE_CMPLX *, F77_DBLE_CMPLX *); // ORGHR F77_RET_T F77_FUNC (dorghr, DORGHR) (const F77_INT&, const F77_INT&, - const F77_INT&, F77_DBLE*, - const F77_INT&, F77_DBLE*, F77_DBLE*, + const F77_INT&, F77_DBLE *, + const F77_INT&, F77_DBLE *, F77_DBLE *, const F77_INT&, F77_INT&); F77_RET_T F77_FUNC (sorghr, SORGHR) (const F77_INT&, const F77_INT&, - const F77_INT&, F77_REAL*, - const F77_INT&, F77_REAL*, F77_REAL*, + const F77_INT&, F77_REAL *, + const F77_INT&, F77_REAL *, F77_REAL *, const F77_INT&, F77_INT&); // ORGQR F77_RET_T F77_FUNC (dorgqr, DORGQR) (const F77_INT&, const F77_INT&, - const F77_INT&, F77_DBLE*, - const F77_INT&, F77_DBLE*, F77_DBLE*, + const F77_INT&, F77_DBLE *, + const F77_INT&, F77_DBLE *, F77_DBLE *, const F77_INT&, F77_INT&); F77_RET_T F77_FUNC (sorgqr, SORGQR) (const F77_INT&, const F77_INT&, - const F77_INT&, F77_REAL*, - const F77_INT&, F77_REAL*, F77_REAL*, + const F77_INT&, F77_REAL *, + const F77_INT&, F77_REAL *, F77_REAL *, const F77_INT&, F77_INT&); // PBCON @@ -1514,16 +1514,16 @@ F77_RET_T F77_FUNC (dpbcon, DPBCON) (F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - F77_DBLE*, const F77_INT&, - const F77_DBLE&, F77_DBLE&, F77_DBLE*, - F77_INT*, F77_INT& + F77_DBLE *, const F77_INT&, + const F77_DBLE&, F77_DBLE&, F77_DBLE *, + F77_INT *, F77_INT& F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (zpbcon, ZPBCON) (F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - F77_DBLE_CMPLX*, const F77_INT&, const F77_DBLE&, - F77_DBLE&, F77_DBLE_CMPLX*, F77_DBLE*, F77_INT& + F77_DBLE_CMPLX *, const F77_INT&, const F77_DBLE&, + F77_DBLE&, F77_DBLE_CMPLX *, F77_DBLE *, F77_INT& F77_CHAR_ARG_LEN_DECL); // PBTRF @@ -1531,13 +1531,13 @@ F77_RET_T F77_FUNC (dpbtrf, DPBTRF) (F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - F77_DBLE*, const F77_INT&, F77_INT& + F77_DBLE *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (zpbtrf, ZPBTRF) (F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - F77_DBLE_CMPLX*, const F77_INT&, F77_INT& + F77_DBLE_CMPLX *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL); // PBTRS @@ -1545,16 +1545,16 @@ F77_RET_T F77_FUNC (dpbtrs, DPBTRS) (F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - const F77_INT&, F77_DBLE*, - const F77_INT&, F77_DBLE*, + const F77_INT&, F77_DBLE *, + const F77_INT&, F77_DBLE *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (zpbtrs, ZPBTRS) (F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - const F77_INT&, F77_DBLE_CMPLX*, - const F77_INT&, F77_DBLE_CMPLX*, + const F77_INT&, F77_DBLE_CMPLX *, + const F77_INT&, F77_DBLE_CMPLX *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL); @@ -1562,57 +1562,57 @@ F77_RET_T F77_FUNC (cpocon, CPOCON) (F77_CONST_CHAR_ARG_DECL, - const F77_INT&, F77_CMPLX*, + const F77_INT&, F77_CMPLX *, const F77_INT&, const F77_REAL&, F77_REAL&, - F77_CMPLX*, F77_REAL*, F77_INT& + F77_CMPLX *, F77_REAL *, F77_INT& F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (dpocon, DPOCON) (F77_CONST_CHAR_ARG_DECL, - const F77_INT&, F77_DBLE*, + const F77_INT&, F77_DBLE *, const F77_INT&, const F77_DBLE&, - F77_DBLE&, F77_DBLE*, F77_INT*, + F77_DBLE&, F77_DBLE *, F77_INT *, F77_INT& F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (spocon, SPOCON) (F77_CONST_CHAR_ARG_DECL, - const F77_INT&, F77_REAL*, + const F77_INT&, F77_REAL *, const F77_INT&, const F77_REAL&, - F77_REAL&, F77_REAL*, F77_INT*, + F77_REAL&, F77_REAL *, F77_INT *, F77_INT& F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (zpocon, ZPOCON) (F77_CONST_CHAR_ARG_DECL, - const F77_INT&, F77_DBLE_CMPLX*, + const F77_INT&, F77_DBLE_CMPLX *, const F77_INT&, const F77_DBLE&, - F77_DBLE&, F77_DBLE_CMPLX*, F77_DBLE*, F77_INT& + F77_DBLE&, F77_DBLE_CMPLX *, F77_DBLE *, F77_INT& F77_CHAR_ARG_LEN_DECL); // POTRF F77_RET_T F77_FUNC (cpotrf, CPOTRF) (F77_CONST_CHAR_ARG_DECL, - const F77_INT&, F77_CMPLX*, + const F77_INT&, F77_CMPLX *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (dpotrf, DPOTRF) (F77_CONST_CHAR_ARG_DECL, - const F77_INT&, F77_DBLE*, + const F77_INT&, F77_DBLE *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (spotrf, SPOTRF) (F77_CONST_CHAR_ARG_DECL, - const F77_INT&, F77_REAL*, + const F77_INT&, F77_REAL *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (zpotrf, ZPOTRF) (F77_CONST_CHAR_ARG_DECL, - const F77_INT&, F77_DBLE_CMPLX*, + const F77_INT&, F77_DBLE_CMPLX *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL); @@ -1620,25 +1620,25 @@ F77_RET_T F77_FUNC (cpotri, CPOTRI) (F77_CONST_CHAR_ARG_DECL, - const F77_INT&, F77_CMPLX*, + const F77_INT&, F77_CMPLX *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (dpotri, DPOTRI) (F77_CONST_CHAR_ARG_DECL, - const F77_INT&, F77_DBLE*, + const F77_INT&, F77_DBLE *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (spotri, SPOTRI) (F77_CONST_CHAR_ARG_DECL, - const F77_INT&, F77_REAL*, + const F77_INT&, F77_REAL *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (zpotri, ZPOTRI) (F77_CONST_CHAR_ARG_DECL, - const F77_INT&, F77_DBLE_CMPLX*, + const F77_INT&, F77_DBLE_CMPLX *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL); @@ -1647,42 +1647,42 @@ F77_RET_T F77_FUNC (spotrs, SPOTRS) (F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - const F77_REAL*, const F77_INT&, F77_REAL*, + const F77_REAL *, const F77_INT&, F77_REAL *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (cpotrs, CPOTRS) (F77_CONST_CHAR_ARG_DECL, const F77_INT&, - const F77_INT&, const F77_CMPLX*, - const F77_INT&, F77_CMPLX*, + const F77_INT&, const F77_CMPLX *, + const F77_INT&, F77_CMPLX *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (dpotrs, DPOTRS) (F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - const F77_DBLE*, const F77_INT&, F77_DBLE*, + const F77_DBLE *, const F77_INT&, F77_DBLE *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (zpotrs, ZPOTRS) (F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - const F77_DBLE_CMPLX*, const F77_INT&, - F77_DBLE_CMPLX*, const F77_INT&, F77_INT& + const F77_DBLE_CMPLX *, const F77_INT&, + F77_DBLE_CMPLX *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL); // PTSV F77_RET_T F77_FUNC (dptsv, DPTSV) (const F77_INT&, const F77_INT&, - F77_DBLE*, F77_DBLE*, F77_DBLE*, const F77_INT&, + F77_DBLE *, F77_DBLE *, F77_DBLE *, const F77_INT&, F77_INT&); F77_RET_T F77_FUNC (zptsv, ZPTSV) (const F77_INT&, const F77_INT&, - F77_DBLE*, F77_DBLE_CMPLX*, F77_DBLE_CMPLX*, + F77_DBLE *, F77_DBLE_CMPLX *, F77_DBLE_CMPLX *, const F77_INT&, F77_INT&); // RSF2CSF (liboctave/external/lapack-xtra) @@ -1700,8 +1700,8 @@ F77_RET_T F77_FUNC (dsyev, DSYEV) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const F77_INT&, F77_DBLE*, - const F77_INT&, F77_DBLE*, F77_DBLE*, + const F77_INT&, F77_DBLE *, + const F77_INT&, F77_DBLE *, F77_DBLE *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -1709,8 +1709,8 @@ F77_RET_T F77_FUNC (ssyev, SSYEV) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const F77_INT&, F77_REAL*, - const F77_INT&, F77_REAL*, F77_REAL*, + const F77_INT&, F77_REAL *, + const F77_INT&, F77_REAL *, F77_REAL *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -1721,9 +1721,9 @@ F77_FUNC (dsygv, DSYGV) (const F77_INT&, F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const F77_INT&, F77_DBLE*, - const F77_INT&, F77_DBLE*, - const F77_INT&, F77_DBLE*, F77_DBLE*, + const F77_INT&, F77_DBLE *, + const F77_INT&, F77_DBLE *, + const F77_INT&, F77_DBLE *, F77_DBLE *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -1732,9 +1732,9 @@ F77_FUNC (ssygv, SSYGV) (const F77_INT&, F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const F77_INT&, F77_REAL*, - const F77_INT&, F77_REAL*, - const F77_INT&, F77_REAL*, F77_REAL*, + const F77_INT&, F77_REAL *, + const F77_INT&, F77_REAL *, + const F77_INT&, F77_REAL *, F77_REAL *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -1745,9 +1745,9 @@ F77_FUNC (csyrk, CSYRK) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - const F77_CMPLX&, const F77_CMPLX*, + const F77_CMPLX&, const F77_CMPLX *, const F77_INT&, const F77_CMPLX&, - F77_CMPLX*, const F77_INT& + F77_CMPLX *, const F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -1755,8 +1755,8 @@ F77_FUNC (dsyrk, DSYRK) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - const F77_DBLE&, const F77_DBLE*, const F77_INT&, - const F77_DBLE&, F77_DBLE*, const F77_INT& + const F77_DBLE&, const F77_DBLE *, const F77_INT&, + const F77_DBLE&, F77_DBLE *, const F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -1764,8 +1764,8 @@ F77_FUNC (ssyrk, SSYRK) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - const F77_REAL&, const F77_REAL*, const F77_INT&, - const F77_REAL&, F77_REAL*, const F77_INT& + const F77_REAL&, const F77_REAL *, const F77_INT&, + const F77_REAL&, F77_REAL *, const F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -1773,9 +1773,9 @@ F77_FUNC (zsyrk, ZSYRK) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - const F77_DBLE_CMPLX&, const F77_DBLE_CMPLX*, + const F77_DBLE_CMPLX&, const F77_DBLE_CMPLX *, const F77_INT&, const F77_DBLE_CMPLX&, - F77_DBLE_CMPLX*, const F77_INT& + F77_DBLE_CMPLX *, const F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -1803,12 +1803,12 @@ F77_CONST_CHAR_ARG_DECL, F77_INT *SELECT, const F77_INT& N, const F77_DBLE_CMPLX *A, - const F77_INT& LDA,const F77_DBLE_CMPLX *B, + const F77_INT& LDA, const F77_DBLE_CMPLX *B, const F77_INT& LDB, F77_DBLE_CMPLX *xVL, const F77_INT& LDVL, F77_DBLE_CMPLX *xVR, const F77_INT& LDVR, const F77_INT& MM, F77_INT& M, - F77_DBLE_CMPLX *CWORK, F77_DBLE* RWORK, + F77_DBLE_CMPLX *CWORK, F77_DBLE *RWORK, F77_INT& INFO F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -1874,9 +1874,9 @@ F77_FUNC (ctrcon, CTRCON) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const F77_INT&, const F77_CMPLX*, - const F77_INT&, F77_REAL&, F77_CMPLX*, - F77_REAL*, F77_INT& + const F77_INT&, const F77_CMPLX *, + const F77_INT&, F77_REAL&, F77_CMPLX *, + F77_REAL *, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -1885,9 +1885,9 @@ F77_FUNC (dtrcon, DTRCON) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const F77_INT&, const F77_DBLE*, + const F77_INT&, const F77_DBLE *, const F77_INT&, F77_DBLE&, - F77_DBLE*, F77_INT*, F77_INT& + F77_DBLE *, F77_INT *, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -1895,9 +1895,9 @@ F77_FUNC (strcon, STRCON) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const F77_INT&, const F77_REAL*, + const F77_INT&, const F77_REAL *, const F77_INT&, F77_REAL&, - F77_REAL*, F77_INT*, F77_INT& + F77_REAL *, F77_INT *, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -1906,9 +1906,9 @@ F77_FUNC (ztrcon, ZTRCON) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const F77_INT&, const F77_DBLE_CMPLX*, + const F77_INT&, const F77_DBLE_CMPLX *, const F77_INT&, F77_DBLE&, - F77_DBLE_CMPLX*, F77_DBLE*, F77_INT& + F77_DBLE_CMPLX *, F77_DBLE *, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -1917,38 +1917,38 @@ F77_RET_T F77_FUNC (ctrsen, CTRSEN) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const F77_INT*, const F77_INT&, - F77_CMPLX*, const F77_INT&, F77_CMPLX*, - const F77_INT&, F77_CMPLX*, F77_INT&, - F77_REAL&, F77_REAL&, F77_CMPLX*, - const F77_INT&, F77_INT &); + const F77_INT *, const F77_INT&, + F77_CMPLX *, const F77_INT&, F77_CMPLX *, + const F77_INT&, F77_CMPLX *, F77_INT&, + F77_REAL&, F77_REAL&, F77_CMPLX *, + const F77_INT&, F77_INT&); F77_RET_T F77_FUNC (dtrsen, DTRSEN) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const F77_INT*, const F77_INT&, - F77_DBLE*, const F77_INT&, F77_DBLE*, - const F77_INT&, F77_DBLE*, F77_DBLE*, - F77_INT&, F77_DBLE&, F77_DBLE&, F77_DBLE*, - const F77_INT&, F77_INT*, + const F77_INT *, const F77_INT&, + F77_DBLE *, const F77_INT&, F77_DBLE *, + const F77_INT&, F77_DBLE *, F77_DBLE *, + F77_INT&, F77_DBLE&, F77_DBLE&, F77_DBLE *, + const F77_INT&, F77_INT *, const F77_INT&, F77_INT&); F77_RET_T F77_FUNC (strsen, STRSEN) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const F77_INT*, const F77_INT&, - F77_REAL*, const F77_INT&, F77_REAL*, - const F77_INT&, F77_REAL*, F77_REAL*, - F77_INT&, F77_REAL&, F77_REAL&, F77_REAL*, - const F77_INT&, F77_INT*, + const F77_INT *, const F77_INT&, + F77_REAL *, const F77_INT&, F77_REAL *, + const F77_INT&, F77_REAL *, F77_REAL *, + F77_INT&, F77_REAL&, F77_REAL&, F77_REAL *, + const F77_INT&, F77_INT *, const F77_INT&, F77_INT&); F77_RET_T F77_FUNC (ztrsen, ZTRSEN) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const F77_INT*, const F77_INT&, - F77_DBLE_CMPLX*, const F77_INT&, - F77_DBLE_CMPLX*, const F77_INT&, - F77_DBLE_CMPLX*, F77_INT&, F77_DBLE&, - F77_DBLE&, F77_DBLE_CMPLX*, - const F77_INT&, F77_INT &); + const F77_INT *, const F77_INT&, + F77_DBLE_CMPLX *, const F77_INT&, + F77_DBLE_CMPLX *, const F77_INT&, + F77_DBLE_CMPLX *, F77_INT&, F77_DBLE&, + F77_DBLE&, F77_DBLE_CMPLX *, + const F77_INT&, F77_INT&); // TRSYL @@ -1956,9 +1956,9 @@ F77_FUNC (ctrsyl, CTRSYL) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - const F77_INT&, const F77_CMPLX*, - const F77_INT&, const F77_CMPLX*, - const F77_INT&, const F77_CMPLX*, + const F77_INT&, const F77_CMPLX *, + const F77_INT&, const F77_CMPLX *, + const F77_INT&, const F77_CMPLX *, const F77_INT&, F77_REAL&, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -1967,9 +1967,9 @@ F77_FUNC (dtrsyl, DTRSYL) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - const F77_INT&, const F77_DBLE*, - const F77_INT&, const F77_DBLE*, - const F77_INT&, const F77_DBLE*, + const F77_INT&, const F77_DBLE *, + const F77_INT&, const F77_DBLE *, + const F77_INT&, const F77_DBLE *, const F77_INT&, F77_DBLE&, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -1978,9 +1978,9 @@ F77_FUNC (strsyl, STRSYL) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - const F77_INT&, const F77_REAL*, - const F77_INT&, const F77_REAL*, - const F77_INT&, const F77_REAL*, + const F77_INT&, const F77_REAL *, + const F77_INT&, const F77_REAL *, + const F77_INT&, const F77_REAL *, const F77_INT&, F77_REAL&, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -1989,9 +1989,9 @@ F77_FUNC (ztrsyl, ZTRSYL) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - const F77_INT&, const F77_DBLE_CMPLX*, - const F77_INT&, const F77_DBLE_CMPLX*, - const F77_INT&, const F77_DBLE_CMPLX*, + const F77_INT&, const F77_DBLE_CMPLX *, + const F77_INT&, const F77_DBLE_CMPLX *, + const F77_INT&, const F77_DBLE_CMPLX *, const F77_INT&, F77_DBLE&, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -2001,7 +2001,7 @@ F77_RET_T F77_FUNC (ctrtri, CTRTRI) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const F77_INT&, const F77_CMPLX*, + const F77_INT&, const F77_CMPLX *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -2009,7 +2009,7 @@ F77_RET_T F77_FUNC (dtrtri, DTRTRI) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const F77_INT&, const F77_DBLE*, + const F77_INT&, const F77_DBLE *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -2017,7 +2017,7 @@ F77_RET_T F77_FUNC (strtri, STRTRI) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const F77_INT&, const F77_REAL*, + const F77_INT&, const F77_REAL *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -2025,7 +2025,7 @@ F77_RET_T F77_FUNC (ztrtri, ZTRTRI) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const F77_INT&, const F77_DBLE_CMPLX*, + const F77_INT&, const F77_DBLE_CMPLX *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -2037,8 +2037,8 @@ F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - const F77_CMPLX*, const F77_INT&, - F77_CMPLX*, const F77_INT&, + const F77_CMPLX *, const F77_INT&, + F77_CMPLX *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL @@ -2049,7 +2049,7 @@ F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - const F77_DBLE*, const F77_INT&, F77_DBLE*, + const F77_DBLE *, const F77_INT&, F77_DBLE *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL @@ -2060,8 +2060,8 @@ F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const F77_INT&, - const F77_INT&, const F77_REAL*, - const F77_INT&, F77_REAL*, + const F77_INT&, const F77_REAL *, + const F77_INT&, F77_REAL *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL @@ -2072,7 +2072,7 @@ F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const F77_INT&, const F77_INT&, - const F77_DBLE_CMPLX*, const F77_INT&, F77_DBLE_CMPLX*, + const F77_DBLE_CMPLX *, const F77_INT&, F77_DBLE_CMPLX *, const F77_INT&, F77_INT& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL @@ -2082,29 +2082,29 @@ F77_RET_T F77_FUNC (cunghr, CUNGHR) (const F77_INT&, const F77_INT&, - const F77_INT&, F77_CMPLX*, - const F77_INT&, F77_CMPLX*, - F77_CMPLX*, const F77_INT&, + const F77_INT&, F77_CMPLX *, + const F77_INT&, F77_CMPLX *, + F77_CMPLX *, const F77_INT&, F77_INT&); F77_RET_T F77_FUNC (zunghr, ZUNGHR) (const F77_INT&, const F77_INT&, - const F77_INT&, F77_DBLE_CMPLX*, - const F77_INT&, F77_DBLE_CMPLX*, F77_DBLE_CMPLX*, + const F77_INT&, F77_DBLE_CMPLX *, + const F77_INT&, F77_DBLE_CMPLX *, F77_DBLE_CMPLX *, const F77_INT&, F77_INT&); // UNGQR F77_RET_T F77_FUNC (cungqr, CUNGQR) (const F77_INT&, const F77_INT&, - const F77_INT&, F77_CMPLX*, - const F77_INT&, F77_CMPLX*, - F77_CMPLX*, const F77_INT&, + const F77_INT&, F77_CMPLX *, + const F77_INT&, F77_CMPLX *, + F77_CMPLX *, const F77_INT&, F77_INT&); F77_RET_T F77_FUNC (zungqr, ZUNGQR) (const F77_INT&, const F77_INT&, - const F77_INT&, F77_DBLE_CMPLX*, - const F77_INT&, F77_DBLE_CMPLX*, F77_DBLE_CMPLX*, + const F77_INT&, F77_DBLE_CMPLX *, + const F77_INT&, F77_DBLE_CMPLX *, F77_DBLE_CMPLX *, const F77_INT&, F77_INT&); }
--- a/liboctave/numeric/lo-qrupdate-proto.h Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/numeric/lo-qrupdate-proto.h Mon Nov 29 10:03:47 2021 -0800 @@ -38,285 +38,285 @@ // CH1DN F77_RET_T - F77_FUNC (cch1dn, CCH1DN) (const F77_INT&, F77_CMPLX*, - const F77_INT&, F77_CMPLX*, - F77_REAL*, F77_INT&); + F77_FUNC (cch1dn, CCH1DN) (const F77_INT&, F77_CMPLX *, + const F77_INT&, F77_CMPLX *, + F77_REAL *, F77_INT&); F77_RET_T - F77_FUNC (dch1dn, DCH1DN) (const F77_INT&, F77_DBLE*, - const F77_INT&, F77_DBLE*, - F77_DBLE*, F77_INT&); + F77_FUNC (dch1dn, DCH1DN) (const F77_INT&, F77_DBLE *, + const F77_INT&, F77_DBLE *, + F77_DBLE *, F77_INT&); F77_RET_T - F77_FUNC (sch1dn, SCH1DN) (const F77_INT&, F77_REAL*, - const F77_INT&, F77_REAL*, - F77_REAL*, F77_INT&); + F77_FUNC (sch1dn, SCH1DN) (const F77_INT&, F77_REAL *, + const F77_INT&, F77_REAL *, + F77_REAL *, F77_INT&); F77_RET_T - F77_FUNC (zch1dn, ZCH1DN) (const F77_INT&, F77_DBLE_CMPLX*, - const F77_INT&, F77_DBLE_CMPLX*, - F77_DBLE*, F77_INT&); + F77_FUNC (zch1dn, ZCH1DN) (const F77_INT&, F77_DBLE_CMPLX *, + const F77_INT&, F77_DBLE_CMPLX *, + F77_DBLE *, F77_INT&); // CH1UP F77_RET_T - F77_FUNC (cch1up, CCH1UP) (const F77_INT&, F77_CMPLX*, - const F77_INT&, F77_CMPLX*, F77_REAL*); + F77_FUNC (cch1up, CCH1UP) (const F77_INT&, F77_CMPLX *, + const F77_INT&, F77_CMPLX *, F77_REAL *); F77_RET_T - F77_FUNC (dch1up, DCH1UP) (const F77_INT&, F77_DBLE*, - const F77_INT&, F77_DBLE*, F77_DBLE*); + F77_FUNC (dch1up, DCH1UP) (const F77_INT&, F77_DBLE *, + const F77_INT&, F77_DBLE *, F77_DBLE *); F77_RET_T - F77_FUNC (sch1up, SCH1UP) (const F77_INT&, F77_REAL*, - const F77_INT&, F77_REAL*, F77_REAL*); + F77_FUNC (sch1up, SCH1UP) (const F77_INT&, F77_REAL *, + const F77_INT&, F77_REAL *, F77_REAL *); F77_RET_T - F77_FUNC (zch1up, ZCH1UP) (const F77_INT&, F77_DBLE_CMPLX*, - const F77_INT&, F77_DBLE_CMPLX*, F77_DBLE*); + F77_FUNC (zch1up, ZCH1UP) (const F77_INT&, F77_DBLE_CMPLX *, + const F77_INT&, F77_DBLE_CMPLX *, F77_DBLE *); // CHDEX F77_RET_T - F77_FUNC (dchdex, DCHDEX) (const F77_INT&, F77_DBLE*, + F77_FUNC (dchdex, DCHDEX) (const F77_INT&, F77_DBLE *, const F77_INT&, const F77_INT&, - F77_DBLE*); + F77_DBLE *); F77_RET_T - F77_FUNC (schdex, SCHDEX) (const F77_INT&, F77_REAL*, + F77_FUNC (schdex, SCHDEX) (const F77_INT&, F77_REAL *, const F77_INT&, const F77_INT&, - F77_REAL*); + F77_REAL *); F77_RET_T - F77_FUNC (cchdex, CCHDEX) (const F77_INT&, F77_CMPLX*, + F77_FUNC (cchdex, CCHDEX) (const F77_INT&, F77_CMPLX *, const F77_INT&, const F77_INT&, - F77_REAL*); + F77_REAL *); F77_RET_T - F77_FUNC (zchdex, ZCHDEX) (const F77_INT&, F77_DBLE_CMPLX*, + F77_FUNC (zchdex, ZCHDEX) (const F77_INT&, F77_DBLE_CMPLX *, const F77_INT&, const F77_INT&, - F77_DBLE*); + F77_DBLE *); // CHINX F77_RET_T - F77_FUNC (cchinx, CCHINX) (const F77_INT&, F77_CMPLX*, + F77_FUNC (cchinx, CCHINX) (const F77_INT&, F77_CMPLX *, const F77_INT&, const F77_INT&, - F77_CMPLX*, F77_REAL*, F77_INT&); + F77_CMPLX *, F77_REAL *, F77_INT&); F77_RET_T - F77_FUNC (dchinx, DCHINX) (const F77_INT&, F77_DBLE*, + F77_FUNC (dchinx, DCHINX) (const F77_INT&, F77_DBLE *, const F77_INT&, const F77_INT&, - F77_DBLE*, F77_DBLE*, F77_INT&); + F77_DBLE *, F77_DBLE *, F77_INT&); F77_RET_T - F77_FUNC (schinx, SCHINX) (const F77_INT&, F77_REAL*, + F77_FUNC (schinx, SCHINX) (const F77_INT&, F77_REAL *, const F77_INT&, const F77_INT&, - F77_REAL*, F77_REAL*, F77_INT&); + F77_REAL *, F77_REAL *, F77_INT&); F77_RET_T - F77_FUNC (zchinx, ZCHINX) (const F77_INT&, F77_DBLE_CMPLX*, + F77_FUNC (zchinx, ZCHINX) (const F77_INT&, F77_DBLE_CMPLX *, const F77_INT&, const F77_INT&, - F77_DBLE_CMPLX*, F77_DBLE*, F77_INT&); + F77_DBLE_CMPLX *, F77_DBLE *, F77_INT&); // CHSHX F77_RET_T - F77_FUNC (cchshx, CCHSHX) (const F77_INT&, F77_CMPLX*, + F77_FUNC (cchshx, CCHSHX) (const F77_INT&, F77_CMPLX *, const F77_INT&, const F77_INT&, - const F77_INT&, F77_CMPLX*, F77_REAL*); + const F77_INT&, F77_CMPLX *, F77_REAL *); F77_RET_T - F77_FUNC (dchshx, DCHSHX) (const F77_INT&, F77_DBLE*, + F77_FUNC (dchshx, DCHSHX) (const F77_INT&, F77_DBLE *, const F77_INT&, const F77_INT&, - const F77_INT&, F77_DBLE*); + const F77_INT&, F77_DBLE *); F77_RET_T - F77_FUNC (schshx, SCHSHX) (const F77_INT&, F77_REAL*, + F77_FUNC (schshx, SCHSHX) (const F77_INT&, F77_REAL *, const F77_INT&, const F77_INT&, - const F77_INT&, F77_REAL*); + const F77_INT&, F77_REAL *); F77_RET_T - F77_FUNC (zchshx, ZCHSHX) (const F77_INT&, F77_DBLE_CMPLX*, + F77_FUNC (zchshx, ZCHSHX) (const F77_INT&, F77_DBLE_CMPLX *, const F77_INT&, const F77_INT&, - const F77_INT&, F77_DBLE_CMPLX*, F77_DBLE*); + const F77_INT&, F77_DBLE_CMPLX *, F77_DBLE *); // QR1UP F77_RET_T F77_FUNC (cqr1up, CQR1UP) (const F77_INT&, const F77_INT&, - const F77_INT&, F77_CMPLX*, - const F77_INT&, F77_CMPLX*, - const F77_INT&, F77_CMPLX*, - F77_CMPLX*, F77_CMPLX*, F77_REAL*); + const F77_INT&, F77_CMPLX *, + const F77_INT&, F77_CMPLX *, + const F77_INT&, F77_CMPLX *, + F77_CMPLX *, F77_CMPLX *, F77_REAL *); F77_RET_T F77_FUNC (dqr1up, DQR1UP) (const F77_INT&, const F77_INT&, - const F77_INT&, F77_DBLE*, - const F77_INT&, F77_DBLE*, - const F77_INT&, F77_DBLE*, F77_DBLE*, F77_DBLE*); + const F77_INT&, F77_DBLE *, + const F77_INT&, F77_DBLE *, + const F77_INT&, F77_DBLE *, F77_DBLE *, F77_DBLE *); F77_RET_T F77_FUNC (sqr1up, SQR1UP) (const F77_INT&, const F77_INT&, - const F77_INT&, F77_REAL*, - const F77_INT&, F77_REAL*, - const F77_INT&, F77_REAL*, F77_REAL*, F77_REAL*); + const F77_INT&, F77_REAL *, + const F77_INT&, F77_REAL *, + const F77_INT&, F77_REAL *, F77_REAL *, F77_REAL *); F77_RET_T F77_FUNC (zqr1up, ZQR1UP) (const F77_INT&, const F77_INT&, - const F77_INT&, F77_DBLE_CMPLX*, - const F77_INT&, F77_DBLE_CMPLX*, - const F77_INT&, F77_DBLE_CMPLX*, - F77_DBLE_CMPLX*, F77_DBLE_CMPLX*, F77_DBLE*); + const F77_INT&, F77_DBLE_CMPLX *, + const F77_INT&, F77_DBLE_CMPLX *, + const F77_INT&, F77_DBLE_CMPLX *, + F77_DBLE_CMPLX *, F77_DBLE_CMPLX *, F77_DBLE *); // QRDEC F77_RET_T F77_FUNC (cqrdec, CQRDEC) (const F77_INT&, const F77_INT&, - const F77_INT&, F77_CMPLX*, - const F77_INT&, F77_CMPLX*, + const F77_INT&, F77_CMPLX *, + const F77_INT&, F77_CMPLX *, const F77_INT&, const F77_INT&, - F77_REAL*); + F77_REAL *); F77_RET_T F77_FUNC (dqrdec, DQRDEC) (const F77_INT&, const F77_INT&, - const F77_INT&, F77_DBLE*, - const F77_INT&, F77_DBLE*, + const F77_INT&, F77_DBLE *, + const F77_INT&, F77_DBLE *, const F77_INT&, const F77_INT&, - F77_DBLE*); + F77_DBLE *); F77_RET_T F77_FUNC (sqrdec, SQRDEC) (const F77_INT&, const F77_INT&, - const F77_INT&, F77_REAL*, - const F77_INT&, F77_REAL*, + const F77_INT&, F77_REAL *, + const F77_INT&, F77_REAL *, const F77_INT&, const F77_INT&, - F77_REAL*); + F77_REAL *); F77_RET_T F77_FUNC (zqrdec, ZQRDEC) (const F77_INT&, const F77_INT&, - const F77_INT&, F77_DBLE_CMPLX*, - const F77_INT&, F77_DBLE_CMPLX*, + const F77_INT&, F77_DBLE_CMPLX *, + const F77_INT&, F77_DBLE_CMPLX *, const F77_INT&, const F77_INT&, - F77_DBLE*); + F77_DBLE *); // QRDER F77_RET_T F77_FUNC (cqrder, CQRDER) (const F77_INT&, const F77_INT&, - F77_CMPLX*, const F77_INT&, - F77_CMPLX*, const F77_INT&, - const F77_INT&, F77_CMPLX*, F77_REAL*); + F77_CMPLX *, const F77_INT&, + F77_CMPLX *, const F77_INT&, + const F77_INT&, F77_CMPLX *, F77_REAL *); F77_RET_T F77_FUNC (dqrder, DQRDER) (const F77_INT&, const F77_INT&, - F77_DBLE*, const F77_INT&, - F77_DBLE*, const F77_INT&, - const F77_INT&, F77_DBLE*); + F77_DBLE *, const F77_INT&, + F77_DBLE *, const F77_INT&, + const F77_INT&, F77_DBLE *); F77_RET_T F77_FUNC (sqrder, SQRDER) (const F77_INT&, const F77_INT&, - F77_REAL*, const F77_INT&, - F77_REAL*, const F77_INT&, - const F77_INT&, F77_REAL*); + F77_REAL *, const F77_INT&, + F77_REAL *, const F77_INT&, + const F77_INT&, F77_REAL *); F77_RET_T F77_FUNC (zqrder, ZQRDER) (const F77_INT&, const F77_INT&, - F77_DBLE_CMPLX*, const F77_INT&, - F77_DBLE_CMPLX*, const F77_INT&, - const F77_INT&, F77_DBLE_CMPLX*, F77_DBLE*); + F77_DBLE_CMPLX *, const F77_INT&, + F77_DBLE_CMPLX *, const F77_INT&, + const F77_INT&, F77_DBLE_CMPLX *, F77_DBLE *); // QRINC F77_RET_T F77_FUNC (cqrinc, CQRINC) (const F77_INT&, const F77_INT&, - const F77_INT&, F77_CMPLX*, - const F77_INT&, F77_CMPLX*, + const F77_INT&, F77_CMPLX *, + const F77_INT&, F77_CMPLX *, const F77_INT&, const F77_INT&, - const F77_CMPLX*, F77_REAL*); + const F77_CMPLX *, F77_REAL *); F77_RET_T F77_FUNC (dqrinc, DQRINC) (const F77_INT&, const F77_INT&, - const F77_INT&, F77_DBLE*, - const F77_INT&, F77_DBLE*, + const F77_INT&, F77_DBLE *, + const F77_INT&, F77_DBLE *, const F77_INT&, const F77_INT&, - const F77_DBLE*, F77_DBLE*); + const F77_DBLE *, F77_DBLE *); F77_RET_T F77_FUNC (sqrinc, SQRINC) (const F77_INT&, const F77_INT&, - const F77_INT&, F77_REAL*, - const F77_INT&, F77_REAL*, + const F77_INT&, F77_REAL *, + const F77_INT&, F77_REAL *, const F77_INT&, const F77_INT&, - const F77_REAL*, F77_REAL*); + const F77_REAL *, F77_REAL *); F77_RET_T F77_FUNC (zqrinc, ZQRINC) (const F77_INT&, const F77_INT&, - const F77_INT&, F77_DBLE_CMPLX*, - const F77_INT&, F77_DBLE_CMPLX*, + const F77_INT&, F77_DBLE_CMPLX *, + const F77_INT&, F77_DBLE_CMPLX *, const F77_INT&, const F77_INT&, - const F77_DBLE_CMPLX*, F77_DBLE*); + const F77_DBLE_CMPLX *, F77_DBLE *); // QRINR F77_RET_T F77_FUNC (cqrinr, CQRINR) (const F77_INT&, const F77_INT&, - F77_CMPLX*, const F77_INT&, - F77_CMPLX*, const F77_INT&, - const F77_INT&, const F77_CMPLX*, - F77_REAL*); + F77_CMPLX *, const F77_INT&, + F77_CMPLX *, const F77_INT&, + const F77_INT&, const F77_CMPLX *, + F77_REAL *); F77_RET_T F77_FUNC (dqrinr, DQRINR) (const F77_INT&, const F77_INT&, - F77_DBLE*, const F77_INT&, - F77_DBLE*, const F77_INT&, - const F77_INT&, const F77_DBLE*, - F77_DBLE*); + F77_DBLE *, const F77_INT&, + F77_DBLE *, const F77_INT&, + const F77_INT&, const F77_DBLE *, + F77_DBLE *); F77_RET_T F77_FUNC (sqrinr, SQRINR) (const F77_INT&, const F77_INT&, - F77_REAL*, const F77_INT&, - F77_REAL*, const F77_INT&, - const F77_INT&, const F77_REAL*, - F77_REAL*); + F77_REAL *, const F77_INT&, + F77_REAL *, const F77_INT&, + const F77_INT&, const F77_REAL *, + F77_REAL *); F77_RET_T F77_FUNC (zqrinr, ZQRINR) (const F77_INT&, const F77_INT&, - F77_DBLE_CMPLX*, const F77_INT&, - F77_DBLE_CMPLX*, const F77_INT&, - const F77_INT&, const F77_DBLE_CMPLX*, - F77_DBLE*); + F77_DBLE_CMPLX *, const F77_INT&, + F77_DBLE_CMPLX *, const F77_INT&, + const F77_INT&, const F77_DBLE_CMPLX *, + F77_DBLE *); // QRSHC F77_RET_T F77_FUNC (cqrshc, CQRSHC) (const F77_INT&, const F77_INT&, - const F77_INT&, F77_CMPLX*, - const F77_INT&, F77_CMPLX*, + const F77_INT&, F77_CMPLX *, + const F77_INT&, F77_CMPLX *, const F77_INT&, const F77_INT&, const F77_INT&, - F77_CMPLX*, F77_REAL*); + F77_CMPLX *, F77_REAL *); F77_RET_T F77_FUNC (dqrshc, DQRSHC) (const F77_INT&, const F77_INT&, - const F77_INT&, F77_DBLE*, - const F77_INT&, F77_DBLE*, + const F77_INT&, F77_DBLE *, + const F77_INT&, F77_DBLE *, const F77_INT&, const F77_INT&, const F77_INT&, - F77_DBLE*); + F77_DBLE *); F77_RET_T F77_FUNC (sqrshc, SQRSHC) (const F77_INT&, const F77_INT&, - const F77_INT&, F77_REAL*, - const F77_INT&, F77_REAL*, + const F77_INT&, F77_REAL *, + const F77_INT&, F77_REAL *, const F77_INT&, const F77_INT&, const F77_INT&, - F77_REAL*); + F77_REAL *); F77_RET_T F77_FUNC (zqrshc, ZQRSHC) (const F77_INT&, const F77_INT&, - const F77_INT&, F77_DBLE_CMPLX*, - const F77_INT&, F77_DBLE_CMPLX*, + const F77_INT&, F77_DBLE_CMPLX *, + const F77_INT&, F77_DBLE_CMPLX *, const F77_INT&, const F77_INT&, const F77_INT&, - F77_DBLE_CMPLX*, F77_DBLE*); + F77_DBLE_CMPLX *, F77_DBLE *); #endif
--- a/liboctave/numeric/lo-specfun.cc Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/numeric/lo-specfun.cc Mon Nov 29 10:03:47 2021 -0800 @@ -175,7 +175,7 @@ for (octave_idx_type j = 0; j < nc; j++) for (octave_idx_type i = 0; i < nr; i++) - retval(i,j) = airy (z(i,j), deriv, scaled, ierr(i,j)); + retval(i, j) = airy (z(i, j), deriv, scaled, ierr(i, j)); return retval; } @@ -245,7 +245,7 @@ for (octave_idx_type j = 0; j < nc; j++) for (octave_idx_type i = 0; i < nr; i++) - retval(i,j) = airy (z(i,j), deriv, scaled, ierr(i,j)); + retval(i, j) = airy (z(i, j), deriv, scaled, ierr(i, j)); return retval; } @@ -612,7 +612,7 @@ for (octave_idx_type j = 0; j < nc; j++) for (octave_idx_type i = 0; i < nr; i++) - retval(i,j) = f (x(i,j), alpha, (scaled ? 2 : 1), ierr(i,j)); + retval(i, j) = f (x(i, j), alpha, (scaled ? 2 : 1), ierr(i, j)); return retval; } @@ -630,7 +630,7 @@ for (octave_idx_type j = 0; j < nc; j++) for (octave_idx_type i = 0; i < nr; i++) - retval(i,j) = f (x, alpha(i,j), (scaled ? 2 : 1), ierr(i,j)); + retval(i, j) = f (x, alpha(i, j), (scaled ? 2 : 1), ierr(i, j)); return retval; } @@ -660,7 +660,7 @@ for (octave_idx_type j = 0; j < nc; j++) for (octave_idx_type i = 0; i < nr; i++) - retval(i,j) = f (x(i,j), alpha(i,j), (scaled ? 2 : 1), ierr(i,j)); + retval(i, j) = f (x(i, j), alpha(i, j), (scaled ? 2 : 1), ierr(i, j)); return retval; } @@ -733,7 +733,7 @@ for (octave_idx_type j = 0; j < nc; j++) for (octave_idx_type i = 0; i < nr; i++) - retval(i,j) = f (x(i), alpha(j), (scaled ? 2 : 1), ierr(i,j)); + retval(i, j) = f (x(i), alpha(j), (scaled ? 2 : 1), ierr(i, j)); return retval; } @@ -1152,7 +1152,7 @@ for (octave_idx_type j = 0; j < nc; j++) for (octave_idx_type i = 0; i < nr; i++) - retval(i,j) = f (x(i,j), alpha, (scaled ? 2 : 1), ierr(i,j)); + retval(i, j) = f (x(i, j), alpha, (scaled ? 2 : 1), ierr(i, j)); return retval; } @@ -1171,7 +1171,7 @@ for (octave_idx_type j = 0; j < nc; j++) for (octave_idx_type i = 0; i < nr; i++) - retval(i,j) = f (x, alpha(i,j), (scaled ? 2 : 1), ierr(i,j)); + retval(i, j) = f (x, alpha(i, j), (scaled ? 2 : 1), ierr(i, j)); return retval; } @@ -1202,7 +1202,7 @@ for (octave_idx_type j = 0; j < nc; j++) for (octave_idx_type i = 0; i < nr; i++) - retval(i,j) = f (x(i,j), alpha(i,j), (scaled ? 2 : 1), ierr(i,j)); + retval(i, j) = f (x(i, j), alpha(i, j), (scaled ? 2 : 1), ierr(i, j)); return retval; } @@ -1276,7 +1276,7 @@ for (octave_idx_type j = 0; j < nc; j++) for (octave_idx_type i = 0; i < nr; i++) - retval(i,j) = f (x(i), alpha(j), (scaled ? 2 : 1), ierr(i,j)); + retval(i, j) = f (x(i), alpha(j), (scaled ? 2 : 1), ierr(i, j)); return retval; } @@ -1421,7 +1421,7 @@ for (octave_idx_type j = 0; j < nc; j++) for (octave_idx_type i = 0; i < nr; i++) - retval(i,j) = biry (z(i,j), deriv, scaled, ierr(i,j)); + retval(i, j) = biry (z(i, j), deriv, scaled, ierr(i, j)); return retval; } @@ -1492,7 +1492,7 @@ for (octave_idx_type j = 0; j < nc; j++) for (octave_idx_type i = 0; i < nr; i++) - retval(i,j) = biry (z(i,j), deriv, scaled, ierr(i,j)); + retval(i, j) = biry (z(i, j), deriv, scaled, ierr(i, j)); return retval; }
--- a/liboctave/numeric/oct-convn.h Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/numeric/oct-convn.h Mon Nov 29 10:03:47 2021 -0800 @@ -67,21 +67,21 @@ // public functions that also need to be tagged as deprecated? enum convn_type +{ + convn_full, + convn_same, + convn_valid +}; + +namespace octave +{ + enum convn_type { convn_full, convn_same, convn_valid }; -namespace octave -{ - enum convn_type - { - convn_full, - convn_same, - convn_valid - }; - // double real X double real extern OCTAVE_API NDArray
--- a/liboctave/numeric/oct-fftw.h Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/numeric/oct-fftw.h Mon Nov 29 10:03:47 2021 -0800 @@ -354,10 +354,10 @@ std::size_t nsamples = 1, octave_idx_type stride = 1, octave_idx_type dist = -1); - static int fftNd (const double*, Complex*, const int, const dim_vector&); - static int fftNd (const Complex*, Complex*, const int, + static int fftNd (const double *, Complex *, const int, const dim_vector&); + static int fftNd (const Complex *, Complex *, const int, const dim_vector&); - static int ifftNd (const Complex*, Complex*, const int, + static int ifftNd (const Complex *, Complex *, const int, const dim_vector&); static int fft (const float *in, FloatComplex *out, std::size_t npts, @@ -370,11 +370,11 @@ std::size_t nsamples = 1, octave_idx_type stride = 1, octave_idx_type dist = -1); - static int fftNd (const float*, FloatComplex*, const int, + static int fftNd (const float *, FloatComplex *, const int, const dim_vector&); - static int fftNd (const FloatComplex*, FloatComplex*, const int, + static int fftNd (const FloatComplex *, FloatComplex *, const int, const dim_vector&); - static int ifftNd (const FloatComplex*, FloatComplex*, const int, + static int ifftNd (const FloatComplex *, FloatComplex *, const int, const dim_vector&); };
--- a/liboctave/numeric/oct-norm.cc Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/numeric/oct-norm.cc Mon Nov 29 10:03:47 2021 -0800 @@ -519,7 +519,7 @@ if (p == 2) { math::svd<MatrixT> fact (m, math::svd<MatrixT>::Type::sigma_only); - res = fact.singular_values () (0,0); + res = fact.singular_values () (0, 0); } else if (p == 1) res = octave::xcolnorms (m, static_cast<R> (1)).max ();
--- a/liboctave/numeric/oct-spparms.cc Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/numeric/oct-spparms.cc Mon Nov 29 10:03:47 2021 -0800 @@ -197,7 +197,7 @@ } void sparse_params::do_print_info (std::ostream& os, - const std::string& prefix) const + const std::string& prefix) const { for (int i = 0; i < OCTAVE_SPARSE_CONTROLS_SIZE; i++) os << prefix << m_keys(i) << ": " << m_params(i) << "\n";
--- a/liboctave/numeric/randmtzig.cc Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/numeric/randmtzig.cc Mon Nov 29 10:03:47 2021 -0800 @@ -599,7 +599,7 @@ # if defined (HAVE_X86_32) /* 53-bit mantissa, 1-bit sign, x86 32-bit architecture */ double x; - int si,idx; + int si, idx; uint32_t lo, hi; int64_t rabs; uint32_t *p = (uint32_t *)&rabs;
--- a/liboctave/numeric/sparse-chol.cc Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/numeric/sparse-chol.cc Mon Nov 29 10:03:47 2021 -0800 @@ -386,7 +386,7 @@ sparse_chol<chol_type>::sparse_chol (const chol_type& a, bool natural, bool force) : m_rep (new typename - sparse_chol<chol_type>::sparse_chol_rep (a, natural, force)) + sparse_chol<chol_type>::sparse_chol_rep (a, natural, force)) { } template <typename chol_type> @@ -394,7 +394,7 @@ octave_idx_type& info, bool natural, bool force) : m_rep (new typename - sparse_chol<chol_type>::sparse_chol_rep (a, info, natural, force)) + sparse_chol<chol_type>::sparse_chol_rep (a, info, natural, force)) { } template <typename chol_type> @@ -402,14 +402,14 @@ octave_idx_type& info, bool natural) : m_rep (new typename - sparse_chol<chol_type>::sparse_chol_rep (a, info, natural, false)) + sparse_chol<chol_type>::sparse_chol_rep (a, info, natural, false)) { } template <typename chol_type> sparse_chol<chol_type>::sparse_chol (const chol_type& a, octave_idx_type& info) : m_rep (new typename - sparse_chol<chol_type>::sparse_chol_rep (a, info, false, false)) + sparse_chol<chol_type>::sparse_chol_rep (a, info, false, false)) { } template <typename chol_type>
--- a/liboctave/numeric/sparse-dmsolve.cc Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/numeric/sparse-dmsolve.cc Mon Nov 29 10:03:47 2021 -0800 @@ -46,7 +46,7 @@ template <typename T> static MSparse<T> -dmsolve_extract (const MSparse<T> &A, const octave_idx_type *Pinv, +dmsolve_extract (const MSparse<T>& A, const octave_idx_type *Pinv, const octave_idx_type *Q, octave_idx_type rst, octave_idx_type rend, octave_idx_type cst, octave_idx_type cend, octave_idx_type maxnz = -1, @@ -140,7 +140,7 @@ template <typename T> static MArray<T> -dmsolve_extract (const MArray<T> &m, const octave_idx_type *, +dmsolve_extract (const MArray<T>& m, const octave_idx_type *, const octave_idx_type *, octave_idx_type r1, octave_idx_type r2, octave_idx_type c1, octave_idx_type c2) @@ -170,7 +170,7 @@ template <typename T> static void -dmsolve_insert (MArray<T> &a, const MArray<T> &b, const octave_idx_type *Q, +dmsolve_insert (MArray<T>& a, const MArray<T>& b, const octave_idx_type *Q, octave_idx_type r, octave_idx_type c) { T *ax = a.fortran_vec (); @@ -197,7 +197,7 @@ template <typename T> static void -dmsolve_insert (MSparse<T> &a, const MSparse<T> &b, const octave_idx_type *Q, +dmsolve_insert (MSparse<T>& a, const MSparse<T>& b, const octave_idx_type *Q, octave_idx_type r, octave_idx_type c) { octave_idx_type b_rows = b.rows (); @@ -290,7 +290,7 @@ template <typename T, typename RT> static void -dmsolve_permute (MArray<RT> &a, const MArray<T>& b, const octave_idx_type *p) +dmsolve_permute (MArray<RT>& a, const MArray<T>& b, const octave_idx_type *p) { octave_idx_type b_nr = b.rows (); octave_idx_type b_nc = b.cols (); @@ -314,7 +314,7 @@ template <typename T, typename RT> static void -dmsolve_permute (MSparse<RT> &a, const MSparse<T>& b, const octave_idx_type *p) +dmsolve_permute (MSparse<RT>& a, const MSparse<T>& b, const octave_idx_type *p) { octave_idx_type b_nr = b.rows (); octave_idx_type b_nc = b.cols ();
--- a/liboctave/numeric/sparse-lu.cc Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/numeric/sparse-lu.cc Mon Nov 29 10:03:47 2021 -0800 @@ -524,7 +524,7 @@ if (lnz < 1) m_L = lu_type (n_inner, nr, - static_cast<octave_idx_type> (1)); + static_cast<octave_idx_type> (1)); else m_L = lu_type (n_inner, nr, lnz); @@ -534,7 +534,7 @@ if (unz < 1) m_U = lu_type (n_inner, nc, - static_cast<octave_idx_type> (1)); + static_cast<octave_idx_type> (1)); else m_U = lu_type (n_inner, nc, unz); @@ -762,7 +762,7 @@ if (lnz < 1) m_L = lu_type (n_inner, nr, - static_cast<octave_idx_type> (1)); + static_cast<octave_idx_type> (1)); else m_L = lu_type (n_inner, nr, lnz); @@ -772,7 +772,7 @@ if (unz < 1) m_U = lu_type (n_inner, nc, - static_cast<octave_idx_type> (1)); + static_cast<octave_idx_type> (1)); else m_U = lu_type (n_inner, nc, unz);
--- a/liboctave/numeric/sparse-qr.cc Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/numeric/sparse-qr.cc Mon Nov 29 10:03:47 2021 -0800 @@ -47,7 +47,7 @@ template <typename SPARSE_T> class cxsparse_types - { }; + { }; template <> class @@ -310,7 +310,7 @@ // Convert real dense octave matrix to complex dense cholmod matrix. // Returns a "deep" copy of a. - static cholmod_dense* + static cholmod_dense * rod2ccd (const MArray<double>& a, cholmod_common *cc1) { cholmod_dense *A @@ -329,7 +329,7 @@ // Convert real dense octave matrix to real dense cholmod matrix. // Returns a "shallow" copy of a. static cholmod_dense - rod2rcd (const MArray<double> &a) + rod2rcd (const MArray<double>& a) { cholmod_dense A; @@ -348,7 +348,7 @@ // Convert complex dense octave matrix to complex dense cholmod matrix. // Returns a "shallow" copy of a. static cholmod_dense - cod2ccd (const ComplexMatrix &a) + cod2ccd (const ComplexMatrix& a) { cholmod_dense A; @@ -359,7 +359,7 @@ A.dtype = CHOLMOD_DOUBLE; A.z = nullptr; A.d = a.rows (); - A.x = const_cast<Complex*> (reinterpret_cast<const Complex*> (a.data ())); + A.x = const_cast<Complex *> (reinterpret_cast<const Complex *> (a.data ())); return A; } @@ -416,7 +416,7 @@ // Convert real sparse octave matrix to complex sparse cholmod matrix. // Returns a "deep" copy of a. - static cholmod_sparse* + static cholmod_sparse * ros2ccs (const SparseMatrix& a, cholmod_common *cc) { cholmod_sparse *A @@ -690,7 +690,7 @@ template <> Matrix - sparse_qr<SparseMatrix>::sparse_qr_rep::C (const Matrix &b, bool econ) + sparse_qr<SparseMatrix>::sparse_qr_rep::C (const Matrix& b, bool econ) { #if (defined (HAVE_SPQR) && defined (HAVE_CHOLMOD)) octave_idx_type nr = (econ @@ -808,7 +808,7 @@ (reinterpret_cast<double *> (I->x))[i] = 0.0; for (octave_idx_type i = 0; i < nrows; i++) - (reinterpret_cast<double *> (I->x))[i * nrows + i] = 1.0; + (reinterpret_cast<double *> (I->x))[i * nrows + i] = 1.0; q = SuiteSparseQR_qmult<double> (SPQR_QX, m_H, m_Htau, m_HPinv, I, &m_cc); spqr_error_handler (&m_cc); @@ -933,13 +933,13 @@ else { R2_p = new suitesparse_integer[ncols+1]; - SuiteSparse_long * R_p = reinterpret_cast<SuiteSparse_long *> (m_R->p); + SuiteSparse_long *R_p = reinterpret_cast<SuiteSparse_long *> (m_R->p); for (octave_idx_type i = 0; i < ncols+1; i++) R2_p[i] = suitesparse_long_to_suitesparse_integer (R_p[i]); R2.p = R2_p; octave_idx_type nnz = m_R->nzmax; R2_i = new suitesparse_integer[nnz]; - SuiteSparse_long * R_i = reinterpret_cast<SuiteSparse_long *> (m_R->i); + SuiteSparse_long *R_i = reinterpret_cast<SuiteSparse_long *> (m_R->i); for (octave_idx_type i = 0; i < nnz; i++) R2_i[i] = suitesparse_long_to_suitesparse_integer (R_i[i]); R2.i = R2_i; @@ -1118,7 +1118,7 @@ octave_quit (); for (octave_idx_type j = 0; j < b_nr; j++) - Xx[j] = b.xelem (j,i); + Xx[j] = b.xelem (j, i); for (octave_idx_type j = nr; j < S->m2; j++) buf[j] = 0.; @@ -1205,7 +1205,7 @@ octave_quit (); for (octave_idx_type j = 0; j < b_nr; j++) - Xx[j] = b.xelem (j,i); + Xx[j] = b.xelem (j, i); for (octave_idx_type j = nr; j < nbuf; j++) buf[j] = 0.; @@ -1289,7 +1289,7 @@ for (octave_idx_type j = 0; j < b_nr; j++) { - Complex c = b.xelem (j,i); + Complex c = b.xelem (j, i); Xx[j] = c.real (); Xz[j] = c.imag (); } @@ -1375,7 +1375,7 @@ for (octave_idx_type j = 0; j < b_nr; j++) { - Complex c = b.xelem (j,i); + Complex c = b.xelem (j, i); Xx[j] = c.real (); Xz[j] = c.imag (); } @@ -1750,7 +1750,7 @@ spqr_error_handler (&m_cc); Complex *q_x = reinterpret_cast<Complex *> (q->x); - Complex *ret_vec = const_cast<Complex*> (ret.fortran_vec ()); + Complex *ret_vec = const_cast<Complex *> (ret.fortran_vec ()); for (octave_idx_type j = 0; j < nc; j++) for (octave_idx_type i = 0; i < nrows; i++) @@ -1857,7 +1857,7 @@ for (octave_idx_type j = 0; j < b_nr; j++) { - Complex c = b.xelem (j,i); + Complex c = b.xelem (j, i); Xx[j] = c.real (); Xz[j] = c.imag (); } @@ -1965,7 +1965,7 @@ for (octave_idx_type j = 0; j < b_nr; j++) { - Complex c = b.xelem (j,i); + Complex c = b.xelem (j, i); Xx[j] = c.real (); Xz[j] = c.imag (); } @@ -2066,7 +2066,7 @@ octave_quit (); for (octave_idx_type j = 0; j < b_nr; j++) - Xx[j] = b.xelem (j,i); + Xx[j] = b.xelem (j, i); for (octave_idx_type j = nr; j < S->m2; j++) buf[j] = cs_complex_t (0.0, 0.0); @@ -2136,7 +2136,7 @@ octave_quit (); for (octave_idx_type j = 0; j < b_nr; j++) - Xx[j] = b.xelem (j,i); + Xx[j] = b.xelem (j, i); for (octave_idx_type j = nr; j < nbuf; j++) buf[j] = cs_complex_t (0.0, 0.0); @@ -2199,7 +2199,7 @@ octave_quit (); for (octave_idx_type j = 0; j < b_nr; j++) - Xx[j] = b.xelem (j,i); + Xx[j] = b.xelem (j, i); for (octave_idx_type j = nr; j < S->m2; j++) buf[j] = cs_complex_t (0.0, 0.0); @@ -2297,7 +2297,7 @@ octave_quit (); for (octave_idx_type j = 0; j < b_nr; j++) - Xx[j] = b.xelem (j,i); + Xx[j] = b.xelem (j, i); for (octave_idx_type j = nr; j < nbuf; j++) buf[j] = cs_complex_t (0.0, 0.0); @@ -2515,7 +2515,7 @@ octave_quit (); for (octave_idx_type j = 0; j < b_nr; j++) - Xx[j] = b.xelem (j,i); + Xx[j] = b.xelem (j, i); for (octave_idx_type j = nr; j < S->m2; j++) buf[j] = cs_complex_t (0.0, 0.0); @@ -2613,7 +2613,7 @@ octave_quit (); for (octave_idx_type j = 0; j < b_nr; j++) - Xx[j] = b.xelem (j,i); + Xx[j] = b.xelem (j, i); for (octave_idx_type j = nr; j < nbuf; j++) buf[j] = cs_complex_t (0.0, 0.0); @@ -2722,9 +2722,9 @@ { ColumnVector perm = m_rep->E (); octave_idx_type nrows = perm.rows (); - SparseMatrix ret (nrows,nrows,nrows); + SparseMatrix ret (nrows, nrows, nrows); for (octave_idx_type i = 0; i < nrows; i++) - ret(perm(i) - 1,i) = 1.0; + ret(perm(i) - 1, i) = 1.0; return ret; } @@ -2969,7 +2969,7 @@ Complex *vec = x.fortran_vec (); for (volatile octave_idx_type i = 0; i < nc * b_nc; i++) - vec[i] = reinterpret_cast<Complex *> (X->x)[i]; + vec[i] = reinterpret_cast<Complex *> (X->x)[i]; if (sizeof (octave_idx_type) != sizeof (SuiteSparse_long)) {
--- a/liboctave/numeric/sparse-qr.h Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/numeric/sparse-qr.h Mon Nov 29 10:03:47 2021 -0800 @@ -97,7 +97,7 @@ private: - template <typename RHS_T,typename RET_T> + template <typename RHS_T, typename RET_T> static OCTAVE_API RET_T min2norm_solve (const SPARSE_T& a, const RHS_T& b, octave_idx_type& info, int order);
--- a/liboctave/numeric/svd.cc Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/numeric/svd.cc Mon Nov 29 10:03:47 2021 -0800 @@ -67,7 +67,7 @@ // functions could be called from GEJSV static F77_INT geqp3_lwork (F77_INT m, F77_INT n, P *a, F77_INT lda, - F77_INT* jpvt, P *tau, P *work, + F77_INT *jpvt, P *tau, P *work, F77_INT lwork, F77_INT& info); static F77_INT geqrf_lwork (F77_INT m, F77_INT n, @@ -112,7 +112,7 @@ F77_INT gejsv_lwork<Matrix>::geqp3_lwork (F77_INT m, F77_INT n, P *a, F77_INT lda, - F77_INT* jpvt, P *tau, P *work, + F77_INT *jpvt, P *tau, P *work, F77_INT lwork, F77_INT& info) { GEJSV_REAL_QP3_LWORK (dgeqp3, DGEQP3); @@ -170,7 +170,7 @@ F77_INT gejsv_lwork<FloatMatrix>::geqp3_lwork (F77_INT m, F77_INT n, P *a, F77_INT lda, - F77_INT* jpvt, P *tau, P *work, + F77_INT *jpvt, P *tau, P *work, F77_INT lwork, F77_INT& info) { GEJSV_REAL_QP3_LWORK (sgeqp3, SGEQP3); @@ -463,7 +463,7 @@ svd<FloatMatrix>::gesdd (char& jobz, F77_INT m, F77_INT n, float *tmp_data, F77_INT m1, float *s_vec, float *u, float *vt, F77_INT nrow_vt1, std::vector<float>& work, - F77_INT& lwork, F77_INT* iwork, F77_INT& info) + F77_INT& lwork, F77_INT *iwork, F77_INT& info) { GESDD_REAL_STEP (sgesdd, SGESDD); @@ -826,18 +826,18 @@ if (iwork[2] == 1) (*current_liboctave_warning_with_id_handler) - ("Octave:convergence", "svd: (driver: GEJSV) " - "Denormal occured, possible loss of accuracy."); + ("Octave:convergence", "svd: (driver: GEJSV) " + "Denormal occured, possible loss of accuracy."); if (info < 0) (*current_liboctave_error_handler) - ("svd: (driver: GEJSV) Illegal argument at #%d", - static_cast<int> (-info)); + ("svd: (driver: GEJSV) Illegal argument at #%d", + static_cast<int> (-info)); else if (info > 0) (*current_liboctave_warning_with_id_handler) - ("Octave:convergence", "svd: (driver: GEJSV) " - "Fail to converge within max sweeps, " - "possible inaccurate result."); + ("Octave:convergence", "svd: (driver: GEJSV) " + "Fail to converge within max sweeps, " + "possible inaccurate result."); if (transposed) // put things that need to transpose back here std::swap (m, n);
--- a/liboctave/system/file-ops.cc Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/system/file-ops.cc Mon Nov 29 10:03:47 2021 -0800 @@ -722,10 +722,10 @@ DWORD len = GetFinalPathNameByHandleW (h_file, buffer, buf_size, FILE_NAME_NORMALIZED); if (len >= buf_size) - { + { msg = "Error querying normalized name for \"" + name + "\""; return retval; - } + } retval = u8_from_wstring (std::wstring (buffer, len));
--- a/liboctave/system/file-stat.cc Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/system/file-stat.cc Mon Nov 29 10:03:47 2021 -0800 @@ -199,7 +199,7 @@ // Remove trailing slashes while (full_file_name.length () > 1 - && sys::file_ops::is_dir_sep (full_file_name.back ())) + && sys::file_ops::is_dir_sep (full_file_name.back ())) full_file_name.pop_back (); // If path is a root (like "C:" or "\\SERVER\share"), add a
--- a/liboctave/system/lo-sysinfo.cc Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/system/lo-sysinfo.cc Mon Nov 29 10:03:47 2021 -0800 @@ -54,7 +54,7 @@ // Check for functions that are specific to certain BLAS implementations. // FlexiBLAS - typedef void (*flexi_f_type) (int*, int*, int*); + typedef void (*flexi_f_type) (int *, int *, int *); flexi_f_type flexi_f_ptr = reinterpret_cast<flexi_f_type> (dyn_libs.search ("flexiblas_get_version")); @@ -115,7 +115,7 @@ } // ACML - typedef void (*acml_f_type) (int*, int*, int*); + typedef void (*acml_f_type) (int *, int *, int *); acml_f_type acml_f_ptr = reinterpret_cast<acml_f_type> (dyn_libs.search ("acmlversion")); @@ -137,7 +137,7 @@ } // Intel MKL - typedef void (*mkl_f_type) (char*, int); + typedef void (*mkl_f_type) (char *, int); mkl_f_type mkl_f_ptr = reinterpret_cast<mkl_f_type> (dyn_libs.search ("mkl_get_version_string"));
--- a/liboctave/system/oct-env.cc Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/system/oct-env.cc Mon Nov 29 10:03:47 2021 -0800 @@ -259,14 +259,14 @@ if (cfg_dir.empty ()) cfg_dir = do_get_home_directory () + sys::file_ops::dir_sep_str () - + ".config"; + + ".config"; return cfg_dir; } - std::string - env::do_get_user_data_directory (void) const - { + std::string + env::do_get_user_data_directory (void) const + { std::string data_dir; #if defined (OCTAVE_HAVE_WINDOWS_FILESYSTEM) && defined (OCTAVE_USE_WINDOWS_API) @@ -280,10 +280,10 @@ if (data_dir.empty ()) data_dir = do_get_home_directory () + sys::file_ops::dir_sep_str () - + ".local" + sys::file_ops::dir_sep_str () + "share"; + + ".local" + sys::file_ops::dir_sep_str () + "share"; return data_dir; - } + } // FIXME: this leaves no way to distinguish between a
--- a/liboctave/util/f77-fcn.h Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/util/f77-fcn.h Mon Nov 29 10:03:47 2021 -0800 @@ -151,7 +151,7 @@ need to be changed for others. */ typedef union -{ + { const char *const_ptr; char *ptr; struct
--- a/liboctave/util/lo-cutils.h Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/util/lo-cutils.h Mon Nov 29 10:03:47 2021 -0800 @@ -33,7 +33,7 @@ using std::size_t; extern "C" { #else -#include <stddef.h> +#include <stddef.h> #endif OCTAVE_API void
--- a/liboctave/util/lo-ieee.h Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/util/lo-ieee.h Mon Nov 29 10:03:47 2021 -0800 @@ -56,13 +56,13 @@ number of bits as an int */ typedef union -{ + { double value; unsigned int word[2]; } lo_ieee_double; typedef union -{ + { float value; unsigned int word; } lo_ieee_float;
--- a/liboctave/util/lo-regexp.cc Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/util/lo-regexp.cc Mon Nov 29 10:03:47 2021 -0800 @@ -349,8 +349,8 @@ && (i == 1 || ovector[2*i] != ovector[2*i-2] || ovector[2*i-1] != ovector[2*i+1])) { - token_extents(pos_match,0) = double (ovector[2*i]+1); - token_extents(pos_match++,1) = double (ovector[2*i+1]); + token_extents(pos_match, 0) = double (ovector[2*i]+1); + token_extents(pos_match++, 1) = double (ovector[2*i+1]); } } @@ -498,13 +498,13 @@ { if (i < repstr.size () - 1 && repstr[i+1] == '$') { - repstr.erase (i,1); // erase backslash + repstr.erase (i, 1); // erase backslash i++; // skip over '$' continue; } if (i < repstr.size () - 1 && repstr[i+1] == '\\') { - repstr.erase (i,1); // erase 1st backslash + repstr.erase (i, 1); // erase 1st backslash continue; } }
--- a/liboctave/util/lo-utils.cc Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/util/lo-utils.cc Mon Nov 29 10:03:47 2021 -0800 @@ -502,15 +502,15 @@ } bool int_multiply_overflow (unsigned long int a, unsigned long int b, - unsigned long int *r) + unsigned long int *r) { return octave_uli_multiply_overflow_wrapper (a, b, r); } #if defined (OCTAVE_HAVE_UNSIGNED_LONG_LONG_INT) bool int_multiply_overflow (unsigned long long int a, - unsigned long long int b, - unsigned long long int *r) + unsigned long long int b, + unsigned long long int *r) { return octave_ulli_multiply_overflow_wrapper (a, b, r); }
--- a/liboctave/util/oct-binmap.h Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/util/oct-binmap.h Mon Nov 29 10:03:47 2021 -0800 @@ -286,9 +286,9 @@ binmap (const Sparse<T>& xs, const Sparse<R>& ys, F fcn, const char *name) { if (xs.rows () == 1 && xs.cols () == 1) - return binmap<U, T, R, F> (xs(0,0), ys, fcn); + return binmap<U, T, R, F> (xs(0, 0), ys, fcn); else if (ys.rows () == 1 && ys.cols () == 1) - return binmap<U, T, R, F> (xs, ys(0,0), fcn); + return binmap<U, T, R, F> (xs, ys(0, 0), fcn); else if (xs.dims () != ys.dims ()) octave::err_nonconformant (name, xs.dims (), ys.dims ());
--- a/liboctave/util/oct-inttypes.h Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/util/oct-inttypes.h Mon Nov 29 10:03:47 2021 -0800 @@ -786,7 +786,7 @@ // This class simply selects the proper arithmetics. template <typename T> class octave_int_arith -: public octave_int_arith_base<T, std::numeric_limits<T>::is_signed> + : public octave_int_arith_base<T, std::numeric_limits<T>::is_signed> { }; template <typename T>
--- a/liboctave/util/oct-sparse.cc Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/util/oct-sparse.cc Mon Nov 29 10:03:47 2021 -0800 @@ -63,7 +63,7 @@ return reinterpret_cast<const suitesparse_integer *> (i); } - octave_idx_type* + octave_idx_type * to_octave_idx_type_ptr (suitesparse_integer *i) { check_suitesparse_integer_size (); @@ -71,7 +71,7 @@ return reinterpret_cast<octave_idx_type *> (i); } - const octave_idx_type* + const octave_idx_type * to_octave_idx_type_ptr (const suitesparse_integer *i) { check_suitesparse_integer_size ();
--- a/liboctave/util/oct-sparse.h Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/util/oct-sparse.h Mon Nov 29 10:03:47 2021 -0800 @@ -191,10 +191,10 @@ extern const OCTAVE_API suitesparse_integer * to_suitesparse_intptr (const octave_idx_type *i); - extern OCTAVE_API octave_idx_type* + extern OCTAVE_API octave_idx_type * to_octave_idx_type_ptr (suitesparse_integer *i); - extern const OCTAVE_API octave_idx_type* + extern const OCTAVE_API octave_idx_type * to_octave_idx_type_ptr (const suitesparse_integer *i); inline octave_idx_type
--- a/liboctave/util/oct-string.cc Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/util/oct-string.cc Mon Nov 29 10:03:47 2021 -0800 @@ -565,7 +565,7 @@ unsigned int num_replacements = 0; const char *in_chr = in_str.c_str (); const char *inv_utf8 = in_chr; - const char * const in_end = in_chr + in_str.length (); + const char *const in_end = in_chr + in_str.length (); while (inv_utf8 && in_chr < in_end) { inv_utf8 = reinterpret_cast<const char *>
--- a/liboctave/util/url-transfer.cc Sun Nov 28 16:31:21 2021 -0500 +++ b/liboctave/util/url-transfer.cc Mon Nov 29 10:03:47 2021 -0800 @@ -839,7 +839,7 @@ // Set the user agent for the curl request // Needed by mediaWiki API. - curl_version_info_data * data = curl_version_info(CURLVERSION_NOW); + curl_version_info_data *data = curl_version_info(CURLVERSION_NOW); const char *lib_ver = data->version; std::string user_agent ("GNU Octave/"