4
************************************************************
5
* The following routines are provided natively by ATLAS in C
6
************************************************************
8
#define C_sposv(Uplo_, N_, NRHS_, A_, lda_, B_, ldb_) \
9
clapack_sposv(CblasColMajor, Uplo_, N_, NRHS_, A_, lda_, B_, ldb_)
10
#define C_sgesv(N_, NRHS_, A_, lda_, ipiv_, B_, ldb_) \
11
clapack_sgesv(CblasColMajor, N_, NRHS_, A_, lda_, ipiv_, B_, ldb_)
13
#define C_spotrf(Uplo_, N_, A_, lda_) \
14
clapack_spotrf(CblasColMajor, Uplo_, N_, A_, lda_)
15
#define C_sgetrf(M_, N_, A_, lda_, ipiv_) \
16
clapack_sgetrf(CblasColMajor, M_, N_, A_, lda_, ipiv_)
18
#define C_spotrs(Uplo_, N_, NRHS_, A_, lda_, B_, ldb_) \
19
clapack_spotrs(CblasColMajor, Uplo_, N_, NRHS_, A_, lda_, B_, ldb_)
20
#define C_sgetrs(Trans_, N_, NRHS_, A_, lda_, ipiv_, B_, ldb_) \
21
clapack_sgetrs(CblasColMajor, Trans_, N_, NRHS_, A_, lda_, ipiv_, B_, ldb_)
23
#define C_spotri(Uplo_, N_, A_, lda_) \
24
clapack_spotrs(CblasColMajor, Uplo_, N_, A_, lda_)
25
#define C_strtri(Uplo_, Diag_, N_, A_, lda_) \
26
clapack_spotrs(CblasColMajor, Uplo_, Diag_, N_, A_, lda_)
27
#define C_slaumm(Uplo_, N_, A_, lda_) \
28
clapack_slaumm(CblasColMajor, Uplo_, N_, A_, lda_)
30
#define C_dposv(Uplo_, N_, NRHS_, A_, lda_, B_, ldb_) \
31
clapack_dposv(CblasColMajor, Uplo_, N_, NRHS_, A_, lda_, B_, ldb_)
32
#define C_dgesv(N_, NRHS_, A_, lda_, ipiv_, B_, ldb_) \
33
clapack_dgesv(CblasColMajor, N_, NRHS_, A_, lda_, ipiv_, B_, ldb_)
35
#define C_dpotrf(Uplo_, N_, A_, lda_) \
36
clapack_dpotrf(CblasColMajor, Uplo_, N_, A_, lda_)
37
#define C_dgetrf(M_, N_, A_, lda_, ipiv_) \
38
clapack_dgetrf(CblasColMajor, M_, N_, A_, lda_, ipiv_)
40
#define C_dpotrs(Uplo_, N_, NRHS_, A_, lda_, B_, ldb_) \
41
clapack_dpotrs(CblasColMajor, Uplo_, N_, NRHS_, A_, lda_, B_, ldb_)
42
#define C_dgetrs(Trans_, N_, NRHS_, A_, lda_, ipiv_, B_, ldb_) \
43
clapack_dgetrs(CblasColMajor, Trans_, N_, NRHS_, A_, lda_, ipiv_, B_, ldb_)
45
#define C_dpotri(Uplo_, N_, A_, lda_) \
46
clapack_dpotrs(CblasColMajor, Uplo_, N_, A_, lda_)
47
#define C_dtrtri(Uplo_, Diag_, N_, A_, lda_) \
48
clapack_dpotrs(CblasColMajor, Uplo_, Diag_, N_, A_, lda_)
49
#define C_dlaumm(Uplo_, N_, A_, lda_) \
50
clapack_dlaumm(CblasColMajor, Uplo_, N_, A_, lda_)
52
#define C_cposv(Uplo_, N_, NRHS_, A_, lda_, B_, ldb_) \
53
clapack_cposv(CblasColMajor, Uplo_, N_, NRHS_, A_, lda_, B_, ldb_)
54
#define C_cgesv(N_, NRHS_, A_, lda_, ipiv_, B_, ldb_) \
55
clapack_cgesv(CblasColMajor, N_, NRHS_, A_, lda_, ipiv_, B_, ldb_)
57
#define C_cpotrf(Uplo_, N_, A_, lda_) \
58
clapack_cpotrf(CblasColMajor, Uplo_, N_, A_, lda_)
59
#define C_cgetrf(M_, N_, A_, lda_, ipiv_) \
60
clapack_cgetrf(CblasColMajor, M_, N_, A_, lda_, ipiv_)
62
#define C_cpotrs(Uplo_, N_, NRHS_, A_, lda_, B_, ldb_) \
63
clapack_cpotrs(CblasColMajor, Uplo_, N_, NRHS_, A_, lda_, B_, ldb_)
64
#define C_cgetrs(Trans_, N_, NRHS_, A_, lda_, ipiv_, B_, ldb_) \
65
clapack_cgetrs(CblasColMajor, Trans_, N_, NRHS_, A_, lda_, ipiv_, B_, ldb_)
67
#define C_cpotri(Uplo_, N_, A_, lda_) \
68
clapack_cpotrs(CblasColMajor, Uplo_, N_, A_, lda_)
69
#define C_ctrtri(Uplo_, Diag_, N_, A_, lda_) \
70
clapack_cpotrs(CblasColMajor, Uplo_, Diag_, N_, A_, lda_)
71
#define C_claumm(Uplo_, N_, A_, lda_) \
72
clapack_claumm(CblasColMajor, Uplo_, N_, A_, lda_)
74
#define C_zposv(Uplo_, N_, NRHS_, A_, lda_, B_, ldb_) \
75
clapack_zposv(CblasColMajor, Uplo_, N_, NRHS_, A_, lda_, B_, ldb_)
76
#define C_zgesv(N_, NRHS_, A_, lda_, ipiv_, B_, ldb_) \
77
clapack_zgesv(CblasColMajor, N_, NRHS_, A_, lda_, ipiv_, B_, ldb_)
79
#define C_zpotrf(Uplo_, N_, A_, lda_) \
80
clapack_zpotrf(CblasColMajor, Uplo_, N_, A_, lda_)
81
#define C_zgetrf(M_, N_, A_, lda_, ipiv_) \
82
clapack_zgetrf(CblasColMajor, M_, N_, A_, lda_, ipiv_)
84
#define C_zpotrs(Uplo_, N_, NRHS_, A_, lda_, B_, ldb_) \
85
clapack_zpotrs(CblasColMajor, Uplo_, N_, NRHS_, A_, lda_, B_, ldb_)
86
#define C_zgetrs(Trans_, N_, NRHS_, A_, lda_, ipiv_, B_, ldb_) \
87
clapack_zgetrs(CblasColMajor, Trans_, N_, NRHS_, A_, lda_, ipiv_, B_, ldb_)
89
#define C_zpotri(Uplo_, N_, A_, lda_) \
90
clapack_zpotrs(CblasColMajor, Uplo_, N_, A_, lda_)
91
#define C_ztrtri(Uplo_, Diag_, N_, A_, lda_) \
92
clapack_zpotrs(CblasColMajor, Uplo_, Diag_, N_, A_, lda_)
93
#define C_zlaumm(Uplo_, N_, A_, lda_) \
94
clapack_zlaumm(CblasColMajor, Uplo_, N_, A_, lda_)
98
*****************************************************************************
99
* The following routines are available in ATLAS only if a F77 LAPACK has been
100
* provided to ATLAS. These routines are accessed through the C-to-Fortran77
101
* wrappers available in ATLAS/interfaces/lapack/C2F/src
102
*****************************************************************************
104
#include "atlas_C2Flapack.h"
107
* ----------------------------------------------------------------------------
108
* These routines take workspace, and thus come in two flavors: rout & rout_wrk
109
* ----------------------------------------------------------------------------
111
#define C_sgels ATL_C2Fsgels
112
#define C_sgels_wrk ATL_C2Fsgels_wrk
113
#define C_dgels ATL_C2Fdgels
114
#define C_dgels_wrk ATL_C2Fdgels_wrk
115
#define C_cgels ATL_C2Fcgels
116
#define C_cgels_wrk ATL_C2Fcgels_wrk
117
#define C_zgels ATL_C2Fzgels
118
#define C_zgels_wrk ATL_C2Fzgels_wrk