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
! This loop initializes the array idx with
! pseudo-random numbers between 1 and n=10^8.
do i = 1, n
  • idx(i) = 1 + mod (13131313*i, n)
enddo
! Indexed loop:
do i = 1, n
  • b(idx(i)) = a(i)
enddo

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