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