Initial commit

2016-02-03 18:52:05 +00:00
commit d40505e161
507 changed files with 91383 additions and 0 deletions
@@ -0,0 +1,18 @@
+!------------------ Common Blocks -------------------------
+      integer numeval,maxndim,maxeval
+      parameter(maxndim=1000,maxeval=15000)
+      double precision xevaluated,fevaluated,flargest
+      common /cpFuncvRegresInteg/numeval
+      common /cpFuncvRegresDble/xevaluated(1:maxeval,1:maxndim),
+     &                        fevaluated(1:maxeval,1:maxndim),
+     &                          flargest(1:maxeval)
+      save /cpFuncvRegresInteg/,/cpFuncvRegresDble/
+! numeval: the number of times that the system is evaluated so far
+! iflargest: the index of the largest function for the latest evaluation
+! xevaluated: the positions where the system is evaluated
+! fevaluated: the function values at xevaluated
+! flargest:   the largest absolute function value
+! maxndim: the maximum allowable dimensions of the system
+! maxeval: the maximum allowable number of function evaluations
+
+!--------------------------------------------------------------