Nbody6
 All Files Functions Variables
plpot1.f
Go to the documentation of this file.
1  SUBROUTINE plpot1(PHI)
2 *
3 *
4 * Plummer potential energy.
5 * -------------------------
6 *
7  include 'common6.h'
8 *
9 *
10 * Evaluate tidal energy for Plummer potential.
11  phi = 0.0
12  DO 10 i = ifirst,ntot
13  ri2 = ap2
14  DO 5 k = 1,3
15  ri2 = ri2 + x(k,i)**2
16  5 CONTINUE
17  phi = phi - body(i)*mp/sqrt(ri2)
18  10 CONTINUE
19 *
20  RETURN
21 *
22  END