From 25d97dbadac7d2e185e1513832f7fc6cadf9cea9 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Thu, 24 Nov 2011 17:58:57 +0000 Subject: [PATCH] *** empty log message *** --- mlprec/mld_dmlprec_bld.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/mlprec/mld_dmlprec_bld.f90 b/mlprec/mld_dmlprec_bld.f90 index 8d5435eb..fce9ee2b 100644 --- a/mlprec/mld_dmlprec_bld.f90 +++ b/mlprec/mld_dmlprec_bld.f90 @@ -260,8 +260,8 @@ subroutine mld_dmlprec_bld(a,desc_a,p,info,amold,vmold) ! Fix the pointers, but the level 1 should ! be already OK do i=2, iszv - 1 - p%precv(i)%base_a => p%precv(i)%ac - p%precv(i)%base_desc => p%precv(i)%desc_ac + p%precv(i)%base_a => p%precv(i)%ac + p%precv(i)%base_desc => p%precv(i)%desc_ac p%precv(i)%map%p_desc_X => p%precv(i-1)%base_desc p%precv(i)%map%p_desc_Y => p%precv(i)%base_desc end do