/*
$Log$
+Revision 1.11.6.2 2002/10/11 07:26:37 hristov
+Updating VirtualMC to v3-09-02
+
+Revision 1.13 2002/09/18 09:20:53 cblume
+Write the parameter class into the cluster file
+
Revision 1.11 2001/11/27 08:50:33 hristov
BranchOld replaced by Branch
,fClusterTree->GetName(),fEvent);
fClusterTree->Write();
+
+ AliTRDgeometry *geo = fTRD->GetGeometry();
+ geo->SetName("TRDgeometry");
+ geo->Write();
+ fPar->Write();
return kTRUE;