From f86cad2a4f10ce811b524838a6053a8ef330e013 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 4 Dec 2015 17:36:46 +0000 Subject: [PATCH] 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 | 3 ++- base/modules/psb_d_comm_mod.f90 | 3 ++- base/modules/psb_s_comm_mod.f90 | 3 ++- base/modules/psb_z_comm_mod.f90 | 3 ++- 4 files changed, 8 insertions(+), 4 deletions(-) diff --git a/base/modules/psb_c_comm_mod.f90 b/base/modules/psb_c_comm_mod.f90 index 2b23dd89..713dedce 100644 --- a/base/modules/psb_c_comm_mod.f90 +++ b/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 diff --git a/base/modules/psb_d_comm_mod.f90 b/base/modules/psb_d_comm_mod.f90 index ebf5e9d9..e99345bd 100644 --- a/base/modules/psb_d_comm_mod.f90 +++ b/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 diff --git a/base/modules/psb_s_comm_mod.f90 b/base/modules/psb_s_comm_mod.f90 index dc1d7f36..15bb7bdc 100644 --- a/base/modules/psb_s_comm_mod.f90 +++ b/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 diff --git a/base/modules/psb_z_comm_mod.f90 b/base/modules/psb_z_comm_mod.f90 index adaf62ff..e0c8b797 100644 --- a/base/modules/psb_z_comm_mod.f90 +++ b/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