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 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 /* Default */
00046 #ifndef F77_CALL_C
00047 #define F77_CALL_C ADD_
00048 #endif
00049 
00050 
00051 #if (F77_CALL_C == ADD_)
00052 /*
00053  * These defines set up the naming scheme required to have a fortran 77
00054  * routine call a C routine
00055  * No redefinition necessary to have following Fortran to C interface:
00056  *           FORTRAN CALL               C DECLARATION
00057  *           call dgemm(...)           void dgemm_(...)
00058  *
00059  * This is the default.
00060  */
00061 
00062 #endif
00063 
00064 #if (F77_CALL_C == ADD__)
00065 /*
00066  * These defines set up the naming scheme required to have a fortran 77
00067  * routine call a C routine 
00068  * for following Fortran to C interface:
00069  *           FORTRAN CALL               C DECLARATION
00070  *           call dgemm(...)           void dgemm__(...)
00071  */
00072 /* BLAS */
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 /* LAPACK */
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 /* Fortran interface */
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  * These defines set up the naming scheme required to have a fortran 77
00158  * routine call a C routine 
00159  * following Fortran to C interface:
00160  *           FORTRAN CALL               C DECLARATION
00161  *           call dgemm(...)           void DGEMM(...)
00162  */
00163 /* BLAS */
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 /* LAPACK */
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 /* Fortran interface */
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  * These defines set up the naming scheme required to have a fortran 77
00249  * routine call a C routine 
00250  * for following Fortran to C interface:
00251  *           FORTRAN CALL               C DECLARATION
00252  *           call dgemm(...)           void dgemm(...)
00253  */
00254 /* BLAS */
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 /* LAPACK */
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 /* Fortran interface */
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 /* __SUPERLU_CNAMES */

Generated on Fri Aug 1 22:40:39 2008 for SuperLU by  doxygen 1.4.6