Double precision with g77.

Thread View: fj.lang.fortran

3 messages

[T] Back to Threads [V] Tree View [G] Group Articles

3 total messages Started by Kengo MIYAMOTO Sat, 28 Mar 1998 00:00

#140

Author: Kengo MIYAMOTO
Date: Sat, 28 Mar 1998 00:00

66 lines
1559 bytes


$B5\K\!wElKLBg(B $B$H?=$7$^$9!#(B

g77(0.5.20, 0.5.22)$B$r;H$C$F!"0J2<$N$h$&$J(B
$B%W%m%0%i%`(B(test.f)

      double precision ded

      ded=dble(-999.9)
      
      write(6,'(f17.10)') ded
      
      stop
      end

$B$r(B
   g77 test.f

$B$NMM$K!"%3%s%Q%$%k$7<B9T$9$k$H!"(B

  -999.9000244141

$B$N$h$&$K=PNO$5$l$F$7$^$$$^$9!#(B

  -999.9000000000

$B$H=PNO$5$;$k$K$O!"$I$NMM$K$9$l$PNI$$$N$G$7$g$&$+(B?

$BNI$/J,$+$j$^$;$s$,!"$H$j$"$($:(B

   f2c test.f
   gcc test.c  -lf2c -lm

$B$H$d$k$H!"(B

  -999.9000000000

$B$H=PNO$5$l$^$7$?!#$^$?!">e$N%W%m%0%i%`(B(test.f)$B$N(B2$B9TL\$N(B
   
   ded=dble(-999.9)

$B$r(B

   ded=-999.9

$B$H$9$k$H!"(Bf2c$B$K$h$C$F:n$i$l$?(BC$B%W%m%0%i%`(B(test.c)$BCf$G$O(B

    ded = -999.9;

$B$G$"$C$?$N$,(B

    ded = (float)-999.9;
          ^^^^^^^
$B$H$J$j!"(B

  -999.9000244141

$B$H=PNO$5$l$k$h$&$K$J$j$^$9!#(B

g77$B$G$b!"$A$c$s$HG\@:EY$rMxMQ$G$-$k$h$&$K$9$k$N$K$O(B
$B$I$NMM$K$9$l$PNI$$$+$*65$(2<$5$$!#(B


           miyamoto@pol.geophys.tohoku.ac.jp
                     $B5\K\7r8c(B

Re: Double precision with g77.

#141

Author: OKAMURA Hiroyuki
Date: Sun, 29 Mar 1998 00:00

30 lines
1807 bytes

<6fim8f$oh2@hirose.gw.tohoku.ac.jp>$B$N5-;v$K$*$$$F(B
miyamoto@pol.geophys.tohoku.ac.jp$B$5$s$O=q$-$^$7$?!#(B

> g77$B$G$b!"$A$c$s$HG\@:EY$rMxMQ$G$-$k$h$&$K$9$k$N$K$O(B
> $B$I$NMM$K$9$l$PNI$$$+$*65$(2<$5$$!#(B

      double precision ded
-     ded=dble(-999.9)
+     ded=-999.9D0
      write(6,'(f17.10)') ded

dble $B$O=jA'4X?t$G$"$C$F(B(C $B$N(B cast $B$KAjEv$9$k$b$N$G$O$J$$(B)$B!"(B
-999.9 $B$,C1@:EY$GM?$($i$l$F$$$k0J>e!"(Bg77 $B$NF0:n$O8@8l;EMM$K(B
$BH?$7$F$J$$$H;W$$$^$9!#Dj?t$NBeF~$G>!<j$K7?@09g$r:N$k$N$O(B
Fortran77 $B%3%s%Q%$%i$N3HD%;EMM$G!"(B($B>\$7$/$OCN$i$J$$$s$G$9$,(B)
Fortran90 $B$G$O$b$C$H87L)$K07$&$s$8$c$J$$$G$7$g$&$+!#<j6a$J(B
$B%3%s%Q%$%i$G;n$7$?=j!"(BDigital UNIX 4.0, Solaris 2.6 $B6&$K!"(B
f77 $B$G$O(B -999.9000000000$B!"(Bf90 $B$G$O(B -999.9000244141 $B$HI=<((B
$B$5$l$^$7$?!#(B

$B$3$NJU$N;v>p$O(B g77.info $B$N(B Language - Constatns $BJU$j$K=q$$$F(B
$B$"$C$?$H;W$$$^$9!#(Bg77 $B$r(B f77 $B%3%s%Q%$%i$H$7$F;H$&$N$G$"$l$P!"(B
($B@$$KN.I[$7$F$$$k(B f77 $B%3%s%Q%$%i$H3S$Y$k$HB>$K$b?'!9!H%/%;!I(B
$B$,M-$j$^$9$+$i(B) info $B$r0lFI$5$l$k;v$r$*A&$a$7$^$9!#(B

---------
$B2,B<(B $B90G7(B                     okamura@phys.s.u-tokyo.ac.jp
$BEl5~Bg3XM}3XItJ*M}(B            okamura@timshel.riken.go.jp
($B",$K5o$k$N$b$"$HFsF|(B)

Re: Double precision with g77.

#143

Author: Yasuki Arasaki
Date: Thu, 02 Apr 1998 00:00

25 lines
1106 bytes

In article <6fim8f$oh2@hirose.gw.tohoku.ac.jp>
miyamoto@pol.geophys.tohoku.ac.jp (Kengo MIYAMOTO) $B$5$s(Bwrote:

>>      ded=dble(-999.9)
>>      write(6,'(f17.10)') ded

>>   -999.9000244141

>>   -999.9000000000

>> g77$B$G$b!"$A$c$s$HG\@:EY$rMxMQ$G$-$k$h$&$K$9$k$N$K$O(B
>> $B$I$NMM$K$9$l$PNI$$$+$*65$(2<$5$$!#(B

$B7kO@$+$i8@$($P(B

      ded=-999.9d0

$B$G(Bded$B$K(B-999.9000000000$B$,F~$j$^$9!#(B
$B!V(Bd$B!W;X?t$rIU$1$F$J$$<BDj?t$OC1@:EY7?$G$9!#(B
dble$B$G7?JQ49$7$F$bCM$OJQ$o$i$J$$$O$:$J$N$G!"(B
g77$B$NJ}$,@5$7$$F0:n$r$7$F$$$k$H;W$$$^$9!#(B
-- 
$B?7:j(B@$BElBgAmJ8(B
arasaki@mns2.c.u-tokyo.ac.jp

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads