🚀 go-pugleaf

>>>>> On 11 Dec 92 20:09:24 JST, kate@pfu.fujitsu.co.JP (Yoshio Katayama) said:

In article <ZIC.92Dec8192933@tcin0.tci.toshiba.CO.JP>,
	zic@tci.toshiba.CO.JP (Nobuyoshi Kamei) writes:

ZIC> $@;d$O!"(JFortran$@$N!"!V0z?t$N7k9g!W$H$$$&$N$G!"?oJ,G:$_$^$7$?$,!#(J
ZIC> $@8F$S$@$7B&$G!"(J
ZIC> call sub(1, 2)
ZIC> $@$H$+=q$$(J$@$F$*$$$F!"8F$P$l$?B&$G!"(J
ZIC> sub(I, J)
ZIC> I = sin(I)
ZIC> $@$H$+$d$k$H!"$b$&!"2?$@$+0lBN!"2?$,5/$3$k(J$@$d$i!D!D(J

$@JR;3(J> $@J8K!$G6X;_$5$l$F$$$k$3$H$r$7$F$$$k$N$G$9$+$i!"2?$,5/$-$F$bIT;W5D(J
$@JR;3(J> $@$O$J$$$G$9$M!#(J$@$3$l$HF1$8$h$&$J%l%Y%k$N$3$H$O#C$G$O!"(J

$@JR;3(J> 	*--p = *p;
$@JR;3(J> 	i = *p++ * 10 + *p;
$@JR;3(J> 	*(double *)p = 1.0; j = *(int *)p;

$@JR;3(J> $@$J$I$$$/$i$G$bM-$j$^$9!#(J


    $@L^O@$=$&$G$9!#(J
    $@$3$3$G8@$$$?$+$C$?(J$@$N$O!"(J
    	$@!V4V0c$($F$=$N$h$&$K=q$$$?$N$K$b4X$o$i$:!"(J
    	    $@%3%s%Q%$%k!?%j%s%/!?<B9T(J
    	$@$,$G$-$F(J$@$7$^$C$F!"$J$s$H$J$/F0$$$F$7$^$&!#(J
    	$@$G$b!"F0:n$,%*%+%7%$!W(J
$@$H!"$$$&$3$H$,!"(J
    	C$@$N%]%$%s%?$N>l9g(J$@$G$b(J
    	Fortran$@$N0z?t$N7k9g$N>l9g$G$b(J
$@$I$A$i$G$b!"5/$3$jF@$k!#(JC$@$N%]%$%s%?$@$1$,FCJL$G$O$J$$!"$H$$$&(J$@$3$H$G$9!#(J


    $@L^O@!"%3%s%Q%$%i$,%&%)!<%K%s%0$r=P$70W$$$N$O!"(J
    	Fortran$@$N0z?t$N7k9g(J
$@$NJ}$G!"(JC$@$N%](J$@%$%s%?$NJ}$O!"(J
    	$@%]%$%s%?$N;X$9%*%V%8%'%/%H$,L58z$+M-8z$+$O<B9T;~$^$GITL@(J
$@$H$$$&$3$H$,$"$j$^$9$,!#(J
--
    +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    	$@550f!!?.5A(J		E-mail: zic@tci.toshiba.co.jp
      $@El<G(JCAE$@%7%9%F%`%:!J3t!K(J   $@%3%s%T%e!<%?5;=QIt(J $@%3%s%T%e!<%?5;=Q(J
	    7N1HVR/430MHz	Phone: 	(044) 246-0366