fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-18 11:52:11 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
base/comm/psb_cgather.f90
 base/comm/psb_dgather.f90
 base/comm/psb_sgather.f90
 base/comm/psb_zgather.f90
 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

Fixed use of %get_vect in gather; had to change intent of locx.
This commit is contained in:
Salvatore Filippone
2011-12-15 08:47:26 +00:00
parent cff029ab66
commit edeb859033
8 changed files with 18 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/comm/psb_cgather.f90
+3 -3
View File
@@ -333,7 +333,7 @@ subroutine psb_cgather_vect(globx, locx, desc_a, info, iroot)
use psb_base_mod, psb_protect_name => psb_cgather_vect
implicit none
type(psb_c_vect_type), intent(in) :: locx
type(psb_c_vect_type), intent(inout) :: locx
complex(psb_spk_), intent(out) :: globx(:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
@@ -406,8 +406,8 @@ subroutine psb_cgather_vect(globx, locx, desc_a, info, iroot)
goto 9999
end if
globx(:)=czero
llocx = locx
globx(:) = czero
llocx = locx%get_vect()
do i=1,desc_a%get_local_rows()
call psb_loc_to_glob(i,idx,desc_a,info)
base/comm/psb_dgather.f90
+4 -3
View File
@@ -332,7 +332,7 @@ subroutine psb_dgather_vect(globx, locx, desc_a, info, iroot)
use psb_base_mod, psb_protect_name => psb_dgather_vect
implicit none
type(psb_d_vect_type), intent(in) :: locx
type(psb_d_vect_type), intent(inout) :: locx
real(psb_dpk_), intent(out) :: globx(:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
@@ -405,8 +405,9 @@ subroutine psb_dgather_vect(globx, locx, desc_a, info, iroot)
goto 9999
end if
globx(:)=dzero
llocx = locx
globx(:) = dzero
llocx = locx%get_vect()
do i=1,desc_a%get_local_rows()
call psb_loc_to_glob(i,idx,desc_a,info)
base/comm/psb_sgather.f90
+4 -3
View File
@@ -332,7 +332,7 @@ subroutine psb_sgather_vect(globx, locx, desc_a, info, iroot)
use psb_base_mod, psb_protect_name => psb_sgather_vect
implicit none
type(psb_s_vect_type), intent(in) :: locx
type(psb_s_vect_type), intent(inout) :: locx
real(psb_spk_), intent(out) :: globx(:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
@@ -405,8 +405,9 @@ subroutine psb_sgather_vect(globx, locx, desc_a, info, iroot)
goto 9999
end if
globx(:)=szero
llocx = locx
globx(:) = szero
llocx = locx%get_vect()
do i=1,desc_a%get_local_rows()
call psb_loc_to_glob(i,idx,desc_a,info)
base/comm/psb_zgather.f90
+3 -3
View File
@@ -333,7 +333,7 @@ subroutine psb_zgather_vect(globx, locx, desc_a, info, iroot)
use psb_base_mod, psb_protect_name => psb_zgather_vect
implicit none
type(psb_z_vect_type), intent(in) :: locx
type(psb_z_vect_type), intent(inout) :: locx
complex(psb_dpk_), intent(out) :: globx(:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
@@ -406,8 +406,8 @@ subroutine psb_zgather_vect(globx, locx, desc_a, info, iroot)
goto 9999
end if
globx(:)=zzero
llocx = locx
globx(:) = zzero
llocx = locx%get_vect()
do i=1,desc_a%get_local_rows()
call psb_loc_to_glob(i,idx,desc_a,info)
base/modules/psb_c_comm_mod.f90
+1 -1
View File
@@ -144,7 +144,7 @@ module psb_c_comm_mod
subroutine psb_cgather_vect(globx, locx, desc_a, info, root)
use psb_descriptor_type
use psb_c_vect_mod
type(psb_c_vect_type), intent(in) :: locx
type(psb_c_vect_type), intent(inout) :: locx
complex(psb_spk_), intent(out) :: globx(:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
base/modules/psb_d_comm_mod.f90
+1 -1
View File
@@ -144,7 +144,7 @@ module psb_d_comm_mod
subroutine psb_dgather_vect(globx, locx, desc_a, info, root)
use psb_descriptor_type
use psb_d_vect_mod
type(psb_d_vect_type), intent(in) :: locx
type(psb_d_vect_type), intent(inout) :: locx
real(psb_dpk_), intent(out) :: globx(:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
base/modules/psb_s_comm_mod.f90
+1 -1
View File
@@ -144,7 +144,7 @@ module psb_s_comm_mod
subroutine psb_sgather_vect(globx, locx, desc_a, info, root)
use psb_descriptor_type
use psb_s_vect_mod
type(psb_s_vect_type), intent(in) :: locx
type(psb_s_vect_type), intent(inout) :: locx
real(psb_spk_), intent(out) :: globx(:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
base/modules/psb_z_comm_mod.f90
+1 -1
View File
@@ -144,7 +144,7 @@ module psb_z_comm_mod
subroutine psb_zgather_vect(globx, locx, desc_a, info, root)
use psb_descriptor_type
use psb_z_vect_mod
type(psb_z_vect_type), intent(in) :: locx
type(psb_z_vect_type), intent(inout) :: locx
complex(psb_dpk_), intent(out) :: globx(:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info