mirror of
https://github.com/sfilippone/psblas3.git
synced 2026-10-21 05:12:13 +00:00
Fix usage of HAVE_CUDA/HAVE_GPU (mostly disappeared)
This commit is contained in:
@@ -33,12 +33,8 @@
|
||||
subroutine psb_c_cuda_csrg_to_gpu(a,info,nzrm)
|
||||
|
||||
use psb_base_mod
|
||||
#ifdef HAVE_SPGPU
|
||||
use cusparse_mod
|
||||
use psb_c_cuda_csrg_mat_mod, psb_protect_name => psb_c_cuda_csrg_to_gpu
|
||||
#else
|
||||
use psb_c_cuda_csrg_mat_mod
|
||||
#endif
|
||||
implicit none
|
||||
class(psb_c_cuda_csrg_sparse_mat), intent(inout) :: a
|
||||
integer(psb_ipk_), intent(out) :: info
|
||||
@@ -51,7 +47,6 @@ subroutine psb_c_cuda_csrg_to_gpu(a,info,nzrm)
|
||||
|
||||
info = 0
|
||||
|
||||
#ifdef HAVE_SPGPU
|
||||
if ((.not.allocated(a%val)).or.(.not.allocated(a%ja))) return
|
||||
|
||||
m = a%get_nrows()
|
||||
@@ -320,6 +315,5 @@ subroutine psb_c_cuda_csrg_to_gpu(a,info,nzrm)
|
||||
if (info /= 0) then
|
||||
write(0,*) 'Error in CSRG_TO_GPU ',info
|
||||
end if
|
||||
#endif
|
||||
|
||||
end subroutine psb_c_cuda_csrg_to_gpu
|
||||
|
||||
Reference in New Issue
Block a user