IpBlas.hpp

Go to the documentation of this file.

// Copyright (C) 2004, 2006 International Business Machines and others.
// All Rights Reserved.
// This code is published under the Eclipse Public License.
//
// $Id: IpBlas.hpp 1861 2010-12-21 21:34:47Z andreasw $
//
// Authors:  Carl Laird, Andreas Waechter     IBM    2004-08-13

#ifndef __IPBLAS_HPP__
#define __IPBLAS_HPP__

#include "IpUtils.hpp"

namespace Ipopt
{
  // If CBLAS is not available, this is our own interface to the Fortran
  // implementation

  Number IpBlasDdot(Index size, const Number *x, Index incX, const Number *y,
                    Index incY);

  Number IpBlasDnrm2(Index size, const Number *x, Index incX);

  Number IpBlasDasum(Index size, const Number *x, Index incX);

  Index IpBlasIdamax(Index size, const Number *x, Index incX);

  void IpBlasDcopy(Index size, const Number *x, Index incX, Number *y,
                   Index incY);

  void IpBlasDaxpy(Index size, Number alpha, const Number *x, Index incX,
                   Number *y, Index incY);

  void IpBlasDscal(Index size, Number alpha, Number *x, Index incX);

  void IpBlasDgemv(bool trans, Index nRows, Index nCols, Number alpha,
                   const Number* A, Index ldA, const Number* x,
                   Index incX, Number beta, Number* y, Index incY);

  void IpBlasDsymv(Index n, Number alpha, const Number* A, Index ldA,
                   const Number* x, Index incX, Number beta, Number* y,
                   Index incY);

  void IpBlasDgemm(bool transa, bool transb, Index m, Index n, Index k,
                   Number alpha, const Number* A, Index ldA, const Number* B,
                   Index ldB, Number beta, Number* C, Index ldC);

  void IpBlasDsyrk(bool trans, Index ndim, Index nrank,
                   Number alpha, const Number* A, Index ldA,
                   Number beta, Number* C, Index ldC);

  void IpBlasDtrsm(bool trans, Index ndim, Index nrhs, Number alpha,
                   const Number* A, Index ldA, Number* B, Index ldB);

} // namespace Ipopt

#endif