LOGICAL*1	HIDOF,HMPOF,HPROG,HPROJ,HUCHA,HSCHA
	LOGICAL*1	FRTYP,FRATT,IRVDT(7),IRVTI(6),ICRDT(7)
	LOGICAL*1	ICRTI(6),IEXDT(7),IIIII7,MESQN,MERVN,MCTSZ
	LOGICAL*1	MLBSZ,MUSE,MMAX
	INTEGER*2	HFNUM,HFSEQ,HFLEV,HFPRO,FRSIZ,FHIBK(2)
	INTEGER*2	FEFBK(2),FFFBY,IFNAM(3),IFTYP,IFVER,IRVNO
	INTEGER*2	MEFNU,MEFSQ,HCKSM
	COMMON	/HDRCOM/
	1		 HIDOF,HMPOF,HFNUM,HFSEQ,HFLEV,HPROG,HPROJ
	1		,HFPRO,HUCHA,HSCHA,HUFAT
	COMMON	/IDCOM/
	1		 IFNAM,IFTYP,IFVER,IRVNO,IRVDT,IRVTI,ICRDT
	1		,ICRTI,IEXDT,IIIII7
	COMMON	/MAPCOM/
	1		 MESQN,MERVN,MEFNU,MEFSQ,MCTSZ,MLBSZ,MUSE
	1		,MMAX
	COMMON	/RETCOM/ MRTRV,HCKSM