blas_classic.hpp

/*
 *    This file is part of CasADi.
 *
 *    CasADi -- A symbolic framework for dynamic optimization.
 *    Copyright (C) 2010-2023 Joel Andersson, Joris Gillis, Moritz Diehl,
 *                            KU Leuven. All rights reserved.
 *
 *    CasADi is free software; you can redistribute it and/or
 *    modify it under the terms of the GNU Lesser General Public
 *    License as published by the Free Software Foundation; either
 *    version 3 of the License, or (at your option) any later version.
 *
 *    CasADi is distributed in the hope that it will be useful,
 *    but WITHOUT ANY WARRANTY; without even the implied warranty of
 *    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 *    Lesser General Public License for more details.
 *
 *    You should have received a copy of the GNU Lesser General Public
 *    License along with CasADi; if not, write to the Free Software
 *    Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
 *
 */
 
 
#ifndef CASADI_BLAS_CLASSIC_HPP
#define CASADI_BLAS_CLASSIC_HPP
 
#include "casadi/core/blas_impl.hpp"
#include <casadi/interfaces/blas_classic/casadi_blas_classic_export.h>
 
// Flang's wasm ABI includes trailing lengths for the two CHARACTER arguments.
#ifdef __EMSCRIPTEN__
#define CASADI_BLAS_CLASSIC_CHARLEN_DECL , size_t, size_t
#define CASADI_BLAS_CLASSIC_CHARLEN_ARGS , 1, 1
#else
#define CASADI_BLAS_CLASSIC_CHARLEN_DECL
#define CASADI_BLAS_CLASSIC_CHARLEN_ARGS
#endif
 
extern "C" {
  void dgemm_(const char* transa, const char* transb,
              const int* m, const int* n, const int* k,
              const double* alpha,
              const double* a, const int* lda,
              const double* b, const int* ldb,
              const double* beta,
              double* c, const int* ldc CASADI_BLAS_CLASSIC_CHARLEN_DECL);
 
  void daxpy_(const int* n, const double* alpha,
              const double* x, const int* incx,
              double* y, const int* incy);
  double ddot_(const int* n,
               const double* x, const int* incx,
               const double* y, const int* incy);
  void dscal_(const int* n, const double* alpha,
              double* x, const int* incx);
  double dnrm2_(const int* n, const double* x, const int* incx);
  double dasum_(const int* n, const double* x, const int* incx);
}
 
 
namespace casadi {
 
  class  BlasClassic : public Blas {
  public:
    static const std::string meta_doc;
  };
 
} // namespace casadi
 
#endif // CASADI_BLAS_CLASSIC_HPP