1 #if !defined(DSDPLAPACK)
8 typedef long int ffinteger;
19 #define __DSDP_NONAMEMANGLING
23 #ifdef __DSDP_NONAMEMANGLING
24 #define EXTERN_C_BEGIN extern "C" {
25 #define EXTERN_C_END }
27 #define EXTERN_C_BEGIN
73 #define dpotrf DPOTRF_
76 #define dpotrs DPOTRS_
87 #define dpptrf DPPTRF_
88 #define dpptrs DPPTRS_
90 #define dspevd DSPEVD_
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_
107 #define dpotrf dpotrf
110 #define dpotrs dpotrs
121 #define dpptrf dpptrf
122 #define dpptrs dpptrs
124 #define dspevd dspevd
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
141 #define dpotrf dpotrf_
144 #define dpotrs dpotrs_
155 #define dpptrf dpptrf_
156 #define dpptrs dpptrs_
158 #define dspevd dspevd_
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_
174 void dpotrs(
char*,ffinteger*,ffinteger*,
double*,ffinteger*,
double*,ffinteger*,ffinteger*);
175 void dpotrf(
char*,ffinteger*,
double*,ffinteger*,ffinteger*);
176 void dtrsm(
char*,
char*,
char*,
char*,ffinteger*,ffinteger*,
double*,
double*,ffinteger*,
double*,ffinteger*);
177 void dsyev(
char*,
char*,ffinteger*,
double*,ffinteger*,
double*,
double*,ffinteger*,ffinteger*);
178 void dstev(
char*,ffinteger*,
double*,
double*,
double*,ffinteger*,
double*,ffinteger*);
179 void dgemv(
char*,ffinteger*,ffinteger*,
double*,
double*,ffinteger*,
double*,ffinteger*,
double*,
double*,ffinteger*);
180 void dspmv(
char*,ffinteger*,
double*,
double*,
double*,ffinteger*,
double*,
double*,ffinteger*);
182 void dspr(
char*,ffinteger*,
double*,
double*,ffinteger*,
double*);
183 void dpptrs(
char*,ffinteger*,ffinteger*,
double*,
double*,ffinteger*,ffinteger*);
184 void dpptrf(
char*,ffinteger*,
double*,ffinteger*);
186 void dtrsv(
char*,
char*,
char*,ffinteger*,
double*,ffinteger*,
double*,ffinteger*);
187 void dsyr(
char*,ffinteger*,
double*,
double*,ffinteger*,
double*,ffinteger*);
188 void dtrmv(
char*,
char*,
char*,ffinteger*,
double*,ffinteger*,
double*,ffinteger*);
190 void dtpsv(
char*,
char*,
char*,ffinteger*,
double*,
double*,ffinteger*);
191 void dger(ffinteger*,ffinteger*,
double*,
double*,ffinteger*,
double*,ffinteger*,
double*,ffinteger*);
192 void dsymv(
char*,ffinteger*,
double*,
double*,ffinteger*,
double*,ffinteger*,
double*,
double*,ffinteger*);
193 void dspevd(
char*,
char*,ffinteger*,
double*,
double*,
double*,ffinteger*,
double*,ffinteger*,ffinteger*,ffinteger*,ffinteger*);
195 double dasum(ffinteger*,
double*,ffinteger*);
196 void dscal(ffinteger*,
double*,
double*,ffinteger*);
197 void daxpy(ffinteger*,
double*,
double*,ffinteger*,
double*,ffinteger*);
198 double ddot(ffinteger*,
double*,ffinteger*,
double*,ffinteger*);
199 double dnrm2(ffinteger*,
double*,ffinteger*);
201 void dpotri(
char*,ffinteger*,
double*,ffinteger*,ffinteger*);
202 void dpptri(
char*,ffinteger*,
double*,ffinteger*);
204 void dsyevx(
char*,
char*,
char*, ffinteger*,
double*, ffinteger*,
double*,
double*, ffinteger*, ffinteger*,
double*, ffinteger*,
double *,
double*, ffinteger *,
double *, ffinteger*, ffinteger*, ffinteger*, ffinteger*);
206 void dspevx(
char*,
char*,
char*, ffinteger*,
double*,
double*,
double*, ffinteger*, ffinteger*,
double*, ffinteger*,
double *,
double*, ffinteger *,
double *, ffinteger*, ffinteger*, ffinteger*);
208 void dsdevx(
char*,
char*,
char*, ffinteger*,
double*,
double*,
double*, ffinteger*, ffinteger*,
double*, ffinteger*,
double *,
double*, ffinteger *,
double *, ffinteger*, ffinteger*, ffinteger*, ffinteger*);
211 void dsyevr(
char*,
char*,
char*, ffinteger*,
double*, ffinteger*,
double*,
double*, ffinteger*, ffinteger*,
double*, ffinteger*,
double*,
double*, ffinteger*, ffinteger*,
double*, ffinteger*, ffinteger*, ffinteger*, ffinteger*);
213 void dstevr(
char*,
char*, ffinteger*,
double*,
double*,
double*,
double*, ffinteger*, ffinteger*,
double*, ffinteger*,
double*,
double*, ffinteger*, ffinteger*,
double*, ffinteger*, ffinteger*, ffinteger*, ffinteger*);