common/init2_info/numholes,dattype,subtype
	common/init2_read/site,fileform,fileformout
	common/i2_output/namefile,outfile,type
	common/i2_output2/leg,sect,begin,end
	common/io2_dat/numcores,numlines,ncore,sbd,data,smdat,mcd,ahole,cordata

	character ahole(5),type(5,42)
	character*3 site,dattype
	character*3 subtype(5)
	character*35 namefile(5)
	character*40 outfile(5)
	character*100 fileform,fileformout

	integer numholes
	integer leg
	integer*4 numcores(5)
	integer numlines(5,42)
	integer ncore(5,42,1500),sect(5,42,1500)
*
	real begin(5,42,1500),end(5,42,1500)
	real sbd(5,42,1500),data(5,42,1500),smdat(5,42,1500),mcd(5,42,1500),
     *	cordata(5,42,1500)