c
c------------------------------------------------------------------
c Begin file /home/sting/foster/loc/doppler.h
c------------------------------------------------------------------
c
      parameter (ndopline=4)
      common/doppler/ doptn(mxtms,mxloc),dopun(mxtms,mxloc),
     +                dopvn(mxtms,mxloc),ray(mxtms,mxloc),
     +                ver(mxtms,kmx,mxloc)
      dimension dopline(mxtms,mxloc,ndopline)
      equivalence(dopline,doptn)