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

mld2p4-2:

Browse Source 
mlprec/impl/mld_d_extprol_bld.f90

Fixes in  EXTPROL_BLD; seems to be working.
This commit is contained in:
Salvatore Filippone
2016-07-12 13:09:23 +00:00
parent e200fbdb47
commit ec0b8eb2e2
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/impl/mld_d_extprol_bld.f90
+2
View File
@@ -305,6 +305,8 @@ subroutine mld_d_extprol_bld(a,desc_a,p,prolv,restrv,info,amold,vmold,imold)
call mld_d_extaggr_bld(p%precv(i-1)%base_a,&
& p%precv(i-1)%base_desc,p%precv(i),restrv(i-1),prolv(i-1),info)
p%precv(i)%base_a => p%precv(i)%ac
p%precv(i)%base_desc => p%precv(i)%desc_ac
if (i>2) then