rtems_task Test_task(
rtems_task_argument unused
)
{
rtems_id tid;
rtems_time_of_day time;
uint32_t task_index;
rtems_status_code status;
status = rtems_task_ident( RTEMS_SELF, RTEMS_SEARCH_ALL_NODES, &tid );
task_index = task_number( tid );
for ( ; ; ) {
status = rtems_clock_get( RTEMS_CLOCK_GET_TOD, &time );
if ( time.second >= 35 ) {
puts( "*** END OF CLOCK TICK TEST ***" );
exit( 0 );
}
put_name( Task_name[ task_index ], FALSE );
print_time( " - rtems_clock_get - ", &time, "\n" );
status = rtems_task_wake_after( task_index * 5 * get_ticks_per_second() );
}
}
void dump(const mcmc ** chains, const unsigned int n_beta,
const unsigned long iter, FILE * acceptance_file,
FILE ** probabilities_file) {
unsigned int i;
if (iter % PRINT_PROB_INTERVAL == 0) {
if (dumpflag) {
report(chains, n_beta);
dumpflag = 0;
for (i = 0; i < n_beta; i++) {
fflush(probabilities_file[i]);
}
}
fprintf(acceptance_file, "%lu", iter);
for (i = 0; i < n_beta; i++) {
fprintf(acceptance_file, "\t%lu", get_params_accepts_global(
chains[i]));
}
fprintf(acceptance_file, "\n");
fflush(acceptance_file);
IFDEBUG {
debug("dumping distribution");
dump_ul("iteration", iter);
dump_ul("acceptance rate: accepts", get_params_accepts_global(chains[0]));
dump_ul("acceptance rate: rejects", get_params_rejects_global(chains[0]));
dump_mcmc(chains[0]);
} else {
printf("iteration: %lu, a/r: %.3f(%lu/%lu), v:", iter,
(double) get_params_accepts_global(chains[0])
/ (double) (get_params_accepts_global(chains[0])
+ get_params_rejects_global(chains[0])),
get_params_accepts_global(chains[0]),
get_params_rejects_global(chains[0]));
dump_vector(get_params(chains[0]));
printf(" [%d/%lu ticks]\r", get_duration(), get_ticks_per_second());
fflush(stdout);
}
}
