Enable psi_abgdxyz

base/modules/serial/psb_c_base_vect_mod.F90

@@ -1155,10 +1155,17 @@ contains
     complex(psb_spk_), intent (in)       :: alpha, beta, gamma, delta
     integer(psb_ipk_), intent(out)              :: info
 
+    if (.false.) then 
       if (x%is_dev()) call x%sync()
       
       call y%axpby(m,alpha,x,beta,info)
       call z%axpby(m,gamma,y,delta,info)
+    else
+      if (x%is_dev().and.(alpha/=czero))) call x%sync()
+      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)
+    end if
     
   end subroutine c_base_abgdxyz
 

base/modules/serial/psb_d_base_vect_mod.F90

@@ -1162,10 +1162,17 @@ contains
     real(psb_dpk_), intent (in)       :: alpha, beta, gamma, delta
     integer(psb_ipk_), intent(out)              :: info
 
+    if (.false.) then 
       if (x%is_dev()) call x%sync()
       
       call y%axpby(m,alpha,x,beta,info)
       call z%axpby(m,gamma,y,delta,info)
+    else
+      if (x%is_dev().and.(alpha/=dzero))) call x%sync()
+      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)
+    end if
     
   end subroutine d_base_abgdxyz
 

base/modules/serial/psb_s_base_vect_mod.F90

@@ -1162,10 +1162,17 @@ contains
     real(psb_spk_), intent (in)       :: alpha, beta, gamma, delta
     integer(psb_ipk_), intent(out)              :: info
 
+    if (.false.) then 
       if (x%is_dev()) call x%sync()
       
       call y%axpby(m,alpha,x,beta,info)
       call z%axpby(m,gamma,y,delta,info)
+    else
+      if (x%is_dev().and.(alpha/=szero))) call x%sync()
+      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)
+    end if
     
   end subroutine s_base_abgdxyz
 

base/modules/serial/psb_z_base_vect_mod.F90

@@ -1155,10 +1155,17 @@ contains
     complex(psb_dpk_), intent (in)       :: alpha, beta, gamma, delta
     integer(psb_ipk_), intent(out)              :: info
 
+    if (.false.) then 
       if (x%is_dev()) call x%sync()
       
       call y%axpby(m,alpha,x,beta,info)
       call z%axpby(m,gamma,y,delta,info)
+    else
+      if (x%is_dev().and.(alpha/=zzero))) call x%sync()
+      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)
+    end if
     
   end subroutine z_base_abgdxyz
 

base/serial/psi_c_serial_impl.F90

@@ -1773,7 +1773,7 @@ subroutine psi_cabgdxyz(m,alpha, beta, gamma,delta,x, y, z, info)
           end do
           
         else if (delta /= czero) then
-          !  a n b n g n d 0
+          !  a n b n g n d n
           !$omp parallel do private(i)
           do i=1,m
             y(i) = alpha*x(i)+beta*y(i)

base/serial/psi_d_serial_impl.F90

@@ -1773,7 +1773,7 @@ subroutine psi_dabgdxyz(m,alpha, beta, gamma,delta,x, y, z, info)
           end do
           
         else if (delta /= dzero) then
-          !  a n b n g n d 0
+          !  a n b n g n d n
           !$omp parallel do private(i)
           do i=1,m
             y(i) = alpha*x(i)+beta*y(i)

base/serial/psi_e_serial_impl.F90

@@ -1773,7 +1773,7 @@ subroutine psi_eabgdxyz(m,alpha, beta, gamma,delta,x, y, z, info)
           end do
           
         else if (delta /= ezero) then
-          !  a n b n g n d 0
+          !  a n b n g n d n
           !$omp parallel do private(i)
           do i=1,m
             y(i) = alpha*x(i)+beta*y(i)

base/serial/psi_i2_serial_impl.F90

@@ -1773,7 +1773,7 @@ subroutine psi_i2abgdxyz(m,alpha, beta, gamma,delta,x, y, z, info)
           end do
           
         else if (delta /= i2zero) then
-          !  a n b n g n d 0
+          !  a n b n g n d n
           !$omp parallel do private(i)
           do i=1,m
             y(i) = alpha*x(i)+beta*y(i)

base/serial/psi_m_serial_impl.F90

@@ -1773,7 +1773,7 @@ subroutine psi_mabgdxyz(m,alpha, beta, gamma,delta,x, y, z, info)
           end do
           
         else if (delta /= mzero) then
-          !  a n b n g n d 0
+          !  a n b n g n d n
           !$omp parallel do private(i)
           do i=1,m
             y(i) = alpha*x(i)+beta*y(i)

base/serial/psi_s_serial_impl.F90

@@ -1773,7 +1773,7 @@ subroutine psi_sabgdxyz(m,alpha, beta, gamma,delta,x, y, z, info)
           end do
           
         else if (delta /= szero) then
-          !  a n b n g n d 0
+          !  a n b n g n d n
           !$omp parallel do private(i)
           do i=1,m
             y(i) = alpha*x(i)+beta*y(i)

base/serial/psi_z_serial_impl.F90

@@ -1773,7 +1773,7 @@ subroutine psi_zabgdxyz(m,alpha, beta, gamma,delta,x, y, z, info)
           end do
           
         else if (delta /= zzero) then
-          !  a n b n g n d 0
+          !  a n b n g n d n
           !$omp parallel do private(i)
           do i=1,m
             y(i) = alpha*x(i)+beta*y(i)