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

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

Browse Source
This commit is contained in:
Salvatore Filippone
2007-10-29 15:27:13 +00:00
parent 93c55b837b
commit 99771355e6
4 changed files with 12 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/mld_daggrmat_raw_asb.F90
+2 -2
View File
@@ -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
+4 -5
View File
@@ -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
mlprec/mld_zaggrmat_raw_asb.F90
+2 -2
View File
@@ -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
+4 -5
View File
@@ -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