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 OLD_CRAY 4
00028 #define C_CALL 5
00029
00030 #ifdef UpCase
00031 #define F77_CALL_C UPCASE
00032 #endif
00033
00034 #ifdef NoChange
00035 #define F77_CALL_C NOCHANGE
00036 #endif
00037
00038 #ifdef Add_
00039 #define F77_CALL_C ADD_
00040 #endif
00041
00042 #ifdef Add__
00043 #define F77_CALL_C ADD__
00044 #endif
00045
00046 #ifdef _CRAY
00047 #define F77_CALL_C OLD_CRAY
00048 #endif
00049
00050
00051 #ifndef F77_CALL_C
00052 #define F77_CALL_C ADD_
00053 #endif
00054
00055
00056 #if (F77_CALL_C == ADD_)
00057
00058
00059
00060
00061
00062
00063
00064
00065
00066
00067 #endif
00068
00069 #if (F77_CALL_C == ADD__)
00070
00071
00072
00073
00074
00075
00076
00077
00078 #define sswap_ sswap__
00079 #define saxpy_ saxpy__
00080 #define sasum_ sasum__
00081 #define isamax_ isamax__
00082 #define scopy_ scopy__
00083 #define sscal_ sscal__
00084 #define sger_ sger__
00085 #define snrm2_ snrm2__
00086 #define ssymv_ ssymv__
00087 #define sdot_ sdot__
00088 #define saxpy_ saxpy__
00089 #define ssyr2_ ssyr2__
00090 #define srot_ srot__
00091 #define sgemv_ sgemv__
00092 #define strsv_ strsv__
00093 #define sgemm_ sgemm__
00094 #define strsm_ strsm__
00095
00096 #define dswap_ dswap__
00097 #define daxpy_ daxpy__
00098 #define dasum_ dasum__
00099 #define idamax_ idamax__
00100 #define dcopy_ dcopy__
00101 #define dscal_ dscal__
00102 #define dger_ dger__
00103 #define dnrm2_ dnrm2__
00104 #define dsymv_ dsymv__
00105 #define ddot_ ddot__
00106 #define dsyr2_ dsyr2__
00107 #define drot_ drot__
00108 #define dgemv_ dgemv__
00109 #define dtrsv_ dtrsv__
00110 #define dgemm_ dgemm__
00111 #define dtrsm_ dtrsm__
00112
00113 #define cswap_ cswap__
00114 #define caxpy_ caxpy__
00115 #define scasum_ scasum__
00116 #define icamax_ icamax__
00117 #define ccopy_ ccopy__
00118 #define cscal_ cscal__
00119 #define scnrm2_ scnrm2__
00120 #define caxpy_ caxpy__
00121 #define cgemv_ cgemv__
00122 #define ctrsv_ ctrsv__
00123 #define cgemm_ cgemm__
00124 #define ctrsm_ ctrsm__
00125 #define cgerc_ cgerc__
00126 #define chemv_ chemv__
00127 #define cher2_ cher2__
00128
00129 #define zswap_ zswap__
00130 #define zaxpy_ zaxpy__
00131 #define dzasum_ dzasum__
00132 #define izamax_ izamax__
00133 #define zcopy_ zcopy__
00134 #define zscal_ zscal__
00135 #define dznrm2_ dznrm2__
00136 #define zaxpy_ zaxpy__
00137 #define zgemv_ zgemv__
00138 #define ztrsv_ ztrsv__
00139 #define zgemm_ zgemm__
00140 #define ztrsm_ ztrsm__
00141 #define zgerc_ zgerc__
00142 #define zhemv_ zhemv__
00143 #define zher2_ zher2__
00144
00145
00146 #define dlamch_ dlamch__
00147 #define slamch_ slamch__
00148 #define xerbla_ xerbla__
00149 #define lsame_ lsame__
00150 #define dlacon_ dlacon__
00151 #define slacon_ slacon__
00152 #define icmax1_ icmax1__
00153 #define scsum1_ scsum1__
00154 #define clacon_ clacon__
00155 #define dzsum1_ dzsum1__
00156 #define izmax1_ izmax1__
00157 #define zlacon_ zlacon__
00158
00159
00160 #define c_bridge_dgssv_ c_bridge_dgssv__
00161 #define c_fortran_sgssv_ c_fortran_sgssv__
00162 #define c_fortran_dgssv_ c_fortran_dgssv__
00163 #define c_fortran_cgssv_ c_fortran_cgssv__
00164 #define c_fortran_zgssv_ c_fortran_zgssv__
00165 #endif
00166
00167 #if (F77_CALL_C == UPCASE)
00168
00169
00170
00171
00172
00173
00174
00175
00176 #define sswap_ SSWAP
00177 #define saxpy_ SAXPY
00178 #define sasum_ SASUM
00179 #define isamax_ ISAMAX
00180 #define scopy_ SCOPY
00181 #define sscal_ SSCAL
00182 #define sger_ SGER
00183 #define snrm2_ SNRM2
00184 #define ssymv_ SSYMV
00185 #define sdot_ SDOT
00186 #define saxpy_ SAXPY
00187 #define ssyr2_ SSYR2
00188 #define srot_ SROT
00189 #define sgemv_ SGEMV
00190 #define strsv_ STRSV
00191 #define sgemm_ SGEMM
00192 #define strsm_ STRSM
00193
00194 #define dswap_ DSWAP
00195 #define daxpy_ DAXPY
00196 #define dasum_ DASUM
00197 #define idamax_ IDAMAX
00198 #define dcopy_ DCOPY
00199 #define dscal_ DSCAL
00200 #define dger_ DGER
00201 #define dnrm2_ DNRM2
00202 #define dsymv_ DSYMV
00203 #define ddot_ DDOT
00204 #define dsyr2_ DSYR2
00205 #define drot_ DROT
00206 #define dgemv_ DGEMV
00207 #define dtrsv_ DTRSV
00208 #define dgemm_ DGEMM
00209 #define dtrsm_ DTRSM
00210
00211 #define cswap_ CSWAP
00212 #define caxpy_ CAXPY
00213 #define scasum_ SCASUM
00214 #define icamax_ ICAMAX
00215 #define ccopy_ CCOPY
00216 #define cscal_ CSCAL
00217 #define scnrm2_ SCNRM2
00218 #define cgemv_ CGEMV
00219 #define ctrsv_ CTRSV
00220 #define cgemm_ CGEMM
00221 #define ctrsm_ CTRSM
00222 #define cgerc_ CGERC
00223 #define chemv_ CHEMV
00224 #define cher2_ CHER2
00225
00226 #define zswap_ ZSWAP
00227 #define zaxpy_ ZAXPY
00228 #define dzasum_ DZASUM
00229 #define izamax_ IZAMAX
00230 #define zcopy_ ZCOPY
00231 #define zscal_ ZSCAL
00232 #define dznrm2_ DZNRM2
00233 #define zgemv_ ZGEMV
00234 #define ztrsv_ ZTRSV
00235 #define zgemm_ ZGEMM
00236 #define ztrsm_ ZTRSM
00237 #define zgerc_ ZGERC
00238 #define zhemv_ ZHEMV
00239 #define zher2_ ZHER2
00240
00241
00242 #define dlamch_ DLAMCH
00243 #define slamch_ SLAMCH
00244 #define xerbla_ XERBLA
00245 #define lsame_ LSAME
00246 #define dlacon_ DLACON
00247 #define slacon_ SLACON
00248 #define icmax1_ ICMAX1
00249 #define scsum1_ SCSUM1
00250 #define clacon_ CLACON
00251 #define dzsum1_ DZSUM1
00252 #define izmax1_ IZMAX1
00253 #define zlacon_ ZLACON
00254
00255
00256 #define c_bridge_dgssv_ C_BRIDGE_DGSSV
00257 #define c_fortran_sgssv_ C_FORTRAN_SGSSV
00258 #define c_fortran_dgssv_ C_FORTRAN_DGSSV
00259 #define c_fortran_cgssv_ C_FORTRAN_CGSSV
00260 #define c_fortran_zgssv_ C_FORTRAN_ZGSSV
00261 #endif
00262
00263
00264 #if (F77_CALL_C == OLD_CRAY)
00265
00266
00267
00268
00269
00270
00271
00272
00273 #define sswap_ SSWAP
00274 #define saxpy_ SAXPY
00275 #define sasum_ SASUM
00276 #define isamax_ ISAMAX
00277 #define scopy_ SCOPY
00278 #define sscal_ SSCAL
00279 #define sger_ SGER
00280 #define snrm2_ SNRM2
00281 #define ssymv_ SSYMV
00282 #define sdot_ SDOT
00283 #define ssyr2_ SSYR2
00284 #define srot_ SROT
00285 #define sgemv_ SGEMV
00286 #define strsv_ STRSV
00287 #define sgemm_ SGEMM
00288 #define strsm_ STRSM
00289
00290 #define dswap_ SSWAP
00291 #define daxpy_ SAXPY
00292 #define dasum_ SASUM
00293 #define idamax_ ISAMAX
00294 #define dcopy_ SCOPY
00295 #define dscal_ SSCAL
00296 #define dger_ SGER
00297 #define dnrm2_ SNRM2
00298 #define dsymv_ SSYMV
00299 #define ddot_ SDOT
00300 #define dsyr2_ SSYR2
00301 #define drot_ SROT
00302 #define dgemv_ SGEMV
00303 #define dtrsv_ STRSV
00304 #define dgemm_ SGEMM
00305 #define dtrsm_ STRSM
00306
00307 #define cswap_ CSWAP
00308 #define caxpy_ CAXPY
00309 #define scasum_ SCASUM
00310 #define icamax_ ICAMAX
00311 #define ccopy_ CCOPY
00312 #define cscal_ CSCAL
00313 #define scnrm2_ SCNRM2
00314 #define caxpy_ CAXPY
00315 #define cgemv_ CGEMV
00316 #define ctrsv_ CTRSV
00317 #define cgemm_ CGEMM
00318 #define ctrsm_ CTRSM
00319 #define cgerc_ CGERC
00320 #define chemv_ CHEMV
00321 #define cher2_ CHER2
00322
00323 #define zswap_ ZSWAP
00324 #define zaxpy_ ZAXPY
00325 #define dzasum_ DZASUM
00326 #define izamax_ IZAMAX
00327 #define zcopy_ ZCOPY
00328 #define zscal_ ZSCAL
00329 #define dznrm2_ DZNRM2
00330 #define zgemv_ ZGEMV
00331 #define ztrsv_ ZTRSV
00332 #define zgemm_ ZGEMM
00333 #define ztrsm_ ZTRSM
00334 #define zgerc_ ZGERC
00335 #define zhemv_ ZHEMV
00336 #define zher2_ ZHER2
00337
00338
00339 #define dlamch_ DLAMCH
00340 #define slamch_ SLAMCH
00341 #define xerbla_ XERBLA
00342 #define lsame_ LSAME
00343 #define dlacon_ DLACON
00344 #define slacon_ SLACON
00345 #define icmax1_ ICMAX1
00346 #define scsum1_ SCSUM1
00347 #define clacon_ CLACON
00348 #define dzsum1_ DZSUM1
00349 #define izmax1_ IZMAX1
00350 #define zlacon_ ZLACON
00351
00352
00353 #define c_bridge_dgssv_ C_BRIDGE_DGSSV
00354 #define c_fortran_sgssv_ C_FORTRAN_SGSSV
00355 #define c_fortran_dgssv_ C_FORTRAN_DGSSV
00356 #define c_fortran_cgssv_ C_FORTRAN_CGSSV
00357 #define c_fortran_zgssv_ C_FORTRAN_ZGSSV
00358 #endif
00359
00360
00361 #if (F77_CALL_C == NOCHANGE)
00362
00363
00364
00365
00366
00367
00368
00369
00370 #define sswap_ sswap
00371 #define saxpy_ saxpy
00372 #define sasum_ sasum
00373 #define isamax_ isamax
00374 #define scopy_ scopy
00375 #define sscal_ sscal
00376 #define sger_ sger
00377 #define snrm2_ snrm2
00378 #define ssymv_ ssymv
00379 #define sdot_ sdot
00380 #define saxpy_ saxpy
00381 #define ssyr2_ ssyr2
00382 #define srot_ srot
00383 #define sgemv_ sgemv
00384 #define strsv_ strsv
00385 #define sgemm_ sgemm
00386 #define strsm_ strsm
00387
00388 #define dswap_ dswap
00389 #define daxpy_ daxpy
00390 #define dasum_ dasum
00391 #define idamax_ idamax
00392 #define dcopy_ dcopy
00393 #define dscal_ dscal
00394 #define dger_ dger
00395 #define dnrm2_ dnrm2
00396 #define dsymv_ dsymv
00397 #define ddot_ ddot
00398 #define dsyr2_ dsyr2
00399 #define drot_ drot
00400 #define dgemv_ dgemv
00401 #define dtrsv_ dtrsv
00402 #define dgemm_ dgemm
00403 #define dtrsm_ dtrsm
00404
00405 #define cswap_ cswap
00406 #define caxpy_ caxpy
00407 #define scasum_ scasum
00408 #define icamax_ icamax
00409 #define ccopy_ ccopy
00410 #define cscal_ cscal
00411 #define scnrm2_ scnrm2
00412 #define cgemv_ cgemv
00413 #define ctrsv_ ctrsv
00414 #define cgemm_ cgemm
00415 #define ctrsm_ ctrsm
00416 #define cgerc_ cgerc
00417 #define chemv_ chemv
00418 #define cher2_ cher2
00419
00420 #define zswap_ zswap
00421 #define zaxpy_ zaxpy
00422 #define dzasum_ dzasum
00423 #define izamax_ izamax
00424 #define zcopy_ zcopy
00425 #define zscal_ zscal
00426 #define dznrm2_ dznrm2
00427 #define zgemv_ zgemv
00428 #define ztrsv_ ztrsv
00429 #define zgemm_ zgemm
00430 #define ztrsm_ ztrsm
00431 #define zgerc_ zgerc
00432 #define zhemv_ zhemv
00433 #define zher2_ zher2
00434
00435
00436 #define dlamch_ dlamch
00437 #define slamch_ slamch
00438 #define xerbla_ xerbla
00439 #define lsame_ lsame
00440 #define dlacon_ dlacon
00441 #define slacon_ slacon
00442 #define icmax1_ icmax1
00443 #define scsum1_ scsum1
00444 #define clacon_ clacon
00445 #define dzsum1_ dzsum1
00446 #define izmax1_ izmax1
00447 #define zlacon_ zlacon
00448
00449
00450 #define c_bridge_dgssv_ c_bridge_dgssv
00451 #define c_fortran_sgssv_ c_fortran_sgssv
00452 #define c_fortran_dgssv_ c_fortran_dgssv
00453 #define c_fortran_cgssv_ c_fortran_cgssv
00454 #define c_fortran_zgssv_ c_fortran_zgssv
00455 #endif
00456
00457
00458 #endif