Chris@90
|
1 /*
|
Chris@90
|
2 * Automatically Tuned Linear Algebra Software v3.8.0
|
Chris@90
|
3 * (C) Copyright 1999 R. Clint Whaley
|
Chris@90
|
4 *
|
Chris@90
|
5 * Redistribution and use in source and binary forms, with or without
|
Chris@90
|
6 * modification, are permitted provided that the following conditions
|
Chris@90
|
7 * are met:
|
Chris@90
|
8 * 1. Redistributions of source code must retain the above copyright
|
Chris@90
|
9 * notice, this list of conditions and the following disclaimer.
|
Chris@90
|
10 * 2. Redistributions in binary form must reproduce the above copyright
|
Chris@90
|
11 * notice, this list of conditions, and the following disclaimer in the
|
Chris@90
|
12 * documentation and/or other materials provided with the distribution.
|
Chris@90
|
13 * 3. The name of the ATLAS group or the names of its contributers may
|
Chris@90
|
14 * not be used to endorse or promote products derived from this
|
Chris@90
|
15 * software without specific written permission.
|
Chris@90
|
16 *
|
Chris@90
|
17 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
|
Chris@90
|
18 * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
|
Chris@90
|
19 * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
|
Chris@90
|
20 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE ATLAS GROUP OR ITS CONTRIBUTORS
|
Chris@90
|
21 * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
|
Chris@90
|
22 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
|
Chris@90
|
23 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
|
Chris@90
|
24 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
|
Chris@90
|
25 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
|
Chris@90
|
26 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
|
Chris@90
|
27 * POSSIBILITY OF SUCH DAMAGE.
|
Chris@90
|
28 *
|
Chris@90
|
29 */
|
Chris@90
|
30
|
Chris@90
|
31 #ifndef CLAPACK_H
|
Chris@90
|
32
|
Chris@90
|
33 #define CLAPACK_H
|
Chris@90
|
34 #include "cblas.h"
|
Chris@90
|
35
|
Chris@90
|
36 #ifndef ATLAS_ORDER
|
Chris@90
|
37 #define ATLAS_ORDER CBLAS_ORDER
|
Chris@90
|
38 #endif
|
Chris@90
|
39 #ifndef ATLAS_UPLO
|
Chris@90
|
40 #define ATLAS_UPLO CBLAS_UPLO
|
Chris@90
|
41 #endif
|
Chris@90
|
42 #ifndef ATLAS_DIAG
|
Chris@90
|
43 #define ATLAS_DIAG CBLAS_DIAG
|
Chris@90
|
44 #endif
|
Chris@90
|
45 int clapack_sgesv(const enum CBLAS_ORDER Order, const int N, const int NRHS,
|
Chris@90
|
46 float *A, const int lda, int *ipiv,
|
Chris@90
|
47 float *B, const int ldb);
|
Chris@90
|
48 int clapack_sgetrf(const enum CBLAS_ORDER Order, const int M, const int N,
|
Chris@90
|
49 float *A, const int lda, int *ipiv);
|
Chris@90
|
50 int clapack_sgetrs
|
Chris@90
|
51 (const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE Trans,
|
Chris@90
|
52 const int N, const int NRHS, const float *A, const int lda,
|
Chris@90
|
53 const int *ipiv, float *B, const int ldb);
|
Chris@90
|
54 int clapack_sgetri(const enum CBLAS_ORDER Order, const int N, float *A,
|
Chris@90
|
55 const int lda, const int *ipiv);
|
Chris@90
|
56 int clapack_sposv(const enum ATLAS_ORDER Order, const enum ATLAS_UPLO Uplo,
|
Chris@90
|
57 const int N, const int NRHS, float *A, const int lda,
|
Chris@90
|
58 float *B, const int ldb);
|
Chris@90
|
59 int clapack_spotrf(const enum ATLAS_ORDER Order, const enum ATLAS_UPLO Uplo,
|
Chris@90
|
60 const int N, float *A, const int lda);
|
Chris@90
|
61 int clapack_spotrs(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo,
|
Chris@90
|
62 const int N, const int NRHS, const float *A, const int lda,
|
Chris@90
|
63 float *B, const int ldb);
|
Chris@90
|
64 int clapack_spotri(const enum ATLAS_ORDER Order, const enum ATLAS_UPLO Uplo,
|
Chris@90
|
65 const int N, float *A, const int lda);
|
Chris@90
|
66 int clapack_slauum(const enum ATLAS_ORDER Order, const enum ATLAS_UPLO Uplo,
|
Chris@90
|
67 const int N, float *A, const int lda);
|
Chris@90
|
68 int clapack_strtri(const enum ATLAS_ORDER Order,const enum ATLAS_UPLO Uplo,
|
Chris@90
|
69 const enum ATLAS_DIAG Diag,const int N, float *A, const int lda);
|
Chris@90
|
70
|
Chris@90
|
71 int clapack_dgesv(const enum CBLAS_ORDER Order, const int N, const int NRHS,
|
Chris@90
|
72 double *A, const int lda, int *ipiv,
|
Chris@90
|
73 double *B, const int ldb);
|
Chris@90
|
74 int clapack_dgetrf(const enum CBLAS_ORDER Order, const int M, const int N,
|
Chris@90
|
75 double *A, const int lda, int *ipiv);
|
Chris@90
|
76 int clapack_dgetrs
|
Chris@90
|
77 (const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE Trans,
|
Chris@90
|
78 const int N, const int NRHS, const double *A, const int lda,
|
Chris@90
|
79 const int *ipiv, double *B, const int ldb);
|
Chris@90
|
80 int clapack_dgetri(const enum CBLAS_ORDER Order, const int N, double *A,
|
Chris@90
|
81 const int lda, const int *ipiv);
|
Chris@90
|
82 int clapack_dposv(const enum ATLAS_ORDER Order, const enum ATLAS_UPLO Uplo,
|
Chris@90
|
83 const int N, const int NRHS, double *A, const int lda,
|
Chris@90
|
84 double *B, const int ldb);
|
Chris@90
|
85 int clapack_dpotrf(const enum ATLAS_ORDER Order, const enum ATLAS_UPLO Uplo,
|
Chris@90
|
86 const int N, double *A, const int lda);
|
Chris@90
|
87 int clapack_dpotrs(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo,
|
Chris@90
|
88 const int N, const int NRHS, const double *A, const int lda,
|
Chris@90
|
89 double *B, const int ldb);
|
Chris@90
|
90 int clapack_dpotri(const enum ATLAS_ORDER Order, const enum ATLAS_UPLO Uplo,
|
Chris@90
|
91 const int N, double *A, const int lda);
|
Chris@90
|
92 int clapack_dlauum(const enum ATLAS_ORDER Order, const enum ATLAS_UPLO Uplo,
|
Chris@90
|
93 const int N, double *A, const int lda);
|
Chris@90
|
94 int clapack_dtrtri(const enum ATLAS_ORDER Order,const enum ATLAS_UPLO Uplo,
|
Chris@90
|
95 const enum ATLAS_DIAG Diag,const int N, double *A, const int lda);
|
Chris@90
|
96
|
Chris@90
|
97 int clapack_cgesv(const enum CBLAS_ORDER Order, const int N, const int NRHS,
|
Chris@90
|
98 void *A, const int lda, int *ipiv,
|
Chris@90
|
99 void *B, const int ldb);
|
Chris@90
|
100 int clapack_cgetrf(const enum CBLAS_ORDER Order, const int M, const int N,
|
Chris@90
|
101 void *A, const int lda, int *ipiv);
|
Chris@90
|
102 int clapack_cgetrs
|
Chris@90
|
103 (const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE Trans,
|
Chris@90
|
104 const int N, const int NRHS, const void *A, const int lda,
|
Chris@90
|
105 const int *ipiv, void *B, const int ldb);
|
Chris@90
|
106 int clapack_cgetri(const enum CBLAS_ORDER Order, const int N, void *A,
|
Chris@90
|
107 const int lda, const int *ipiv);
|
Chris@90
|
108 int clapack_cposv(const enum ATLAS_ORDER Order, const enum ATLAS_UPLO Uplo,
|
Chris@90
|
109 const int N, const int NRHS, void *A, const int lda,
|
Chris@90
|
110 void *B, const int ldb);
|
Chris@90
|
111 int clapack_cpotrf(const enum ATLAS_ORDER Order, const enum ATLAS_UPLO Uplo,
|
Chris@90
|
112 const int N, void *A, const int lda);
|
Chris@90
|
113 int clapack_cpotrs(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo,
|
Chris@90
|
114 const int N, const int NRHS, const void *A, const int lda,
|
Chris@90
|
115 void *B, const int ldb);
|
Chris@90
|
116 int clapack_cpotri(const enum ATLAS_ORDER Order, const enum ATLAS_UPLO Uplo,
|
Chris@90
|
117 const int N, void *A, const int lda);
|
Chris@90
|
118 int clapack_clauum(const enum ATLAS_ORDER Order, const enum ATLAS_UPLO Uplo,
|
Chris@90
|
119 const int N, void *A, const int lda);
|
Chris@90
|
120 int clapack_ctrtri(const enum ATLAS_ORDER Order,const enum ATLAS_UPLO Uplo,
|
Chris@90
|
121 const enum ATLAS_DIAG Diag,const int N, void *A, const int lda);
|
Chris@90
|
122
|
Chris@90
|
123 int clapack_zgesv(const enum CBLAS_ORDER Order, const int N, const int NRHS,
|
Chris@90
|
124 void *A, const int lda, int *ipiv,
|
Chris@90
|
125 void *B, const int ldb);
|
Chris@90
|
126 int clapack_zgetrf(const enum CBLAS_ORDER Order, const int M, const int N,
|
Chris@90
|
127 void *A, const int lda, int *ipiv);
|
Chris@90
|
128 int clapack_zgetrs
|
Chris@90
|
129 (const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE Trans,
|
Chris@90
|
130 const int N, const int NRHS, const void *A, const int lda,
|
Chris@90
|
131 const int *ipiv, void *B, const int ldb);
|
Chris@90
|
132 int clapack_zgetri(const enum CBLAS_ORDER Order, const int N, void *A,
|
Chris@90
|
133 const int lda, const int *ipiv);
|
Chris@90
|
134 int clapack_zposv(const enum ATLAS_ORDER Order, const enum ATLAS_UPLO Uplo,
|
Chris@90
|
135 const int N, const int NRHS, void *A, const int lda,
|
Chris@90
|
136 void *B, const int ldb);
|
Chris@90
|
137 int clapack_zpotrf(const enum ATLAS_ORDER Order, const enum ATLAS_UPLO Uplo,
|
Chris@90
|
138 const int N, void *A, const int lda);
|
Chris@90
|
139 int clapack_zpotrs(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo,
|
Chris@90
|
140 const int N, const int NRHS, const void *A, const int lda,
|
Chris@90
|
141 void *B, const int ldb);
|
Chris@90
|
142 int clapack_zpotri(const enum ATLAS_ORDER Order, const enum ATLAS_UPLO Uplo,
|
Chris@90
|
143 const int N, void *A, const int lda);
|
Chris@90
|
144 int clapack_zlauum(const enum ATLAS_ORDER Order, const enum ATLAS_UPLO Uplo,
|
Chris@90
|
145 const int N, void *A, const int lda);
|
Chris@90
|
146 int clapack_ztrtri(const enum ATLAS_ORDER Order,const enum ATLAS_UPLO Uplo,
|
Chris@90
|
147 const enum ATLAS_DIAG Diag,const int N, void *A, const int lda);
|
Chris@90
|
148
|
Chris@90
|
149 #endif
|