Mercurial > octave

diff libinterp/corefcn/dot.cc @ 22322:93b3cdd36854

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
move most f77 function decls to separate header files * liboctave/numeric/lo-amos-proto.h, liboctave/numeric/lo-arpack-proto.h, liboctave/numeric/lo-blas-proto.h, liboctave/numeric/lo-fftpack-proto.h, liboctave/numeric/lo-lapack-proto.h, liboctave/numeric/lo-qrupdate-proto.h, liboctave/numeric/lo-ranlib-proto.h, liboctave/numeric/lo-slatec-proto.h: New files. * liboctave/numeric/module.mk: Update. * __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, EIG.cc, aepbalance.cc, chol.cc, eigs-base.cc, fEIG.cc, gepbalance.cc, gsvd.cc, hess.cc, lo-specfun.cc, lu.cc, oct-rand.cc, qr.cc, qrp.cc, randpoisson.cc, schur.cc, sparse-qr.cc, svd.cc: Use new header files.
author John W. Eaton <jwe@octave.org>
date Wed, 17 Aug 2016 00:18:08 -0400
parents 407c66ae1e20
children bac0d6f07a3e
line wrap: on
line diff
--- a/libinterp/corefcn/dot.cc	Tue Aug 16 21:38:58 2016 -0700
+++ b/libinterp/corefcn/dot.cc	Wed Aug 17 00:18:08 2016 -0400
@@ -24,56 +24,12 @@
 #  include "config.h"
 #endif
 
-#include "f77-fcn.h"
+#include "lo-blas-proto.h"
 #include "mx-base.h"
 #include "error.h"
 #include "defun.h"
 #include "parse.h"
 
-extern "C"
-{
-  F77_RET_T
-  F77_FUNC (ddot3, DDOT3) (const F77_INT&, const F77_INT&,
-                           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*);
-
-  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*);
-
-  F77_RET_T
-  F77_FUNC (cdotc3, CDOTC3) (const F77_INT&, const F77_INT&,
-                             const F77_INT&, 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*);
-
-  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*);
-
-  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*);
-
-  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*);
-}
-
 static void
 get_red_dims (const dim_vector& x, const dim_vector& y, int dim,
               dim_vector& z, octave_idx_type& m, octave_idx_type& n,