EXPLORE: More info on id map -- sequential or non-sequential

packages/seacas/applications/explore/exp_ckmap.f

@@ -1,4 +1,4 @@
-C    Copyright(C) 1999-2020 National Technology & Engineering Solutions
+C    Copyright(C) 1999-2020, 2024 National Technology & Engineering Solutions
 C    of Sandia, LLC (NTESS).  Under the terms of Contract DE-NA0003525 with
 C    NTESS, the U.S. Government retains certain rights in this software.
 C
@@ -35,8 +35,16 @@ SUBROUTINE CKMAP (ICNT, MAP, INDX, TYPE)
 C ... There has been a request to show min and max ids to help with
 C     debugging potential database corruption issues.  Do it here.
 
-      write (stra, 10001) type, map(indx(1)), map(indx(icnt))
-10001 FORMAT('INFO: ', A, ' global id range: ',I12, ' to ', I12)
+      if (indx(1) .eq. 1 .and. indx(icnt) .eq. icnt .and.
+     $     (map(icnt) - map(1) +1 .eq. icnt)) then
+         write (stra, 10001) type, map(indx(1)), map(indx(icnt)),
+     $        'sequential'
+      else
+         write (stra, 10001) type, map(indx(1)), map(indx(icnt)),
+     $        'NOT sequential'
+      endif
+10001 FORMAT('INFO: ', A, ' global id range: ',I12, ' to ', I12,
+     $     '. Map is ', A)
       call sqzstr(stra, lstra)
       CALL PRTERR ('CMDSPEC', STRA(:lstra))
 

packages/seacas/applications/explore/exp_qainfo.blk

@@ -1,5 +1,5 @@
 C     -*- Mode: fortran -*-
-C    Copyright(C) 1999-2021 National Technology & Engineering Solutions
+C    Copyright(C) 1999-2021, 2024 National Technology & Engineering Solutions
 C    of Sandia, LLC (NTESS).  Under the terms of Contract DE-NA0003525 with
 C    NTESS, the U.S. Government retains certain rights in this software.
 C
@@ -8,8 +8,8 @@ C    See packages/seacas/LICENSE for details
       QAINFO(2) = '        '
       QAINFO(3) = '        '
 
-      QAINFO(2)(:8) = '20230426'
-      QAINFO(3)(:8) = '    4.00'
+      QAINFO(2)(:8) = '20240304'
+      QAINFO(3)(:8) = '    4.01'
 
 c..Dynamic dimensioning of block names+other changes
 c..compress output of distribution factors