From owner-FreeBSD-users-jp@jp.freebsd.org  Mon Aug 26 22:10:49 1996
Received: by mail.jp.freebsd.org (8.7.3+2.6Wbeta5/8.7.3) id WAA15576
	Mon, 26 Aug 1996 22:10:49 +0900 (JST)
Received: by mail.jp.freebsd.org (8.7.3+2.6Wbeta5/8.7.3) with ESMTP id WAA15571
	for <FreeBSD-users-jp@jp.freebsd.org>; Mon, 26 Aug 1996 22:10:47 +0900 (JST)
Received: from amiskwia.mri.co.jp (root@localhost [127.0.0.1]) by amiskwia.mri.co.jp (8.7.3/8.7.1) with SMTP id WAA29193 for <FreeBSD-users-jp@jp.freebsd.org>; Mon, 26 Aug 1996 22:03:46 +0900
Message-Id: <199608261309.WAA00329@phoebus.mri.co.jp>
To: FreeBSD-users-jp@jp.freebsd.org
X-Mailer: Mew version 1.05+ on Emacs 19.28.1, Mule 2.3
Mime-Version: 1.0
Content-Type: Text/Plain; charset=iso-2022-jp
Date: Mon, 26 Aug 1996 22:09:07 +0900
From: Shunji Takagi(=?ISO-2022-JP?B?GyRCOWJMWhsoQg==?=  
	=?ISO-2022-JP?B?GyRCPVM8IxsoQg==?= ) <takagi@mri.co.jp>
Reply-To: FreeBSD-users-jp@jp.freebsd.org
X-Distribute: distribute [version 2.1 (Alpha) patchlevel=19]
X-Sequence: FreeBSD-users-jp 3845
Subject: [FreeBSD-users-jp 3845] problem of g77 write format
Errors-To: owner-FreeBSD-users-jp@jp.freebsd.org
Sender: owner-FreeBSD-users-jp@jp.freebsd.org

$B$O$8$a$^$7$F!"9bLZ!w;0I)Am8&$H$$$$$^$9!#(B

$B$"$^$j!"$_$J$5$s$O;H$o$l$F$*$i$l$J$$$+$b$7$l$^$;$s$,!";d$O;E;vJA!"(B
FORTRAN$B$N%W%m%0%i%`$r=q$/$3$H$,B?$$$N$G!"(BFreeBSD$B>e$G$b(Bg77$B$,40F0$9$l$P(B
$B$$$$$J$"$H4|BT$7$F$$$k0l?M$G$9!#<B$O$3$N(Bg77(f2c$B$G$b(B)$B$J$N$G$9$,!"=q<0IU(B
$B$-$N(BWRITE$BJ8$rMQ$$$k$$$k$H$-$K;d$,0U?^$7$F$$$k$b$N$H0c$C$?=PNO7k2L$r=P(B
$B$9$N$G!":$$C$F$$$^$9!#(B

$B<!$N$h$&$J4JC1$J(BFORTRAN$B$N%W%m%0%i%`$r%3%s%Q%$%k$7$F<B9T$5$;$F$_$F$/$@(B
$B$5$$!#(B

----- below here -----
column
      a=1.23456
      write(6,'(1p,3e13.5)') a,a*1.0e5,a*1.0e25
      write(6,'(1p,3e13.5)') a,a*1.0e-5,a*1.0e-25
      write(1) a,a*1.0e-5,a*1.0e-25
      stop
      end
----- above here -----

$B;d$OIaCJ$O(BSUN$B$rMQ$$$F$*$j!"$3$N%W%m%0%i%`$r(BSUN$B$N(BFORTRAN$B$N%3%s%Q%$%i$G(B
make$B$7$?$b$N$@$H!"(B

  1.23456E+00  1.23456E+05  1.23456E+25
  1.23456E+00  1.23456E-05  1.23456E-25
           ^^           ^^
$B$H$$$&=PNO7k2L$K$J$j$^$9!#$3$&$$$&7k2L$r(BFreeBSD$B>e$N(Bg77$B$G$bF@$i$l$k$3$H(B
$B$r4|BT$7$F$$$k$N$G$9$,!"(Bg77$B$G(Bmake$B$7$?$b$N$G$O!"(B

  1.23456E+0  1.23456E+5  1.23456E+25
  1.23456E+0  1.23456E-5  1.23456E-25
           ^           ^
$B$H$J$C$F$7$^$$$^$9!#(B
$BDL>o!"(BFORTRAN$B$N<B?t$O(B 1.23456E+00 $B$N(B E+00 $B$h$&$K;X?tIt$N$H$3$m$N?t;z$O(B
$BFs7e$GI=5-$7!"$?$H$(;X?tIt$O0l7e$N?t;z$G$b(B 0 $B$r$D$1$k$3$H$K$h$jFs7e$K(B
$B$9$k$O$:$J$N$G$9$,!#(B

$B2?$+%*%W%7%g%s$,$"$k$N$G$7$g$&$+!#$=$l$H$b(Bg77$B<+BN$N%=!<%9$r=$@5$7$J$$(B
$B$H$$$1$J$$$G$N$7$g$&$+!#(B

$B;d$O(BFreeBSD2.1.0R$B$rMQ$$$F$*$j!"(BFORTRAN$B$N%3%s%Q%$%i$O!"(B
  $B!&(BFreeBSD2.1.0R$B$K$D$$$F$$$k(Bf77$B$J$i$S$K(Bf2c
  $B!&(Bgcc-2.7.2 + g77-0.5.18
$B$N$$$:$l$G$bF1$87k2L$G$7$?!#(B
$B$A$J$_$K!"(BLinux-1.2.13 $B>e$N(B gcc-2.7.2 + g77-0.5.18 $B$G$O$&$^$/9T$/$h$&(B
$B$G$9$,!#!#!#!#!#(B
     
$B$I$J$?$+2r7hJ}K!$r$4B8$8$G$7$?$i!"$I$&$>$h$m$7$/$*4j$$$7$^$9!#(B

  ////////////////////////////////////////////////////////////////
  //  Shunji Takagi (Email: takagi@mri.co.jp)                   //
  //  Research Center for Safety Science                        //
  //  Mitsubishi Research Institute, INC.                       //
  //                Otemachi 2-3-6, Chiyoda-ku, Tokyo 100 JAPAN //
  //                                     tel. 81-3-3277-0772    //
  //                                     fax. 81-3-3277-3480    //
  //                                                            //
  ////////////////////////////////////////////////////////////////
