C	INCDAT.INC	850213		Define stuff for include files
 
	INTEGER*2 NUMINC	!max depth include files
 
	PARAMETER (NUMINC=3)
 
	LOGICAL*2 FLLONS(0:NUMINC) !saved values of FLLON
	INTEGER*2 INCLVL	!.INCLUDE level now at (0-->main)
	LOGICAL*2 INCSTR	!.T. if just read .inc from main level
				!(prevents * on that line)
	LOGICAL*2 LICHNG	!.T. if should ignore FLLON
 
	COMMON /INCDAT/ FLLONS,INCLVL,INCSTR,LICHNG
 
C END-OF-FILE INCDAT.INC