      integer maxndim,nobs,nxvars,nyvars,maxnobs,
     &  maxnxvars,maxnyvars,iregrestype,iknowder,idobounded
      parameter(maxnobs=50000,maxnxvars=10,maxnyvars=10,
     &  maxndim=1000)
      common /int_com_generic/nobs,nxvars,nyvars,iregrestype,
     &iknowder,idobounded
      double precision xvars(maxnobs,maxnxvars),
     &  yobs(maxnobs,maxnyvars),weity(maxnobs,maxnyvars),
     &  weitx(maxnobs,maxnxvars),betamin(maxndim),
     &  betamax(maxndim),shorty(maxnobs,maxnyvars),
     &  shortx(maxnobs,maxnxvars),xmin(maxnobs,maxnxvars),
     &  xmax(maxnobs,maxnxvars)
      common /dble_com_generic/xvars,yobs,weity,weitx,
     &  betamin,betamax,shorty,shortx,xmin,xmax
      save /int_com_generic/,/dble_com_generic/
