Initial commit

2016-02-03 18:52:05 +00:00
commit d40505e161
507 changed files with 91383 additions and 0 deletions
@@ -0,0 +1,10 @@
+!------------------CommonBlock-----------------------------
+      integer maxmy,maxnx,maxnparams
+      parameter(maxmy=10,maxnx=10,maxnparams=30)
+      integer my,iknowder,nparams
+      double precision targetx(maxnx),targety(maxmy),
+     &  params(maxnparams)
+      common /distcom/targetx,targety,params,
+     &  my,iknowder,nparams
+      save /distcom/
+!----------------------------------------------------------