From 1541da5fbf6035755da8e2010a98fc36ce13c77a Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 23 Apr 2021 09:00:33 +0200 Subject: [PATCH] Fix name of %linmap component --- amgprec/impl/amg_c_extprol_bld.F90 | 4 ++-- amgprec/impl/amg_d_extprol_bld.F90 | 4 ++-- amgprec/impl/amg_s_extprol_bld.F90 | 4 ++-- amgprec/impl/amg_z_extprol_bld.F90 | 4 ++-- 4 files changed, 8 insertions(+), 8 deletions(-) diff --git a/amgprec/impl/amg_c_extprol_bld.F90 b/amgprec/impl/amg_c_extprol_bld.F90 index 6867dad9..f8f3ca77 100644 --- a/amgprec/impl/amg_c_extprol_bld.F90 +++ b/amgprec/impl/amg_c_extprol_bld.F90 @@ -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') diff --git a/amgprec/impl/amg_d_extprol_bld.F90 b/amgprec/impl/amg_d_extprol_bld.F90 index 34a0b344..4d0e2980 100644 --- a/amgprec/impl/amg_d_extprol_bld.F90 +++ b/amgprec/impl/amg_d_extprol_bld.F90 @@ -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') diff --git a/amgprec/impl/amg_s_extprol_bld.F90 b/amgprec/impl/amg_s_extprol_bld.F90 index 809d4c4d..ad9ddffc 100644 --- a/amgprec/impl/amg_s_extprol_bld.F90 +++ b/amgprec/impl/amg_s_extprol_bld.F90 @@ -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') diff --git a/amgprec/impl/amg_z_extprol_bld.F90 b/amgprec/impl/amg_z_extprol_bld.F90 index 865dbcab..fa2fe1f6 100644 --- a/amgprec/impl/amg_z_extprol_bld.F90 +++ b/amgprec/impl/amg_z_extprol_bld.F90 @@ -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')