From ec0b8eb2e2dc7152c846ac1f93e226361a0e9286 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 12 Jul 2016 13:09:23 +0000 Subject: [PATCH] mld2p4-2: mlprec/impl/mld_d_extprol_bld.f90 Fixes in EXTPROL_BLD; seems to be working. --- mlprec/impl/mld_d_extprol_bld.f90 | 2 ++ 1 file changed, 2 insertions(+) diff --git a/mlprec/impl/mld_d_extprol_bld.f90 b/mlprec/impl/mld_d_extprol_bld.f90 index f36a6444..3449981f 100644 --- a/mlprec/impl/mld_d_extprol_bld.f90 +++ b/mlprec/impl/mld_d_extprol_bld.f90 @@ -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