Statistics
| Revision:

root / trunk / src / nh99 / pvm / xxmcmc3.cpp @ 1633

History | View | Annotate | Download (451 Bytes)

1
/*
2
 * $Id: xxmcmc3.cpp 1633 2014-02-13 18:53:52Z johnoel $
3
 *
4
 * Author: David Fournier
5
 * Copyright (c) 2008-2012 Regents of the University of California
6
 */
7
#include <admodel.h>
8

    
9
#if !defined(USE_ADPVM)
10
void function_minimizer::pvm_slave_mcmc_routine(void){}
11
#else
12
void function_minimizer::pvm_slave_mcmc_routine(void)
13
{
14
  int nvar=initial_params::nvarcalc();
15
  do
16
  {
17
    int iflag=get_int_from_master();
18
    if (!iflag) break;
19
    pvm_slave_get_monte_carlo_value(nvar);
20
  }
21
  while(1);
22
}
23
#endif