Initial commit

2016-02-03 18:52:05 +00:00
commit d40505e161
507 changed files with 91383 additions and 0 deletions
@@ -0,0 +1,9 @@
+      integer maxnobs,maxnx,maxnh
+      parameter(maxnx=30,maxnh=maxnx*10,maxnobs=maxnx*1000)
+      integer nx,nh,nobs
+      common /annintegers/nx,nh,nobs      
+
+      double precision ysamp(maxnobs),xsamp(maxnobs,maxnx),
+     &  betamin(maxnx*maxnh+2*maxnh),
+     &  betamax(maxnx*maxnh+2*maxnh)
+      common /anndouble/ysamp,xsamp,betamin,betamax