From: Raymond T. <rt...@us...> - 2002-04-25 17:08:07
|
Update of /cvsroot/maxima/maxima/src/numerical/slatec/fortran In directory usw-pr-cvs1:/tmp/cvs-serv7600 Modified Files: xermsg.f Log Message: f2cl doesn't correctly convert format strings that are included in the WRITE statement. Move it out to a separate FORMAT statement. Index: xermsg.f =================================================================== RCS file: /cvsroot/maxima/maxima/src/numerical/slatec/fortran/xermsg.f,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- xermsg.f 25 Apr 2002 17:03:32 -0000 1.1 +++ xermsg.f 25 Apr 2002 17:08:03 -0000 1.2 @@ -322,7 +322,8 @@ C TRACEBACK. C IF (LKNTRL .GT. 0) THEN - WRITE (TEMP, '(''ERROR NUMBER = '', I8)') NERR + WRITE (TEMP, 9999) NERR + 9999 FORMAT('ERROR NUMBER = ', i8) DO 10 I=16,22 IF (TEMP(I:I) .NE. ' ') GO TO 20 10 CONTINUE |