EXPLORE: Fix behavior after bad parse warning

sandialabs · Jun 10, 2024 · b0fbb68 · b0fbb68
1 parent 42eea0d
commit b0fbb68
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/packages/seacas/applications/explore/exp_qainfo.blk b/packages/seacas/applications/explore/exp_qainfo.blk
@@ -8,8 +8,8 @@ C    See packages/seacas/LICENSE for details
       QAINFO(2) = '        '
       QAINFO(3) = '        '
 
-      QAINFO(2)(:8) = '20240418'
-      QAINFO(3)(:8) = '    4.02'
+      QAINFO(2)(:8) = '20240610'
+      QAINFO(3)(:8) = '    4.03'
 
 c..Dynamic dimensioning of block names+other changes
 c..compress output of distribution factors
@@ -77,3 +77,4 @@ c..Add select nodes sset {id}...
 c..Fix memory overrun in check routines
 c..Call MDFREE()
 c..Refactor element select to allow add
+c..Fix behavior after bad parse warning
diff --git a/packages/seacas/applications/explore/exp_rixid.f b/packages/seacas/applications/explore/exp_rixid.f
@@ -65,13 +65,13 @@ SUBROUTINE RIXID (INLINE, IFLD, INTYP, CFIELD, IFIELD,
          IF (FFMATC (IFLD, INTYP, CFIELD, 'ADD', 3)) THEN
             CALL FFADDC ('ADD', INLINE)
          ELSE
+            NUMSEL = 0
             IF (.NOT. FFNUMB (IFLD, INTYP)) THEN
                ERRMSG =
      &            'Expected "OFF" or "ADD" or ' // SELMSG // ' range'
                CALL PRTERR ('CMDERR', ERRMSG(:LENSTR(ERRMSG)))
                GOTO 130
             END IF
-            NUMSEL = 0
          END IF
 
   110    CONTINUE