From 23ecd91f767e8c5e67ff5cd3113efe473ceb0cff Mon Sep 17 00:00:00 2001
From: Greg Sjaardema <gdsjaar@sandia.gov>
Date: Mon, 10 Jun 2024 10:38:34 -0600
Subject: [PATCH] EXPLORE: Better warning/info message on SELECT

---
 packages/seacas/applications/explore/exp_comand.f | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/packages/seacas/applications/explore/exp_comand.f b/packages/seacas/applications/explore/exp_comand.f
index 73479c3b08..92a73869d2 100644
--- a/packages/seacas/applications/explore/exp_comand.f
+++ b/packages/seacas/applications/explore/exp_comand.f
@@ -319,7 +319,8 @@ SUBROUTINE COMAND (A, IA, EXODUS, DBNAME, QAREC, INFO,
         IF (LISTYP .EQ. ' ') THEN
           CALL ABRSTR (LISTYP, WORD, SELTBL)
           IF (LISTYP .NE. ' ') THEN
-            CALL PRTERR ('CMDREQ', 'Please use the SELECT command')
+            CALL PRTERR ('CMDREQ', 'Please use the SELECT '
+     $            // LISTYP(:LENSTR(LISTYP)) // ' command')
             VERB = 'SELECT'
           ELSE
             LISTYP = WORD