The R Project SVN R

Rev

Rev 68947 | Rev 85140 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 68947 Rev 71843
Line 277... Line 277...
277 
    int funcount=0, H, i, j, L=0;
 277 
    int funcount=0, H, i, j, L=0;
278 
    int n1=0;
 278 
    int n1=0;
279 
    double oldsize;
 279 
    double oldsize;
280 
    double **P;
 280 
    double **P;
281 
    double size, step, temp, trystep;
 281 
    double size, step, temp, trystep;
282 
    char tstr[9]; // allow for 10^8 iters ...
 282 
    char tstr[12]; // allow for 10^8 iters and pacify gcc7
283 
    double VH, VL, VR;
 283 
    double VH, VL, VR;
284 
 
 284 
 
285 
    if (maxit <= 0) {
 285 
    if (maxit <= 0) {
286 
	*Fmin = fminfn(n, Bvec, ex);
 286 
	*Fmin = fminfn(n, Bvec, ex);
287 
	*fncount = 0;
 287 
	*fncount = 0;
Line 366... Line 366...
366 
 
 366 
 
367 
	    if (VH <= VL + convtol || VL <= abstol) break;
 367 
	    if (VH <= VL + convtol || VL <= abstol) break;
368 
 
 368 
 
369 
	    // avoid buffer overflow at 100001 iters. (PR#15240)
 369 
	    // avoid buffer overflow at 100001 iters. (PR#15240)
370 
	    if (trace) {
 370 
	    if (trace) {
371 
		snprintf(tstr, 9, "%5d", funcount);
 371 
		snprintf(tstr, 12, "%5d", funcount);
372 
		Rprintf("%s%s %f %f\n", action, tstr, VH, VL);
 372 
		Rprintf("%s%s %f %f\n", action, tstr, VH, VL);
373 
	    }
 373 
	    }
374 
 
 374 
 
375 
	    for (i = 0; i < n; i++) {
 375 
	    for (i = 0; i < n; i++) {
376 
		temp = -P[i][H - 1];
 376 
		temp = -P[i][H - 1];