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