subroutine bits72 (iw7, ical, ifxs, irpac, iat, iaz)
c
c-----------------------------------------------------------------------
c
c     This routine setup the masks to determine flags from word 7/2 only
c
c     Do not change these integer*2s to integer*4s
c-----------------------------------------------------------------------
c
      logical*1 iw7
c
      integer*2 iat, iaz, ical, ifxs, imask, irpac, nbsht
c
c-----------------------------------------------------------------------
c     *** determine the mask and bit shift for ical flag ***
c-----------------------------------------------------------------------
c
      imask = '200'O
      nbsht = 1
      call bitmsk (iw7, imask, nbsht, ical)
c
c-----------------------------------------------------------------------
c     *** determine the mask and bit shift for ifxs flag ***
c-----------------------------------------------------------------------
c
      imask = '100'O
      nbsht = 2
      call bitmsk (iw7, imask, nbsht, ifxs)
c
c-----------------------------------------------------------------------
c     *** determine the mask and bit shift for irpac flag ***
c-----------------------------------------------------------------------
c
      imask = '40'O
      nbsht = 3
      call bitmsk (iw7, imask, nbsht, irpac)
c
c-----------------------------------------------------------------------
c     *** determine the mask and bit shift for the iat flag ***
c-----------------------------------------------------------------------
c
      imask = '30'O
      nbsht = 5
      call bitmsk (iw7, imask, nbsht, iat)
c
c-----------------------------------------------------------------------
c     *** determine the mask and bit shift for the iaz flag ***
c-----------------------------------------------------------------------
c
      imask = 7
      nbsht = 8
      call bitmsk (iw7, imask, nbsht, iaz)
c
c-----------------------------------------------------------------------
c-----------------------------------------------------------------------
c
      return
      end