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

psblas3:

Browse Source 
base/comm/psb_cscatter.F90
 base/comm/psb_dscatter.F90
 base/comm/psb_iscatter.F90
 base/comm/psb_sscatter.F90
 base/comm/psb_zscatter.F90

Reworking scatter.
This commit is contained in:
Salvatore Filippone
2015-12-07 17:17:07 +00:00
parent 6e4023d68f
commit 926830cab0
5 changed files with 10 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/comm/psb_cscatter.F90
+2 -1
View File
@@ -536,8 +536,9 @@ subroutine psb_cscatter_vect(globx, locx, desc_a, info, iroot, mold)
call psb_errpush(info,name)
goto 9999
endif
call psb_geall(vlocx,desc_a,info)
call psb_scatter(globx, vlocx, desc_a, info, iroot)
if (info == psb_success_) call psb_scatter(globx, vlocx, desc_a, info, iroot)
if (info /= psb_success_) then
info = psb_err_from_subroutine_
call psb_errpush(info,name,a_err='psb_scatterv')
base/comm/psb_dscatter.F90
+2 -1
View File
@@ -536,8 +536,9 @@ subroutine psb_dscatter_vect(globx, locx, desc_a, info, iroot, mold)
call psb_errpush(info,name)
goto 9999
endif
call psb_geall(vlocx,desc_a,info)
call psb_scatter(globx, vlocx, desc_a, info, iroot)
if (info == psb_success_) call psb_scatter(globx, vlocx, desc_a, info, iroot)
if (info /= psb_success_) then
info = psb_err_from_subroutine_
call psb_errpush(info,name,a_err='psb_scatterv')
base/comm/psb_iscatter.F90
+2 -1
View File
@@ -536,8 +536,9 @@ subroutine psb_iscatter_vect(globx, locx, desc_a, info, iroot, mold)
call psb_errpush(info,name)
goto 9999
endif
call psb_geall(vlocx,desc_a,info)
call psb_scatter(globx, vlocx, desc_a, info, iroot)
if (info == psb_success_) call psb_scatter(globx, vlocx, desc_a, info, iroot)
if (info /= psb_success_) then
info = psb_err_from_subroutine_
call psb_errpush(info,name,a_err='psb_scatterv')
base/comm/psb_sscatter.F90
+2 -1
View File
@@ -536,8 +536,9 @@ subroutine psb_sscatter_vect(globx, locx, desc_a, info, iroot, mold)
call psb_errpush(info,name)
goto 9999
endif
call psb_geall(vlocx,desc_a,info)
call psb_scatter(globx, vlocx, desc_a, info, iroot)
if (info == psb_success_) call psb_scatter(globx, vlocx, desc_a, info, iroot)
if (info /= psb_success_) then
info = psb_err_from_subroutine_
call psb_errpush(info,name,a_err='psb_scatterv')
base/comm/psb_zscatter.F90
+2 -1
View File
@@ -536,8 +536,9 @@ subroutine psb_zscatter_vect(globx, locx, desc_a, info, iroot, mold)
call psb_errpush(info,name)
goto 9999
endif
call psb_geall(vlocx,desc_a,info)
call psb_scatter(globx, vlocx, desc_a, info, iroot)
if (info == psb_success_) call psb_scatter(globx, vlocx, desc_a, info, iroot)
if (info /= psb_success_) then
info = psb_err_from_subroutine_
call psb_errpush(info,name,a_err='psb_scatterv')