Taken out psb_cdrep, substitute with psb_cdall( repl=.true.)

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
 

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_cdall(ictxt,desc_ac,info,mg=ntaggr,repl=.true.)
-      call psb_cdrep(ntaggr,ictxt,desc_ac,info)
       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
 

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
 

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_cdall(ictxt,desc_ac,info,mg=ntaggr,repl=.true.)
-      call psb_cdrep(ntaggr,ictxt,desc_ac,info)
       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