[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Toon-members] TooN lapack.h
From: |
Edward Rosten |
Subject: |
[Toon-members] TooN lapack.h |
Date: |
Thu, 23 Apr 2009 15:16:00 +0000 |
CVSROOT: /cvsroot/toon
Module name: TooN
Changes by: Edward Rosten <edrosten> 09/04/23 15:16:00
Modified files:
. : lapack.h
Log message:
Added inlines
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/TooN/lapack.h?cvsroot=toon&r1=1.13&r2=1.14
Patches:
Index: lapack.h
===================================================================
RCS file: /cvsroot/toon/TooN/lapack.h,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -b -r1.13 -r1.14
--- lapack.h 17 Apr 2009 03:51:28 -0000 1.13
+++ lapack.h 23 Apr 2009 15:15:59 -0000 1.14
@@ -78,11 +78,11 @@
// C++ overloaded functions to access single and double precision
automatically //
//////////////////////////////////////////////////////////////////////////////////
- void getrf_(int* M, int *N, float* A, int* lda, int* IPIV, int* INFO){
+ inline void getrf_(int* M, int *N, float* A, int* lda, int* IPIV, int*
INFO){
sgetrf_(M, N, A, lda, IPIV, INFO);
}
- void getrf_(int* M, int *N, double* A, int* lda, int* IPIV, int* INFO){
+ inline void getrf_(int* M, int *N, double* A, int* lda, int* IPIV, int*
INFO){
dgetrf_(M, N, A, lda, IPIV, INFO);
}
@@ -94,57 +94,57 @@
dtrsm_(const_cast<char*>(SIDE), const_cast<char*>(UPLO),
const_cast<char*>(TRANSA), const_cast<char*>(DIAG), M, N, alpha, A, lda, B,
ldb);
}
- void getri_(int* N, double* A, int* lda, int* IPIV, double* WORK, int*
lwork, int* INFO){
+ inline void getri_(int* N, double* A, int* lda, int* IPIV, double*
WORK, int* lwork, int* INFO){
dgetri_(N, A, lda, IPIV, WORK, lwork, INFO);
}
- void getri_(int* N, float* A, int* lda, int* IPIV, float* WORK, int*
lwork, int* INFO){
+ inline void getri_(int* N, float* A, int* lda, int* IPIV, float* WORK,
int* lwork, int* INFO){
sgetri_(N, A, lda, IPIV, WORK, lwork, INFO);
}
- void potrf_(const char * UPLO, const int* N, double* A, const int* LDA,
int* INFO){
+ inline void potrf_(const char * UPLO, const int* N, double* A, const
int* LDA, int* INFO){
dpotrf_(UPLO, N, A, LDA, INFO);
}
- void potrf_(const char * UPLO, const int* N, float* A, const int* LDA,
int* INFO){
+ inline void potrf_(const char * UPLO, const int* N, float* A, const
int* LDA, int* INFO){
spotrf_(UPLO, N, A, LDA, INFO);
}
// SVD
- void gesvd_(const char* JOBU, const char* JOBVT, int* M, int *N,
double* A, int* lda,
+ inline void gesvd_(const char* JOBU, const char* JOBVT, int* M, int *N,
double* A, int* lda,
double* S, double *U, int* ldu, double* VT,
int* ldvt,
double* WORK, int* lwork, int* INFO){
dgesvd_(JOBU, JOBVT, M, N, A, lda, S, U, ldu, VT, ldvt, WORK,
lwork, INFO);
}
- void gesvd_(const char* JOBU, const char* JOBVT, int* M, int *N, float*
A, int* lda,
+ inline void gesvd_(const char* JOBU, const char* JOBVT, int* M, int *N,
float* A, int* lda,
float* S, float *U, int* ldu, float*
VT, int* ldvt,
float* WORK, int* lwork, int* INFO){
sgesvd_(JOBU, JOBVT, M, N, A, lda, S, U, ldu, VT, ldvt, WORK,
lwork, INFO);
}
// Cholesky solve AX=B given decomposition
- void potrs_(const char* UPLO, const int* N, const int* NRHS, const
double* A, const int* LDA, double* B, const int* LDB, int* INFO){
+ inline void potrs_(const char* UPLO, const int* N, const int* NRHS,
const double* A, const int* LDA, double* B, const int* LDB, int* INFO){
dpotrs_(UPLO, N, NRHS, A, LDA, B, LDB, INFO);
}
- void potrs_(const char* UPLO, const int* N, const int* NRHS, const
float* A, const int* LDA, float* B, const int* LDB, int* INFO){
+ inline void potrs_(const char* UPLO, const int* N, const int* NRHS,
const float* A, const int* LDA, float* B, const int* LDB, int* INFO){
spotrs_(UPLO, N, NRHS, A, LDA, B, LDB, INFO);
}
// Cholesky inverse given decomposition
- void potri_(const char* UPLO, const int* N, double* A, const int* LDA,
int* INFO){
+ inline void potri_(const char* UPLO, const int* N, double* A, const
int* LDA, int* INFO){
dpotri_(UPLO, N, A, LDA, INFO);
}
- void potri_(const char* UPLO, const int* N, float* A, const int* LDA,
int* INFO){
+ inline void potri_(const char* UPLO, const int* N, float* A, const int*
LDA, int* INFO){
spotri_(UPLO, N, A, LDA, INFO);
}
- void syev_(const char* JOBZ, const char* UPLO, int* N, double* A, int*
lda, double* W, double* WORK, int* LWORK, int* INFO){
+ inline void syev_(const char* JOBZ, const char* UPLO, int* N, double*
A, int* lda, double* W, double* WORK, int* LWORK, int* INFO){
dsyev_(JOBZ, UPLO, N, A, lda, W, WORK, LWORK, INFO);
}
- void syev_(const char* JOBZ, const char* UPLO, int* N, float* A, int*
lda, float* W, float* WORK, int* LWORK, int* INFO){
+ inline void syev_(const char* JOBZ, const char* UPLO, int* N, float* A,
int* lda, float* W, float* WORK, int* LWORK, int* INFO){
ssyev_(JOBZ, UPLO, N, A, lda, W, WORK, LWORK, INFO);
}