c
      character*56 dopname(5)
      common/doppler/ doptn(mxtms,mxloc),dopun(mxtms,mxloc),
     +                dopvn(mxtms,mxloc),ray(mxtms,mxloc),
     +                ver(mxtms,kmx,mxloc),dopname,log10dop(5)
      dimension dop(mxtms,mxloc,4)
      equivalence(dop,doptn)
c