🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Thread View: fj.lang.fortran
2 messages
2 total messages Started by Noriyuki Sakurama Mon, 24 Nov 1997 00:00
$B4D6-JQ?t$r65$($F$/$@$5$$(B
#114
Author: Noriyuki Sakurama
Date: Mon, 24 Nov 1997 00:00
35 lines
1928 bytes
$B!!!!]/4V!wEl3$Bg3X!!$H8@$$$^$9!#(B

$B!!:#!"#g#7#7$r;H$C$FBg7?7W;;5!>e$G;HMQ$5$l$F$$$?(B
$B#F#o#r#t#r#a#n$N%W%m%0%i%`$r#L#i#n#u#x>e$G;H$($k(B
$BMQ$K@0Hw$r?J$a$F$$$^$9!#(B

$B!!<B9T%W%m%0%i%`$O!"HFMQE*$K;HMQ$9$k0Y$K3F<o$N(B
$BF~=PNO%U%!%$%k$OITDj!JL>A0$r$D$1$J$$!K$N>uBV$G(B
$B%W%m%0%i%`$r%3%s%Q%$%k$7$F$$$^$9!#(B
$B!!$=$NBe$o$jA4$F$N%W%m%0%i%`$O!"%7%'%k%9%/%j%W%H(B
$B%U%!%$%k$r<B9T$9$k7A$K$7$F!"$=$N%9%/%j%W%H%U%!%$%k(B
$B$N$J$+$G!"%f%K%C%HHV9f$KAjEv$9$k4D6-JQ?t$KFCDj$N(B
$B%U%!%$%k$r@_Dj$9$k$h$&$K$7$F$"$j$^$9!#(B
$B!!$3$N;~$N!"#L#i#n#u#x>e$G$N%f%K%C%HHV9f$KAjEv$9$k(B
$B4D6-JQ?t$,J,$+$i$::$$C$F$$$^$9!#(B


$B!!$A$J$_$K!"Bg3X$NBg7?7W;;5!!J#U#N#I#X!K$G$O(B
$B!!!!!!(Bsetenv F_FF10 /home/user/prog/Input_File_Name
     $B!J%f%K%C%HHV9f#1#0HV$N>l9g!K(B
$B$NMQ$K!"@_Dj$7$^$9!#(B


  $B$4B8CN$G$"$k!"0?$O;29M$H$J$kJ88%$K?4Ev$?$j$,$"$kJ}(B
$B$,$$$i$7$?$i!"8f65$(2<$5$$!#!!!!!!!!!!(B


$B!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v(B
$B!v!!!!El3$Bg3XBg3X1!9)3X8&5f2J1~MQM}3X@l96!!!!!!!!!!!!!!!!!!!!!v(B
$B!v!!!!!!=$;N2]Dx#2G/!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!v(B
$B!v!!!!!!]/4V!!@k9T!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!v(B
$B!v(B      E-mail ; 60asm009@keyaki.cc.u-tokai.ac.jp             $B!v(B
$B!v(B      Phone  ; 0463-58-1211 exp(4155)                       $B!v(B
$B!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v(B
Re: 環境変数を教えてください
#115
Author: KAWANO Toshihiko
Date: Tue, 25 Nov 1997 00:00
29 lines
1492 bytes

$B$$$C$Q$$%U%)%m!<$,Mh$k$H;W$$$^$9$,!%!%!%(B

>>>>> "Noriyuki" == Noriyuki Sakurama <60asm009@keyaki.cc.u-tokai.ac.jp> writes:
Noriyuki> $B$r@_Dj$9$k$h$&$K$7$F$"$j$^$9!#!!$3$N;~$N!"#L#i#n#u#x>e$G(B
Noriyuki> $B$N%f%K%C%HHV9f$KAjEv$9$k4D6-JQ?t$,J,$+$i$::$$C$F$$$^$9!#(B

g77$B$d$=$NB>$N(BWS$B$N(BFortran$B%3%s%Q%$%i$O!$5!HV(BNN$B$X$NF~=PNO$r<+F0E*$K(B
fort.NN$B$H$$$&%U%!%$%k$K3d$jEv$F$^$9!%Nc$($P!$(B

      READ(10,*) A
      WRITE(11,*) A

$B$H$$$&J8$,$"$l$P!$F1$8%G%#%l%/%H%jFb$N(B fort.10 $B$H$$$&%U%!%$%k$+$iFI$_(B
$B9~$^$l$F!$(Bfort.11$B$H$$$&%U%!%$%k$K=q$-=P$9$o$1$G$9!%4JC1$G$7$g!%(B

$BL>A0$,7h$^$C$F$$$k$N$G!$$J$K$+JL$N%U%!%$%k$KBP$7$FF~=PNO$7$?$1$l$P!$(B

    ln input.dat fort.10
    ln output.dat fort.11

$B$H$+$7$H$1$P$$$$$G$9!%(B

end
F00FC7C8
####- KAWANO Toshihiko://Energy Conversion, Kyushu Univ. -##
###--  http://art.ence.kyushu-u.ac.jp/members/kawano/  --###
##---  TEL: +81-92-583-7587  FAX: +81-92-583-7586 ------####
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