EXPLORE: If invalid change set selected, exit

sandialabs · Jan 31, 2025 · e78dc20 · e78dc20
1 parent 46032a2
commit e78dc20
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/packages/seacas/applications/explore/explore.f b/packages/seacas/applications/explore/explore.f
@@ -157,6 +157,7 @@ PROGRAM EXPLORE
             if (nchange .gt. idum) then
                write (*,*) 'ERROR: Selected change set', nchange,
      $              'but there are only ', idum, ' change sets in file.'
+               goto 110
             else
                ndb = ndbr + nchange
             end if