**********************************************************************
      SUBROUTINE DIPOLE(PATH)
**********************************************************************
      IMPLICIT REAL*8(A-H,O-Z),INTEGER*4(I-N)

      DIMENSION PATH(7)
      COMMON /QCONST/PAI,RAD,DEG,RE,CVLCTY
      COMMON /QIGRF /YR    ,YT    ,YP    ,
     &               DYRDRR,DYTDRR,DYPDRR,
     &               DYRDTH,DYTDTH,DYPDTH,
     &               DYRDPH,DYTDPH,DYPDPH,
     &               BB    ,
     &               DBBDRR,DBBDTH,DBBDPH

      DATA GMDM/8.07D6/

      RR     = PATH(1)
      TH     = PATH(2)
      PH     = PATH(3)
      COSTH  = COS(TH*RAD)
      SINTH  = SIN(TH*RAD)
      COSTHS = 1.0D0+3.0D0*COSTH**2
      YR     =-2.0D0*COSTH/SQRT(COSTHS)
      YT     =-      SINTH/SQRT(COSTHS)
      YP     = 0.0D0

      DYRDRR = 0.0D0
      DYTDRR = 0.0D0
      DYPDRR = 0.0D0
      DYRDTH =-2.0D0/COSTHS*YT
      DYTDTH = 2.0D0/COSTHS*YR
      DYPDTH = 0.0D0
      DYRDPH = 0.0D0
      DYTDPH = 0.0D0
      DYPDPH = 0.0D0

      BB     = GMDM*SQRT(COSTHS)/RR**3

      DBBDRR =-3.0D0/RR
      DBBDTH =-3.0D0*SINTH*COSTH/COSTHS
      DBBDPH = 0.0D0

      RETURN
      END