- Main Page
- Data Structures
- Files

# SRC/slu_Cnames.h

Go to the documentation of this file.

    00001
    00019 #ifndef __SUPERLU_CNAMES /* allow multiple inclusions */
    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 /* Default */
    00051 #ifndef F77_CALL_C
    00052 #define F77_CALL_C  ADD_
    00053 #endif
    00054
    00055
    00056 #if (F77_CALL_C == ADD_)
    00057 /*
    00058  * These defines set up the naming scheme required to have a fortran 77
    00059  * routine call a C routine
    00060  * No redefinition necessary to have following Fortran to C interface:
    00061  *           FORTRAN CALL               C DECLARATION
    00062  *           call dgemm(...)           void dgemm_(...)
    00063  *
    00064  * This is the default.
    00065  */
    00066
    00067 #endif
    00068
    00069 #if (F77_CALL_C == ADD__)
    00070 /*
    00071  * These defines set up the naming scheme required to have a fortran 77
    00072  * routine call a C routine
    00073  * for following Fortran to C interface:
    00074  *           FORTRAN CALL               C DECLARATION
    00075  *           call dgemm(...)           void dgemm__(...)
    00076  */
    00077 /* BLAS */
    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 /* LAPACK */
    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 /* Fortran interface */
    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  * These defines set up the naming scheme required to have a fortran 77
    00170  * routine call a C routine
    00171  * following Fortran to C interface:
    00172  *           FORTRAN CALL               C DECLARATION
    00173  *           call dgemm(...)           void DGEMM(...)
    00174  */
    00175 /* BLAS */
    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 /* LAPACK */
    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 /* Fortran interface */
    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  * These defines set up the naming scheme required to have a fortran 77
    00267  * routine call a C routine
    00268  * following Fortran to C interface:
    00269  *           FORTRAN CALL               C DECLARATION
    00270  *           call dgemm(...)           void SGEMM(...)
    00271  */
    00272 /* BLAS */
    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 /* LAPACK */
    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 /* Fortran interface */
    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  * These defines set up the naming scheme required to have a fortran 77
    00364  * routine call a C routine
    00365  * for following Fortran to C interface:
    00366  *           FORTRAN CALL               C DECLARATION
    00367  *           call dgemm(...)           void dgemm(...)
    00368  */
    00369 /* BLAS */
    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 /* LAPACK */
    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 /* Fortran interface */
    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 /* __SUPERLU_CNAMES */