From da113e34d4e02a90e1b00b92b117eea69b852607 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Thu, 24 Jan 2008 16:14:16 +0000 Subject: [PATCH] Had to switch two lines in psi_exist_ovr_elem because of IFORT giving a strange error message... --- base/internals/psi_exist_ovr_elem.f | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/base/internals/psi_exist_ovr_elem.f b/base/internals/psi_exist_ovr_elem.f index 21ac4e1f..3ad0a3b2 100644 --- a/base/internals/psi_exist_ovr_elem.f +++ b/base/internals/psi_exist_ovr_elem.f @@ -51,11 +51,11 @@ C C ELEM_SEARCHED.....:point's Local index identifier to be searched. IMPLICIT NONE -C ...Array Parameters.... - INTEGER OVR_ELEM(dim_list,*) C ....Scalars parameters.... INTEGER DIM_LIST,ELEM_SEARCHED +C ...Array Parameters.... + INTEGER OVR_ELEM(DIM_LIST,*) C ...Local Scalars.... INTEGER I