Revision 795 branches/replacement/src/nh99/xmodelm3.cpp

xmodelm3.cpp (revision 795)
300 300
          x=p(i);
301 301
          break;
302 302
        }
303
        cerr << "The -simplex option is deprecated. The user should port "
304
             << "to the -neldmead option." << endl;
303 305
      }
306
      if ( (simpflag=option_match(ad_comm::argc,ad_comm::argv,"-neldmead"))>-1)
307
      {
308
        gradient_structure::set_NO_DERIVATIVES();
309
        double delta=1.e-4;
310
        double ftol=1.e-16;
311
        dvector mincords = x;
312
        double ynewlo;
313
        double* pynewlo = &ynewlo;
314
        int icount, numres, ifault;
315
        int* picount = &icount;
316
        int* pnumres = &numres;
317
        int* pifault = &ifault;
318
        neldmead(nvar,mincords,mincords,pynewlo,ftol,delta,picount,pnumres,pifault);
319
        x = mincords;
320
      }
304 321
      if ( (lmnflag=option_match(ad_comm::argc,ad_comm::argv,"-lmn",nopt))>-1)
305 322
      {
306 323
#if   defined(USE_LAPLACE)

Also available in: Unified diff