Thread View: fj.lang.fortran
1 messages
1 total messages
Started by Katsunari Hirano
Thu, 31 Jul 1997 00:00
f77 $@$G;M<N8^F~$7$?7k2L$r=PNO$7$?$$(J (In Japanese/Kanji)
Author: Katsunari Hirano
Date: Thu, 31 Jul 1997 00:00
Date: Thu, 31 Jul 1997 00:00
54 lines
1955 bytes
1955 bytes
$@1vLn5A@=Lt$NJ?Ln$H?=$7$^$9!#(J
SPARC Compiler(f77 v4.0) $@$K4X$7$F<ALd$5$;$F$$$?$@$-$^$9!#(J
Compiler $@$O!"(JSun $@$N(J Ultra Enterprise (OS Solaris 2.5.1)
$@>e$GMxMQ$7$F$$$^$9!#(J
$@7W;;7k2L$r%U%)!<%^%C%HIU$-(J($@Nc$($P!"(Jf8.2$@$J$I(J)$@$G=PNO$9$k:]$K!"(J
$@I=<(7e$N<!$N7e$G;M<N8^F~$7$?7k2L$r=PNO$7$?$$$N$G$9$,!"$3$N(J
$@$h$&$J$3$H$O4JC1$K$G$-$k$N$G$7$g$&$+(J ?
$@<B:]$K$O!"<!$N$h$&$J%W%m%0%i%`$G:$$C$F$$$^$9!#(J
-----
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
dimension x(10)
x(1)=6.15
x(2)=6.25
x(3)=6.35
x(4)=6.45
x(5)=6.55
x(6)=6.65
x(7)=6.75
x(8)=6.85
x(9)=6.95
do i =1, 9
write(6,100) i, x(i)
end do
100 format('x(',i1,')=',f7.1)
end
-----
$@$3$N%W%m%0%i%`$N<B9T7k2L$O<!$N$h$&$K$J$C$F$7$^$$$^$9$,!"(J
$@<B:]$K$O!"1&$K<($7$?7k2L$,$[$7$$$N$G$9$,!"$I$N$h$&$K=hM}(J
$@$9$k$N$,:GE,$J$N$G$7$g$&$+(J ?
$@$=$N>l$7$N$.$G!">.$5$$?t$rB-$9$J$s$F%@%a$G$9$h$M$'!*(J
$@=iJbE*$J<ALd$+$b$7$l$^$;$s$,!"$I$&$>$h$m$7$/$*4j$$$$$?$7$^$9!#(J
-----
x(1)= 6.2 -> 6.2
x(2)= 6.2 -> 6.3
x(3)= 6.3 -> 6.4
x(4)= 6.5 -> 6.5
x(5)= 6.5 -> 6.6
x(6)= 6.7 -> 6.7
x(7)= 6.8 -> 6.8
x(8)= 6.8 -> 6.9
x(9)= 7.0 -> 7.0
-----
--
$B!!(J --- katsunari.hirano@shionogi.co.jp ---
$BJ?Ln>!Li(J $B1vLn5A@=Lt3t<02q<R(J $B7P1D4k2hK\It(J $B2r@O%;%s%?!<(J
Tel. 06-458-5861 (449) Fax. 06-458-9215
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