mirror of
https://github.com/sfilippone/psblas3.git
synced 2026-10-24 14:51:49 +00:00
Fix usage of HAVE_CUDA/HAVE_GPU (mostly disappeared)
This commit is contained in:
@@ -41,8 +41,6 @@ module diagdev_mod
|
||||
integer(c_int) :: firstIndex
|
||||
end type diagdev_parms
|
||||
|
||||
#ifdef HAVE_SPGPU
|
||||
|
||||
interface
|
||||
function FgetDiagDeviceParams(rows, columns, elementType, firstIndex) &
|
||||
& result(res) bind(c,name='getDiagDeviceParams')
|
||||
@@ -65,7 +63,6 @@ module diagdev_mod
|
||||
end function FallocDiagDevice
|
||||
end interface
|
||||
|
||||
|
||||
interface writeDiagDevice
|
||||
|
||||
function writeDiagDeviceFloat(deviceMat,a,off,n) &
|
||||
@@ -174,7 +171,6 @@ module diagdev_mod
|
||||
end function getDiagTimer
|
||||
end interface
|
||||
|
||||
|
||||
interface
|
||||
function getDiagDevicePitch(deviceMat) &
|
||||
& bind(c,name='getDiagDevicePitch') result(res)
|
||||
@@ -225,7 +221,4 @@ module diagdev_mod
|
||||
end function spmvDiagDeviceDoubleComplex
|
||||
end interface spmvDiagDevice
|
||||
|
||||
#endif
|
||||
|
||||
|
||||
end module diagdev_mod
|
||||
|
||||
Reference in New Issue
Block a user