Basic HTML version of Foils prepared 14 October 1997

Foil 47 Excerpts from an HPF program for this algorithm

From Fox Presentation Fall 1995 CPS615 Basic Simulation Track for Computational Science -- Fall Semester 95/96/97. by Nancy McCracken and Geoffrey C. Fox
1 ! declarations of global variables
2 module nbodyvars
3 real, dimension ( : , : ), allocatable :: X, V, M
4 integer NB ! number of particles
5 real G
6 end module
7 ! allocate arrays
8 subroutine setup ( )
9 use nbodyvars
10 open (10, file=fnm, status="OLD")
11 read (10, *) NB
12 allocate (X (3, NB))
13 allocate (V (3, NB))
14 . . .
15 end subroutine
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 Fri Oct 2 1998