Added psb_gescal subroutine to entrywise scale distributed vector with C interface

base/modules/psblas/psb_c_psblas_mod.F90

@@ -564,6 +564,17 @@ module psb_c_psblas_mod
       integer(psb_ipk_), intent(out)          :: info
     end subroutine psb_caddconst_vect
   end interface
+  interface psb_gescal
+    subroutine psb_cscal_vect(x,c,z,desc_a,info)
+      import :: psb_desc_type, psb_ipk_, &
+           & psb_c_vect_type, psb_spk_
+      type(psb_c_vect_type), intent (inout) :: x
+      type(psb_c_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_cscal_vect
+  end interface
 
 
 end module psb_c_psblas_mod

base/modules/psblas/psb_d_psblas_mod.F90

@@ -575,6 +575,17 @@ module psb_d_psblas_mod
       integer(psb_ipk_), intent(out)          :: info
     end subroutine psb_daddconst_vect
   end interface
+  interface psb_gescal
+    subroutine psb_dscal_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_dscal_vect
+  end interface
 
   interface psb_mask
     subroutine psb_dmask_vect(c,x,m,t,desc_a,info)

base/modules/psblas/psb_s_psblas_mod.F90

@@ -575,6 +575,17 @@ module psb_s_psblas_mod
       integer(psb_ipk_), intent(out)          :: info
     end subroutine psb_saddconst_vect
   end interface
+  interface psb_gescal
+    subroutine psb_sscal_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_sscal_vect
+  end interface
 
   interface psb_mask
     subroutine psb_smask_vect(c,x,m,t,desc_a,info)

base/modules/psblas/psb_z_psblas_mod.F90

@@ -564,6 +564,17 @@ module psb_z_psblas_mod
       integer(psb_ipk_), intent(out)          :: info
     end subroutine psb_zaddconst_vect
   end interface
+  interface psb_gescal
+    subroutine psb_zscal_vect(x,c,z,desc_a,info)
+      import :: psb_desc_type, psb_ipk_, &
+           & psb_z_vect_type, psb_dpk_
+      type(psb_z_vect_type), intent (inout) :: x
+      type(psb_z_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_zscal_vect
+  end interface
 
 
 end module psb_z_psblas_mod