Added vector/scalar comparison routine

base/modules/psblas/psb_c_psblas_mod.F90

@@ -479,4 +479,5 @@ module psb_c_psblas_mod
     end subroutine psb_cinv_vect_check
   end interface
 
+
 end module psb_c_psblas_mod

base/modules/psblas/psb_d_psblas_mod.F90

@@ -479,4 +479,16 @@ module psb_d_psblas_mod
     end subroutine psb_dinv_vect_check
   end interface
 
+  interface psb_gecmp
+    subroutine psb_dcmp_vect(x,c,z,desc_a,info)
+      import :: psb_desc_type, psb_ipk_, &
+           & psb_d_vect_type, psb_dpk_
+      type(psb_d_vect_type), intent (inout) :: x
+      type(psb_d_vect_type), intent (inout) :: z
+      real(psb_dpk_), intent(in)             :: c
+      type(psb_desc_type), intent (in)        :: desc_a
+      integer(psb_ipk_), intent(out)          :: info
+    end subroutine psb_dcmp_vect
+  end interface
+
 end module psb_d_psblas_mod

base/modules/psblas/psb_s_psblas_mod.F90

@@ -479,4 +479,16 @@ module psb_s_psblas_mod
     end subroutine psb_sinv_vect_check
   end interface
 
+  interface psb_gecmp
+    subroutine psb_scmp_vect(x,c,z,desc_a,info)
+      import :: psb_desc_type, psb_ipk_, &
+           & psb_s_vect_type, psb_spk_
+      type(psb_s_vect_type), intent (inout) :: x
+      type(psb_s_vect_type), intent (inout) :: z
+      real(psb_spk_), intent(in)             :: c
+      type(psb_desc_type), intent (in)        :: desc_a
+      integer(psb_ipk_), intent(out)          :: info
+    end subroutine psb_scmp_vect
+  end interface
+
 end module psb_s_psblas_mod

base/modules/psblas/psb_z_psblas_mod.F90

@@ -479,4 +479,5 @@ module psb_z_psblas_mod
     end subroutine psb_zinv_vect_check
   end interface
 
+
 end module psb_z_psblas_mod