EXPLORE: Better warning/info message on SELECT

sandialabs · Jun 10, 2024 · 23ecd91 · 23ecd91
1 parent b0fbb68
commit 23ecd91
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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