COMMON/FUNC/IOATT,IODET,IORLB,IOWLB,IOEOF,IORWD,IOSEC,IOSTC
	COMMON/STAT/ISSUC,ISPND
	COMMON/STUS/IEEOF,I1600,IEDNR
	COMMON/TEST/TERWD,TEONL,TEWLK
	INTEGER*2   IOATT,IODET,IORLB,IOWLB,IOEOF,IORWD,IOSEC,IOSTC
	INTEGER*2   ISSUC,ISPND
	INTEGER*2   IEEOF,I1600,IEDNR
	INTEGER*2   TERWD,TEONL,TEWLK