$B>pJs=hM}!J(BC4 $B8e4|!K(B

$B%7%i%P%9(B

$B$O$8$a$K(B

$B>pJs650i%;%s%?!<$N1?1D$*$h$S4IM}$K$D$$$F$N>pJs(B$B!J(B$BMxMQ$N$B!K(B

$BE57?E*$J%A%'!<%s!&%a!<%k(B

$B

$B%"%J%m%0;~7W(B

Fortran$B$N%U%!%$%k$N:n(B$B$jJ}$H%3%s%Q%$%k(B

$BF~=PNO$NItJ,(B

$B9TNs$NF~=PNO(B

Fortran 77$B$X$N=q$-49$((B

$B!cLa$k!d(B