Basic HTML version of Foils prepared 22 February 1998

Foil 53 HPF program excerpts - finished

From Fox Presentation Fall 1995 CPS615 Basic Simulation Track for Computational Science -- 1998 Enhancements. by Geoffrey C. Fox
1 subroutine Grav(X, M, A)
  • use nbodyvars
  • real, dimension ( :, : ), intent(in) :: X, M
  • real, dimension ( :, : ), intent(out) :: A
  • real, dimension ( 3, NB ) :: Xdelta1, Vdelta1, . . .
2 !HPF ALIGN Xdelta1, Vdelta1 . . . WITH X
3 . . .
4 end subroutine
5 ! main program
6 program nbody
7 use nbodyvars
8 . . .
9 call setup ( )
10 !HPF DISTRIBUTE X ( :, BLOCK)
11 !HPF ALIGN V, M WITH X
12 . . .
13 do k = 1, np
14 call runge-kutta(timestep, ns)
15 call print_state ()
16 end do
17 end program
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 Feb 22 1998