root2paw/src/fiaclev1.for

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

      RETURN 
      END

1	mocchiut	1.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