🚀 go-pugleaf

$@JR;3!w(JFortran$@$O$h$/CN$i$J$$(J $@$G$9!#(J

In article <MAKINO.92May19100456@spook.graco.c.u-tokyo.ac.jp>,
	makino@graco.c.u-tokyo.ac.jp (Junichiro Makino) writes:

>   > ;  >	  FORALL (I = 1:N) A(i1(I),j1(I)) = A(i1(I),j(I)) + B(I)
>   > ;  >$@$J$I$O!"%7%j%"%k$K$J$C$F$7$^$$$^$9!#(J

>   > I$@$,0[$J$C$F$$$F$b(J
>   > i1(I), j1(I)$@$NCM$K$h$C$F$OF1(J$@$8(JA$@$NMWAG$r;2>H$9$k2DG=@-$,$"$k$+$i$J$N$G$O(J?

>$@$3$l$O$?$7$+$K$=$N$H$*$j$J$N$G$9$,!"(J CM $@$N%i%$%V%i%j4X(J$@?t$K$O$3$N<j$N5!(J
>$@G=$,$$$m$$$m$"$k$N$GC1$K%3%s%Q%$%i$r=q$$$??M$,$5$\$C$F$$$k$;$$$G$O$J$$(J
>$@$G$7$g$&$+!)(J CM $@$N>l9g!">/$J$/$H$b@0?t7?$G$O%k!<%?$G1i;;$7$J$,$iAw$k$3(J
>$@$H$,$G$-$k$N$G>e$N7A$N%k!<%W$OLdBj$J$/JBNs(J$@2=$G$-$k$O$:$G$9!#!J$9$/$J$/(J
>$@$H$b1s$$@N$K$D$+$C$?(J C* $@$O$d$C$F$/$l$?(J)

FORALL $@$NDj5A$rCN$i$J$$$N$G$9$,(J$@!"(J
$@%7%j%"%k$K<B9T$7$J$$$H!J(J= $@2C;;$r9T$J$&=g=x$r5,Dj$7$J$$$H!K!"(J
$@1i;;7k2L$,JQ$o$C$F$/$k$+$i$G$O$J$$$G$9(J$@$+!)(J

$@Nc$($P!"(J

      N=2
      A(1,1) = 10000.
      B(1:N) = (/ -10000., .1 /)
      i1(1:N) = (/ 1, 1 /)
      j1(1:N) = (/ 1, 1 /)
	$@!J9=J8$O$"$C$F$$$k$+$J!)!K(J

$@$H$$$&>u67$N;~$K!"LdBj$N(J FORALL $@J8$N<B(J$@9T$N;EJ}$,!"(J

      A(1,1) = A(1,1) + B(1)
      A(1,1) = A(1,1) + B(2)

$@$H$J$k$+!"(J

      A(1,1) = A(1,1) + B(2)
      A(1,1) = A(1,1) + B(1)

$@$H$J$k$+$G!":G8e$K(J A(1,1) $@$K;D$kCM$,JQ$o$j$^$9!#(J
$@$3$NMM$J;~(J$@$N7k2L$,0l0U$K$J$k$h$&$K$9$k$?$a$G$O$J$$$G$7$g$&$+!)(J

$@!t$I$3$>$N%W%j%W%m$_$?$$$K!V1i;;8m:9$r5v$9%*%W%7(J$@%g%s!W$H$+(J :-p
--
($@3t(J)$@#P#F#U!!Bh#43+H/It!!Bh#2%=%U%H%&%'%"It!!Bh#3%=%U%H%&%'%"2](J
    $@JR;3!!A1IW(J    E-mail: kate@pfu.fujitsu.co.jp
		  Tel:    0427-96-5211
    $@!J$5!K!_#1(J  $@!J$]!K!_#1(J  $@!J%3!K!_#1(J  $@!J$$!K!_(J$@#2(J