16 lines
729 B
C
16 lines
729 B
C
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/
|