fdurastante
/
amg4psblas
mirror of https://github.com/sfilippone/amg4psblas.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix name of %linmap component

Browse Source
configry
Salvatore Filippone 4 years ago
parent b53e0dd8b5
commit 1541da5fbf
4 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File

4
amgprec/impl/amg_c_extprol_bld.F90
Unescape Escape 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 (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 newsz=i-1
end if end if
call psb_bcast(ctxt,newsz) call psb_bcast(ctxt,newsz)
@ -518,7 +518,7 @@ contains
! op_prol => PR i.e. prolongation operator ! 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) & p%desc_ac,op_restr,op_prol,ilaggr,nlaggr)
if(info /= psb_success_) then if(info /= psb_success_) then
call psb_errpush(psb_err_from_subroutine_,name,a_err='sp_Free') call psb_errpush(psb_err_from_subroutine_,name,a_err='sp_Free')

4
amgprec/impl/amg_d_extprol_bld.F90
Unescape Escape 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 (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 newsz=i-1
end if end if
call psb_bcast(ctxt,newsz) call psb_bcast(ctxt,newsz)
@ -518,7 +518,7 @@ contains
! op_prol => PR i.e. prolongation operator ! 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) & p%desc_ac,op_restr,op_prol,ilaggr,nlaggr)
if(info /= psb_success_) then if(info /= psb_success_) then
call psb_errpush(psb_err_from_subroutine_,name,a_err='sp_Free') call psb_errpush(psb_err_from_subroutine_,name,a_err='sp_Free')

4
amgprec/impl/amg_s_extprol_bld.F90
Unescape Escape 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 (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 newsz=i-1
end if end if
call psb_bcast(ctxt,newsz) call psb_bcast(ctxt,newsz)
@ -518,7 +518,7 @@ contains
! op_prol => PR i.e. prolongation operator ! 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) & p%desc_ac,op_restr,op_prol,ilaggr,nlaggr)
if(info /= psb_success_) then if(info /= psb_success_) then
call psb_errpush(psb_err_from_subroutine_,name,a_err='sp_Free') call psb_errpush(psb_err_from_subroutine_,name,a_err='sp_Free')

4
amgprec/impl/amg_z_extprol_bld.F90
Unescape Escape 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 (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 newsz=i-1
end if end if
call psb_bcast(ctxt,newsz) call psb_bcast(ctxt,newsz)
@ -518,7 +518,7 @@ contains
! op_prol => PR i.e. prolongation operator ! 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) & p%desc_ac,op_restr,op_prol,ilaggr,nlaggr)
if(info /= psb_success_) then if(info /= psb_success_) then
call psb_errpush(psb_err_from_subroutine_,name,a_err='sp_Free') call psb_errpush(psb_err_from_subroutine_,name,a_err='sp_Free')

Write Preview
Loading…
Cancel
Save