Initial commit
This commit is contained in:
@@ -0,0 +1,15 @@
|
||||
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/
|
||||
Reference in New Issue
Block a user