#include "Stntuple/run1/StnRun1InitDataBlocks.hh"
#include "Stntuple/run1/TStnRun1Event.hh"
#include "Stntuple/obj/TStnTag.hh"
#include "Stntuple/obj/TStnTagBlock.hh"

//_____________________________________________________________________________
Int_t StnRun1InitTag(TStnTag* Tag, StnTaggingBlock_t* R1Tag, Int_t I) 
{
  //  init tag object from a UC standard Ntuple

  Tag->fLxy        = R1Tag->Lxy[I];
  Tag->fSigmaLxy   = R1Tag->Lxyerr[I];
  Tag->fCtau       = R1Tag->Ctau[I];
  Tag->fChi2       = R1Tag->Tagchi[I];

  return 0;
}	      
	      
//_____________________________________________________________________________
int StnRun1InitTagBlock(TStnDataBlock* Block, TStnEvent* Event, int Mode) 
{
  // initialize tag data block starting from Run1 UC Stntuple

  TStnRun1Event* event = (TStnRun1Event*) Event;

  TStnTagBlock* blk = (TStnTagBlock*) Block;
  blk->Clear();

  StnTaggingBlock_t* r1tag    = event->TaggingBlock();

  blk->fBtgwrd = r1tag->Btgwrd;

  for (int i=0; i<r1tag->Ntag; i++) {
    TStnTag* tag = blk->NewTag();
    StnRun1InitTag(tag,r1tag,i);
  }
  return 0;
}