🚀 go-pugleaf

$B$I!A$b?<(B$BD.!wEl9)BgJ*M}$G$9!#Lr$K$?$D$+$J!)!)(B

>>>>> On 26 Oct 92 12:48:57 GMT, nakamura@cradle.titech.ac.jp (Kazushi
NAKAMURA) said:
$BCfB<$5$s(B> $B$3$s$P$s$O!"CfB<!wEl9)Bg$G$9!#(B
$BCfB<$5$s(B> | $B$&$A$NBg3X$K$O!"IY;NDL$N%9%Q%3%s(BVP-100E$B$,$"$k$N$G$9$,!"(B
$BCfB<(B$B$5$s(B> | $B%Y%/%H%k1i;;$r9T$J$&$K$O!"(BFORTRAN$B$7$+;H$($J$$$N$G!"(B
$BCfB<$5$s(B> | $BIa(B$BCJ%o!<%/%9%F!<%7%g%s>e$G!"(B
$BCfB<$5$s(B> | C$B$r;H$C$F=q$$$F$$$k%W%m%0%i%`$,(B$B$=$N$^$^$G$OF0$-$^$;$s!#(B
$BCfB<$5$s(B> | $B$=$3$G!"(BC$B$+$i(BFORTRAN$B$KJQ49$7$F$/$l$k(B$B$b$N$,$"$l$P!"(B
$BCfB<$5$s(B> | $B$H$F$bJXMx$K$J$k$N$G$9$,!"(B
$BCfB<$5$s(B> | $B$I$3$+(B$B$K$=$N$h$&$J$b$N$O$J$$$G$7$g$&$+!)(B

$B:,K\$5$s$O;d$HF1$8G:$_$rJz$($F$^(B$B$9$M!J>P!K!#;d$bCN$j$?$$$3$H$G$9$M!#(B
$B!tK\Ev$O>P$$$3$H$8$c$J$$(B

$BCfB<$5(B$B$s(B> $B$m$/$KD4$Y$b$;$:$K2?$G$9$,!"B?J,L5$$$s$8$c$J$$$G$7$g$&$+!#(BC$B$K=PMh(B$B$F(B
$BCfB<$5$s(B> FORTRAN$B$K=PMh$J$$$3$H$C$F$?$/$5$s$"$j$^$9$7!#8@8l$N;EMM$+$i(B$B$$$C$F!"(B
C->FORTRAN$B$OB?J,L5M}$@$H;W$$$^$9!#(BFORTRAN$B$J$s$F7A<08@8lO@0JA0$N%7(B$B%m(B
$BCfB<$5$s(B> $B%b%N$G$9$7!#@$$NN.$l$O!"(BFORTRAN -> C $B$@$7!"@$$NN.$l$K5U$i$C$F(B$B$^$G(B
$BCfB<$5$s(B> $B$3$N:$Fq$KN)$A8~$+$*$&$H$9$k?M$OB?J,$$$J$$$G$7$g$&!#5U(B$B$K!"(BFORTRAN ->C

$B$O$"!D!D(B

$BM>CL!J#f#2#c$O:#$OM>CL$@$h$M!K!'(B

$BCfB<$5$s(B> $B$NJQ(B$B49$J$i(B'f2c'$B$H$$$&$N$,$"$j$^$9(B($BB?J,(BGNU)$B!#$3$l$J$i(Barchie$B$GC5$;$P(B
                                                $B",(B
         $B0l;~4|@9$j>e$,$C$F$^$7$?$,$3$NOC$N7hCe(B$B$O$D$$$?$N$G$7$g$&$+!)(B
$BCfB<$5$s(B> $B$"$k$H;W$$$^$9$,!#(B

$B%5%s%W%k%1!<%9!'(B
$B;d$,$+$$$?$o$1$G$O$J$$%t%'%/%H%k5!MQ%U%)!<%H%i%s$N%=!<%9$r#f#2#c$K$+(B$B$^(B
$B$;$?$3$H$,$"$j$^$9!#$=$N$^$^#f#7#7$N;~$HHf$Y$FLs#2#0!s$,$?CY$/$J$j(B$B$^$7(B
$B$?!#$^!"$3$s$J$b$s$G$7$g!#(B
$B!t$?$&$<$s%W%m%0%i%`0MB8$N$O$:$@$,!#(B$B$A$J$_$K$=$N%=!<%9$O%t%'%/%H%k5!$@(B
$B$H$[$\#1#0#0!s$K6a$$%t%'%/%H%k2=N((B$B$@$=$&$J!#(B

$BK\6Z$KLa$k!'(B

$BCfB<$5$s(B> | $B4JC1$J(BC$B$N%W%m%0%i%`$,JQ49$G$-$k$@(B$B$1$G$$$$$N$G$9!#(B
$BCfB<$5$s(B> $B$G$"$l$P!"(B'$B<j(B'$B$G=q$-D>$7$?J}$,Aa$$$H;W$$$^(B$B$9!#(B

$B$=$&$G$9$M!#(B

$B$G$b#r#a#t#f#o#r$b$$$$$G$9$h!#>/$7<j$r$$$l$l$P$9$0(B$B$KDL$j$^$9$h!#(B
$B!t:#;~#r#a#t#f#o#r$+!)$H$$$o$l$k$3$H$b$"$k$,!"$7$g$&$,(B$B$J$$$8$c$J$$$+!#(B
$BAj<j$O!HBg7?!I$@$b$s!J$W$s$W$s!*!K(B

$B#r#a#t#f#o#r$O#1(B$B#9#7#6G/!J$,%+!<%K%O%s$NO@J8$+$J!)!K$@$+$i$^$@#F#6#6$N(B
$B;~Be$J$s$9$h!#(B$B$@$+$i4pK\E*$K#F#6#6$N%3!<%I$rEG$-$^$9!#(B
$B!t$3$N$X$s$NOC$O$"$NL>:n!X%U(B$B%)!<%H%i%s$O$$$DK4$S$k$+!)!Y!J@N$N#b#i#t!K(B
$B$K$b$N$C$F$^$9!#(B

$B$b$7%Y%/(B$B%H%k2=N($H$+$K$3$@$o$k$N$J$i$^$?JL$N<j$G$9$M!#(B
$B!t>l9g$K$h$C$F$O0l$+$i(B$B=q$$$?J}$,Aa$$$+$bCN$l$J$$!#(B

$B$9$3$7$O9=B$2=$7$F$$$k5$J,$K$J$k$70l1~(B$BF~=PNO$KL\$r$D$`$l$P!X1x$$#C$N%=!<(B
$B%9$@$h$*$s!Y$H$$$C$F$b$@$^$;$k$/$i(B$B$$;w$F$$$^$9!#$^$"%+!<%K%O%s$@$+$iEv(B
$BA3$+!#(B

$B4pK\$O(Bman ratfor$B$J$s$G$9$,>\(B$B$7$/$O!X%=%U%H%&%(%":nK!!J$5$/$[$&!K!Y$C$9!#(B

$B%U%j!<$N#r#a#t#f#o#r$O(B$BIT40A4$G$9!#(B
$B!t;d$,$=$N8e$N2~DjHG$rCN$i$J$$$@$1$+$b$7$l$J$$$,!#(B

$B$A$J(B$B$_$K!"<j85$K$"$k$N$O(B
-----------------------------------------------------------------------
Subject:  v13i037:  Public domain RATFOR in C
Newsgroups: comp.sources.unix
Sender: sources
Approved: rsalz@uunet.UU.NET

Submitted-by: Ozan Yigit <yunexus!oz>
Posting-number: Volume 13, Issue 37
Archive-name: ratfor

[  This is a pre-processor that turns RATFOR programs in to real Fortran
   programs.  RATFOR is Fortran with real control structures, like
   switch and if/then/else.  This happens to generate F77 Fortran, too.
   --r$  ]

-----------------------------------------------------------------------

$B%^%7%sImB0$N#r#a#t#f#o#r$OBgDq$O!H%P!<%/%l%$#1#9#8#3G/#1#17n(B$BHG$N%=!<%9!I(B
$B$r$b$H$K$7$F$k$h$&$J$s$G$9$,!"$3$l$O#7#7MQ$N%3!<%I$OG'<1(B$B$7$^$;$s!#(B
$B!t$3$^$k$N$O#i#f!!#t#h#e#n$rDL$5$J$$$3$H$G$7$g$&$M!#CN$i$J(B$B$$$3$H$K$7$F(B
$B$7$^$&$N!#$G$b$=$N5$$K$J$l$P#f#i#l#t#e#r$J$s$F$9$0$G$7$g(B$B!#(B
$B!tCf?H$OCN$i$J$$$N!#%=!<%9%i%$%;%s%9$,M_$7$$(B;_;

$BCfB<$5$s(B> | $B>pJs$r$*(B$BBT$A$7$F$*$j$^$9!#(B
$BCfB<$5$s(B> $B!t$*Lr$KN)$F$?$G$7$g$&$+!)(B

$BF1$8$/!#(B

$B$G$O(B$B!"$G$O!#(B
--

$B?<$A$c$s!'(Bfukachan@phys.titech.ac.jp