Mercurial > octave
diff liboctave/array/fRowVector.cc @ 22133:59cadee1c74b
new macros for F77 data types
* f77-fcn.h (F77_DBLE, F77_REAL, F77_DBLE_CMPLX, F77_CMPLX, F77_INT,
F77_INT4, F77_LOGICAL): New macros.
* fortrandemo.cc, __pchip_deriv__.cc, dot.cc, interpreter.cc,
ordschur.cc, qz.cc, CColVector.cc, CMatrix.cc, CNDArray.cc,
CRowVector.cc, CSparse.cc, dColVector.cc, dMatrix.cc, dNDArray.cc,
dRowVector.cc, dSparse.cc, fCColVector.cc, fCMatrix.cc,
fCNDArray.cc, fCRowVector.cc, fColVector.cc, fMatrix.cc,
fNDArray.cc, fRowVector.cc, DASPK.cc, DASRT.cc, DASSL.cc, EIG.cc,
LSODE.cc, Quad.cc, aepbalance.cc, chol.cc, eigs-base.cc, fEIG.cc,
gepbalance.cc, hess.cc, lo-specfun.cc, lu.cc, oct-convn.cc,
oct-rand.cc, qr.cc, qrp.cc, randpoisson.cc, schur.cc, svd.cc:
Use new macros in declarations of Fortran subroutines.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Sun, 17 Jul 2016 12:42:37 -0400 |
parents | aba2e6293dd8 |
children | 93b3cdd36854 |
line wrap: on
line diff
--- a/liboctave/array/fRowVector.cc Sun Jul 17 13:17:58 2016 -0400 +++ b/liboctave/array/fRowVector.cc Sun Jul 17 12:42:37 2016 -0400 @@ -41,16 +41,16 @@ { F77_RET_T F77_FUNC (sgemv, SGEMV) (F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, const octave_idx_type&, - const float&, const float*, - const octave_idx_type&, const float*, - const octave_idx_type&, const float&, - float*, const octave_idx_type& + 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_INT& F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (xsdot, XSDOT) (const octave_idx_type&, const float*, - const octave_idx_type&, const float*, - const octave_idx_type&, float&); + F77_FUNC (xsdot, XSDOT) (const F77_INT&, const F77_REAL*, + const F77_INT&, const F77_REAL*, + const F77_INT&, F77_REAL&); } // Row Vector class.