C------------------------------------------------
      INTEGER FUNCTION FIACLEV1()
C------------------------------------------------
c
      INCLUDE 'ACINT.TXT'
C
      call hfnt(77)
C
      FIACLEV1 = 0

      RETURN 
      END