C
C=======================================================================
C
C	DEVICE.COM
C
C=======================================================================
C
	COMMON /DEVICE/ LUNTI, LIBLUN, LUNPD1, LUND  ,LUNDP ,LUNLP,
	1		LUNPDL,LUNDAT, LUNPD2, IDTAG ,PFILE1,PFILE2,
	2		DFILEU,DFILEC, ICHART,ICHARF,LUNEL
	COMMON/SABORT/LFLAG
	COMMON/MPSYMB/NIBPT4,CPARAM
C
	LOGICAL*1 DFILEU,DFILEC,LFLAG(5),LISTXY,NLSTXY,DUMPXY
	LOGICAL*1 LABORT,PFILE1,PFILE2,LISTPD
	BYTE ICHART(5),ICHARF(5)
	DIMENSION CPARAM(5,6),NIBPT4(6)
C
	EQUIVALENCE (LFLAG(1),LABORT),(LFLAG(2),LISTXY)
	EQUIVALENCE (LFLAG(3),NLSTXY),(LFLAG(4),DUMPXY)
	EQUIVALENCE (LFLAG(5),LISTPD)