# HG changeset patch
# User jwe
# Date 1034798480 0
# Node ID 179066771796e1c8cfd39ebef722a81deceda4c8
# Parent  92f4552ea359378332e0c2ca0597af227b3e73d5
[project @ 2002-10-16 20:01:20 by jwe]

diff -r 92f4552ea359 -r 179066771796 libcruft/ChangeLog
--- a/libcruft/ChangeLog	Wed Oct 16 14:55:38 2002 +0000
+++ b/libcruft/ChangeLog	Wed Oct 16 20:01:20 2002 +0000
@@ -1,3 +1,7 @@
+2002-10-16  John W. Eaton  <jwe@bevo.che.wisc.edu>
+
+	* slatec-err/xerrwd.f (XERRWD): Print msg(1:nmes), not just msg.
+
 2002-10-14  John W. Eaton  <jwe@bevo.che.wisc.edu>
 
 	* Makefile.in (install): No need to use cd to create links.
diff -r 92f4552ea359 -r 179066771796 libcruft/slatec-err/xerrwd.f
--- a/libcruft/slatec-err/xerrwd.f	Wed Oct 16 14:55:38 2002 +0000
+++ b/libcruft/slatec-err/xerrwd.f	Wed Oct 16 20:01:20 2002 +0000
@@ -78,7 +78,7 @@
 C
 C  Write the message.
 C
-      WRITE (LUNIT,10)  MSG
+      WRITE (LUNIT,10)  MSG(1:NMES)
  10   FORMAT(1X,A)
       IF (NI .EQ. 1) WRITE (LUNIT, 20) I1
  20   FORMAT(6X,'In above message,  I1 =',I10)