integer version, recs, mdat, recl
	parameter (version=106, recs=1024, mdat=4, recl=mdat*recs)
	integer step,size,dirlen
	parameter (step=5, size=8*24*3600/step, dirlen=size/recs+1)
	real undef
	parameter (undef=-65535.0)

	integer lunw, lunr, wrec, rrec
	integer vers, stim, etim
	logical update
	real wdat(mdat,0:recs-1), rdat(mdat,0:recs-1)
	integer wdir(0:dirlen-1), rdir(0:dirlen-1)
	common/tecs_dlog_inc/ lunw, lunr, wrec, rrec
	1, vers, stim, etim, update, wdat, rdat, wdir, rdir