C 
      FUNCTION ITBIT (IWRD,IBIT)
C 
C  BIT TEST FUNCTION ENTERED FOR GEC 4070
C 
      IMPLICIT INTEGER*4 (A-Z)
C 
C     WRDLEN IS THE NO OF BITS PER WORD -1
C
C
      WRDLEN=35
C
      JBIT = IBIT - WRDLEN
      JWRD = ISHFT ( IWRD,JBIT)
      IF (IBIT.NE.0) GOTO 1000
        ITBIT = JWRD
        RETURN
 1000 KWRD = ISHFT ( IWRD,(JBIT-1))
      ITBIT = JWRD - KWRD * 2
 100  RETURN
      END
