19 lines
944 B
C
19 lines
944 B
C
!------------------ Common Blocks -------------------------
|
|
integer numeval,maxndim,maxeval
|
|
parameter(maxndim=1000,maxeval=15000)
|
|
double precision xevaluated,fevaluated,flargest
|
|
common /FuncvRegresInteg/numeval
|
|
common /FuncvRegresDble/xevaluated(1:maxeval,1:maxndim),
|
|
& fevaluated(1:maxeval,1:maxndim),
|
|
& flargest(1:maxeval)
|
|
save /FuncvRegresInteg/,/FuncvRegresDble/
|
|
! 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
|
|
|
|
!--------------------------------------------------------------
|