mirror of https://gitlab.com/QEF/q-e.git
46 lines
1.2 KiB
Fortran
46 lines
1.2 KiB
Fortran
|
|
! these four routines fix a bug of the Accelerate.framework implementation
|
|
! of BLAS on Mac OS X . Copied from:
|
|
! http://developer.apple.com/hardware/ve/errata.html#fortran_conventions
|
|
! by Stefano Baroni, December 10, 2005
|
|
|
|
double complex function zdotc(n, zx, incx, zy, incy)
|
|
double complex zx(*), zy(*), z
|
|
integer n, incx, incy
|
|
|
|
call cblas_zdotc_sub(%val(n), zx, %val(incx), zy, %val(incy), z)
|
|
|
|
zdotc = z
|
|
return
|
|
end
|
|
|
|
double complex function zdotu(n, zx, incx, zy, incy)
|
|
double complex zx(*), zy(*), z
|
|
integer n, incx, incy
|
|
|
|
call cblas_zdotu_sub(%val(n), zx, %val(incx), zy, %val(incy), z)
|
|
|
|
zdotu = z
|
|
return
|
|
end
|
|
|
|
complex function cdotc(n, cx, incx, cy, incy)
|
|
complex cx(*), cy(*), c
|
|
integer n, incx, incy
|
|
|
|
call cblas_cdotc_sub(%val(n), cx, %val(incx), cy, %val(incy), c)
|
|
|
|
cdotc = c
|
|
return
|
|
end
|
|
|
|
complex function cdotu(n, cx, incx, cy, incy)
|
|
complex cx(*), cy(*), c
|
|
integer n, incx, incy
|
|
|
|
call cblas_cdotu_sub(%val(n), cx, %val(incx), cy, %val(incy), c)
|
|
|
|
cdotu = c
|
|
return
|
|
end
|