Nbody6
 All Files Functions Variables
xtrnlu.f
Go to the documentation of this file.
1  SUBROUTINE xtrnlu(X,M,NB,UG)
2 *
3 *
4 * Harmonic test potential.
5 * ------------------------
6 *
7  IMPLICIT REAL*8 (a-h,m,o-z)
8  REAL*8 x(1),m(1)
9 *
10 *
11  ug=0.0
12  l=0
13  DO i=1,nb
14  DO k=1,3
15  l=l+1
16  ug=ug-5.0*x(l)**2*m(i)
17  END DO
18  END DO
19 *
20  RETURN
21  END