fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-06 14:44:55 +00:00
Code Issues Packages Projects Releases Wiki Activity

Changes for IPK8==LPK8

Browse Source
This commit is contained in:
Salvatore Filippone
2020-02-05 14:42:22 +00:00
parent 41731b2acb
commit 8fbaa83f10
4 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/impl/solver/mld_c_mumps_solver_apply.F90
+1 -1
View File
@@ -136,7 +136,7 @@ subroutine c_mumps_solver_apply(alpha,sv,x,beta,y,desc_data,&
if (sv%ipar(1) == mld_local_solver_ ) then
call psb_geaxpby(alpha,gx,beta,y,desc_data,info)
else
call psb_scatter(gx, ww, desc_data, info, root=0)
call psb_scatter(gx, ww, desc_data, info, root=izero)
if (info == psb_success_) then
call psb_geaxpby(alpha,ww,beta,y,desc_data,info)
end if
mlprec/impl/solver/mld_d_mumps_solver_apply.F90
+1 -1
View File
@@ -136,7 +136,7 @@ subroutine d_mumps_solver_apply(alpha,sv,x,beta,y,desc_data,&
if (sv%ipar(1) == mld_local_solver_ ) then
call psb_geaxpby(alpha,gx,beta,y,desc_data,info)
else
call psb_scatter(gx, ww, desc_data, info, root=0)
call psb_scatter(gx, ww, desc_data, info, root=izero)
if (info == psb_success_) then
call psb_geaxpby(alpha,ww,beta,y,desc_data,info)
end if
mlprec/impl/solver/mld_s_mumps_solver_apply.F90
+1 -1
View File
@@ -136,7 +136,7 @@ subroutine s_mumps_solver_apply(alpha,sv,x,beta,y,desc_data,&
if (sv%ipar(1) == mld_local_solver_ ) then
call psb_geaxpby(alpha,gx,beta,y,desc_data,info)
else
call psb_scatter(gx, ww, desc_data, info, root=0)
call psb_scatter(gx, ww, desc_data, info, root=izero)
if (info == psb_success_) then
call psb_geaxpby(alpha,ww,beta,y,desc_data,info)
end if
mlprec/impl/solver/mld_z_mumps_solver_apply.F90
+1 -1
View File
@@ -136,7 +136,7 @@ subroutine z_mumps_solver_apply(alpha,sv,x,beta,y,desc_data,&
if (sv%ipar(1) == mld_local_solver_ ) then
call psb_geaxpby(alpha,gx,beta,y,desc_data,info)
else
call psb_scatter(gx, ww, desc_data, info, root=0)
call psb_scatter(gx, ww, desc_data, info, root=izero)
if (info == psb_success_) then
call psb_geaxpby(alpha,ww,beta,y,desc_data,info)
end if