Mercurial > octave-nkf
changeset 4106:179066771796
[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 wrap: on
line diff
--- 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.
--- 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)