-/****************************************************************************
- * This macro is supposed to do reconstruction in the ITS via Kalman *
- * tracker V2. The ITStracker is feeded with parametrized TPC tracks *
- * *
- * It does the following steps: *
- * 1) TPC tracking parameterization *
- * 2) ITS cluster finding V2 (via fast points !) *
- * 3) ITS track finding V2 *
- * 4) Create a reference file with simulation info (p,PDG...) *
- * *
- * (Origin: A.Dainese, Padova, andrea.dainese@pd,infn.it *
- * from AliBarrelReconstruction.C I.Belikov, CERN, Jouri.Belikov@cern.ch) *
- ****************************************************************************/
-
-#ifndef __CINT__
-#include <iostream.h>
-#include <TFile.h>
-#include <TStopwatch.h>
-#include <TObject.h>
-#include "alles.h"
-#include "AliRun.h"
-#include "AliHeader.h"
-#include "AliGenEventHeader.h"
-#include "AliMagF.h"
-#include "AliModule.h"
-#include "AliArrayI.h"
-#include "AliDigits.h"
-#include "AliITS.h"
-#include "AliTPC.h"
-#include "AliITSgeom.h"
-#include "AliITSRecPoint.h"
-#include "AliITSclusterV2.h"
-#include "AliITSsimulationFastPoints.h"
-#include "AliITStrackerV2.h"
-#include "AliKalmanTrack.h"
-#include "AliTPCtrackerParam.h"
-#endif
-
-typedef struct {
- Int_t lab;
- Int_t pdg;
- Int_t mumlab;
- Int_t mumpdg;
- Float_t Vx,Vy,Vz;
- Float_t Px,Py,Pz;
-} RECTRACK;
-
-
-Int_t TPCParamTracks(const Char_t *galice,const Char_t *outname,const Int_t coll,const Double_t Bfield,Int_t n);
-Int_t ITSFindClusters(const Char_t *inname,const Char_t *outname,Int_t n);
-Int_t ITSFindTracks(const Char_t *galice,const Char_t *inname,const Char_t *inname2,const Char_t *outname,Int_t n);
-Int_t ITSMakeRefFile(const Char_t *galice, const Char_t *inname, const Char_t *outname, Int_t n);
-
-Int_t AliBarrelRec_TPCparam(Int_t n=1) {
-
- const Char_t *name=" AliBarrelRec_TPCparam";
- cerr<<'\n'<<name<<"...\n";
- gBenchmark->Start(name);
-
-
- const Char_t *TPCtrkNameS="AliTPCtracksParam.root";
- const Char_t *galiceName="galice.root";
- const Char_t *ITSclsName="AliITSclustersV2.root";
- const Char_t *ITStrkName="AliITStracksV2.root";
- const Char_t *ITSrefName="ITStracksRefFile.root";
-
- // set here the code for the type of collision (needed for TPC tracking
- // parameterization). available collisions:
+void AliBarrelRec_TPCparam(Int_t firstEvent=0,Int_t lastEvent=0) {
+ //
+ // Macro to create AliESDs.root using parametrized TPC tracking
+ // and AliITStrackerSA (MI + SA)
+ //
+ // Input files:
+ // - galice.root
+ // - Kinematics.root
+ // - TrackReferences.root
+ // - ITS.RecPoints.root (use AliRecontruction class)
+ // - ITS.Vertex.root (use $ALICE_ROOT/ITS/AliITSVertexerZTest.C)
+ //
+ // A. Dainese - INFN Legnaro
//
- // coll = 0 -> PbPb6000 (HIJING with b<2fm)
- const Int_t collcode = 0;
- // set here the value of the magnetic field
- const Double_t BfieldValue = 0.4;
-
-
-
- AliKalmanTrack::SetConvConst(100/0.299792458/BfieldValue);
- // ********** Build TPC tracks with parameterization *********** //
- if (TPCParamTracks(galiceName,TPCtrkNameS,collcode,BfieldValue,n)) {
- cerr<<"Failed to get TPC hits !\n";
- return 1;
- }
-
-
- // ********** Find ITS clusters *********** //
- if (ITSFindClusters(galiceName,ITSclsName,n)) {
- cerr<<"Failed to get ITS clusters !\n";
- return 1;
- }
+ Int_t collcode = 1; // pp collisions
+ Bool_t useMeanVtx = kFALSE;
+ AliGeomManager::LoadGeometry("geometry.root");
- // ********* Find ITS tracks *********** //
- if (ITSFindTracks(galiceName,TPCtrkNameS,ITSclsName,ITStrkName,n)) {
- cerr<<"Failed to get ITS tracks !\n";
- return 1;
- }
+ if (gAlice) {
+ delete AliRunLoader::Instance();
+ delete gAlice;
+ gAlice=0;
+ }
+ AliRunLoader *rl = AliRunLoader::Open("galice.root");
+ if (rl == 0x0) {
+ cerr<<"Can not open session"<<endl;
+ return;
+ }
+ Int_t retval = rl->LoadgAlice();
+ if (retval) {
+ cerr<<"LoadgAlice returned error"<<endl;
+ delete rl;
+ return;
+ }
+ retval = rl->LoadHeader();
+ if (retval) {
+ cerr<<"LoadHeader returned error"<<endl;
+ delete rl;
+ return;
+ }
+ gAlice=rl->GetAliRun();
- // ********* Make ITS tracks reference file *********** //
- if (ITSMakeRefFile(galiceName,ITStrkName,ITSrefName,n)) {
- cerr<<"Failed to get ITS tracks ref file!\n";
- return 1;
- }
- gBenchmark->Stop(name);
- gBenchmark->Show(name);
-
- return 0;
-}
-
-
-Int_t TPCParamTracks(const Char_t *galice, const Char_t *outname,
- const Int_t coll,const Double_t Bfield,Int_t n) {
-
- cerr<<"\n*******************************************************************\n";
- Int_t rc;
-
- const Char_t *name="TPCParamTracks";
- cerr<<'\n'<<name<<"...\n";
- gBenchmark->Start(name);
-
- TFile *outfile=TFile::Open(outname,"recreate");
- TFile *infile =TFile::Open(galice);
-
- AliTPCtrackerParam tracker(coll,Bfield);
- rc = tracker.BuildTPCtracks(infile,outfile,n);
-
- delete gAlice; gAlice=0;
-
- infile->Close();
- outfile->Close();
-
- gBenchmark->Stop(name);
- gBenchmark->Show(name);
-
- return rc;
-}
-
-Int_t ITSFindClusters(const Char_t *inname, const Char_t *outname, Int_t n) {
-
+ // Get field from galice.root
+ AliMagF *fiel = (AliMagF*)gAlice->Field();
+ Double_t fieval=TMath::Abs((Double_t)fiel->SolenoidField()/10.);
+ // Set the conversion constant between curvature and Pt
+ AliTracker::SetFieldMap(fiel,kTRUE);
- cerr<<"\n*******************************************************************\n";
-
- Int_t rc=0;
- const Char_t *name="ITSFindClusters";
- cerr<<'\n'<<name<<"...\n";
- gBenchmark->Start(name);
-
-
- // delete reconstruction Tree if it's there
- TFile *f =TFile::Open(inname,"update");
- f->Delete("TreeR0;*");
- f->Close();
-
- TFile *out=TFile::Open(outname,"recreate");
- TFile *in =TFile::Open(inname,"update");
+ /**** The TPC corner ********************/
- if (!(gAlice=(AliRun*)in->Get("gAlice"))) {
- cerr<<"Can't get gAlice !\n";
- return 1;
- }
+ AliTPCtrackerParam tpcTrackerPar(collcode,fieval);
+ tpcTrackerPar.Init();
+ //**** Switch on the PID class (mandatory!)
+ AliPID pid;
- AliITS *ITS = (AliITS*)gAlice->GetModule("ITS");
- if (!ITS) { cerr<<"Can't get the ITS !\n"; return 1;}
- AliITSgeom *geom=ITS->GetITSgeom();
- out->cd();
- geom->Write();
+ /**** The ITS corner ********************/
- Int_t ev=0;
- for (ev = 0; ev<n; ev++){
- in->cd(); // !!!! MI directory must point to galice. - othervise problem with Tree -connection
- gAlice->GetEvent(ev);
- //gAlice->TreeR()->Reset(); //reset reconstructed tree
+ AliITSLoader* itsl = (AliITSLoader*)rl->GetLoader("ITSLoader");
+ if (itsl == 0x0) {
+ cerr<<"Cannot get the ITS loader"<<endl;
+ return;
+ }
+ itsl->LoadRecPoints("read");
+
+ AliITSRecoParam * itsRecoParam = AliITSRecoParam::GetLowFluxParam();
+ AliITSReconstructor::SetRecoParam(itsRecoParam);
+
+ // Instance of the ITS tracker
+ AliITStrackerSA itsTracker(0);
+ Int_t ITSclusters[6] = {1,1,1,1,1,1};
+ itsTracker.SetLayersNotToSkip(ITSclusters);
+
+ // Primary vertex reconstruction in pp
+ AliESDVertex *initVertex = 0;
+ TFile *invtx = new TFile("AliESDVertexMean.root");
+ if(collcode==1 && useMeanVtx) {
+ // open the mean vertex
+ initVertex = (AliESDVertex*)invtx->Get("vtxmean");
+ } else {
+ Double_t pos[3]={0.5,0.5,0.};
+ Double_t err[3]={3.,3.,5.};
+ initVertex = new AliESDVertex(pos,err);
+ }
+ invtx->Close();
+ delete invtx;
+ AliVertexerTracks *vertexer = new AliVertexerTracks(AliTracker::GetBz());
+ vertexer->SetVtxStart(initVertex);
+ vertexer->SetDebug(0);
+ delete initVertex;
+ initVertex=0;
+
+ /***** The TREE for ESD is born *****/
+ TTree *esdTree=new TTree("esdTree","Tree with ESD objects");
+ AliESDEvent *event=0; AliESDEvent *eventTPCin=0;
+ event = new AliESDEvent();
+ event->CreateStdContent();
+ event->WriteToTree(esdTree);
+
+ if(firstEvent>rl->GetNumberOfEvents()) firstEvent=rl->GetNumberOfEvents()-1;
+ if(lastEvent>rl->GetNumberOfEvents()) lastEvent=rl->GetNumberOfEvents()-1;
+ cout<<" Number of events: "<<1+lastEvent-firstEvent<<endl;
+
+ TFile *ppZ = TFile::Open("ITS.Vertex.root"); // z vertices from SPD
+ AliESDVertex *vertexSPD = new AliESDVertex();
+ Char_t zver[100];
+ Double_t vtx[3]={0,0,0};
+ Double_t sigmavtx[3]={0.07,0.07,0.1};
+
+
+ //<---------------------------------- The Loop over events begins
+ TStopwatch timer;
+ Int_t trc;
+ for(Int_t i=firstEvent; i<=lastEvent; i++) {
-
- TTree *pTree=gAlice->TreeR();
- if (!pTree){
- gAlice->MakeTree("R");
- pTree = gAlice->TreeR();
+ cout<<" Processing event number : "<<i<<endl;
+ //AliESDEvent *event = new AliESDEvent();
+ event->SetRunNumber(gAlice->GetRunNumber());
+ event->SetEventNumberInFile(i);
+ event->SetMagneticField(gAlice->Field()->SolenoidField());
+ rl->GetEvent(i);
+
+ //***** Primary vertex from SPD from file
+ sprintf(zver,"Event%d/Vertex",i);
+ vertexSPD = (AliESDVertex*)ppZ->Get(zver);
+ if(!vertexSPD) {
+ esdTree->Fill(); event->Reset();
+ continue;
+ }
+ event->SetVertex(vertexSPD);
+ vertexSPD->GetXYZ(vtx);
+ vertexSPD->GetSigmaXYZ(sigmavtx);
+
+ //***** TPC tracking
+ if ( (trc=tpcTrackerPar.BuildTPCtracks(event)) ) {
+ printf("exiting TPC tracker with code %d in event %d\n",trc,i);
+ esdTree->Fill(); event->Reset();
+ continue;
}
- TBranch *branch=pTree->GetBranch("ITSRecPoints");
- if (!branch) {
- //if not reconstructed ITS branch do reconstruction
- ITS->MakeBranch("R",0);
- //////////////// Taken from ITSHitsToFastPoints.C ///////////////////////
- for (Int_t i=0;i<3;i++) {
- ITS->SetSimulationModel(i,new AliITSsimulationFastPoints());
- }
- Int_t nsignal=25;
- Int_t size=-1;
- Int_t bgr_ev=Int_t(ev/nsignal);
- ITS->HitsToFastRecPoints(ev,bgr_ev,size," ","All"," ");
- ///////////////////////////////////////////////////////////////////////
- gAlice->GetEvent(ev); //MI comment - in HitsToFast... they reset treeR to 0
- //they overwrite full reconstructed event ???? ... so lets connect TreeR one more
- //time
+
+ // make a copy of the ESD at this stage
+ eventTPCin = event;
+
+ //***** ITS tracking
+ itsTracker.AliTracker::SetVertex(vtx,sigmavtx);
+ // itsl->LoadRecPoints("read");
+ TTree *itsTree=itsl->TreeR();
+ if (!itsTree) {
+ cerr<<"Can't get the ITS cluster tree !\n";
+ esdTree->Fill(); event->Reset();
+ return;
+ }
+ itsTracker.UnloadClusters();
+ itsTracker.LoadClusters(itsTree);
+ if ( (trc=itsTracker.Clusters2Tracks(event)) ) {
+ printf("exiting ITS tracker with code %d in event %d\n",trc,i);
+ esdTree->Fill(); event->Reset();
+ continue;
}
+ // Bring kTPCin-tracks back to the TPC inner wall
+ BackToTPCInnerWall(event,eventTPCin);
-
- out->cd();
- TClonesArray *clusters=new TClonesArray("AliITSclusterV2",10000);
- char cname[100];
- sprintf(cname,"TreeC_ITS_%d",ev);
+ // refit inward in ITS:
+ // - refit without vertex constraint
+ // - propagate through beam pipe to local x = 0
+ itsTracker.RefitInward(event);
- TTree *cTree=new TTree(cname,"ITS clusters");
- cTree->Branch("Clusters",&clusters);
-
- pTree=gAlice->TreeR();
- if (!pTree) { cerr<<"Can't get TreeR !\n"; return 1; }
- branch=pTree->GetBranch("ITSRecPoints");
- if (!branch) { cerr<<"Can't get ITSRecPoints branch !\n"; return 1;}
- TClonesArray *points=new TClonesArray("AliITSRecPoint",10000);
- branch->SetAddress(&points);
-
- TClonesArray &cl=*clusters;
- Int_t nclusters=0;
- Int_t nentr=(Int_t)pTree->GetEntries();
- AliITSgeom *geom=ITS->GetITSgeom();
- for (Int_t i=0; i<nentr; i++) {
- if (!pTree->GetEvent(i)) {cTree->Fill(); continue;}
- Int_t lay,lad,det; geom->GetModuleId(i,lay,lad,det);
- Float_t x,y,zshift; geom->GetTrans(lay,lad,det,x,y,zshift);
- Double_t rot[9]; geom->GetRotMatrix(lay,lad,det,rot);
- Double_t yshift = x*rot[0] + y*rot[1];
- Int_t ndet=(lad-1)*geom->GetNdetectors(lay) + (det-1);
- Int_t ncl=points->GetEntriesFast();
- nclusters+=ncl;
- Float_t lp[5];
- Int_t lab[6];
- for (Int_t j=0; j<ncl; j++) {
- AliITSRecPoint *p=(AliITSRecPoint*)points->UncheckedAt(j);
- lp[0]=-p->GetX()-yshift; if (lay==1) lp[0]=-lp[0];
- lp[1]=p->GetZ()+zshift;
- lp[2]=p->GetSigmaX2();
- lp[3]=p->GetSigmaZ2();
- lp[4]=p->GetQ();
- lab[0]=p->GetLabel(0);lab[1]=p->GetLabel(1);lab[2]=p->GetLabel(2);
- lab[3]=ndet;
-
- Int_t label=lab[0];
- TParticle *part=(TParticle*)gAlice->Particle(label);
- label=-3;
- while (part->P() < 0.005) {
- Int_t m=part->GetFirstMother();
- if (m<0) {cerr<<"Primary momentum: "<<part->P()<<endl; break;}
- label=m;
- part=(TParticle*)gAlice->Particle(label);
- }
- if (lab[1]<0) lab[1]=label;
- else if (lab[2]<0) lab[2]=label;
- else cerr<<"No empty labels !\n";
-
- new(cl[j]) AliITSclusterV2(lab,lp);
- }
- cTree->Fill(); clusters->Delete();
- points->Delete();
+ //***** Vertex from ESD tracks
+ if(collcode==1) { // pp
+ AliESDVertex *vertexTrks =
+ (AliESDVertex*)vertexer->FindPrimaryVertex(event);
+ event->SetPrimaryVertex(vertexTrks);
}
- cTree->Write();
- cerr<<"Number of clusters: "<<nclusters<<endl;
- delete cTree; delete clusters; delete points;
- }
+ esdTree->Fill();
+ event->Reset();
+ }//<-----------------------------------The Loop over events ends here
+ timer.Stop(); timer.Print();
- delete gAlice; gAlice=0;
- in->Close();
- out->Close();
- gBenchmark->Stop(name);
- gBenchmark->Show(name);
-
- return rc;
-}
+ // The AliESDs.root is born
+ TFile *ef = TFile::Open("AliESDs.root","RECREATE");
+ if (!ef || !ef->IsOpen()) {cerr<<"Can't open AliESDs.root !\n"; return;}
-Int_t ITSFindTracks(const Char_t *galice, const Char_t * inname,
- const Char_t *inname2, const Char_t *outname,
- Int_t n) {
+ //Write the tree and close everything
+ esdTree->Write();
+ delete esdTree;
+ ef->Close();
-
- cerr<<"\n*******************************************************************\n";
+ delete vertexer;
+ delete rl;
- Int_t rc=0;
- const Char_t *name="ITSFindTracks";
- cerr<<'\n'<<name<<"...\n";
- gBenchmark->Start(name);
-
-
- TFile *out=TFile::Open(outname,"recreate");
- TFile *in =TFile::Open(inname);
- TFile *in2 =TFile::Open(inname2);
-
- AliITSgeom *geom=(AliITSgeom*)gFile->Get("AliITSgeom");
- if (!geom) { cerr<<"can't get ITS geometry !\n"; return 1;}
-
-
- for (Int_t ev=0; ev<n; ev++){
- AliITStrackerV2 tracker(geom,ev);
-
- TArrayF o;
- o.Set(3);
- TFile* vtxFile = new TFile(galice);
- vtxFile->cd();
- AliHeader* header = 0;
- TTree* treeE = (TTree*)gDirectory->Get("TE");
- treeE->SetBranchAddress("Header",&header);
- treeE->GetEntry(ev);
- AliGenEventHeader* genHeader = header->GenEventHeader();
- if(genHeader) {
- // get primary vertex position
- genHeader->PrimaryVertex(o);
- vtxFile->Close();
- delete header;
- // set position of primary vertex
- Double_t vtx[3];
- vtx[0]=o[0]; vtx[1]=o[1]; vtx[2]=o[2];
- cerr<<"+++\n+++ Reading primary vertex position from galice.root\n+++\n+++ Setting primary vertex z = "<<vtx[2]<<" cm for ITS tracking\n+++\n";
- tracker.SetVertex(vtx);
- }else {
- cerr<<"+++\n+++ Event header not found in galice.root:\n+++ Primary vertex in (0,0,0) [default]\n+++\n";
- }
-
- // setup vertex constraint in the two tracking passes
- Int_t flags[2];
- flags[0]=1;
- tracker.SetupFirstPass(flags);
- flags[0]=0;
- tracker.SetupSecondPass(flags);
-
- rc=tracker.Clusters2Tracks(in,out);
-
- }
-
- delete gAlice; gAlice=0;
- in->Close();
- in2->Close();
- out->Close();
-
- gBenchmark->Stop(name);
- gBenchmark->Show(name);
-
- return rc;
+ return;
}
+//--------------------------------------------------------------------------
+void BackToTPCInnerWall(AliESDEvent *event,AliESDEvent *eventTPC) {
+ Int_t ntracks = eventTPC->GetNumberOfTracks();
+ AliESDtrack *esdTrackTPC = 0;
-Int_t ITSMakeRefFile(const Char_t *galice, const Char_t *inname,
- const Char_t *outname, Int_t n) {
-
-
- cerr<<"\n*******************************************************************\n";
-
- Int_t rc=0;
- const Char_t *name="ITSMakeRefFile";
- cerr<<'\n'<<name<<"...\n";
- gBenchmark->Start(name);
-
-
- TFile *out = TFile::Open(outname,"recreate");
- TFile *trk = TFile::Open(inname);
- TFile *kin = TFile::Open(galice);
-
-
- // Get gAlice object from file
- if(!(gAlice=(AliRun*)kin->Get("gAlice"))) {
- cerr<<"gAlice has not been found on galice.root !\n";
- return 1;
+ // create relation between event and eventTPC
+ Int_t labelsTPC[100000000];
+ for(Int_t tr = 0; tr<ntracks; tr++) {
+ esdTrackTPC = (AliESDtrack*)event->GetTrack(tr);
+ labelsTPC[TMath::Abs(esdTrackTPC->GetLabel())] = tr;
}
-
-
-
- Int_t label;
- TParticle *Part;
- TParticle *Mum;
- static RECTRACK rectrk;
-
-
- for(Int_t event=0; event<n; event++){
-
- AliITStrackV2 *itstrack=0;
-
- gAlice->GetEvent(event);
-
- trk->cd();
- // Tree with ITS tracks
- char tname[100];
- sprintf(tname,"TreeT_ITS_%d",event);
-
- TTree *tracktree=(TTree*)trk->Get(tname);
- TBranch *tbranch=tracktree->GetBranch("tracks");
- Int_t nentr=(Int_t)tracktree->GetEntries();
-
- // Tree for true track parameters
- char ttname[100];
- sprintf(ttname,"Tree_Ref_%d",event);
- TTree *reftree = new TTree(ttname,"Tree with true track params");
- reftree->Branch("rectracks",&rectrk,"lab/I:pdg:mumlab:mumpdg:Vx/F:Vy:Vz:Px:Py:Pz");
-
- for (Int_t i=0; i<nentr; i++) {
- itstrack=new AliITStrackV2;
- tbranch->SetAddress(&itstrack);
- tracktree->GetEvent(i);
- label = TMath::Abs(itstrack->GetLabel());
-
- Part = (TParticle*)gAlice->Particle(label);
- rectrk.lab=label;
- rectrk.pdg=Part->GetPdgCode();
- rectrk.mumlab = Part->GetFirstMother();
- if(Part->GetFirstMother()>=0) {
- Mum = (TParticle*)gAlice->Particle(Part->GetFirstMother());
- rectrk.mumpdg=Mum->GetPdgCode();
- } else {
- rectrk.mumpdg=-1;
- }
- rectrk.Vx=Part->Vx();
- rectrk.Vy=Part->Vy();
- rectrk.Vz=Part->Vz();
- rectrk.Px=Part->Px();
- rectrk.Py=Part->Py();
- rectrk.Pz=Part->Pz();
-
- reftree->Fill();
- }
+ ntracks = event->GetNumberOfTracks();
+ AliESDtrack *esdTrack = 0;
+ esdTrackTPC = 0;
+ Int_t indexTPC;
+
+ // loop on tracks
+ for(tr = 0; tr<ntracks; tr++) {
+ esdTrack = (AliESDtrack*)event->GetTrack(tr);
+ // set to kITSout the tracks that don't have kTPCin
+ // (they've been found by AliITStrackerSA)
+ if(!(esdTrack->GetStatus()&AliESDtrack::kTPCin)) {
+ esdTrack->SetStatus(AliESDtrack::kITSout);
+ continue;
+ }
- out->cd();
- reftree->Write();
+ // skip tracks that don't have kITSin
+ if(!(esdTrack->GetStatus()&AliESDtrack::kITSin)) continue;
- }
+ indexTPC = labelsTPC[TMath::Abs(esdTrack->GetLabel())];
+ esdTrackTPC = (AliESDtrack*)eventTPC->GetTrack(indexTPC);
- trk->Close();
- kin->Close();
- out->Close();
-
- gBenchmark->Stop(name);
- gBenchmark->Show(name);
-
+ AliITStrackMI *itsTrack = 0;
+ try {
+ itsTrack = new AliITStrackMI(*esdTrackTPC);
+ esdTrack = 0;
+ }
+ catch (const Char_t *msg) {
+ Warning("ToTPCInnerWall",msg);
+ continue;
+ }
+ itsTrack->UpdateESDtrack(AliESDtrack::kITSout);
+ esdTrack = new AliESDtrack(*(itsTrack->GetESDtrack()));
- return rc;
+ delete itsTrack;
+ } // end loop on tracks
+ return;
}
-
-
-
-
-
-
-
-
-
-
-
-
+//--------------------------------------------------------------------------