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

Fix name of %linmap component

Browse Source
This commit is contained in:
Salvatore Filippone
2021-04-23 09:00:33 +02:00
parent b53e0dd8b5
commit 1541da5fbf
4 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
amgprec/impl/amg_c_extprol_bld.F90
+2 -2
View File
@@ -311,7 +311,7 @@ subroutine amg_c_extprol_bld(a,desc_a,p,prolv,restrv,info,amold,vmold,imold)
if (i>2) then
if (all(p%precv(i)%map%naggr == p%precv(i-1)%map%naggr)) then
if (all(p%precv(i)%linmap%naggr == p%precv(i-1)%linmap%naggr)) then
newsz=i-1
end if
call psb_bcast(ctxt,newsz)
@@ -518,7 +518,7 @@ contains
! op_prol => PR i.e. prolongation operator
!
p%map = psb_linmap(psb_map_aggr_,desc_a,&
p%linmap = psb_linmap(psb_map_aggr_,desc_a,&
& p%desc_ac,op_restr,op_prol,ilaggr,nlaggr)
if(info /= psb_success_) then
call psb_errpush(psb_err_from_subroutine_,name,a_err='sp_Free')
amgprec/impl/amg_d_extprol_bld.F90
+2 -2
View File
@@ -311,7 +311,7 @@ subroutine amg_d_extprol_bld(a,desc_a,p,prolv,restrv,info,amold,vmold,imold)
if (i>2) then
if (all(p%precv(i)%map%naggr == p%precv(i-1)%map%naggr)) then
if (all(p%precv(i)%linmap%naggr == p%precv(i-1)%linmap%naggr)) then
newsz=i-1
end if
call psb_bcast(ctxt,newsz)
@@ -518,7 +518,7 @@ contains
! op_prol => PR i.e. prolongation operator
!
p%map = psb_linmap(psb_map_aggr_,desc_a,&
p%linmap = psb_linmap(psb_map_aggr_,desc_a,&
& p%desc_ac,op_restr,op_prol,ilaggr,nlaggr)
if(info /= psb_success_) then
call psb_errpush(psb_err_from_subroutine_,name,a_err='sp_Free')
amgprec/impl/amg_s_extprol_bld.F90
+2 -2
View File
@@ -311,7 +311,7 @@ subroutine amg_s_extprol_bld(a,desc_a,p,prolv,restrv,info,amold,vmold,imold)
if (i>2) then
if (all(p%precv(i)%map%naggr == p%precv(i-1)%map%naggr)) then
if (all(p%precv(i)%linmap%naggr == p%precv(i-1)%linmap%naggr)) then
newsz=i-1
end if
call psb_bcast(ctxt,newsz)
@@ -518,7 +518,7 @@ contains
! op_prol => PR i.e. prolongation operator
!
p%map = psb_linmap(psb_map_aggr_,desc_a,&
p%linmap = psb_linmap(psb_map_aggr_,desc_a,&
& p%desc_ac,op_restr,op_prol,ilaggr,nlaggr)
if(info /= psb_success_) then
call psb_errpush(psb_err_from_subroutine_,name,a_err='sp_Free')
amgprec/impl/amg_z_extprol_bld.F90
+2 -2
View File
@@ -311,7 +311,7 @@ subroutine amg_z_extprol_bld(a,desc_a,p,prolv,restrv,info,amold,vmold,imold)
if (i>2) then
if (all(p%precv(i)%map%naggr == p%precv(i-1)%map%naggr)) then
if (all(p%precv(i)%linmap%naggr == p%precv(i-1)%linmap%naggr)) then
newsz=i-1
end if
call psb_bcast(ctxt,newsz)
@@ -518,7 +518,7 @@ contains
! op_prol => PR i.e. prolongation operator
!
p%map = psb_linmap(psb_map_aggr_,desc_a,&
p%linmap = psb_linmap(psb_map_aggr_,desc_a,&
& p%desc_ac,op_restr,op_prol,ilaggr,nlaggr)
if(info /= psb_success_) then
call psb_errpush(psb_err_from_subroutine_,name,a_err='sp_Free')