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*);