Basic HTML version of Foils prepared 14 October 1997

Foil 49 HPF program excerpts - finished

From Fox Presentation Fall 1995 CPS615 Basic Simulation Track for Computational Science -- Fall Semester 95/96/97. by Nancy McCracken and Geoffrey C. Fox
subroutine Grav(X, M, A)
  • use nbodyvars
  • real, dimension ( :, : ), intent(in) :: X, M
  • real, dimension ( :, : ), intent(out) :: A
  • real, dimension ( 3, NB ) :: Xdelta1, Vdelta1, . . .
!HPF ALIGN Xdelta1, Vdelta1 . . . WITH X
. . .
end subroutine
! main program
program nbody
use nbodyvars
. . .
call setup ( )
!HPF DISTRIBUTE X ( :, BLOCK)
!HPF ALIGN V, M WITH X
. . .
do k = 1, np
call runge-kutta(timestep, ns)
call print_state ()
end do
end program

© 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 Fri Oct 2 1998