🚀 go-pugleaf

$B5~ETBg(B $BEE5$9)3X65<<$ND9C+@n$H?=$7$^$9!#(B

$B0J2<$NFbMF$K$D$$$F!"BeM}Ej9F$5$;$F$/$@$5$$!#(B

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
$B<FED!wF|?e%3%s$H?=$7$^$9!#(B

fj$B$KEj9F$G$-$k4D6-$K$J$$$N$G!$M'?M$+$iBeM}Ej9F$7$F$b$i$C$F$$$^$9!#(B
e-mail$B$O;H$($^$9$N$G!$2?$+D>@\%3%a%s%H$,$"$l$P!$(B
sibata_g@nissuicon.co.jp
$B$K$*4j$$$7$^$9!#(B

open$BJ8$J$I$GL@<(E*$K%U%!%$%kL>$rM?$($F$$$J$$F~=PNOAuCVHV9f$r(B
FORTRAN$B$N%W%m%0%i%`$N30It$G@_Dj$9$kJ}K!$r65$($F2<$5$$!#(B

$B;d$O!$(BRedhat Linux 5.0$B$G(B fort77(f2c+gcc2.7.2.3)$B$r;H$C$F$$$^$9!#(B
$B$3$N4D6-$G!$(Bopen$BJ8$GL@<(E*$K%U%!%$%kL>$r;XDj$7$J$$=PNOAuCV$K(B
$BJ8;zNs$r=q$-=P$9$H!$(B"fort.($BF~=PNOAuCVHV9f(B)"$B$H$$$&%U%!%$%k$,$G$-$^$9!#(B
$BNc$($P!$(B
% cat devtest.f

      write(10, *) 'test'
      stop
      end

$B$3$N%W%m%0%i%`$r(B
% fort77 devtest.f
$B$G:n$j!$<B9T$9$k$H!$(Bfort.10$B$H$$$&!$(B'test'$B$H=q$-9~$^$l$?%U%!%$%k$,$G$-$^$9!#(B
fort.10$B$H$$$&%U%!%$%kL>$O$I$&$$$&;EAH$_$GL>IU$1$i$l$k$N$G$7$g$&$+!#(B

$B$^$?!$4D6-JQ?t$+2?$+$rA0$b$C$F@_Dj$9$k$3$H$K$h$C$F!$L@<(E*$K;XDj$7$J$$(B
$B=PNOAuCVHV9f$r%U%!%$%kL>$K3d$jEv$F$k$3$H$,$G$-$k$G$7$g$&$+!#(B

$B:G=*E*$K$O!$0J2<$N$h$&$JN.$l$N%7%'%k%9%/%j%W%H$r:n$j$?$$$H;W$C$F$$$^$9!#(B
$B$D$^$j!$(BVMS$B$N%3%^%s%I%W%m%7!<%8%c$G$N(BASSIGN$BJ8$NBe$o$j$K$J$k$b$N$,(B
$B$[$7$$$o$1$G$9!#(B

#!/bin/bash
($BF~=PNOAuCVHV9f(BN$BHV$K%U%!%$%kL>$r3d$jEv$F(B)
fort77 source.f # <- open$BJ8$J$I$G%U%!%$%kL>$r3d$jEv$F$J$$%W%m%0%i%`(B 
a.out

$B0J>e!$$h$m$7$/$*4j$$$$$?$7$^$9!#(B
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<