psblas-3.3-maint:

base/modules/psb_c_comm_mod.f90
 base/modules/psb_d_comm_mod.f90
 base/modules/psb_s_comm_mod.f90
 base/modules/psb_z_comm_mod.f90

Fix interface.

base/modules/psb_c_comm_mod.f90

@@ -111,7 +111,7 @@ module psb_c_comm_mod
       integer(psb_ipk_), intent(out)             :: info
       integer(psb_ipk_), intent(in), optional    :: root
     end subroutine psb_cscatterv
-    subroutine  psb_cscatter_vect(globx, locx, desc_a, info, root)
+    subroutine  psb_cscatter_vect(globx, locx, desc_a, info, root, mold)
       use psb_desc_mod
       use psb_c_vect_mod
       type(psb_c_vect_type), intent(inout) :: locx
@@ -119,6 +119,7 @@ module psb_c_comm_mod
       type(psb_desc_type), intent(in)  :: desc_a
       integer(psb_ipk_), intent(out)             :: info
       integer(psb_ipk_), intent(in), optional    :: root
+      class(psb_c_base_vect_type), intent(in), optional :: mold  
     end subroutine psb_cscatter_vect
   end interface psb_scatter
 

base/modules/psb_d_comm_mod.f90

@@ -111,7 +111,7 @@ module psb_d_comm_mod
       integer(psb_ipk_), intent(out)             :: info
       integer(psb_ipk_), intent(in), optional    :: root
     end subroutine psb_dscatterv
-    subroutine  psb_dscatter_vect(globx, locx, desc_a, info, root)
+    subroutine  psb_dscatter_vect(globx, locx, desc_a, info, root, mold)
       use psb_desc_mod
       use psb_d_vect_mod
       type(psb_d_vect_type), intent(inout) :: locx
@@ -119,6 +119,7 @@ module psb_d_comm_mod
       type(psb_desc_type), intent(in)  :: desc_a
       integer(psb_ipk_), intent(out)             :: info
       integer(psb_ipk_), intent(in), optional    :: root
+      class(psb_d_base_vect_type), intent(in), optional :: mold  
     end subroutine psb_dscatter_vect
   end interface psb_scatter
 

base/modules/psb_s_comm_mod.f90

@@ -111,7 +111,7 @@ module psb_s_comm_mod
       integer(psb_ipk_), intent(out)             :: info
       integer(psb_ipk_), intent(in), optional    :: root
     end subroutine psb_sscatterv
-    subroutine  psb_sscatter_vect(globx, locx, desc_a, info, root)
+    subroutine  psb_sscatter_vect(globx, locx, desc_a, info, root, mold)
       use psb_desc_mod
       use psb_s_vect_mod
       type(psb_s_vect_type), intent(inout) :: locx
@@ -119,6 +119,7 @@ module psb_s_comm_mod
       type(psb_desc_type), intent(in)  :: desc_a
       integer(psb_ipk_), intent(out)             :: info
       integer(psb_ipk_), intent(in), optional    :: root
+      class(psb_s_base_vect_type), intent(in), optional :: mold  
     end subroutine psb_sscatter_vect
   end interface psb_scatter
 

base/modules/psb_z_comm_mod.f90

@@ -111,7 +111,7 @@ module psb_z_comm_mod
       integer(psb_ipk_), intent(out)             :: info
       integer(psb_ipk_), intent(in), optional    :: root
     end subroutine psb_zscatterv
-    subroutine  psb_zscatter_vect(globx, locx, desc_a, info, root)
+    subroutine  psb_zscatter_vect(globx, locx, desc_a, info, root, mold)
       use psb_desc_mod
       use psb_z_vect_mod
       type(psb_z_vect_type), intent(inout) :: locx
@@ -119,6 +119,7 @@ module psb_z_comm_mod
       type(psb_desc_type), intent(in)  :: desc_a
       integer(psb_ipk_), intent(out)             :: info
       integer(psb_ipk_), intent(in), optional    :: root
+      class(psb_z_base_vect_type), intent(in), optional :: mold  
     end subroutine psb_zscatter_vect
   end interface psb_scatter