subroutine refang (degsam, expram)
c
c----------------------------------------------------------------------
c
c     Routine which returns the spin rate in deg/sample (degsam) and a
c     reference angle (expram) of the radial instrument with respect to
c     the s/c velocity vector (-180 0 thru 180.0, 0 = viewing in
c     velocity vector direction). Expram is measured in same sense as
c     the spacecraft spin phase angle.
c
c----------------------------------------------------------------------
c
      integer*2 idat(2812)
c
      common    /maf1/idat
c
      data      scphi/30.0/
c
c----------------------------------------------------------------------
c----------------------------------------------------------------------
c
      degsam = float(idat(20)) * 0.01 / 64.0
      expram = float(idat(23)) * 0.1
      expram = expram + scphi + 720.0
      expram = amod(expram,360.0)
      if (expram .gt. 180.0) expram = expram - 360.0
c
c----------------------------------------------------------------------
c----------------------------------------------------------------------
c
      return
      end