From efccdc88cd34aced854b546ed5671964180d57c4 Mon Sep 17 00:00:00 2001 From: gabrielequatrana Date: Mon, 13 May 2024 14:34:13 +0200 Subject: [PATCH] Fixed another typo --- cuda/impl/psb_s_cuda_hlg_vect_mv.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/cuda/impl/psb_s_cuda_hlg_vect_mv.F90 b/cuda/impl/psb_s_cuda_hlg_vect_mv.F90 index c231dbff..b257cae5 100644 --- a/cuda/impl/psb_s_cuda_hlg_vect_mv.F90 +++ b/cuda/impl/psb_s_cuda_hlg_vect_mv.F90 @@ -160,7 +160,7 @@ subroutine psb_s_cuda_hlg_multivect_mv(alpha,a,x,beta,y,info,trans) if (.not.y%is_host()) call y%sync() end if if (a%is_dev()) call a%sync() - call a%psb_d_hll_sparse_mat%spmm(alpha,x,beta,y,info,trans) + call a%psb_s_hll_sparse_mat%spmm(alpha,x,beta,y,info,trans) call y%set_host() else if (a%is_host()) call a%sync()