integer*4 function iangln (degsam, ramang, nang, isampl)
c
c-----------------------------------------------------------------------
c
c     Routine calculates an angle bin index in the range 1 through nang
c     for sample number isampl (1 thru 512 in the current maf1 record).
c
c-----------------------------------------------------------------------
c
c input arguments are:
c
c      degsam   spin rate in degrees per sample
c      ramang   angle of radial instrument with respect to ram
c      nang     number of angle bins into which one spin (360 deg) is split
c      isampl   sample number in range 1 thru 512.
c
c-----------------------------------------------------------------------
c
      integer*4 isampl, nang
c
c-----------------------------------------------------------------------
c-----------------------------------------------------------------------
c
      ang = ramang + (isampl-1) * degsam
c
c-----------------------------------------------------------------------
c     *** offset to put centre (1-nang) in ram direction ***
c-----------------------------------------------------------------------
c
      ang = ang + 900.0
      ang = amod(ang, 360.0)
      iangln1 = int(1.0 + ang * float(nang) / 360.0)
      if (iangln1 .gt. nang) iangln1 = nang
      if (iangln1 .lt. 1) iangln1 = 1
      iangln = iangln1
c
c-----------------------------------------------------------------------
c-----------------------------------------------------------------------
c
      return
      end