From 39535e98f25f267d3ae92d19fd98e4ca2e295863 Mon Sep 17 00:00:00 2001
From: Greg Sjaardema <gdsjaar@sandia.gov>
Date: Thu, 18 Apr 2024 10:25:53 -0500
Subject: [PATCH] EXPLORE: Add/Refactor qa,  qainfo and info list commands

---
 packages/seacas/applications/explore/exp_comand.f  | 14 +++++++++++---
 .../seacas/applications/explore/exp_qainfo.blk     |  4 ++--
 2 files changed, 13 insertions(+), 5 deletions(-)

diff --git a/packages/seacas/applications/explore/exp_comand.f b/packages/seacas/applications/explore/exp_comand.f
index 5d9733db84..73479c3b08 100644
--- 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
index 93678952c9..df09d169cd 100644
--- 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