	common/xtnct/air(20),idel(20,11),nfile,is(20)
	common/xtnct/ifile(20)
