[project @ 2002-10-16 20:01:20 by jwe]
author |
jwe |
date |
Wed, 16 Oct 2002 20:01:20 +0000 |
parents |
92f4552ea359 |
children |
bf4f52245d11 |
files |
libcruft/ChangeLog libcruft/slatec-err/xerrwd.f |
diffstat |
2 files changed, 5 insertions(+), 1 deletions(-)
[+]
|
line diff
--- a/libcruft/ChangeLog
+++ b/libcruft/ChangeLog
@@ -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.
--- a/libcruft/slatec-err/xerrwd.f
+++ b/libcruft/slatec-err/xerrwd.f
@@ -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)