//
// Testing a ROOT-version dependent problem filling a TTree with TClonesArray
//

class action;
class data;

class data : public TObject {
private:
  Float_t value;                  //pad control number

public:
  data();
  ~data();

  Float_t GetValue(){return value;}
  void SetValue(Float_t cha){value=cha;}
};

data::data(){   value=0.; }

data::~data(){ }

class action{
 
public:
  action();
  ~action();

  void Calculate(TClonesArray* clo);
};

action::action(){ }

action::~action(){ }

void action::Calculate(TClonesArray* clo, TTree* tre) {
  Double_t myTest[4] = {0.1,0.2,0.3,0.4};
  data** theData;
  theData = new data*[4];

  for(Int_t iterOnPads=0;iterOnPads<4;iterOnPads++){
    theData[iterOnPads] = new data();
    theData[iterOnPads]->SetValue(myTest[iterOnPads]);
    new((*clo)[iterOnPads])data(*theData[iterOnPads]);
  }    
  tre->Fill();
}