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 sswap_ sswap__
00074 #define saxpy_ saxpy__
00075 #define sasum_ sasum__
00076 #define isamax_ isamax__
00077 #define scopy_ scopy__
00078 #define sscal_ sscal__
00079 #define sger_ sger__
00080 #define snrm2_ snrm2__
00081 #define ssymv_ ssymv__
00082 #define sdot_ sdot__
00083 #define saxpy_ saxpy__
00084 #define ssyr2_ ssyr2__
00085 #define srot_ srot__
00086 #define sgemv_ sgemv__
00087 #define strsv_ strsv__
00088 #define sgemm_ sgemm__
00089 #define strsm_ strsm__
00090
00091 #define dswap_ dswap__
00092 #define daxpy_ daxpy__
00093 #define dasum_ dasum__
00094 #define idamax_ idamax__
00095 #define dcopy_ dcopy__
00096 #define dscal_ dscal__
00097 #define dger_ dger__
00098 #define dnrm2_ dnrm2__
00099 #define dsymv_ dsymv__
00100 #define ddot_ ddot__
00101 #define daxpy_ daxpy__
00102 #define dsyr2_ dsyr2__
00103 #define drot_ drot__
00104 #define dgemv_ dgemv__
00105 #define dtrsv_ dtrsv__
00106 #define dgemm_ dgemm__
00107 #define dtrsm_ dtrsm__
00108
00109 #define cswap_ cswap__
00110 #define caxpy_ caxpy__
00111 #define scasum_ scasum__
00112 #define icamax_ icamax__
00113 #define ccopy_ ccopy__
00114 #define cscal_ cscal__
00115 #define scnrm2_ scnrm2__
00116 #define caxpy_ caxpy__
00117 #define cgemv_ cgemv__
00118 #define ctrsv_ ctrsv__
00119 #define cgemm_ cgemm__
00120 #define ctrsm_ ctrsm__
00121 #define cgerc_ cgerc__
00122 #define chemv_ chemv__
00123 #define cher2_ cher2__
00124
00125 #define zswap_ zswap__
00126 #define zaxpy_ zaxpy__
00127 #define dzasum_ dzasum__
00128 #define izamax_ izamax__
00129 #define zcopy_ zcopy__
00130 #define zscal_ zscal__
00131 #define dznrm2_ dznrm2__
00132 #define zaxpy_ zaxpy__
00133 #define zgemv_ zgemv__
00134 #define ztrsv_ ztrsv__
00135 #define zgemm_ zgemm__
00136 #define ztrsm_ ztrsm__
00137 #define zgerc_ zgerc__
00138 #define zhemv_ zhemv__
00139 #define zher2_ zher2__
00140
00141
00142 #define dlamch_ dlamch__
00143 #define slamch_ slamch__
00144 #define xerbla_ xerbla__
00145 #define lsame_ lsame__
00146 #define dlacon_ dlacon__
00147 #define slacon_ slacon__
00148 #define icmax1_ icmax1__
00149 #define scsum1_ scsum1__
00150 #define clacon_ clacon__
00151 #define dzsum1_ dzsum1__
00152 #define izmax1_ izmax1__
00153 #define zlacon_ zlacon__
00154
00155
00156 #define c_bridge_dgssv_ c_bridge_dgssv__
00157 #define c_fortran_sgssv_ c_fortran_sgssv__
00158 #define c_fortran_dgssv_ c_fortran_dgssv__
00159 #define c_fortran_cgssv_ c_fortran_cgssv__
00160 #define c_fortran_zgssv_ c_fortran_zgssv__
00161 #endif
00162
00163 #if (F77_CALL_C == UPCASE)
00164
00165
00166
00167
00168
00169
00170
00171
00172 #define sswap_ SSWAP
00173 #define saxpy_ SAXPY
00174 #define sasum_ SASUM
00175 #define isamax_ ISAMAX
00176 #define scopy_ SCOPY
00177 #define sscal_ SSCAL
00178 #define sger_ SGER
00179 #define snrm2_ SNRM2
00180 #define ssymv_ SSYMV
00181 #define sdot_ SDOT
00182 #define saxpy_ SAXPY
00183 #define ssyr2_ SSYR2
00184 #define srot_ SROT
00185 #define sgemv_ SGEMV
00186 #define strsv_ STRSV
00187 #define sgemm_ SGEMM
00188 #define strsm_ STRSM
00189
00190 #define dswap_ DSWAP
00191 #define daxpy_ DAXPY
00192 #define dasum_ SASUM
00193 #define idamax_ ISAMAX
00194 #define dcopy_ SCOPY
00195 #define dscal_ SSCAL
00196 #define dger_ SGER
00197 #define dnrm2_ SNRM2
00198 #define dsymv_ SSYMV
00199 #define ddot_ SDOT
00200 #define daxpy_ SAXPY
00201 #define dsyr2_ SSYR2
00202 #define drot_ SROT
00203 #define dgemv_ SGEMV
00204 #define dtrsv_ STRSV
00205 #define dgemm_ SGEMM
00206 #define dtrsm_ STRSM
00207
00208 #define cswap_ CSWAP
00209 #define caxpy_ CAXPY
00210 #define scasum_ SCASUM
00211 #define icamax_ ICAMAX
00212 #define ccopy_ CCOPY
00213 #define cscal_ CSCAL
00214 #define scnrm2_ SCNRM2
00215 #define caxpy_ CAXPY
00216 #define cgemv_ CGEMV
00217 #define ctrsv_ CTRSV
00218 #define cgemm_ CGEMM
00219 #define ctrsm_ CTRSM
00220 #define cgerc_ CGERC
00221 #define chemv_ CHEMV
00222 #define cher2_ CHER2
00223
00224 #define zswap_ ZSWAP
00225 #define zaxpy_ ZAXPY
00226 #define dzasum_ DZASUM
00227 #define izamax_ IZAMAX
00228 #define zcopy_ ZCOPY
00229 #define zscal_ ZSCAL
00230 #define dznrm2_ DZNRM2
00231 #define zaxpy_ ZAXPY
00232 #define zgemv_ ZGEMV
00233 #define ztrsv_ ZTRSV
00234 #define zgemm_ ZGEMM
00235 #define ztrsm_ ZTRSM
00236 #define zgerc_ ZGERC
00237 #define zhemv_ ZHEMV
00238 #define zher2_ ZHER2
00239
00240
00241 #define dlamch_ DLAMCH
00242 #define slamch_ SLAMCH
00243 #define xerbla_ XERBLA
00244 #define lsame_ LSAME
00245 #define dlacon_ DLACON
00246 #define slacon_ SLACON
00247 #define icmax1_ ICMAX1
00248 #define scsum1_ SCSUM1
00249 #define clacon_ CLACON
00250 #define dzsum1_ DZSUM1
00251 #define izmax1_ IZMAX1
00252 #define zlacon_ ZLACON
00253
00254
00255 #define c_bridge_dgssv_ C_BRIDGE_DGSSV
00256 #define c_fortran_sgssv_ C_FORTRAN_SGSSV
00257 #define c_fortran_dgssv_ C_FORTRAN_DGSSV
00258 #define c_fortran_cgssv_ C_FORTRAN_CGSSV
00259 #define c_fortran_zgssv_ C_FORTRAN_ZGSSV
00260 #endif
00261
00262 #if (F77_CALL_C == NOCHANGE)
00263
00264
00265
00266
00267
00268
00269
00270
00271 #define sswap_ sswap
00272 #define saxpy_ saxpy
00273 #define sasum_ sasum
00274 #define isamax_ isamax
00275 #define scopy_ scopy
00276 #define sscal_ sscal
00277 #define sger_ sger
00278 #define snrm2_ snrm2
00279 #define ssymv_ ssymv
00280 #define sdot_ sdot
00281 #define saxpy_ saxpy
00282 #define ssyr2_ ssyr2
00283 #define srot_ srot
00284 #define sgemv_ sgemv
00285 #define strsv_ strsv
00286 #define sgemm_ sgemm
00287 #define strsm_ strsm
00288
00289 #define dswap_ dswap
00290 #define daxpy_ daxpy
00291 #define dasum_ dasum
00292 #define idamax_ idamax
00293 #define dcopy_ dcopy
00294 #define dscal_ dscal
00295 #define dger_ dger
00296 #define dnrm2_ dnrm2
00297 #define dsymv_ dsymv
00298 #define ddot_ ddot
00299 #define daxpy_ daxpy
00300 #define dsyr2_ dsyr2
00301 #define drot_ drot
00302 #define dgemv_ dgemv
00303 #define dtrsv_ dtrsv
00304 #define dgemm_ dgemm
00305 #define dtrsm_ dtrsm
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 zaxpy_ zaxpy
00331 #define zgemv_ zgemv
00332 #define ztrsv_ ztrsv
00333 #define zgemm_ zgemm
00334 #define ztrsm_ ztrsm
00335 #define zgerc_ zgerc
00336 #define zhemv_ zhemv
00337 #define zher2_ zher2
00338
00339
00340 #define dlamch_ dlamch
00341 #define slamch_ slamch
00342 #define xerbla_ xerbla
00343 #define lsame_ lsame
00344 #define dlacon_ dlacon
00345 #define slacon_ slacon
00346 #define icmax1_ icmax1
00347 #define scsum1_ scsum1
00348 #define clacon_ clacon
00349 #define dzsum1_ dzsum1
00350 #define izmax1_ izmax1
00351 #define zlacon_ zlacon
00352
00353
00354 #define c_bridge_dgssv_ c_bridge_dgssv
00355 #define c_fortran_sgssv_ c_fortran_sgssv
00356 #define c_fortran_dgssv_ c_fortran_dgssv
00357 #define c_fortran_cgssv_ c_fortran_cgssv
00358 #define c_fortran_zgssv_ c_fortran_zgssv
00359 #endif
00360
00361 #endif