EXPLORE: Add/Refactor qa, qainfo and info list commands

sandialabs · Apr 18, 2024 · 39535e9 · 39535e9
1 parent ba085f9
commit 39535e9
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 5 deletions.
diff --git a/packages/seacas/applications/explore/exp_comand.f b/packages/seacas/applications/explore/exp_comand.f
@@ -1,4 +1,4 @@
-C    Copyright(C) 1999-2020, 2023 National Technology & Engineering Solutions
+C    Copyright(C) 1999-2020, 2023, 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
@@ -149,7 +149,7 @@ SUBROUTINE COMAND (A, IA, EXODUS, DBNAME, QAREC, INFO,
       CHARACTER*80 DUMLIN
       character*2048 OUTPUT, LCOUTPUT
 
-      CHARACTER*(MXSTLN) CMDTBL(15), SELTBL(15), LISTBL(38)
+      CHARACTER*(MXSTLN) CMDTBL(15), SELTBL(15), LISTBL(41)
       SAVE CMDTBL, SELTBL, LISTBL, KINVC, KINVS
 C      --CMDTBL - the valid commands table
 C      --SELTBL - the valid SELECT options table
@@ -170,7 +170,7 @@ SUBROUTINE COMAND (A, IA, EXODUS, DBNAME, QAREC, INFO,
      4  'GVARS   ', 'NVARS   ', 'EVARS   ', 'NSVARS  ', 'SSVARS  ',
      5  '        ' /
       DATA LISTBL /
-     1  'TITLE   ', 'VARS    ',
+     1  'TITLE   ', 'VARS    ', 'QAINFO  ', 'QA', 'INFORMATION', 
      2  'COORDINA', 'MAP     ', 'NMAP    ', 'NODEMAP ',
      3  'BLOCKS  ', 'MATERIAL', 'LINK    ', 'CONNECTI', 'ATTRIBUT',
      4  'NSETS   ', 'NNODES  ', 'NFACTORS', 'INVCON  ',
@@ -791,8 +791,16 @@ SUBROUTINE COMAND (A, IA, EXODUS, DBNAME, QAREC, INFO,
 
         ELSE IF (LISTYP .EQ. 'QA') THEN
 
+          CALL PRQA ('Q', NOUT, NQAREC, QAREC, NINFO, INFO)
+
+        ELSE IF (LISTYP .EQ. 'QAINFO') THEN
+
           CALL PRQA ('*', NOUT, NQAREC, QAREC, NINFO, INFO)
 
+        ELSE IF (LISTYP .EQ. 'INFORMATION') THEN
+
+          CALL PRQA ('I', NOUT, NQAREC, QAREC, NINFO, INFO)
+
 C *** EXODUS Print Commands ***
 
         ELSE IF (LISTYP .EQ. 'NAMES') THEN

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) = '20240304'
-      QAINFO(3)(:8) = '    4.01'
+      QAINFO(2)(:8) = '20240418'
+      QAINFO(3)(:8) = '    4.02'
 
 c..Dynamic dimensioning of block names+other changes
 c..compress output of distribution factors