Had to switch two lines in psi_exist_ovr_elem because of IFORT giving

a strange error message...
17 years ago · da113e34d4
parent d00d9cc517
commit da113e34d4
1 changed files with 2 additions and 2 deletions
--- 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