Merge branch 'psblas-bgmres' of https://github.com/sfilippone/psblas3 into psblas-bgmres

10 months ago · 5389ff245e
parent 77b1e03b39 5b95f1920c
commit 5389ff245e
2 changed files with 2791 additions and 3379 deletions
--- a/6168
+++ b/6168
--- a/cuda/impl/psb_d_cuda_hlg_vect_mv.F90
+++ b/cuda/impl/psb_d_cuda_hlg_vect_mv.F90
@ -165,7 +165,7 @@ subroutine psb_d_cuda_hlg_multivect_mv(alpha,a,x,beta,y,info,trans)
    else
      if (a%is_host()) call a%sync()    
      select type (xx => x) 
-      type is (psb_d_multivectcuda)
+      type is (psb_d_multivect_cuda)
        select type(yy => y) 
        type is (psb_d_multivect_cuda)
          if (xx%is_host()) call xx%sync()