xtrnlp.f

Go to the documentation of this file.

      SUBROUTINE xtrnlp(Q1,Q3,FP)
*
*
*       External KS perturbation.
*       -------------------------
*
      include 'common6.h'
      REAL*8  fp(3)
*
*
*       See whether to include the galactic tidal force.
      IF (tidal(1).GT.0.0) THEN
          fp(1) = fp(1) + tidal(1)*q1
          fp(3) = fp(3) + tidal(3)*q3
*       Omit Coriolis terms which do not affect the binding energy.
      END IF
*
*       NB! Second call from routine KSPOLY uses velocity argument.
*
      RETURN
*
      END