Homec4science
Diffusion LibMultiScale (features/reshape_compute_python) Browse

libmultiscale/src/math/matrix_blaswrapper.h
b05d5f2aba78features/reshape_comput…

Last Change
Raw File

matrix_blaswrapper.h
View Options

/**
* @file matrix_blaswrapper.h
*
* @author Guillaume Anciaux <guillaume.anciaux@epfl.ch>
*
* @date Fri Jul 11 15:47:44 2014
*
* @brief This contains the interface to some blas/lapack functions
*
* @section LICENSE
*
* Copyright (©) 2010-2011 EPFL (Ecole Polytechnique Fédérale de Lausanne)
* Laboratory (LSMS - Laboratoire de Simulation en Mécanique des Solides)
*
* LibMultiScale 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.
*
* LibMultiScale 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 LibMultiScale. If not, see <http://www.gnu.org/licenses/>.
*
*/
#ifndef __LIBMULTISCALE_MATRIX_BLASWRAPPER_H__
#define __LIBMULTISCALE_MATRIX_BLASWRAPPER_H__
/*****************************************************************/
/* declaration des fonction BLAS LAPACK*/
/*****************************************************************/
void dgesv_(int * N, int * NRHS, double * A, int * LDA,
int * IPIV, double * B, int * LDB,int* INFO);
void dgetri_(int * N,double * A, int * LDA, int * IPIV,
double * WORK, int * LWORK, int * info);
void dgemv_(char * TRANS, int * M, int * N,
double * ALPHA, double * A, int *LDA,
double * X, int * INCX, double * BETA,
double * Y, int * INCY);
void dgemm_(char * TRANSA,char * TRANSB, int * M, int * N,int * K,
double * ALPHA, double * A, int *LDA,
double * B, int * LDB,double * BETA,
double * C, int * LDC);
void dgbtrf_(int * M,int * N,int * KL,int * KU,
double * AB,int * LDAB,int * IPIV,int * INFO );
void dgetrs_(char *TRANS,int * N,int * NRHS,double * A,int * LDA,
int * IPIV,double * B,int * LDB,int * INFO );
void dgbsv_(int * N,int * KL,int * KU,int * NRHS,double * AB,
int * LDAB,int * IPIV,double * B,int * LDB,int * INFO);
#ifndef AIX
void dgbtrs_(char * TRANS, int * N, int * KL, int * KU,
int * NRHS,double * AB, int * LDAB, int *IPIV,
double * B,int * LDB,int * INFO);
#endif
void dgbmv_(char * TRANS,int * M,int * N,int * KL,int * KU,
double * ALPHA,double * A,int * LDA,double * X,
int * INCX,double * BETA,double * Y,int * INCY);
int * multiplication(double * A,int m1,int n1,double * B,int m2,int n2,double * C);
int * factoLUFull(double * A,int n);
int * factoLUBand(double * A,int kl,int ku,int n);
int solveFullMatrix(double * A,double * B,int n,int * pivot);
int solveBandMatrix(double * AB,double * B,int kl,int ku,int n,int * pivot);
int solveDiagMatrix(double * A,double * R,int n);
void dscal_(int * N, double * alpha, double * X, int * INCX,int* INFO);
int scaleArray(double * vector,int N,double alpha);
#endif /* __LIBMULTISCALE_MATRIX_BLASWRAPPER_H__ */
c4science · Help