diff --git a/base/modules/serial/psb_c_base_vect_mod.f90 b/base/modules/serial/psb_c_base_vect_mod.f90
index 8339022b..0eca0832 100644
--- a/base/modules/serial/psb_c_base_vect_mod.f90
+++ b/base/modules/serial/psb_c_base_vect_mod.f90
@@ -2770,7 +2770,7 @@ contains
 
     if (x%is_dev()) call x%sync()
     if (allocated(x%v)) then
-      call y%axpby(min(x%get_nrows(),y%get_nrows()),czero,x,cone,info)
+      call y%axpby(min(x%get_nrows(),y%get_nrows()),cone,x,czero,info)
       call y%absval()
     end if
 
diff --git a/base/modules/serial/psb_d_base_vect_mod.f90 b/base/modules/serial/psb_d_base_vect_mod.f90
index b8f17c61..dc0c56aa 100644
--- a/base/modules/serial/psb_d_base_vect_mod.f90
+++ b/base/modules/serial/psb_d_base_vect_mod.f90
@@ -2828,7 +2828,7 @@ contains
 
     if (x%is_dev()) call x%sync()
     if (allocated(x%v)) then
-      call y%axpby(min(x%get_nrows(),y%get_nrows()),dzero,x,done,info)
+      call y%axpby(min(x%get_nrows(),y%get_nrows()),done,x,dzero,info)
       call y%absval()
     end if
 
diff --git a/base/modules/serial/psb_s_base_vect_mod.f90 b/base/modules/serial/psb_s_base_vect_mod.f90
index b26fda8b..450fdd29 100644
--- a/base/modules/serial/psb_s_base_vect_mod.f90
+++ b/base/modules/serial/psb_s_base_vect_mod.f90
@@ -2828,7 +2828,7 @@ contains
 
     if (x%is_dev()) call x%sync()
     if (allocated(x%v)) then
-      call y%axpby(min(x%get_nrows(),y%get_nrows()),szero,x,sone,info)
+      call y%axpby(min(x%get_nrows(),y%get_nrows()),sone,x,szero,info)
       call y%absval()
     end if
 
diff --git a/base/modules/serial/psb_z_base_vect_mod.f90 b/base/modules/serial/psb_z_base_vect_mod.f90
index 4b052cec..808d9d4f 100644
--- a/base/modules/serial/psb_z_base_vect_mod.f90
+++ b/base/modules/serial/psb_z_base_vect_mod.f90
@@ -2770,7 +2770,7 @@ contains
 
     if (x%is_dev()) call x%sync()
     if (allocated(x%v)) then
-      call y%axpby(min(x%get_nrows(),y%get_nrows()),zzero,x,zone,info)
+      call y%axpby(min(x%get_nrows(),y%get_nrows()),zone,x,zzero,info)
       call y%absval()
     end if
 
diff --git a/base/psblas/psb_cabs_vect.f90 b/base/psblas/psb_cabs_vect.f90
index 592ca72a..46e74635 100644
--- a/base/psblas/psb_cabs_vect.f90
+++ b/base/psblas/psb_cabs_vect.f90
@@ -92,7 +92,7 @@ subroutine psb_cabs_vect(x,y,desc_a,info)
   end if
 
   if(desc_a%get_local_rows() > 0) then
-    call y%absval(x)
+    call x%absval(y)
   end if
 
   call psb_erractionrestore(err_act)
diff --git a/base/psblas/psb_dabs_vect.f90 b/base/psblas/psb_dabs_vect.f90
index b48f3613..78f2b75c 100644
--- a/base/psblas/psb_dabs_vect.f90
+++ b/base/psblas/psb_dabs_vect.f90
@@ -92,7 +92,7 @@ subroutine psb_dabs_vect(x,y,desc_a,info)
   end if
 
   if(desc_a%get_local_rows() > 0) then
-    call y%absval(x)
+    call x%absval(y)
   end if
 
   call psb_erractionrestore(err_act)
diff --git a/base/psblas/psb_sabs_vect.f90 b/base/psblas/psb_sabs_vect.f90
index e92ba159..1d4897a9 100644
--- a/base/psblas/psb_sabs_vect.f90
+++ b/base/psblas/psb_sabs_vect.f90
@@ -92,7 +92,7 @@ subroutine psb_sabs_vect(x,y,desc_a,info)
   end if
 
   if(desc_a%get_local_rows() > 0) then
-    call y%absval(x)
+    call x%absval(y)
   end if
 
   call psb_erractionrestore(err_act)
diff --git a/base/psblas/psb_zabs_vect.f90 b/base/psblas/psb_zabs_vect.f90
index 85f8e897..86ac6bfb 100644
--- a/base/psblas/psb_zabs_vect.f90
+++ b/base/psblas/psb_zabs_vect.f90
@@ -92,7 +92,7 @@ subroutine psb_zabs_vect(x,y,desc_a,info)
   end if
 
   if(desc_a%get_local_rows() > 0) then
-    call y%absval(x)
+    call x%absval(y)
   end if
 
   call psb_erractionrestore(err_act)
diff --git a/test/kernel/vecoperation.f90 b/test/kernel/vecoperation.f90
index 29634efd..d8fb234a 100644
--- a/test/kernel/vecoperation.f90
+++ b/test/kernel/vecoperation.f90
@@ -214,7 +214,6 @@ program vecoperation
   call psb_geabs(x,absz,desc_a,info)
 
   if (iam == psb_root_) then
-    write(psb_out_unit,'("info = ",I1)')info
     vz = absz%get_vect()
     write(psb_out_unit,'("|x| = ",es12.1)')vz(:)
   end if