Basic HTML version of Foils prepared
14 October 1997
Foil 48 HPF program excerpts - II
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
subroutine runga-kutte(h, ns)
2
use nbodyvars
3
real h; integer ns
4
INTERFACE
subroutine Grav(X, M, A)
use nbodyvars
real, dimension ( :, : ), intent(in) :: X, M
real, dimension ( :, : ), intent(out) :: A
5
end interface
6
. . .
7
do k = 1, ns
Xdelta1 = V
call Grav(X, M, A)
Vdelta1 = A
. . . .
8
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
