Nbody6
 All Files Functions Variables
xtrnlp.f
Go to the documentation of this file.
1  SUBROUTINE xtrnlp(Q1,Q3,FP)
2 *
3 *
4 * External KS perturbation.
5 * -------------------------
6 *
7  include 'common6.h'
8  REAL*8 fp(3)
9 *
10 *
11 * See whether to include the galactic tidal force.
12  IF (tidal(1).GT.0.0) THEN
13  fp(1) = fp(1) + tidal(1)*q1
14  fp(3) = fp(3) + tidal(3)*q3
15 * Omit Coriolis terms which do not affect the binding energy.
16  END IF
17 *
18 * NB! Second call from routine KSPOLY uses velocity argument.
19 *
20  RETURN
21 *
22  END