Fix typo in base_vect_mod

base/modules/serial/psb_c_base_vect_mod.F90

@@ -1161,7 +1161,7 @@ contains
       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 (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)

base/modules/serial/psb_d_base_vect_mod.F90

@@ -1168,7 +1168,7 @@ contains
       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 (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)

base/modules/serial/psb_s_base_vect_mod.F90

@@ -1168,7 +1168,7 @@ contains
       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 (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)

base/modules/serial/psb_z_base_vect_mod.F90

@@ -1161,7 +1161,7 @@ contains
       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 (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)