double initial_half[DIM], step_size[DIM];
FILE *initial_f;
gsl_vector initial_gsl, step_size_gsl;
- int r, i;
+ int r, i, size_check_counter= 0;
if (argc==3) {
input_file= argv[1];
for (;;) {
GA( gsl_multimin_fminimizer_iterate(minimiser) );
- size= gsl_multimin_fminimizer_size(minimiser);
- r= gsl_multimin_test_size(size, stop_epsilon);
+ if (!(size_check_counter++ % DIM)) {
+ size= gsl_multimin_fminimizer_size(minimiser);
+ r= gsl_multimin_test_size(size, stop_epsilon);
- if (printing_check(pr_size,215))
- printf("r=%2d, size %# e\n", r, size);
- flushoutput();
+ if (printing_check(pr_size,215))
+ printf("r=%2d, size %# e\n", r, size);
+ flushoutput();
- if (r==GSL_SUCCESS) break;
- assert(r==GSL_CONTINUE);
+ if (r==GSL_SUCCESS) break;
+ assert(r==GSL_CONTINUE);
+ }
}
if (final_file) {