Fix base implementation of abgdxyz to call set_host

base/modules/serial/psb_c_base_vect_mod.F90

@@ -1165,6 +1165,8 @@ contains
       if (y%is_dev().and.(beta/=czero))   call y%sync()
       if (z%is_dev().and.(delta/=czero))  call z%sync()
       call psi_cabgdxyz(m,alpha, beta, gamma,delta,x%v, y%v, z%v, info)
+      call y%set_host()
+      call z%set_host()
     end if
     
   end subroutine c_base_abgdxyz

base/modules/serial/psb_d_base_vect_mod.F90

@@ -1172,6 +1172,8 @@ contains
       if (y%is_dev().and.(beta/=dzero))   call y%sync()
       if (z%is_dev().and.(delta/=dzero))  call z%sync()
       call psi_dabgdxyz(m,alpha, beta, gamma,delta,x%v, y%v, z%v, info)
+      call y%set_host()
+      call z%set_host()
     end if
     
   end subroutine d_base_abgdxyz

base/modules/serial/psb_s_base_vect_mod.F90

@@ -1172,6 +1172,8 @@ contains
       if (y%is_dev().and.(beta/=szero))   call y%sync()
       if (z%is_dev().and.(delta/=szero))  call z%sync()
       call psi_sabgdxyz(m,alpha, beta, gamma,delta,x%v, y%v, z%v, info)
+      call y%set_host()
+      call z%set_host()
     end if
     
   end subroutine s_base_abgdxyz

base/modules/serial/psb_z_base_vect_mod.F90

@@ -1165,6 +1165,8 @@ contains
       if (y%is_dev().and.(beta/=zzero))   call y%sync()
       if (z%is_dev().and.(delta/=zzero))  call z%sync()
       call psi_zabgdxyz(m,alpha, beta, gamma,delta,x%v, y%v, z%v, info)
+      call y%set_host()
+      call z%set_host()
     end if
     
   end subroutine z_base_abgdxyz