49 HPF³ÌÐòÕªÒª - Íê³É(finished)

---

• 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

---

Copyright: NPACT