integer nparam,mxd
      PARAMETER (nparam=60,mxd=2000)
	real yobs,sigy,yc,x,sigx,delx,fax
	integer npts,nline,icyc,nsigma,iasymm,irefdet,irefsam
      character*40 rfine1,rfine2
      common /gplsc/yobs(mxd),sigy(mxd),yc(mxd),x(nparam+4)
     1 ,sigx(nparam+4),delx(nparam+4),fax,npts,nline,icyc
     2 ,nsigma,iasymm,irefdet,irefsam,rfine1,rfine2
	real bg(mxd),pkval(20,mxd)
	common /retval/bg,pkval