Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP Path: utzoo!mnetor!uunet!husc6!think!ames!ucbcad!ucbvax!WHARTON.UPENN.EDU!SHULL From: SHULL@WHARTON.UPENN.EDU Newsgroups: comp.sys.apollo Subject: RE: FORTRAN write problem? Message-ID: <8712012253.AA08858@ELI.CS.YALE.EDU> Date: Tue, 1-Dec-87 17:53:00 EST Article-I.D.: ELI.8712012253.AA08858 Posted: Tue Dec 1 17:53:00 1987 Date-Received: Sat, 5-Dec-87 01:00:57 EST Sender: daemon@ucbvax.BERKELEY.EDU Organization: The ARPA Internet Lines: 64 Paul Anderson (umix!umich!pla@nrl-cmf.arpa) writes: > We get this output from the following program: > > $ test.bin > 1.0000000000000000E-99 > *********************** > 1.0000000000000000-101 > $ > > Where test.ftn is: > > read*8 x > x = 1.0e-99 > write(6,*) x > x = 1.0e-100 > write(6,*) x > x = 1.0e-101 > write(6,*) x > end > Sorry Paul, but after converting your tabs to spaces, and your "read*8" to a "real*8", I got the following, correct result: $ catf t.ftn real*8 x x = 1.0e-99 write(6,*) x x = 1.0e-100 write(6,*) x x = 1.0e-101 write(6,*) x end $ ftn t;t.bin no errors, no warnings in $MAIN, Fortran version 9.36 1987/12/01 17:58:57 EDT (Tue) 1.0000000000000000E-99 1.0000000000000000-100 1.0000000000000000-101 Fortran STOP $ By the way, I am also running SR9.5.1 and an "early SR9.6" FTN: $ ftn -version ftn (Fortran 77 Compiler), revision 9.36 (the 9.6 ftn is: $ ftn -version ftn (Fortran 77 Compiler), revision 9.38 ) Best of luck! -Chris Christopher E. Shull Decision Sciences Department The Wharton School shull@wharton.upenn.edu University of Pennsylvania Philadelphia, PA 19104-6366 215/898-5930 If it ain't broke, don't fix it!