Basic HTML version of Foils prepared 22 February 1998

Foil 52 HPF program excerpts - II

From Fox Presentation Fall 1995 CPS615 Basic Simulation Track for Computational Science -- 1998 Enhancements. by 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 Sun Feb 22 1998