00001 #if !defined(DSDPLAPACK)
00002 #define DSDPLAPACK
00003
00008 typedef long int ffinteger;
00009
00010
00011
00012
00013
00014
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
00033
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*);
00175 void dpotrf(char*,ffinteger*,double*,ffinteger*,ffinteger*);
00176 void dtrsm(char*,char*,char*,char*,ffinteger*,ffinteger*,double*,double*,ffinteger*,double*,ffinteger*);
00177 void dsyev(char*,char*,ffinteger*,double*,ffinteger*,double*,double*,ffinteger*,ffinteger*);
00178 void dstev(char*,ffinteger*,double*,double*,double*,ffinteger*,double*,ffinteger*);
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