        common /spfeat/ sptitl, center, width, depth, errd, asym
	common /spfeat/ contin, iter, xfract, qwidth, xxfut(5)
	common /spfeat/ icomnt, fname, irecn

	real*4		center,width,depth,errd,asym,contin,iter,xfract,qwidth
	real*4		xxfut
	integer*4	irecn
	character*8	fname
        character*20    icomnt
        character*40    sptitl
