INTEGER ISYSIN		!SYSTEM INPUT LUN
	INTEGER ISYSOU		!SYSTEM LISTING OUTPUT LUN
	INTEGER ISYSER		!SYSTEM LUN FOR ERROR MESSAGE TEMP. FILE
	INTEGER ISYS2		!SYSTEM LUN FOR SECONDARY FILE OPERATIONS
	INTEGER ISYSAT		!SYSTEM LUN FOR INCLUDED FILES
	INTEGER ISYSDK		!SYSTEM LUN FOR NUMBERED ERROR MESSAGE LOOKUP
	BYTE TITLE(72)		!TITLE FIELD
	INTEGER IPAGE		!PAGE NUMBER
	INTEGER ILINE		!PAGE-ORIENTED LINE COUNTER
	BYTE IDATE(9)		!CURRENT DATE FIELD
	BYTE ITIME(8)		!CURRENT TIME FIELD
	REAL*8 VERSN		!CURRENT WIRAP VERSION FIELD
	LOGICAL IOPEN		!IF .T., ERROR MESSAGE FILE IS OPEN
	LOGICAL IFATAL		!IF .T., A FATAL ERROR HAS BEEN DETECTED
	INTEGER NUMERR		!NUMBER OF LINES WRITTEN TO THE ERROR FILE
	INTEGER NUMMSG		!NUMBER OF ERROR MESSAGES DETECTED
	REAL*4 ELAPS		!ELAPSED TIME
	BYTE ICRDAT(9)		!CREATION DATE FIELD
	BYTE IRVDAT(9)		!DATE OF LATEST REVISION
	COMMON / IOPAR / ISYSIN,ISYSOU,ISYSER,ISYS2,ISYSAT,ISYSDK,
	1	IPAGE,ILINE,VERSN,IOPEN,IFATAL,NUMERR,NUMMSG,ELAPS,
	2	TITLE,IDATE,ITIME,ICRDAT,IRVDAT
C