common/init2_info/lunw,lunr,numholes,ifilt,iopt,affopt,decopt,
     *		dattype,subtype,ahole(5)
	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,mbsf,data,smdat,colordat,moddepth,hole
	common/filter/iwgts
	common/sciss/numscissor,depscissor(200),holescissor(200)


	character ahole
	character hole(5),type(5,50)
	character*3 site,dattype
	character*3 subtype(5)
	character*35 namefile(5)
	character*50 outfile(5)
	character*100 fileform
	character*18 colordat(5,50,1000),colortemp

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