From 99771355e675a5e6729b520dae82cffeefef1338 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Mon, 29 Oct 2007 15:27:13 +0000 Subject: [PATCH] Taken out psb_cdrep, substitute with psb_cdall( repl=.true.) --- mlprec/mld_daggrmat_raw_asb.F90 | 4 ++-- mlprec/mld_daggrmat_smth_asb.F90 | 9 ++++----- mlprec/mld_zaggrmat_raw_asb.F90 | 4 ++-- mlprec/mld_zaggrmat_smth_asb.F90 | 9 ++++----- 4 files changed, 12 insertions(+), 14 deletions(-) diff --git a/mlprec/mld_daggrmat_raw_asb.F90 b/mlprec/mld_daggrmat_raw_asb.F90 index 37937508..737c26d8 100644 --- a/mlprec/mld_daggrmat_raw_asb.F90 +++ b/mlprec/mld_daggrmat_raw_asb.F90 @@ -122,9 +122,9 @@ subroutine mld_daggrmat_raw_asb(a,desc_a,ac,desc_ac,p,info) if (p%iprcparm(mld_coarse_mat_) == mld_repl_mat_) then - call psb_cdrep(ntaggr,ictxt,desc_ac,info) + call psb_cdall(ictxt,desc_ac,info,mg=ntaggr,repl=.true.) if(info /= 0) then - call psb_errpush(4010,name,a_err='psb_cdrep') + call psb_errpush(4010,name,a_err='psb_cdall') goto 9999 end if diff --git a/mlprec/mld_daggrmat_smth_asb.F90 b/mlprec/mld_daggrmat_smth_asb.F90 index cc491939..70cff750 100644 --- a/mlprec/mld_daggrmat_smth_asb.F90 +++ b/mlprec/mld_daggrmat_smth_asb.F90 @@ -553,9 +553,9 @@ subroutine mld_daggrmat_smth_asb(a,desc_a,ac,desc_ac,p,info) case(mld_repl_mat_) ! ! - call psb_cdrep(ntaggr,ictxt,desc_ac,info) + call psb_cdall(ictxt,desc_ac,info,mg=ntaggr,repl=.true.) if(info /= 0) then - call psb_errpush(4010,name,a_err='psb_cdrep') + call psb_errpush(4010,name,a_err='psb_cdall') goto 9999 end if @@ -635,10 +635,9 @@ subroutine mld_daggrmat_smth_asb(a,desc_a,ac,desc_ac,p,info) case(mld_repl_mat_) ! ! - - call psb_cdrep(ntaggr,ictxt,desc_ac,info) + call psb_cdall(ictxt,desc_ac,info,mg=ntaggr,repl=.true.) if(info /= 0) then - call psb_errpush(4010,name,a_err='psb_cdrep') + call psb_errpush(4010,name,a_err='psb_cdall') goto 9999 end if diff --git a/mlprec/mld_zaggrmat_raw_asb.F90 b/mlprec/mld_zaggrmat_raw_asb.F90 index b67b947e..26f74c90 100644 --- a/mlprec/mld_zaggrmat_raw_asb.F90 +++ b/mlprec/mld_zaggrmat_raw_asb.F90 @@ -123,9 +123,9 @@ subroutine mld_zaggrmat_raw_asb(a,desc_a,ac,desc_ac,p,info) if (p%iprcparm(mld_coarse_mat_) == mld_repl_mat_) then - call psb_cdrep(ntaggr,ictxt,desc_ac,info) + call psb_cdall(ictxt,desc_ac,info,mg=ntaggr,repl=.true.) if(info /= 0) then - call psb_errpush(4010,name,a_err='psb_cdrep') + call psb_errpush(4010,name,a_err='psb_cdall') goto 9999 end if diff --git a/mlprec/mld_zaggrmat_smth_asb.F90 b/mlprec/mld_zaggrmat_smth_asb.F90 index e95bd63b..7a410442 100644 --- a/mlprec/mld_zaggrmat_smth_asb.F90 +++ b/mlprec/mld_zaggrmat_smth_asb.F90 @@ -553,9 +553,9 @@ subroutine mld_zaggrmat_smth_asb(a,desc_a,ac,desc_ac,p,info) case(mld_repl_mat_) ! ! - call psb_cdrep(ntaggr,ictxt,desc_ac,info) + call psb_cdall(ictxt,desc_ac,info,mg=ntaggr,repl=.true.) if(info /= 0) then - call psb_errpush(4010,name,a_err='psb_cdrep') + call psb_errpush(4010,name,a_err='psb_cdall') goto 9999 end if @@ -635,10 +635,9 @@ subroutine mld_zaggrmat_smth_asb(a,desc_a,ac,desc_ac,p,info) case(mld_repl_mat_) ! ! - - call psb_cdrep(ntaggr,ictxt,desc_ac,info) + call psb_cdall(ictxt,desc_ac,info,mg=ntaggr,repl=.true.) if(info /= 0) then - call psb_errpush(4010,name,a_err='psb_cdrep') + call psb_errpush(4010,name,a_err='psb_cdall') goto 9999 end if