root2paw/src/fiaclev1.for

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

      RETURN 
      END

1	C------------------------------------------------
2	INTEGER FUNCTION FIACLEV1()
3	C------------------------------------------------
4	c
5	INCLUDE 'ACINT.TXT'
6	C
7	call hfnt(77)
8	C
9	FIACLEV1 = 0
10
11	RETURN
12	END
13