From ce0850f6fcef42d06a90c2da07cd86a44303b776 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 9 Jun 2020 11:17:39 +0200 Subject: [PATCH] Fix check on association of descriptor pointer --- mlprec/impl/mld_c_hierarchy_bld.f90 | 2 +- mlprec/impl/mld_d_hierarchy_bld.f90 | 2 +- mlprec/impl/mld_s_hierarchy_bld.f90 | 2 +- mlprec/impl/mld_z_hierarchy_bld.f90 | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/mlprec/impl/mld_c_hierarchy_bld.f90 b/mlprec/impl/mld_c_hierarchy_bld.f90 index 89715bf3..26d09aeb 100644 --- a/mlprec/impl/mld_c_hierarchy_bld.f90 +++ b/mlprec/impl/mld_c_hierarchy_bld.f90 @@ -443,7 +443,7 @@ subroutine mld_c_hierarchy_bld(a,desc_a,prec,info) iszv = newsz ! Fix the pointers, but the level 1 should ! be treated differently - if (.not.associated(prec%precv(i)%base_desc,desc_a)) then + if (.not.associated(prec%precv(1)%base_desc,desc_a)) then prec%precv(1)%base_desc => prec%precv(1)%desc_ac end if do i=2, iszv diff --git a/mlprec/impl/mld_d_hierarchy_bld.f90 b/mlprec/impl/mld_d_hierarchy_bld.f90 index 7d1427f6..0f0c3756 100644 --- a/mlprec/impl/mld_d_hierarchy_bld.f90 +++ b/mlprec/impl/mld_d_hierarchy_bld.f90 @@ -443,7 +443,7 @@ subroutine mld_d_hierarchy_bld(a,desc_a,prec,info) iszv = newsz ! Fix the pointers, but the level 1 should ! be treated differently - if (.not.associated(prec%precv(i)%base_desc,desc_a)) then + if (.not.associated(prec%precv(1)%base_desc,desc_a)) then prec%precv(1)%base_desc => prec%precv(1)%desc_ac end if do i=2, iszv diff --git a/mlprec/impl/mld_s_hierarchy_bld.f90 b/mlprec/impl/mld_s_hierarchy_bld.f90 index f043401a..b1c610e6 100644 --- a/mlprec/impl/mld_s_hierarchy_bld.f90 +++ b/mlprec/impl/mld_s_hierarchy_bld.f90 @@ -443,7 +443,7 @@ subroutine mld_s_hierarchy_bld(a,desc_a,prec,info) iszv = newsz ! Fix the pointers, but the level 1 should ! be treated differently - if (.not.associated(prec%precv(i)%base_desc,desc_a)) then + if (.not.associated(prec%precv(1)%base_desc,desc_a)) then prec%precv(1)%base_desc => prec%precv(1)%desc_ac end if do i=2, iszv diff --git a/mlprec/impl/mld_z_hierarchy_bld.f90 b/mlprec/impl/mld_z_hierarchy_bld.f90 index 7007d504..be19ffbd 100644 --- a/mlprec/impl/mld_z_hierarchy_bld.f90 +++ b/mlprec/impl/mld_z_hierarchy_bld.f90 @@ -443,7 +443,7 @@ subroutine mld_z_hierarchy_bld(a,desc_a,prec,info) iszv = newsz ! Fix the pointers, but the level 1 should ! be treated differently - if (.not.associated(prec%precv(i)%base_desc,desc_a)) then + if (.not.associated(prec%precv(1)%base_desc,desc_a)) then prec%precv(1)%base_desc => prec%precv(1)%desc_ac end if do i=2, iszv