🚀 go-pugleaf

 $@LnBt!w#S#T#E8&L>8E20Bg3X$G$9!#$3(J$@$N%K%e!<%9%0%k!<%W$O=iEj9F$G$9!#(J
 $@$$$D$b3Z$7$/5-;v$OFI$^$;$FD:$$$F$$$^$9$,!"7W;;5!20$H$7$F$N(J FORTRAN
 $@$NOC$N$h$&$J$N$G>/$75$CY$l$7$F$$$^$9!#@lLg$OE7BNJ*M}$G#M#H#D%7%_%e(J
 $@%l!<%7%g%s$r9T$J$C$F$$$^$9!#$+$l(J$@$3$l#5G/$[$I%Y%/%H%k%3%s%T%e!<%?!<(J
 $@$r;H$C$F7W;;$7$F$$$^$9$,!"%O!<%I$K$OA4$/AB$$$b$N$G$9!#(J

In article <JOE.92May13113156@hoihoi.kocb.astem.or.jp> joe@kocb.astem.or.jp (Kazuki Joe) writes:

> $@%/%$%:!KG_(J$@ED7/$O2hA|=hM}$dJ8;zG'<1$r@lLg$K8&5f$9$k(JFortran$@%f!<%6$G$9!#(J
> $@H`$N%W%m%0%i%`$G$O!"2hA|%G!<%?$O$?$$$F$$(J$@%m%s%0$N#5#1#2!v#5#1#2$G$9!#(J
> $@;H$C$F$k%^%7%s$O!"%Y%/%H%k!&%^%7%s$G$9!#(J
> 
> $@$?$$$F$$$N%W%m%0%i%`!'(J
> 
> 	  real*4	a(512,512), b(512,512), c(512,512)
> 
> 	  do I=1,512
> 		  do J=1,512
> 			  a(J,I),b(J,I),c(J,I)$@$r;H$&1i;;(J
> 		  enddo
> 	  enddo
> 
> $@$H$3$m$,!"$"$kF|!"%W%m%0%i%`$r$A$g$C$H$@$1=q$-4V0c$((J$@$F$7$^$$$^$7$?!#(J
> 
> $@$A$g$C$H$@$1=q$-4V0c$($?%W%m%0%i%`!'(J
> 	  real*4	a(513,513), b(513,513), c(513,513)
> 
> 	  do I=1,512
> 		  do J=1,512
> 			  a(J,I),b(J,I),c(J,I)$@$r;H$&1i;;(J
> 		  enddo
> 	  enddo
> 
> $@$9$k$H!"$$$D$b$N%W%m%0%i%`$h$j$bB.$/Av$k$G$O$"$j$^$;$s$+!#(J
> $@$I$&$7$F$G$7$g$&!)(J
> 
> $@!J2sEz;q3J(J$@!K%3%s%T%e!<%?!&%"!<%-%F%/%A%c$r@lLg$K$7$F$J$$?M!#(J

$@A4$/J,$+$j$^$;$s!#(J

$@$3$l$O$h$/%Y%/%H%k7W;;5!$G$b$$(J$@$o$l$^$9$,$I$N$h$&$J$3$H$J$N$G$7$g$&$+!)(J
$@;~!9$O7W;;5!$N$3$H$O9M$($^$9$,!"IaDL$O7W;;5!20$,6C$/$h$&$J%3(J$@!<%I$r=q$$(J
$@$F$$$k$N$G$O$J$$$G$7$g$&$+!)(J $@$3$N$h$&$J%4%^%s$H$$$k$h$&$JLB$($k7W;;5!(J
$@;H$$$r5_:Q$9$kJ}K!$O(J$@$J$$$N$G$7$g$&$+!)!J<B32$H$7$FBg3X$N7W;;5!%;%s%?!<(J
$@$K$O$R$I$$%3!<%I$,5.=E$J7W;;5!;~4V$r?)$$DY$7$F$$$k(J$@!K(J $@$G$O!"(J
--
    $@LnBt(J $@7C!J$5$H$7!K!wB@M[CO5e4D6-8&5f=j(J.$@L>8E20Bg3X(J $@Gn;N#2G/(J
                                snozawa@stelab.nagoya-u.ac.jp