* initialize Track variables
*----------------------------------
      integer PCODE

      double precision XV, YV, ZV, PX, PY, PZ
      real EvenR(4), OddR(4), EvenPhi(4), OddPhi(4), Rspacal


      common /TRACK/ PCODE, XV, YV, ZV, PX, PY, PZ,
     +               EvenR, OddR, EvenPhi, OddPhi, Rspacal