/* | termination signal. | */
/* +-----------------------------------------------------------------------+ */
/* Subroutine */ int direct_pardirect_(fp fcn, doublereal *x, integer *n,
- doublereal *eps, integer *maxf, integer *maxt, doublereal *fmin,
+ doublereal *eps, integer *maxf, integer *maxt, doublereal *minf,
doublereal *l, doublereal *u, integer *algmethod, integer *ierror,
FILE *logfile, doublereal *fglobal, doublereal *fglper, doublereal
*volper, doublereal *sigmaper, void *fcn_data)
/* | Call Direct main routine. This routine calls DIRSamplef for the | */
/* | function evaluations, which are then done in parallel. | */
/* +-----------------------------------------------------------------------+ */
- direct_direct_(fcn, &x[1], n, eps, maxf, maxt, fmin, &l[1], &u[1],
+ direct_direct_(fcn, &x[1], n, eps, maxf, maxt, minf, &l[1], &u[1],
algmethod, ierror, logfile, fglobal, fglper, volper, sigmaper,
fcn_data);
/* +-----------------------------------------------------------------------+ */
*delta, integer *sample, integer *new__, integer *length,
FILE *logfile, doublereal *f, integer *free, integer *maxi,
integer *point, fp fcn, doublereal *x, doublereal *l, doublereal *
- fmin, integer *minpos, doublereal *u, integer *n, integer *maxfunc,
+ minf, integer *minpos, doublereal *u, integer *n, integer *maxfunc,
integer *maxdeep, integer *oops, doublereal *fmax, integer *
ifeasiblef, integer *iinfesiblef, void *fcn_data)
{
/* +-----------------------------------------------------------------------+ */
i__1 = *maxi + *maxi;
for (j = 1; j <= i__1; ++j) {
- if (f[pos + f_dim1] < *fmin && f[pos + (f_dim1 << 1)] == 0.) {
- *fmin = f[pos + f_dim1];
+ if (f[pos + f_dim1] < *minf && f[pos + (f_dim1 << 1)] == 0.) {
+ *minf = f[pos + f_dim1];
*minpos = pos;
}
pos = point[pos];