subroutine bits74 (iw7, iz2dis, iz1dis, irdis, irpf, imsf,
     *                   iz2hvf, iz1hvf, irhvf)
c
c-----------------------------------------------------------------------
c     This routine setup the masks to determine flags from word 7/4 only
c-----------------------------------------------------------------------
c
      logical*1 iw7
c
      integer*2 imask, imsf, irdis, irhvf, irpf, iz1dis, iz2dis, iz2hvf,
     *          iz1hvf, nbsht
c
c-----------------------------------------------------------------------
c     *** determine the mask and bit shift for the iz2dis flag ***
c-----------------------------------------------------------------------
c
      imask = '200'O
      nbsht = 1
      call bitmsk (iw7, imask, nbsht, iz2dis)
c
c-----------------------------------------------------------------------
c     *** determine the mask and bit shift for the iz1dis flag ***
c-----------------------------------------------------------------------
c
      imask = '100'O
      nbsht = 2
      call bitmsk(iw7, imask, nbsht, iz1dis)
c
c-----------------------------------------------------------------------
c     *** determine the mask and bit shift for the irdis flag ***
c-----------------------------------------------------------------------
c
      imask = '40'O
      nbsht  = 3
      call bitmsk (iw7, imask, nbsht, irdis)
c
c-----------------------------------------------------------------------
c     *** determine the mask and bit shift for imsf flag ***
c-----------------------------------------------------------------------
c
      imask = '10'O
      nbsht = 5
      call bitmsk(iw7, imask, nbsht, imsf)
c
c-----------------------------------------------------------------------
c     *** determine the mask and bit shift for irpf flag ***
c-----------------------------------------------------------------------
c
      imask = '20'O
      nbsht = 4
      call bitmsk (iw7, imask, nbsht, irpf)
c
c-----------------------------------------------------------------------
c     *** determine the mask and bit shift for the iz2hvf flag ***
c-----------------------------------------------------------------------
c
      imask = 4
      nbsht = 6
      call bitmsk(iw7, imask, nbsht, iz2hvf)
c
c-----------------------------------------------------------------------
c     *** determine the mask and bit shift for the iz1hvf flag ***
c-----------------------------------------------------------------------
c
      imask = 2
      nbsht = 7
      call bitmsk (iw7, imask, nbsht, iz1hvf)
c
c-----------------------------------------------------------------------
c     *** determine the mask and bit shift for the irhvf flag ***
c-----------------------------------------------------------------------
c
      imask = 1
      nbsht = 8
      call bitmsk (iw7, imask, nbsht, irhvf)
c
c-----------------------------------------------------------------------
c-----------------------------------------------------------------------
c
      return
      end