DSDP
dsdplapack.h
Go to the documentation of this file.
1#if !defined(DSDPLAPACK)
2#define DSDPLAPACK
7/*
8typedef long int ffinteger;
9*/
10typedef int ffinteger;
11
12/*
13#define __DSDP_NONAMEMANGLING
14#undef __DSDP_NONAMEMANGLING
15*/
16
17
18#ifdef __cplusplus
19#define __DSDP_NONAMEMANGLING
20#endif
21
22
23#ifdef __DSDP_NONAMEMANGLING
24#define EXTERN_C_BEGIN extern "C" {
25#define EXTERN_C_END }
26#else
27#define EXTERN_C_BEGIN
28#define EXTERN_C_END
29#endif
30
31/*
32#define NOUNDERBLAS
33#define CAPSBLAS
34*/
35
36#ifdef NOUNDERBLAS
37#ifdef CAPSBLAS
38#define dstev DSTEV
39#define dpotrf DPOTRF
40#define dtrsm DTRSM
41#define dsyev DSYEV
42#define dpotrs DPOTRS
43#define daxpy DAXPY
44#define dgemv DGEMV
45#define dscal DSCAL
46#define dger DGER
47#define dsymv DSYMV
48#define dasum DASUM
49#define ddot DDOT
50#define dnrm2 DNRM2
51#define dspmv DSPMV
52#define dspr DSPR
53#define dpptrf DPPTRF
54#define dpptrs DPPTRS
55#define dtpsv DTPSV
56#define dspevd DSPEVD
57#define dtrsv DTRSV
58#define dsyr DSYR
59#define dtrmv DTRMV
60#define dpotri DPOTRI
61#define dpptri DPPTRI
62#define dsyevx DSYEVX
63#define dsyevd DSYEVD
64#define dspevx DSPEVX
65#define dsyevr DSYEVR
66#define dstevr DSTEVR
67#endif
68#endif
69
70#ifndef NOUNDERBLAS
71#ifdef CAPSBLAS
72#define dstev DSTEV_
73#define dpotrf DPOTRF_
74#define dtrsm DTRSM_
75#define dsyev DSYEV_
76#define dpotrs DPOTRS_
77#define daxpy DAXPY_
78#define dgemv DGEMV_
79#define dscal DSCAL_
80#define dger DGER_
81#define dsymv DSYMV_
82#define ddot DDOT_
83#define dnrm2 DNRM2_
84#define dasum DASUM_
85#define dspmv DSPMV_
86#define dspr DSPR_
87#define dpptrf DPPTRF_
88#define dpptrs DPPTRS_
89#define dtpsv DTPSV_
90#define dspevd DSPEVD_
91#define dtrsv DTRSV_
92#define dsyr DSYR_
93#define dtrmv DTRMV_
94#define dpotri DPOTRI_
95#define dpptri DPPTRI_
96#define dsyevx DSYEVX_
97#define dsyevd DSYEVD_
98#define dspevx DSPEVX_
99#define dsyevr DSYEVR_
100#define dstevr DSTEVR_
101#endif
102#endif
103
104#ifdef NOUNDERBLAS
105#ifndef CAPSBLAS
106#define dstev dstev
107#define dpotrf dpotrf
108#define dtrsm dtrsm
109#define dsyev dsyev
110#define dpotrs dpotrs
111#define daxpy daxpy
112#define dgemv dgemv
113#define dscal dscal
114#define dger dger
115#define dsymv dsymv
116#define dasum dasum
117#define ddot ddot
118#define dnrm2 dnrm2
119#define dspmv dspmv
120#define dspr dspr
121#define dpptrf dpptrf
122#define dpptrs dpptrs
123#define dtpsv dtpsv
124#define dspevd dspevd
125#define dtrsv dtrsv
126#define dsyr dsyr
127#define dtrmv dtrmv
128#define dpotri dpotri
129#define dpptri dpptri
130#define dsyevx dsyevx
131#define dsyevd dsyevd
132#define dspevx dspevx
133#define dsyevr dsyevr
134#define dstevr dstevr
135#endif
136#endif
137
138#ifndef NOUNDERBLAS
139#ifndef CAPSBLAS
140#define dstev dstev_
141#define dpotrf dpotrf_
142#define dtrsm dtrsm_
143#define dsyev dsyev_
144#define dpotrs dpotrs_
145#define daxpy daxpy_
146#define dgemv dgemv_
147#define dscal dscal_
148#define dger dger_
149#define dsymv dsymv_
150#define dasum dasum_
151#define ddot ddot_
152#define dnrm2 dnrm2_
153#define dspmv dspmv_
154#define dspr dspr_
155#define dpptrf dpptrf_
156#define dpptrs dpptrs_
157#define dtpsv dtpsv_
158#define dspevd dspevd_
159#define dtrsv dtrsv_
160#define dsyr dsyr_
161#define dtrmv dtrmv_
162#define dpotri dpotri_
163#define dpptri dpptri_
164#define dsyevx dsyevx_
165#define dsyevd dsyevd_
166#define dspevx dspevx_
167#define dsyevr dsyevr_
168#define dstevr dstevr_
169#endif
170#endif
171
172EXTERN_C_BEGIN
173
174void dpotrs(char*,ffinteger*,ffinteger*,double*,ffinteger*,double*,ffinteger*,ffinteger*); /* Cholesky Solve */
175void dpotrf(char*,ffinteger*,double*,ffinteger*,ffinteger*); /* Cholesky Factor */
176void dtrsm(char*,char*,char*,char*,ffinteger*,ffinteger*,double*,double*,ffinteger*,double*,ffinteger*); /* Cholesky trianglular solve */
177void dsyev(char*,char*,ffinteger*,double*,ffinteger*,double*,double*,ffinteger*,ffinteger*); /* Compute eigenvalues/vectors */
178void dstev(char*,ffinteger*,double*,double*,double*,ffinteger*,double*,ffinteger*); /* Compute eigenvalues/vectors */
179void dgemv(char*,ffinteger*,ffinteger*,double*,double*,ffinteger*,double*,ffinteger*,double*,double*,ffinteger*);
180void dspmv(char*,ffinteger*,double*,double*,double*,ffinteger*,double*,double*,ffinteger*);
181
182void dspr(char*,ffinteger*,double*,double*,ffinteger*,double*);
183void dpptrs(char*,ffinteger*,ffinteger*,double*,double*,ffinteger*,ffinteger*);
184void dpptrf(char*,ffinteger*,double*,ffinteger*);
185
186void dtrsv(char*,char*,char*,ffinteger*,double*,ffinteger*,double*,ffinteger*);
187void dsyr(char*,ffinteger*,double*,double*,ffinteger*,double*,ffinteger*);
188void dtrmv(char*,char*,char*,ffinteger*,double*,ffinteger*,double*,ffinteger*);
189
190void dtpsv(char*,char*,char*,ffinteger*,double*,double*,ffinteger*);
191void dger(ffinteger*,ffinteger*,double*,double*,ffinteger*,double*,ffinteger*,double*,ffinteger*);
192void dsymv(char*,ffinteger*,double*,double*,ffinteger*,double*,ffinteger*, double*,double*,ffinteger*);
193void dspevd(char*,char*,ffinteger*,double*,double*,double*,ffinteger*,double*,ffinteger*,ffinteger*,ffinteger*,ffinteger*);
194
195double dasum(ffinteger*,double*,ffinteger*);
196void dscal(ffinteger*,double*,double*,ffinteger*);
197void daxpy(ffinteger*,double*,double*,ffinteger*,double*,ffinteger*);
198double ddot(ffinteger*,double*,ffinteger*,double*,ffinteger*);
199double dnrm2(ffinteger*,double*,ffinteger*);
200
201void dpotri(char*,ffinteger*,double*,ffinteger*,ffinteger*);
202void dpptri(char*,ffinteger*,double*,ffinteger*);
203
204void dsyevx(char*, char*, char*, ffinteger*,double*, ffinteger*, double*, double*, ffinteger*, ffinteger*, double*, ffinteger*, double *,double*, ffinteger *, double *, ffinteger*, ffinteger*, ffinteger*, ffinteger*);
205
206void dspevx(char*, char*, char*, ffinteger*,double*, double*, double*, ffinteger*, ffinteger*, double*, ffinteger*, double *,double*, ffinteger *, double *, ffinteger*, ffinteger*, ffinteger*);
207
208void dsdevx(char*, char*, char*, ffinteger*,double*, double*, double*, ffinteger*, ffinteger*, double*, ffinteger*, double *,double*, ffinteger *, double *, ffinteger*, ffinteger*, ffinteger*, ffinteger*);
209
210
211void dsyevr(char*, char*, char*, ffinteger*, double*, ffinteger*, double*, double*, ffinteger*, ffinteger*,double*, ffinteger*, double*, double*, ffinteger*, ffinteger*, double*, ffinteger*, ffinteger*, ffinteger*, ffinteger*);
212
213void dstevr(char*, char*, ffinteger*, double*, double*, double*, double*, ffinteger*, ffinteger*,double*, ffinteger*, double*, double*, ffinteger*, ffinteger*, double*, ffinteger*, ffinteger*, ffinteger*, ffinteger*);
214
215EXTERN_C_END
216
217#endif