Fix usage of HAVE_CUDA/HAVE_GPU (mostly disappeared)

This commit is contained in:
sfilippone
2023-12-01 15:11:17 +01:00
parent e373ed7e0b
commit b2b7b074df
376 changed files with 26 additions and 3547 deletions
+1 -8
View File
@@ -28,18 +28,13 @@
! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
! POSSIBILITY OF SUCH DAMAGE.
!
subroutine psb_d_cuda_elg_from_gpu(a,info)
use psb_base_mod
#ifdef HAVE_SPGPU
use elldev_mod
use psb_vectordev_mod
use psb_d_cuda_elg_mat_mod, psb_protect_name => psb_d_cuda_elg_from_gpu
#else
use psb_d_cuda_elg_mat_mod
#endif
implicit none
class(psb_d_cuda_elg_sparse_mat), intent(inout) :: a
integer(psb_ipk_), intent(out) :: info
@@ -48,7 +43,6 @@ subroutine psb_d_cuda_elg_from_gpu(a,info)
info = 0
#ifdef HAVE_SPGPU
if (.not.(c_associated(a%deviceMat))) then
call a%free()
return
@@ -69,6 +63,5 @@ subroutine psb_d_cuda_elg_from_gpu(a,info)
if (info == 0) info = &
& readEllDevice(a%deviceMat,a%val,a%ja,pitch,a%irn,a%idiag)
call a%set_sync()
#endif
end subroutine psb_d_cuda_elg_from_gpu