!------------------ 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

!--------------------------------------------------------------