mirror of https://gitlab.com/QEF/q-e.git
62 lines
1.8 KiB
C
62 lines
1.8 KiB
C
!
|
|
! Copyright (C) 2002-2006 Quantum ESPRESSO group
|
|
! This file is distributed under the terms of the
|
|
! GNU General Public License. See the file `License'
|
|
! in the root directory of the present distribution,
|
|
! or http://www.gnu.org/copyleft/gpl.txt .
|
|
!
|
|
# define DREAL @@_use_DBLE_instead@@
|
|
# define DIMAG @@_use_AIMAG_instead@@
|
|
# define DCMPLX @@_use_CMPLX_instead@@
|
|
# define DFLOAT @@_use_DBLE_instead@@
|
|
# define CMPLX(a,b) cmplx(a,b,kind=DP)
|
|
|
|
#if defined(ADD_BLAS_TWO_UNDERSCORES)
|
|
# define C_NAME(name) name ## __
|
|
#elif defined(ADD_BLAS_ONE_UNDERSCORE)
|
|
# define C_NAME(name) name ## _
|
|
#else
|
|
# define C_NAME(name) name
|
|
#endif
|
|
|
|
#define DAXPY C_NAME(daxpy)
|
|
#define DCOPY C_NAME(dcopy)
|
|
#define DDOT C_NAME(ddot)
|
|
#define DGETRF C_NAME(dgetrf)
|
|
#define DGETRI C_NAME(dgetri)
|
|
#define DGEMV C_NAME(dgemv)
|
|
#define DGEMM C_NAME(dgemm)
|
|
#define DGER C_NAME(dger)
|
|
#define DNRM2 C_NAME(dnrm2)
|
|
#define DPOTRF C_NAME(dpotrf)
|
|
#define DPOTRS C_NAME(dpotrs)
|
|
#define DSCAL C_NAME(dscal)
|
|
#define DSPEV C_NAME(dspev)
|
|
#define DSYTRF C_NAME(dsytrf)
|
|
#define DSYTRI C_NAME(dsytri)
|
|
#define DSYEV C_NAME(dsyev)
|
|
#define DSYGV C_NAME(dsygv)
|
|
#define DSYGVX C_NAME(dsygvx)
|
|
#define DSWAP C_NAME(dswap)
|
|
#define ILAENV C_NAME(ilaenv)
|
|
#define IDAMAX C_NAME(idamax)
|
|
#define IZAMAX C_NAME(izamax)
|
|
#define ZAXPY C_NAME(zaxpy)
|
|
#define ZCOPY C_NAME(zcopy)
|
|
#define ZDOTC C_NAME(zdotc)
|
|
#define ZDOTU C_NAME(zdotu)
|
|
#define ZGEMM C_NAME(zgemm)
|
|
#define ZGEMV C_NAME(zgemv)
|
|
#define ZGESV C_NAME(zgesv)
|
|
#define ZGESVD C_NAME(zgesvd)
|
|
#define ZGGEV C_NAME(zggev)
|
|
#define ZHEEV C_NAME(zheev)
|
|
#define ZHEEVX C_NAME(zheevx)
|
|
#define ZHEGV C_NAME(zhegv)
|
|
#define ZHEGVX C_NAME(zhegvx)
|
|
#define ZHPEV C_NAME(zhpev)
|
|
#define ZSCAL C_NAME(zscal)
|
|
#define ZSWAP C_NAME(zswap)
|
|
#define ZDSCAL C_NAME(zdscal)
|
|
|