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!