Basic HTML version of Foils prepared 22 February 1998

Foil 51 Excerpts from an HPF program for this algorithm

From Fox Presentation Fall 1995 CPS615 Basic Simulation Track for Computational Science -- 1998 Enhancements. by Geoffrey C. Fox
! declarations of global variables
module nbodyvars
real, dimension ( : , : ), allocatable :: X, V, M
integer NB ! number of particles
real G
end module
! allocate arrays
subroutine setup ( )
use nbodyvars
open (10, file=fnm, status="OLD")
read (10, *) NB
allocate (X (3, NB))
allocate (V (3, NB))
. . .
end subroutine

© 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