From 9b731d3da9d1bb93b01af5fa42e4bb9ad6c12d87 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Thu, 3 Nov 2016 16:57:21 +0000
Subject: [PATCH] mld2p4:  mlprec/impl/mld_c_hierarchy_bld.f90 
 mlprec/impl/mld_d_hierarchy_bld.f90  mlprec/impl/mld_s_hierarchy_bld.f90 
 mlprec/impl/mld_z_hierarchy_bld.f90

Fix last level rebuild. For real now.
---
 mlprec/impl/mld_c_hierarchy_bld.f90 | 6 ++++--
 mlprec/impl/mld_d_hierarchy_bld.f90 | 6 ++++--
 mlprec/impl/mld_s_hierarchy_bld.f90 | 6 ++++--
 mlprec/impl/mld_z_hierarchy_bld.f90 | 6 ++++--
 4 files changed, 16 insertions(+), 8 deletions(-)

diff --git a/mlprec/impl/mld_c_hierarchy_bld.f90 b/mlprec/impl/mld_c_hierarchy_bld.f90
index 305485b1..51f8d358 100644
--- a/mlprec/impl/mld_c_hierarchy_bld.f90
+++ b/mlprec/impl/mld_c_hierarchy_bld.f90
@@ -301,8 +301,10 @@ subroutine mld_c_hierarchy_bld(a,desc_a,p,info)
     if (debug_level >= psb_debug_outer_) &
          & write(debug_unit,*) me,' ',trim(name),&
          & 'Return from ',i,' call to mlprcbld ',info      
-
-
+    !
+    ! Save op_prol just in case
+    !
+    call op_prol%clone(p%precv(i)%tprol,info)
     !
     ! Check for early termination of aggregation loop. 
     !      
diff --git a/mlprec/impl/mld_d_hierarchy_bld.f90 b/mlprec/impl/mld_d_hierarchy_bld.f90
index e36ed39b..ee8e78c7 100644
--- a/mlprec/impl/mld_d_hierarchy_bld.f90
+++ b/mlprec/impl/mld_d_hierarchy_bld.f90
@@ -301,8 +301,10 @@ subroutine mld_d_hierarchy_bld(a,desc_a,p,info)
     if (debug_level >= psb_debug_outer_) &
          & write(debug_unit,*) me,' ',trim(name),&
          & 'Return from ',i,' call to mlprcbld ',info      
-
-
+    !
+    ! Save op_prol just in case
+    !
+    call op_prol%clone(p%precv(i)%tprol,info)
     !
     ! Check for early termination of aggregation loop. 
     !      
diff --git a/mlprec/impl/mld_s_hierarchy_bld.f90 b/mlprec/impl/mld_s_hierarchy_bld.f90
index 86aaaa5a..42370511 100644
--- a/mlprec/impl/mld_s_hierarchy_bld.f90
+++ b/mlprec/impl/mld_s_hierarchy_bld.f90
@@ -301,8 +301,10 @@ subroutine mld_s_hierarchy_bld(a,desc_a,p,info)
     if (debug_level >= psb_debug_outer_) &
          & write(debug_unit,*) me,' ',trim(name),&
          & 'Return from ',i,' call to mlprcbld ',info      
-
-
+    !
+    ! Save op_prol just in case
+    !
+    call op_prol%clone(p%precv(i)%tprol,info)
     !
     ! Check for early termination of aggregation loop. 
     !      
diff --git a/mlprec/impl/mld_z_hierarchy_bld.f90 b/mlprec/impl/mld_z_hierarchy_bld.f90
index 27a32df4..f7ac91e0 100644
--- a/mlprec/impl/mld_z_hierarchy_bld.f90
+++ b/mlprec/impl/mld_z_hierarchy_bld.f90
@@ -301,8 +301,10 @@ subroutine mld_z_hierarchy_bld(a,desc_a,p,info)
     if (debug_level >= psb_debug_outer_) &
          & write(debug_unit,*) me,' ',trim(name),&
          & 'Return from ',i,' call to mlprcbld ',info      
-
-
+    !
+    ! Save op_prol just in case
+    !
+    call op_prol%clone(p%precv(i)%tprol,info)
     !
     ! Check for early termination of aggregation loop. 
     !