common/init2_info/lunw,lunr,numholes,ifilt,iopt,affopt,decopt,
     *		dattype,subtype,ahole
	common/init2_read/site,fileform
	common/i2_output/namefile,outfile,type
	common/i2_output2/leg,sect,begin,end
	common/io2_dat/numcores,numlines,ncore,sbd,data,smdat,moddepth,hole

	character ahole
	character hole(5),type(5,50)
	character*3 site,dattype
	character*3 subtype(5)
	character*35 namefile(5)
	character*40 outfile(5)
	character*80 fileform

	integer ifilt,iopt,affopt,decopt,numholes,lunw,lunr
	integer leg
	integer*4 numcores(5)
	integer numlines(5,50)
	integer ncore(5,50,2000),sect(5,50,2000)
*
	real begin(5,50,2000),end(5,50,2000)
	real sbd(5,50,2000),data(5,50,2000),smdat(5,50,2000),moddepth(5,50,2000)