Basic HTML version of Foils prepared August 4 1996

Foil 15 PetaFlop Kernel: c). Irregular gather/scatter

From Summary of Working Groups at PAWS and PetaSoft Meetings PAWS(Mandalay Beach) and PetSoft(Bodega Bay) -- April 23 and June 17-19,96. by Geoffrey C. Fox
1 ! This loop initializes the array idx with
2 ! pseudo-random numbers between 1 and n=10^8.
3 do i = 1, n
  • idx(i) = 1 + mod (13131313*i, n)
4 enddo
5 ! Indexed loop:
6 do i = 1, n
  • b(idx(i)) = a(i)
7 enddo
in Table To:

Northeast Parallel Architectures Center, Syracuse University, npac@npac.syr.edu

If you have any comments about this server, send e-mail to webmaster@npac.syr.edu.

Page produced by wwwfoil on Sun Apr 11 1999