// process_cbnt_t.h

#ifndef dataset__process_cbnt_t_H
#define dataset__process_cbnt_t_H

// David Adams
// May 2003
//
// Test helpers for process_cbnt.

#include "dataset_util/Text.h"

namespace {

// Return fortran code that can be used to histogram the the run
// and event numbers for a combined ntuple (CbntDataset).
const Text& run_event_code() {
  static Text code;
  if ( code.size() == 0 ) {
    code.append("      integer function cbnt");
    code.append("      include 'cbnt.inc'");
    code.append("      ");
    code.append("      write(*,*) idnevt, run, event");
    code.append("      call hf1(1,1.0*run,1.0)");
    code.append("      call hf1(2,1.0*event,1.0)");
    code.append("      cbnt = 1");
    code.append("      end");
  }
  return code;
}

}  // end unnamed namespace 

#endif