/*! @file slu_Cnames.h

 * \brief Macros defining how C routines will be called

 *

 * 

 * -- SuperLU routine (version 2.0) --

 * Univ. of California Berkeley, Xerox Palo Alto Research Center,

 * and Lawrence Berkeley National Lab.

 * November 1, 1997

 *

 * These macros define how C routines will be called.  ADD_ assumes that

 * they will be called by fortran, which expects C routines to have an

 * underscore postfixed to the name (Suns, and the Intel expect this).

 * NOCHANGE indicates that fortran will be calling, and that it expects

 * the name called by fortran to be identical to that compiled by the C

 * (RS6K's do this).  UPCASE says it expects C routines called by fortran

 * to be in all upcase (CRAY wants this). 

 * 

 */

#ifndef __SUPERLU_CNAMES /* allow multiple inclusions */

#define __SUPERLU_CNAMES

#define ADD_       0

#define ADD__      1

#define NOCHANGE   2

#define UPCASE     3

#define OLD_CRAY   4

#define C_CALL     5

#ifdef UpCase

#define F77_CALL_C  UPCASE

#endif

#ifdef NoChange

#define F77_CALL_C  NOCHANGE

#endif

#ifdef Add_

#define F77_CALL_C  ADD_

#endif

#ifdef Add__

#define F77_CALL_C  ADD__

#endif

#ifdef _CRAY

#define F77_CALL_C  OLD_CRAY

#endif

/* Default */

#ifndef F77_CALL_C

#define F77_CALL_C  ADD_

#endif

#if (F77_CALL_C == ADD_)

/*

 * These defines set up the naming scheme required to have a fortran 77

 * routine call a C routine

 * No redefinition necessary to have following Fortran to C interface:

 *           FORTRAN CALL               C DECLARATION

 *           call dgemm(...)           void dgemm_(...)

 *

 * This is the default.

 */

#endif

#if (F77_CALL_C == ADD__)

/*

 * These defines set up the naming scheme required to have a fortran 77

 * routine call a C routine 

 * for following Fortran to C interface:

 *           FORTRAN CALL               C DECLARATION

 *           call dgemm(...)           void dgemm__(...)

 */

/* BLAS */

#define sswap_    sswap__

#define saxpy_    saxpy__

#define sasum_    sasum__

#define isamax_   isamax__

#define scopy_    scopy__

#define sscal_    sscal__

#define sger_     sger__

#define snrm2_    snrm2__

#define ssymv_    ssymv__

#define sdot_     sdot__

#define saxpy_    saxpy__

#define ssyr2_    ssyr2__

#define srot_     srot__

#define sgemv_    sgemv__

#define strsv_    strsv__

#define sgemm_    sgemm__

#define strsm_    strsm__

#define dswap_    dswap__

#define daxpy_    daxpy__

#define dasum_    dasum__

#define idamax_   idamax__

#define dcopy_    dcopy__

#define dscal_    dscal__

#define dger_     dger__

#define dnrm2_    dnrm2__

#define dsymv_    dsymv__

#define ddot_     ddot__

#define dsyr2_    dsyr2__

#define drot_     drot__

#define dgemv_    dgemv__

#define dtrsv_    dtrsv__

#define dgemm_    dgemm__

#define dtrsm_    dtrsm__

#define cswap_    cswap__

#define caxpy_    caxpy__

#define scasum_   scasum__

#define icamax_   icamax__

#define ccopy_    ccopy__

#define cscal_    cscal__

#define scnrm2_   scnrm2__

#define caxpy_    caxpy__

#define cgemv_    cgemv__

#define ctrsv_    ctrsv__

#define cgemm_    cgemm__

#define ctrsm_    ctrsm__

#define cgerc_    cgerc__

#define chemv_    chemv__

#define cher2_    cher2__

#define zswap_    zswap__

#define zaxpy_    zaxpy__

#define dzasum_   dzasum__

#define izamax_   izamax__

#define zcopy_    zcopy__

#define zscal_    zscal__

#define dznrm2_   dznrm2__

#define zaxpy_    zaxpy__

#define zgemv_    zgemv__

#define ztrsv_    ztrsv__

#define zgemm_    zgemm__

#define ztrsm_    ztrsm__

#define zgerc_    zgerc__

#define zhemv_    zhemv__

#define zher2_    zher2__

/* LAPACK */

#define dlamch_   dlamch__

#define slamch_   slamch__

#define xerbla_   xerbla__

#define lsame_    lsame__

#define dlacon_   dlacon__

#define slacon_   slacon__

#define icmax1_   icmax1__

#define scsum1_   scsum1__

#define clacon_   clacon__

#define dzsum1_   dzsum1__

#define izmax1_   izmax1__

#define zlacon_   zlacon__

/* Fortran interface */

#define c_bridge_dgssv_ c_bridge_dgssv__

#define c_fortran_sgssv_ c_fortran_sgssv__

#define c_fortran_dgssv_ c_fortran_dgssv__

#define c_fortran_cgssv_ c_fortran_cgssv__

#define c_fortran_zgssv_ c_fortran_zgssv__

#endif

#if (F77_CALL_C == UPCASE)

/*

 * These defines set up the naming scheme required to have a fortran 77

 * routine call a C routine 

 * following Fortran to C interface:

 *           FORTRAN CALL               C DECLARATION

 *           call dgemm(...)           void DGEMM(...)

 */

/* BLAS */

#define sswap_    SSWAP

#define saxpy_    SAXPY

#define sasum_    SASUM

#define isamax_   ISAMAX

#define scopy_    SCOPY

#define sscal_    SSCAL

#define sger_     SGER

#define snrm2_    SNRM2

#define ssymv_    SSYMV

#define sdot_     SDOT

#define saxpy_    SAXPY

#define ssyr2_    SSYR2

#define srot_     SROT

#define sgemv_    SGEMV

#define strsv_    STRSV

#define sgemm_    SGEMM

#define strsm_    STRSM

#define dswap_    DSWAP

#define daxpy_    DAXPY

#define dasum_    DASUM

#define idamax_   IDAMAX

#define dcopy_    DCOPY

#define dscal_    DSCAL

#define dger_     DGER

#define dnrm2_    DNRM2

#define dsymv_    DSYMV

#define ddot_     DDOT

#define dsyr2_    DSYR2

#define drot_     DROT

#define dgemv_    DGEMV

#define dtrsv_    DTRSV

#define dgemm_    DGEMM

#define dtrsm_    DTRSM

#define cswap_    CSWAP

#define caxpy_    CAXPY

#define scasum_   SCASUM

#define icamax_   ICAMAX

#define ccopy_    CCOPY

#define cscal_    CSCAL

#define scnrm2_   SCNRM2

#define cgemv_    CGEMV

#define ctrsv_    CTRSV

#define cgemm_    CGEMM

#define ctrsm_    CTRSM

#define cgerc_    CGERC

#define chemv_    CHEMV

#define cher2_    CHER2

#define zswap_    ZSWAP

#define zaxpy_    ZAXPY

#define dzasum_   DZASUM

#define izamax_   IZAMAX

#define zcopy_    ZCOPY

#define zscal_    ZSCAL

#define dznrm2_   DZNRM2

#define zgemv_    ZGEMV

#define ztrsv_    ZTRSV

#define zgemm_    ZGEMM

#define ztrsm_    ZTRSM

#define zgerc_    ZGERC

#define zhemv_    ZHEMV

#define zher2_    ZHER2

/* LAPACK */

#define dlamch_   DLAMCH

#define slamch_   SLAMCH

#define xerbla_   XERBLA

#define lsame_    LSAME

#define dlacon_   DLACON

#define slacon_   SLACON

#define icmax1_   ICMAX1

#define scsum1_   SCSUM1

#define clacon_   CLACON

#define dzsum1_   DZSUM1

#define izmax1_   IZMAX1

#define zlacon_   ZLACON

/* Fortran interface */

#define c_bridge_dgssv_ C_BRIDGE_DGSSV

#define c_fortran_sgssv_ C_FORTRAN_SGSSV

#define c_fortran_dgssv_ C_FORTRAN_DGSSV

#define c_fortran_cgssv_ C_FORTRAN_CGSSV

#define c_fortran_zgssv_ C_FORTRAN_ZGSSV

#endif

#if (F77_CALL_C == OLD_CRAY)

/*

 * These defines set up the naming scheme required to have a fortran 77

 * routine call a C routine 

 * following Fortran to C interface:

 *           FORTRAN CALL               C DECLARATION

 *           call dgemm(...)           void SGEMM(...)

 */

/* BLAS */

#define sswap_    SSWAP

#define saxpy_    SAXPY

#define sasum_    SASUM

#define isamax_   ISAMAX

#define scopy_    SCOPY

#define sscal_    SSCAL

#define sger_     SGER

#define snrm2_    SNRM2

#define ssymv_    SSYMV

#define sdot_     SDOT

#define ssyr2_    SSYR2

#define srot_     SROT

#define sgemv_    SGEMV

#define strsv_    STRSV

#define sgemm_    SGEMM

#define strsm_    STRSM

#define dswap_    SSWAP

#define daxpy_    SAXPY

#define dasum_    SASUM

#define idamax_   ISAMAX

#define dcopy_    SCOPY

#define dscal_    SSCAL

#define dger_     SGER

#define dnrm2_    SNRM2

#define dsymv_    SSYMV

#define ddot_     SDOT

#define dsyr2_    SSYR2

#define drot_     SROT

#define dgemv_    SGEMV

#define dtrsv_    STRSV

#define dgemm_    SGEMM

#define dtrsm_    STRSM

#define cswap_    CSWAP

#define caxpy_    CAXPY

#define scasum_   SCASUM

#define icamax_   ICAMAX

#define ccopy_    CCOPY

#define cscal_    CSCAL

#define scnrm2_   SCNRM2

#define caxpy_    CAXPY

#define cgemv_    CGEMV

#define ctrsv_    CTRSV

#define cgemm_    CGEMM

#define ctrsm_    CTRSM

#define cgerc_    CGERC

#define chemv_    CHEMV

#define cher2_    CHER2

#define zswap_    ZSWAP

#define zaxpy_    ZAXPY

#define dzasum_   DZASUM

#define izamax_   IZAMAX

#define zcopy_    ZCOPY

#define zscal_    ZSCAL

#define dznrm2_   DZNRM2

#define zgemv_    ZGEMV

#define ztrsv_    ZTRSV

#define zgemm_    ZGEMM

#define ztrsm_    ZTRSM

#define zgerc_    ZGERC

#define zhemv_    ZHEMV

#define zher2_    ZHER2

/* LAPACK */

#define dlamch_   DLAMCH

#define slamch_   SLAMCH

#define xerbla_   XERBLA

#define lsame_    LSAME

#define dlacon_   DLACON

#define slacon_   SLACON

#define icmax1_   ICMAX1

#define scsum1_   SCSUM1

#define clacon_   CLACON

#define dzsum1_   DZSUM1

#define izmax1_   IZMAX1

#define zlacon_   ZLACON

/* Fortran interface */

#define c_bridge_dgssv_ C_BRIDGE_DGSSV

#define c_fortran_sgssv_ C_FORTRAN_SGSSV

#define c_fortran_dgssv_ C_FORTRAN_DGSSV

#define c_fortran_cgssv_ C_FORTRAN_CGSSV

#define c_fortran_zgssv_ C_FORTRAN_ZGSSV

#endif

#if (F77_CALL_C == NOCHANGE)

/*

 * These defines set up the naming scheme required to have a fortran 77

 * routine call a C routine 

 * for following Fortran to C interface:

 *           FORTRAN CALL               C DECLARATION

 *           call dgemm(...)           void dgemm(...)

 */

/* BLAS */

#define sswap_    sswap

#define saxpy_    saxpy

#define sasum_    sasum

#define isamax_   isamax

#define scopy_    scopy

#define sscal_    sscal

#define sger_     sger

#define snrm2_    snrm2

#define ssymv_    ssymv

#define sdot_     sdot

#define saxpy_    saxpy

#define ssyr2_    ssyr2

#define srot_     srot

#define sgemv_    sgemv

#define strsv_    strsv

#define sgemm_    sgemm

#define strsm_    strsm

#define dswap_    dswap

#define daxpy_    daxpy

#define dasum_    dasum

#define idamax_   idamax

#define dcopy_    dcopy

#define dscal_    dscal

#define dger_     dger

#define dnrm2_    dnrm2

#define dsymv_    dsymv

#define ddot_     ddot

#define dsyr2_    dsyr2

#define drot_     drot

#define dgemv_    dgemv

#define dtrsv_    dtrsv

#define dgemm_    dgemm

#define dtrsm_    dtrsm

#define cswap_    cswap

#define caxpy_    caxpy

#define scasum_   scasum

#define icamax_   icamax

#define ccopy_    ccopy

#define cscal_    cscal

#define scnrm2_   scnrm2

#define cgemv_    cgemv

#define ctrsv_    ctrsv

#define cgemm_    cgemm

#define ctrsm_    ctrsm

#define cgerc_    cgerc

#define chemv_    chemv

#define cher2_    cher2

#define zswap_    zswap

#define zaxpy_    zaxpy

#define dzasum_   dzasum

#define izamax_   izamax

#define zcopy_    zcopy

#define zscal_    zscal

#define dznrm2_   dznrm2

#define zgemv_    zgemv

#define ztrsv_    ztrsv

#define zgemm_    zgemm

#define ztrsm_    ztrsm

#define zgerc_    zgerc

#define zhemv_    zhemv

#define zher2_    zher2

/* LAPACK */

#define dlamch_   dlamch

#define slamch_   slamch

#define xerbla_   xerbla

#define lsame_    lsame

#define dlacon_   dlacon

#define slacon_   slacon

#define icmax1_   icmax1

#define scsum1_   scsum1

#define clacon_   clacon

#define dzsum1_   dzsum1

#define izmax1_   izmax1

#define zlacon_   zlacon

/* Fortran interface */

#define c_bridge_dgssv_ c_bridge_dgssv

#define c_fortran_sgssv_ c_fortran_sgssv

#define c_fortran_dgssv_ c_fortran_dgssv

#define c_fortran_cgssv_ c_fortran_cgssv

#define c_fortran_zgssv_ c_fortran_zgssv

#endif

#endif /* __SUPERLU_CNAMES */