Added psb_geabs, final output not working

base/modules/psblas/psb_c_psblas_mod.F90

@@ -479,5 +479,16 @@ module psb_c_psblas_mod
     end subroutine psb_cinv_vect_check
   end interface
 
+  interface psb_geabs
+    subroutine psb_cabs_vect(x,y,desc_a,info)
+      import :: psb_desc_type, psb_ipk_, &
+           & psb_c_vect_type
+      type(psb_c_vect_type), intent (inout) :: x
+      type(psb_c_vect_type), intent (inout) :: y
+      type(psb_desc_type), intent (in)      :: desc_a
+      integer(psb_ipk_), intent(out)        :: info
+    end subroutine psb_cabs_vect
+  end interface
+
 
 end module psb_c_psblas_mod

base/modules/psblas/psb_d_psblas_mod.F90

@@ -479,6 +479,17 @@ module psb_d_psblas_mod
     end subroutine psb_dinv_vect_check
   end interface
 
+  interface psb_geabs
+    subroutine psb_dabs_vect(x,y,desc_a,info)
+      import :: psb_desc_type, psb_ipk_, &
+           & psb_d_vect_type
+      type(psb_d_vect_type), intent (inout) :: x
+      type(psb_d_vect_type), intent (inout) :: y
+      type(psb_desc_type), intent (in)      :: desc_a
+      integer(psb_ipk_), intent(out)        :: info
+    end subroutine psb_dabs_vect
+  end interface
+
   interface psb_gecmp
     subroutine psb_dcmp_vect(x,c,z,desc_a,info)
       import :: psb_desc_type, psb_ipk_, &

base/modules/psblas/psb_s_psblas_mod.F90

@@ -479,6 +479,17 @@ module psb_s_psblas_mod
     end subroutine psb_sinv_vect_check
   end interface
 
+  interface psb_geabs
+    subroutine psb_sabs_vect(x,y,desc_a,info)
+      import :: psb_desc_type, psb_ipk_, &
+           & psb_s_vect_type
+      type(psb_s_vect_type), intent (inout) :: x
+      type(psb_s_vect_type), intent (inout) :: y
+      type(psb_desc_type), intent (in)      :: desc_a
+      integer(psb_ipk_), intent(out)        :: info
+    end subroutine psb_sabs_vect
+  end interface
+
   interface psb_gecmp
     subroutine psb_scmp_vect(x,c,z,desc_a,info)
       import :: psb_desc_type, psb_ipk_, &

base/modules/psblas/psb_z_psblas_mod.F90

@@ -479,5 +479,16 @@ module psb_z_psblas_mod
     end subroutine psb_zinv_vect_check
   end interface
 
+  interface psb_geabs
+    subroutine psb_zabs_vect(x,y,desc_a,info)
+      import :: psb_desc_type, psb_ipk_, &
+           & psb_z_vect_type
+      type(psb_z_vect_type), intent (inout) :: x
+      type(psb_z_vect_type), intent (inout) :: y
+      type(psb_desc_type), intent (in)      :: desc_a
+      integer(psb_ipk_), intent(out)        :: info
+    end subroutine psb_zabs_vect
+  end interface
+
 
 end module psb_z_psblas_mod

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()),cone,x,czero,info)
+      call y%axpby(min(x%get_nrows(),y%get_nrows()),czero,x,cone,info)
       call y%absval()
     end if
 

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()),done,x,dzero,info)
+      call y%axpby(min(x%get_nrows(),y%get_nrows()),dzero,x,done,info)
       call y%absval()
     end if
 

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()),sone,x,szero,info)
+      call y%axpby(min(x%get_nrows(),y%get_nrows()),szero,x,sone,info)
       call y%absval()
     end if
 

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()),zone,x,zzero,info)
+      call y%axpby(min(x%get_nrows(),y%get_nrows()),zzero,x,zone,info)
       call y%absval()
     end if