DSDP
|
00001 #if !defined(DSDPLAPACK) 00002 #define DSDPLAPACK 00003 00008 typedef long int ffinteger; 00009 /* 00010 typedef int ffinteger; 00011 */ 00012 /* 00013 #define __DSDP_NONAMEMANGLING 00014 #undef __DSDP_NONAMEMANGLING 00015 */ 00016 00017 00018 #ifdef __cplusplus 00019 #define __DSDP_NONAMEMANGLING 00020 #endif 00021 00022 00023 #ifdef __DSDP_NONAMEMANGLING 00024 #define EXTERN_C_BEGIN extern "C" { 00025 #define EXTERN_C_END } 00026 #else 00027 #define EXTERN_C_BEGIN 00028 #define EXTERN_C_END 00029 #endif 00030 00031 /* 00032 #define NOUNDERBLAS 00033 #define CAPSBLAS 00034 */ 00035 00036 #ifdef NOUNDERBLAS 00037 #ifdef CAPSBLAS 00038 #define dstev DSTEV 00039 #define dpotrf DPOTRF 00040 #define dtrsm DTRSM 00041 #define dsyev DSYEV 00042 #define dpotrs DPOTRS 00043 #define daxpy DAXPY 00044 #define dgemv DGEMV 00045 #define dscal DSCAL 00046 #define dger DGER 00047 #define dsymv DSYMV 00048 #define dasum DASUM 00049 #define ddot DDOT 00050 #define dnrm2 DNRM2 00051 #define dspmv DSPMV 00052 #define dspr DSPR 00053 #define dpptrf DPPTRF 00054 #define dpptrs DPPTRS 00055 #define dtpsv DTPSV 00056 #define dspevd DSPEVD 00057 #define dtrsv DTRSV 00058 #define dsyr DSYR 00059 #define dtrmv DTRMV 00060 #define dpotri DPOTRI 00061 #define dpptri DPPTRI 00062 #define dsyevx DSYEVX 00063 #define dsyevd DSYEVD 00064 #define dspevx DSPEVX 00065 #define dsyevr DSYEVR 00066 #define dstevr DSTEVR 00067 #endif 00068 #endif 00069 00070 #ifndef NOUNDERBLAS 00071 #ifdef CAPSBLAS 00072 #define dstev DSTEV_ 00073 #define dpotrf DPOTRF_ 00074 #define dtrsm DTRSM_ 00075 #define dsyev DSYEV_ 00076 #define dpotrs DPOTRS_ 00077 #define daxpy DAXPY_ 00078 #define dgemv DGEMV_ 00079 #define dscal DSCAL_ 00080 #define dger DGER_ 00081 #define dsymv DSYMV_ 00082 #define ddot DDOT_ 00083 #define dnrm2 DNRM2_ 00084 #define dasum DASUM_ 00085 #define dspmv DSPMV_ 00086 #define dspr DSPR_ 00087 #define dpptrf DPPTRF_ 00088 #define dpptrs DPPTRS_ 00089 #define dtpsv DTPSV_ 00090 #define dspevd DSPEVD_ 00091 #define dtrsv DTRSV_ 00092 #define dsyr DSYR_ 00093 #define dtrmv DTRMV_ 00094 #define dpotri DPOTRI_ 00095 #define dpptri DPPTRI_ 00096 #define dsyevx DSYEVX_ 00097 #define dsyevd DSYEVD_ 00098 #define dspevx DSPEVX_ 00099 #define dsyevr DSYEVR_ 00100 #define dstevr DSTEVR_ 00101 #endif 00102 #endif 00103 00104 #ifdef NOUNDERBLAS 00105 #ifndef CAPSBLAS 00106 #define dstev dstev 00107 #define dpotrf dpotrf 00108 #define dtrsm dtrsm 00109 #define dsyev dsyev 00110 #define dpotrs dpotrs 00111 #define daxpy daxpy 00112 #define dgemv dgemv 00113 #define dscal dscal 00114 #define dger dger 00115 #define dsymv dsymv 00116 #define dasum dasum 00117 #define ddot ddot 00118 #define dnrm2 dnrm2 00119 #define dspmv dspmv 00120 #define dspr dspr 00121 #define dpptrf dpptrf 00122 #define dpptrs dpptrs 00123 #define dtpsv dtpsv 00124 #define dspevd dspevd 00125 #define dtrsv dtrsv 00126 #define dsyr dsyr 00127 #define dtrmv dtrmv 00128 #define dpotri dpotri 00129 #define dpptri dpptri 00130 #define dsyevx dsyevx 00131 #define dsyevd dsyevd 00132 #define dspevx dspevx 00133 #define dsyevr dsyevr 00134 #define dstevr dstevr 00135 #endif 00136 #endif 00137 00138 #ifndef NOUNDERBLAS 00139 #ifndef CAPSBLAS 00140 #define dstev dstev_ 00141 #define dpotrf dpotrf_ 00142 #define dtrsm dtrsm_ 00143 #define dsyev dsyev_ 00144 #define dpotrs dpotrs_ 00145 #define daxpy daxpy_ 00146 #define dgemv dgemv_ 00147 #define dscal dscal_ 00148 #define dger dger_ 00149 #define dsymv dsymv_ 00150 #define dasum dasum_ 00151 #define ddot ddot_ 00152 #define dnrm2 dnrm2_ 00153 #define dspmv dspmv_ 00154 #define dspr dspr_ 00155 #define dpptrf dpptrf_ 00156 #define dpptrs dpptrs_ 00157 #define dtpsv dtpsv_ 00158 #define dspevd dspevd_ 00159 #define dtrsv dtrsv_ 00160 #define dsyr dsyr_ 00161 #define dtrmv dtrmv_ 00162 #define dpotri dpotri_ 00163 #define dpptri dpptri_ 00164 #define dsyevx dsyevx_ 00165 #define dsyevd dsyevd_ 00166 #define dspevx dspevx_ 00167 #define dsyevr dsyevr_ 00168 #define dstevr dstevr_ 00169 #endif 00170 #endif 00171 00172 EXTERN_C_BEGIN 00173 00174 void dpotrs(char*,ffinteger*,ffinteger*,double*,ffinteger*,double*,ffinteger*,ffinteger*); /* Cholesky Solve */ 00175 void dpotrf(char*,ffinteger*,double*,ffinteger*,ffinteger*); /* Cholesky Factor */ 00176 void dtrsm(char*,char*,char*,char*,ffinteger*,ffinteger*,double*,double*,ffinteger*,double*,ffinteger*); /* Cholesky trianglular solve */ 00177 void dsyev(char*,char*,ffinteger*,double*,ffinteger*,double*,double*,ffinteger*,ffinteger*); /* Compute eigenvalues/vectors */ 00178 void dstev(char*,ffinteger*,double*,double*,double*,ffinteger*,double*,ffinteger*); /* Compute eigenvalues/vectors */ 00179 void dgemv(char*,ffinteger*,ffinteger*,double*,double*,ffinteger*,double*,ffinteger*,double*,double*,ffinteger*); 00180 void dspmv(char*,ffinteger*,double*,double*,double*,ffinteger*,double*,double*,ffinteger*); 00181 00182 void dspr(char*,ffinteger*,double*,double*,ffinteger*,double*); 00183 void dpptrs(char*,ffinteger*,ffinteger*,double*,double*,ffinteger*,ffinteger*); 00184 void dpptrf(char*,ffinteger*,double*,ffinteger*); 00185 00186 void dtrsv(char*,char*,char*,ffinteger*,double*,ffinteger*,double*,ffinteger*); 00187 void dsyr(char*,ffinteger*,double*,double*,ffinteger*,double*,ffinteger*); 00188 void dtrmv(char*,char*,char*,ffinteger*,double*,ffinteger*,double*,ffinteger*); 00189 00190 void dtpsv(char*,char*,char*,ffinteger*,double*,double*,ffinteger*); 00191 void dger(ffinteger*,ffinteger*,double*,double*,ffinteger*,double*,ffinteger*,double*,ffinteger*); 00192 void dsymv(char*,ffinteger*,double*,double*,ffinteger*,double*,ffinteger*, double*,double*,ffinteger*); 00193 void dspevd(char*,char*,ffinteger*,double*,double*,double*,ffinteger*,double*,ffinteger*,ffinteger*,ffinteger*,ffinteger*); 00194 00195 double dasum(ffinteger*,double*,ffinteger*); 00196 void dscal(ffinteger*,double*,double*,ffinteger*); 00197 void daxpy(ffinteger*,double*,double*,ffinteger*,double*,ffinteger*); 00198 double ddot(ffinteger*,double*,ffinteger*,double*,ffinteger*); 00199 double dnrm2(ffinteger*,double*,ffinteger*); 00200 00201 void dpotri(char*,ffinteger*,double*,ffinteger*,ffinteger*); 00202 void dpptri(char*,ffinteger*,double*,ffinteger*); 00203 00204 void dsyevx(char*, char*, char*, ffinteger*,double*, ffinteger*, double*, double*, ffinteger*, ffinteger*, double*, ffinteger*, double *,double*, ffinteger *, double *, ffinteger*, ffinteger*, ffinteger*, ffinteger*); 00205 00206 void dspevx(char*, char*, char*, ffinteger*,double*, double*, double*, ffinteger*, ffinteger*, double*, ffinteger*, double *,double*, ffinteger *, double *, ffinteger*, ffinteger*, ffinteger*); 00207 00208 void dsdevx(char*, char*, char*, ffinteger*,double*, double*, double*, ffinteger*, ffinteger*, double*, ffinteger*, double *,double*, ffinteger *, double *, ffinteger*, ffinteger*, ffinteger*, ffinteger*); 00209 00210 00211 void dsyevr(char*, char*, char*, ffinteger*, double*, ffinteger*, double*, double*, ffinteger*, ffinteger*,double*, ffinteger*, double*, double*, ffinteger*, ffinteger*, double*, ffinteger*, ffinteger*, ffinteger*, ffinteger*); 00212 00213 void dstevr(char*, char*, ffinteger*, double*, double*, double*, double*, ffinteger*, ffinteger*,double*, ffinteger*, double*, double*, ffinteger*, ffinteger*, double*, ffinteger*, ffinteger*, ffinteger*, ffinteger*); 00214 00215 EXTERN_C_END 00216 00217 #endif