00001
00015 #ifndef _DLR_LINEARALGEBRA_CLAPACK_H_
00016 #define _DLR_LINEARALGEBRA_CLAPACK_H_
00017
00018 #include <dlrCommon/types.h>
00019
00020 #ifdef __cplusplus
00021 extern "C" {
00022 #endif
00023
00028 void dgels_(char* TRANS, dlr::Int32* M, dlr::Int32* N, dlr::Int32* NRHS,
00029 dlr::Float64* A, dlr::Int32* LDA,
00030 dlr::Float64* B, dlr::Int32* LDB,
00031 dlr::Float64* WORK, dlr::Int32* LWORK, dlr::Int32* INFO);
00032
00033
00040 void dgesdd_(char* JOBZ, dlr::Int32* M, dlr::Int32* N,
00041 dlr::Float64* A, dlr::Int32* LDA, dlr::Float64* S,
00042 dlr::Float64* U, dlr::Int32* LDU,
00043 dlr::Float64* VT, dlr::Int32* LDVT,
00044 dlr::Float64* WORK, dlr::Int32* LWORK,
00045 dlr::Int32* IWORK, dlr::Int32* INFO);
00046
00047
00052 void dgesv_(dlr::Int32* N, dlr::Int32* NRHS,
00053 dlr::Float64 *A, dlr::Int32* LDA,
00054 dlr::Int32* IPIV,
00055 dlr::Float64* B, dlr::Int32* LDB,
00056 dlr::Int32* INFO);
00057
00058
00063 void dgetrf_(dlr::Int32* M, dlr::Int32* N,
00064 dlr::Float64* A, dlr::Int32* LDA,
00065 dlr::Int32* IPIV, dlr::Int32* INFO);
00066
00067
00073 void dlarnv_(dlr::Int32* IDIST, dlr::Int32* ISEED, dlr::Int32* N,
00074 dlr::Float64* X);
00075
00076
00082 void dgtsv_(dlr::Int32* N, dlr::Int32* NRHS,
00083 dlr::Float64* DL, dlr::Float64* D, dlr::Float64* DU,
00084 dlr::Float64* B, dlr::Int32* LDB, dlr::Int32* INFO);
00085
00086
00092 void dsyev_(char* JOBZ, char* UPLO, dlr::Int32* N,
00093 dlr::Float64* A, dlr::Int32* LDA, dlr::Float64* W,
00094 dlr::Float64* WORK, dlr::Int32* LWORK, dlr::Int32* INFO);
00095
00096 #ifdef __cplusplus
00097 }
00098 #endif
00099 #endif
