void source_hbook();
void source_hbook()
{

  int  id, nprime = 5000, elements;
  char  title[50], topdir[10];

  static char chtagb[][5] = {"step ","ch   ","eff  "};
 
  /* HISTOS FOR SOURCE RUN READOUT. */
  hbook(50011,"Channel hits - chip 1",128,0.,128.);
  hbook(50012,"Channel hits - chip 2",128,128.,256.);
  hbook(50013,"Channel hits - chip 3",128,256.,384.);
  hbook(50014,"Channel hits - chip 4",128,384.,512.);
  hbook(50015,"Channel hits - chip 5",128,512.,640.);
  hbook(50016,"Channel hits - chip 6",128,640.,768.);

  strcpy (title,  "sourcerun");
  strcpy (topdir, "FILE");
  id       = 150;
  elements = 3;

  hbookn_(&id, title, &elements, topdir, &nprime, chtagb,
          strlen(title), strlen(topdir), 5);



}