00001
00019 #ifndef __SUPERLU_CNAMES
00020 #define __SUPERLU_CNAMES
00021
00022
00023 #define ADD_ 0
00024 #define ADD__ 1
00025 #define NOCHANGE 2
00026 #define UPCASE 3
00027 #define C_CALL 4
00028
00029 #ifdef UpCase
00030 #define F77_CALL_C UPCASE
00031 #endif
00032
00033 #ifdef NoChange
00034 #define F77_CALL_C NOCHANGE
00035 #endif
00036
00037 #ifdef Add_
00038 #define F77_CALL_C ADD_
00039 #endif
00040
00041 #ifdef Add__
00042 #define F77_CALL_C ADD__
00043 #endif
00044
00045
00046 #ifndef F77_CALL_C
00047 #define F77_CALL_C ADD_
00048 #endif
00049
00050
00051 #if (F77_CALL_C == ADD_)
00052
00053
00054
00055
00056
00057
00058
00059
00060
00061
00062 #endif
00063
00064 #if (F77_CALL_C == ADD__)
00065
00066
00067
00068
00069
00070
00071
00072
00073 #define sasum_ sasum__
00074 #define isamax_ isamax__
00075 #define scopy_ scopy__
00076 #define sscal_ sscal__
00077 #define sger_ sger__
00078 #define snrm2_ snrm2__
00079 #define ssymv_ ssymv__
00080 #define sdot_ sdot__
00081 #define saxpy_ saxpy__
00082 #define ssyr2_ ssyr2__
00083 #define srot_ srot__
00084 #define sgemv_ sgemv__
00085 #define strsv_ strsv__
00086 #define sgemm_ sgemm__
00087 #define strsm_ strsm__
00088
00089 #define dasum_ dasum__
00090 #define idamax_ idamax__
00091 #define dcopy_ dcopy__
00092 #define dscal_ dscal__
00093 #define dger_ dger__
00094 #define dnrm2_ dnrm2__
00095 #define dsymv_ dsymv__
00096 #define ddot_ ddot__
00097 #define daxpy_ daxpy__
00098 #define dsyr2_ dsyr2__
00099 #define drot_ drot__
00100 #define dgemv_ dgemv__
00101 #define dtrsv_ dtrsv__
00102 #define dgemm_ dgemm__
00103 #define dtrsm_ dtrsm__
00104
00105 #define scasum_ scasum__
00106 #define icamax_ icamax__
00107 #define ccopy_ ccopy__
00108 #define cscal_ cscal__
00109 #define scnrm2_ scnrm2__
00110 #define caxpy_ caxpy__
00111 #define cgemv_ cgemv__
00112 #define ctrsv_ ctrsv__
00113 #define cgemm_ cgemm__
00114 #define ctrsm_ ctrsm__
00115 #define cgerc_ cgerc__
00116 #define chemv_ chemv__
00117 #define cher2_ cher2__
00118
00119 #define dzasum_ dzasum__
00120 #define izamax_ izamax__
00121 #define zcopy_ zcopy__
00122 #define zscal_ zscal__
00123 #define dznrm2_ dznrm2__
00124 #define zaxpy_ zaxpy__
00125 #define zgemv_ zgemv__
00126 #define ztrsv_ ztrsv__
00127 #define zgemm_ zgemm__
00128 #define ztrsm_ ztrsm__
00129 #define zgerc_ zgerc__
00130 #define zhemv_ zhemv__
00131 #define zher2_ zher2__
00132
00133
00134 #define dlamch_ dlamch__
00135 #define slamch_ slamch__
00136 #define xerbla_ xerbla__
00137 #define lsame_ lsame__
00138 #define dlacon_ dlacon__
00139 #define slacon_ slacon__
00140 #define icmax1_ icmax1__
00141 #define scsum1_ scsum1__
00142 #define clacon_ clacon__
00143 #define dzsum1_ dzsum1__
00144 #define izmax1_ izmax1__
00145 #define zlacon_ zlacon__
00146
00147
00148 #define c_bridge_dgssv_ c_bridge_dgssv__
00149 #define c_fortran_sgssv_ c_fortran_sgssv__
00150 #define c_fortran_dgssv_ c_fortran_dgssv__
00151 #define c_fortran_cgssv_ c_fortran_cgssv__
00152 #define c_fortran_zgssv_ c_fortran_zgssv__
00153 #endif
00154
00155 #if (F77_CALL_C == UPCASE)
00156
00157
00158
00159
00160
00161
00162
00163
00164 #define sasum_ SASUM
00165 #define isamax_ ISAMAX
00166 #define scopy_ SCOPY
00167 #define sscal_ SSCAL
00168 #define sger_ SGER
00169 #define snrm2_ SNRM2
00170 #define ssymv_ SSYMV
00171 #define sdot_ SDOT
00172 #define saxpy_ SAXPY
00173 #define ssyr2_ SSYR2
00174 #define srot_ SROT
00175 #define sgemv_ SGEMV
00176 #define strsv_ STRSV
00177 #define sgemm_ SGEMM
00178 #define strsm_ STRSM
00179
00180 #define dasum_ SASUM
00181 #define idamax_ ISAMAX
00182 #define dcopy_ SCOPY
00183 #define dscal_ SSCAL
00184 #define dger_ SGER
00185 #define dnrm2_ SNRM2
00186 #define dsymv_ SSYMV
00187 #define ddot_ SDOT
00188 #define daxpy_ SAXPY
00189 #define dsyr2_ SSYR2
00190 #define drot_ SROT
00191 #define dgemv_ SGEMV
00192 #define dtrsv_ STRSV
00193 #define dgemm_ SGEMM
00194 #define dtrsm_ STRSM
00195
00196 #define scasum_ SCASUM
00197 #define icamax_ ICAMAX
00198 #define ccopy_ CCOPY
00199 #define cscal_ CSCAL
00200 #define scnrm2_ SCNRM2
00201 #define caxpy_ CAXPY
00202 #define cgemv_ CGEMV
00203 #define ctrsv_ CTRSV
00204 #define cgemm_ CGEMM
00205 #define ctrsm_ CTRSM
00206 #define cgerc_ CGERC
00207 #define chemv_ CHEMV
00208 #define cher2_ CHER2
00209
00210 #define dzasum_ SCASUM
00211 #define izamax_ ICAMAX
00212 #define zcopy_ CCOPY
00213 #define zscal_ CSCAL
00214 #define dznrm2_ SCNRM2
00215 #define zaxpy_ CAXPY
00216 #define zgemv_ CGEMV
00217 #define ztrsv_ CTRSV
00218 #define zgemm_ CGEMM
00219 #define ztrsm_ CTRSM
00220 #define zgerc_ CGERC
00221 #define zhemv_ CHEMV
00222 #define zher2_ CHER2
00223
00224
00225 #define dlamch_ DLAMCH
00226 #define slamch_ SLAMCH
00227 #define xerbla_ XERBLA
00228 #define lsame_ LSAME
00229 #define dlacon_ DLACON
00230 #define slacon_ SLACON
00231 #define icmax1_ ICMAX1
00232 #define scsum1_ SCSUM1
00233 #define clacon_ CLACON
00234 #define dzsum1_ DZSUM1
00235 #define izmax1_ IZMAX1
00236 #define zlacon_ ZLACON
00237
00238
00239 #define c_bridge_dgssv_ C_BRIDGE_DGSSV
00240 #define c_fortran_sgssv_ C_FORTRAN_SGSSV
00241 #define c_fortran_dgssv_ C_FORTRAN_DGSSV
00242 #define c_fortran_cgssv_ C_FORTRAN_CGSSV
00243 #define c_fortran_zgssv_ C_FORTRAN_ZGSSV
00244 #endif
00245
00246 #if (F77_CALL_C == NOCHANGE)
00247
00248
00249
00250
00251
00252
00253
00254
00255 #define sasum_ sasum
00256 #define isamax_ isamax
00257 #define scopy_ scopy
00258 #define sscal_ sscal
00259 #define sger_ sger
00260 #define snrm2_ snrm2
00261 #define ssymv_ ssymv
00262 #define sdot_ sdot
00263 #define saxpy_ saxpy
00264 #define ssyr2_ ssyr2
00265 #define srot_ srot
00266 #define sgemv_ sgemv
00267 #define strsv_ strsv
00268 #define sgemm_ sgemm
00269 #define strsm_ strsm
00270
00271 #define dasum_ dasum
00272 #define idamax_ idamax
00273 #define dcopy_ dcopy
00274 #define dscal_ dscal
00275 #define dger_ dger
00276 #define dnrm2_ dnrm2
00277 #define dsymv_ dsymv
00278 #define ddot_ ddot
00279 #define daxpy_ daxpy
00280 #define dsyr2_ dsyr2
00281 #define drot_ drot
00282 #define dgemv_ dgemv
00283 #define dtrsv_ dtrsv
00284 #define dgemm_ dgemm
00285 #define dtrsm_ dtrsm
00286
00287 #define scasum_ scasum
00288 #define icamax_ icamax
00289 #define ccopy_ ccopy
00290 #define cscal_ cscal
00291 #define scnrm2_ scnrm2
00292 #define caxpy_ caxpy
00293 #define cgemv_ cgemv
00294 #define ctrsv_ ctrsv
00295 #define cgemm_ cgemm
00296 #define ctrsm_ ctrsm
00297 #define cgerc_ cgerc
00298 #define chemv_ chemv
00299 #define cher2_ cher2
00300
00301 #define dzasum_ dzasum
00302 #define izamax_ izamax
00303 #define zcopy_ zcopy
00304 #define zscal_ zscal
00305 #define dznrm2_ dznrm2
00306 #define zaxpy_ zaxpy
00307 #define zgemv_ zgemv
00308 #define ztrsv_ ztrsv
00309 #define zgemm_ zgemm
00310 #define ztrsm_ ztrsm
00311 #define zgerc_ zgerc
00312 #define zhemv_ zhemv
00313 #define zher2_ zher2
00314
00315
00316 #define dlamch_ dlamch
00317 #define slamch_ slamch
00318 #define xerbla_ xerbla
00319 #define lsame_ lsame
00320 #define dlacon_ dlacon
00321 #define slacon_ slacon
00322 #define icmax1_ icmax1
00323 #define scsum1_ scsum1
00324 #define clacon_ clacon
00325 #define dzsum1_ dzsum1
00326 #define izmax1_ izmax1
00327 #define zlacon_ zlacon
00328
00329
00330 #define c_bridge_dgssv_ c_bridge_dgssv
00331 #define c_fortran_sgssv_ c_fortran_sgssv
00332 #define c_fortran_dgssv_ c_fortran_dgssv
00333 #define c_fortran_cgssv_ c_fortran_cgssv
00334 #define c_fortran_zgssv_ c_fortran_zgssv
00335 #endif
00336
00337 #endif