Setter added.
[u/mrichter/AliRoot.git] / TPC / AliTPCcalibGainMult.cxx
CommitLineData
f72219cb 1
2/**************************************************************************
3 * Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
4 * *
5 * Author: The ALICE Off-line Project. *
6 * Contributors are mentioned in the code where appropriate. *
7 * *
8 * Permission to use, copy, modify and distribute this software and its *
9 * documentation strictly for non-commercial purposes is hereby granted *
10 * without fee, provided that the above copyright notice appears in all *
11 * copies and that both the copyright notice and this permission notice *
12 * appear in the supporting documentation. The authors make no claims *
13 * about the suitability of this software for any purpose. It is *
14 * provided "as is" without express or implied warranty. *
15 **************************************************************************/
16
17/*
18
19
20Basic calibration and QA class for the TPC gain calibration based on tracks from BEAM events.
21
22
23Send comments etc. to: A.Kalweit@gsi.de, marian.ivanov@cern.ch
24*/
25
26
27#include "Riostream.h"
28#include "TChain.h"
29#include "TTree.h"
30#include "TH1F.h"
31#include "TH2F.h"
32#include "TList.h"
33#include "TMath.h"
34#include "TCanvas.h"
35#include "TFile.h"
36#include "TF1.h"
37#include "TVectorD.h"
38#include "TProfile.h"
39
40#include "AliTPCcalibDB.h"
41#include "AliTPCclusterMI.h"
42#include "AliTPCClusterParam.h"
43#include "AliTPCseed.h"
44#include "AliESDVertex.h"
45#include "AliESDEvent.h"
46#include "AliESDfriend.h"
47#include "AliESDInputHandler.h"
48#include "AliAnalysisManager.h"
49#include "AliTPCParam.h"
50
51#include "AliComplexCluster.h"
52#include "AliTPCclusterMI.h"
53
54#include "AliLog.h"
55
56#include "AliTPCcalibGainMult.h"
57
58#include "TTreeStream.h"
59
60
61ClassImp(AliTPCcalibGainMult)
62
63
64AliTPCcalibGainMult::AliTPCcalibGainMult()
65 :AliTPCcalibBase(),
66 fMIP(0),
67 fLowerTrunc(0),
68 fUpperTrunc(0),
69 fUseMax(kFALSE),
70 fHistNTracks(0),
71 fHistClusterShape(0),
72 fHistQA(0),
73 fHistGainSector(0),
74 fHistPadEqual(0),
75 fHistGainMult(0)
76{
77 //
78 // Empty default cosntructor
79 //
80 AliInfo("Default Constructor");
81}
82
83
84AliTPCcalibGainMult::AliTPCcalibGainMult(const Text_t *name, const Text_t *title)
85 :AliTPCcalibBase(),
86 fMIP(0),
87 fLowerTrunc(0),
88 fUpperTrunc(0),
89 fUseMax(kFALSE),
90 fHistNTracks(0),
91 fHistClusterShape(0),
92 fHistQA(0),
93 fHistGainSector(0),
94 fHistPadEqual(0),
95 fHistGainMult(0)
96{
97 //
98 //
99 //
100 SetName(name);
101 SetTitle(title);
102 //
103 fMIP = 50.;
104 fLowerTrunc = 0.02; // IMPORTANT CHANGE --> REMOVE HARDWIRED TRUNCATION FROM TRACKER
105 fUpperTrunc = 0.6;
106 fUseMax = kTRUE; // IMPORTANT CHANGE FOR PbPb; standard: kFALSE;
107 //
108 fHistNTracks = new TH1F("ntracks","Number of Tracks per Event; number of tracks per event; number of tracks",1001,-0.5,1000.5);
109 fHistClusterShape = new TH1F("fHistClusterShape","cluster shape; rms meas. / rms exp.;",300,0,3);
110 fHistQA = new TH3F("fHistQA","dEdx; momentum p (GeV); TPC signal (a.u.); pad",500,0.1,20.,500,0.,500,6,-0.5,5.5);
111 BinLogX(fHistQA);
112 //
113 //
114 // MIP, sect, pad (short,med,long,full,oroc), run, ncl
115 Int_t binsGainSec[5] = { 145, 72, 4, 10000000, 65};
116 Double_t xminGainSec[5] = { 10., -0.5, -0.5, -0.5, -0.5};
117 Double_t xmaxGainSec[5] = {300., 71.5, 3.5, 9999999.5, 64.5};
118 TString axisNameSec[5]={"Q","sector","pad type","run", "ncl"};
119 TString axisTitleSec[5]={"Q (a.u)","sector","pad type","run","ncl"};
120 //
121 fHistGainSector = new THnSparseF("fHistGainSector","0:MIP, 1:sect, 2:pad, 3:run, 4:ncl", 5, binsGainSec, xminGainSec, xmaxGainSec);
122 for (Int_t iaxis=0; iaxis<5;iaxis++){
123 fHistGainSector->GetAxis(iaxis)->SetName(axisNameSec[iaxis]);
124 fHistGainSector->GetAxis(iaxis)->SetTitle(axisTitleSec[iaxis]);
125 }
126 //
127 //
128 //
129 Int_t binsPadEqual[6] = { 200, 200, 4, 20, 50, 100};
130 Double_t xminPadEqual[6] = { 0.5, 0.5, -0.5, 0, -250, 0};
131 Double_t xmaxPadEqual[6] = { 1.5, 1.5, 3.5, 4000, 250, 3};
132 TString axisNamePadEqual[6] = {"dEdxRatioMax","dEdxRatioTot","padType","mult","driftlength", "1_pt"};
133 TString axisTitlePadEqual[6] = {"dEdx_padRegion/mean_dEdx Qmax", "dEdx_padRegion/mean_dEdx Qtot","padType","mult","driftlength", "1/pt"};
134 //
135 fHistPadEqual = new THnSparseF("fHistPadEqual","0:dEdx_pad/dEdx_mean, 1:pad, 2:mult, 3:drift, 4:1/pt", 6, binsPadEqual, xminPadEqual, xmaxPadEqual);
136 for (Int_t iaxis=0; iaxis<6;iaxis++){
137 fHistPadEqual->GetAxis(iaxis)->SetName(axisNamePadEqual[iaxis]);
138 fHistPadEqual->GetAxis(iaxis)->SetTitle(axisTitlePadEqual[iaxis]);
139 }
140 //
141 //
142 // MIP Qmax, MIP Qtot, z, pad, vtx. contribut., ncl
143 Int_t binsGainMult[6] = { 145, 145, 25, 4, 100, 80};
144 Double_t xminGainMult[6] = { 10., 10., 0, -0.5, 0, -0.5};
145 Double_t xmaxGainMult[6] = {300., 300., 250, 3.5, 5000, 159.5};
146 TString axisNameMult[6]={"Qmax","Qtot","drift","padtype""multiplicity","ncl"};
147 TString axisTitleMult[6]={"Qmax (a.u)","Qtot (a.u.)","driftlenght l (cm)","Pad Type","multiplicity","ncl"};
148 //
149 fHistGainMult = new THnSparseF("fHistGainMult","MIP Qmax, MIP Qtot, z, type, vtx. contribut.", 6, binsGainMult, xminGainMult, xmaxGainMult);
150 for (Int_t iaxis=0; iaxis<6;iaxis++){
151 fHistGainMult->GetAxis(iaxis)->SetName(axisNameMult[iaxis]);
152 fHistGainMult->GetAxis(iaxis)->SetTitle(axisTitleMult[iaxis]);
153 }
154 //
155 AliInfo("Non Default Constructor");
156 //
157}
158
159
160AliTPCcalibGainMult::~AliTPCcalibGainMult(){
161 //
162 //
163 //
164 //delete fHistNTracks; // histogram showing number of ESD tracks per event
165 //delete fHistGainSector; // histogram showing the number of clusters per track
166
167
168}
169
170
171
172void AliTPCcalibGainMult::Process(AliESDEvent *event) {
173 //
174 //
175 //
176 if (!event) {
177 Printf("ERROR: ESD not available");
178 return;
179 }
180 Int_t ntracks=event->GetNumberOfTracks();
181 fHistNTracks->Fill(ntracks);
182
183 AliESDfriend *esdFriend=static_cast<AliESDfriend*>(event->FindListObject("AliESDfriend"));
184 if (!esdFriend) {
185 Printf("ERROR: esdFriend not available");
186 return;
187 }
188 UInt_t runNumber = event->GetRunNumber();
189 Int_t nContributors = 0;
190 if (event->GetPrimaryVertexTPC()) nContributors = event->GetPrimaryVertexTPC()->GetNContributors();
191 //
192 // track loop
193 //
194 for (Int_t i=0;i<ntracks;++i) {
195 //
196 AliESDtrack *track = event->GetTrack(i);
197 if (!track) continue;
198 //
199 AliExternalTrackParam * trackIn = (AliExternalTrackParam *)track->GetInnerParam();
200 if (!trackIn) continue;
201
202 // calculate necessary track parameters
203 Double_t meanP = trackIn->GetP();
204 Int_t ncls = track->GetTPCNcls();
205
206 if (ncls < 80) continue;
207
208 // exclude tracks which do not look like primaries or are simply too short or on wrong sectors
209
210 if (TMath::Abs(trackIn->Eta()) > 0.8) continue;
211 UInt_t status = track->GetStatus();
212 if ((status&AliESDtrack::kTPCrefit)==0) continue;
213 //if (track->GetNcls(0) < 3) continue; // ITS clusters
214 Float_t dca[2], cov[3];
215 track->GetImpactParameters(dca,cov);
216 Float_t primVtxDCA = TMath::Sqrt(dca[0]*dca[0]);
217 if (primVtxDCA > 10 || primVtxDCA < 0.00001) continue;
218 if (TMath::Abs(dca[1]) > 5) continue;
219 //
220 // require that the track does not cross any dead area
221 //
222 //if (track->GetTPCNclsF() < 158) continue;
223 //
224 //if (seed->CookShape(1) > 1) continue;
225 //if (TMath::Abs(trackIn->GetY()) > 20) continue;
226 //if (TMath::Abs(d)>20) continue; // distance to the 0,0; select only tracks which cross chambers under proper angle
227 //if (TMath::Abs(trackIn->GetSnp()) > 0.6) continue;
228 if (primVtxDCA < 3 && track->GetNcls(0) > 3 && track->GetKinkIndex(0) == 0 && ncls > 100) fHistQA->Fill(meanP, track->GetTPCsignal(), 5);
229
230 // Get seeds
231 AliESDfriendTrack *friendTrack = esdFriend->GetTrack(i);
232 if (!friendTrack) continue;
233 TObject *calibObject;
234 AliTPCseed *seed = 0;
235 for (Int_t l=0;(calibObject=friendTrack->GetCalibObject(l));++l) {
236 if ((seed=dynamic_cast<AliTPCseed*>(calibObject))) break;
237 }
238
239 if (seed) {
240 //
241 const AliExternalTrackParam * trackOut = friendTrack->GetTPCOut();
242 if (!trackIn) continue;
243 if (!trackOut) continue;
244 Double_t meanDrift = 250 - 0.5*TMath::Abs(trackIn->GetZ() + trackOut->GetZ());
245 //
246 for (Int_t irow =0; irow<160;irow++) {
247 AliTPCTrackerPoint * point = seed->GetTrackPoint(irow);
248 if (point==0) continue;
249 AliTPCclusterMI * cl = seed->GetClusterPointer(irow);
250 if (cl==0) continue;
251 //
252 Float_t rsigmay = TMath::Sqrt(point->GetSigmaY());
253 fHistClusterShape->Fill(rsigmay);
254 }
255 //
256 Int_t row0 = 0;
257 Int_t row1 = 160;
258 //
259 Double_t signalShortMax = seed->CookdEdxAnalytical(fLowerTrunc,fUpperTrunc,1,0,62);
260 Double_t signalMedMax = seed->CookdEdxAnalytical(fLowerTrunc,fUpperTrunc,1,63,126);
261 Double_t signalLongMax = seed->CookdEdxAnalytical(fLowerTrunc,fUpperTrunc,1,127,159);
262 Double_t signalMax = seed->CookdEdxAnalytical(fLowerTrunc,fUpperTrunc,1,row0,row1);
263 Double_t signalArrayMax[4] = {signalShortMax, signalMedMax, signalLongMax, signalMax};
264 //
265 Double_t signalShortTot = seed->CookdEdxAnalytical(fLowerTrunc,fUpperTrunc,0,0,62);
266 Double_t signalMedTot = seed->CookdEdxAnalytical(fLowerTrunc,fUpperTrunc,0,63,126);
267 Double_t signalLongTot = seed->CookdEdxAnalytical(fLowerTrunc,fUpperTrunc,0,127,159);
268 Double_t signalTot = seed->CookdEdxAnalytical(fLowerTrunc,fUpperTrunc,0,row0,row1);
269 Double_t signalArrayTot[4] = {signalShortTot, signalMedTot, signalLongTot, signalTot};
270 //
271 Double_t mipSignalShort = fUseMax ? signalShortMax : signalShortTot;
272 Double_t mipSignalMed = fUseMax ? signalMedMax : signalMedTot;
273 Double_t mipSignalLong = fUseMax ? signalLongMax : signalLongTot;
274 Double_t mipSignalOroc = seed->CookdEdxAnalytical(fLowerTrunc,fUpperTrunc,fUseMax,63,159);
275 Double_t signal = fUseMax ? signalMax : signalTot;
276 //
277 fHistQA->Fill(meanP, mipSignalShort, 0);
278 fHistQA->Fill(meanP, mipSignalMed, 1);
279 fHistQA->Fill(meanP, mipSignalLong, 2);
280 fHistQA->Fill(meanP, signal, 3);
281 fHistQA->Fill(meanP, mipSignalOroc, 4);
282 //
283 // "dEdxRatioMax","dEdxRatioTot","padType","mult","driftlength", "1_pt"
284 Float_t meanMax = (1/3.)*(signalArrayMax[0] + signalArrayMax[1] + signalArrayMax[2]);
b4ffdb90 285 Float_t meanTot = (1/3.)*(signalArrayTot[0] + signalArrayTot[1] + signalArrayTot[2]);
4a4c6be2 286 if (meanMax < 1e-5 || meanTot < 1e-5) continue;
f72219cb 287 for(Int_t ipad = 0; ipad < 4; ipad ++) {
288 Double_t vecPadEqual[6] = {signalArrayMax[ipad]/meanMax, signalArrayTot[ipad]/meanTot, ipad, nContributors, meanDrift, track->OneOverPt()};
289 fHistPadEqual->Fill(vecPadEqual);
290 }
291 //
292 if (meanP > 0.4 && meanP < 0.55) {
293 Double_t vecMult[6] = {seed->CookdEdxAnalytical(fLowerTrunc,fUpperTrunc,1,row0,row1),
294 seed->CookdEdxAnalytical(fLowerTrunc,fUpperTrunc,0,row0,row1),
295 meanDrift,
296 3,
297 nContributors,
298 ncls};
299 //
300 fHistGainMult->Fill(vecMult);
301 vecMult[0]=mipSignalShort; vecMult[1]=mipSignalShort; vecMult[3]=0;
302 fHistGainMult->Fill(vecMult);
303 vecMult[0]=mipSignalMed; vecMult[1]=mipSignalMed; vecMult[3]=1;
304 fHistGainMult->Fill(vecMult);
305 vecMult[0]=mipSignalLong; vecMult[1]=mipSignalLong; vecMult[3]=2;
306 fHistGainMult->Fill(vecMult);
307 //
308 }
309 //
310 //
311 if (meanP > 0.5 || meanP < 0.4) continue; // only MIP pions
312 //
313 // for each track, we look at the three different pad regions, split it into tracklets, check if the sector does not change and fill the histogram
314 //
315 Bool_t isNotSplit[3] = {kTRUE, kTRUE, kTRUE}; // short, medium, long (true if the track is not split between two chambers)
316 //
317 Double_t sector[4] = {-1, -1, -1, -1}; // sector number short, medium, long, all
318 Int_t ncl[3] = {0,0,0};
319 //
320 for (Int_t irow=0; irow < 159; irow++){
321 Int_t padRegion = 0;
322 if (irow > 62) padRegion = 1;
323 if (irow > 126) padRegion = 2;
324 //
325 AliTPCclusterMI* cluster = seed->GetClusterPointer(irow);
326 if (!cluster) continue;
327 if (sector[padRegion] == -1) {
328 sector[padRegion] = cluster->GetDetector();
329 continue;
330 }
331 if (sector[padRegion] != -1 && sector[padRegion] != cluster->GetDetector()) isNotSplit[padRegion] = kFALSE;
332 ncl[padRegion]++;
333 }
334 //
335 // MIP, sect, pad, run
336 //
337 Double_t vecMip[5] = {mipSignalShort, mipSignalMed, mipSignalLong, signal, mipSignalOroc};
338 //
339 for(Int_t ipad = 0; ipad < 3; ipad++) {
340 //
341 Double_t vecGainSec[5] = {vecMip[ipad], sector[ipad], ipad, runNumber, ncl[ipad]};
342 if (isNotSplit[ipad]) fHistGainSector->Fill(vecGainSec);
343 }
344 }
345
346 }
347}
348
349
4a4c6be2 350void AliTPCcalibGainMult::MakeLookup(THnSparse * hist, Char_t * outputFile) {
351
352}
f72219cb 353
354
355void AliTPCcalibGainMult::Analyze() {
356
357
358 return;
359
360}
361
362
363Long64_t AliTPCcalibGainMult::Merge(TCollection *li) {
364
365 TIterator* iter = li->MakeIterator();
366 AliTPCcalibGainMult* cal = 0;
367
368 while ((cal = (AliTPCcalibGainMult*)iter->Next())) {
369 if (!cal->InheritsFrom(AliTPCcalibGainMult::Class())) {
370 Error("Merge","Attempt to add object of class %s to a %s", cal->ClassName(), this->ClassName());
371 return -1;
372 }
373
374 if (cal->GetHistNTracks()) fHistNTracks->Add(cal->GetHistNTracks());
375 if (cal->GetHistClusterShape()) fHistClusterShape->Add(cal->GetHistClusterShape());
376 if (cal->GetHistQA()) fHistQA->Add(cal->GetHistQA());
377 if (cal->GetHistGainSector()) fHistGainSector->Add(cal->GetHistGainSector());
378 if (cal->GetHistPadEqual()) fHistPadEqual->Add(cal->GetHistPadEqual());
379 if (cal->GetHistGainMult()) fHistGainMult->Add(cal->GetHistGainMult());
380
381 }
382
383 return 0;
384
385}
386
387
388
389void AliTPCcalibGainMult::BinLogX(const TH1 *h) {
390
391 // Method for the correct logarithmic binning of histograms
392
393 TAxis *axis = h->GetXaxis();
394 int bins = axis->GetNbins();
395
396 Double_t from = axis->GetXmin();
397 Double_t to = axis->GetXmax();
398 Double_t *newBins = new Double_t[bins + 1];
399
400 newBins[0] = from;
401 Double_t factor = pow(to/from, 1./bins);
402
403 for (int i = 1; i <= bins; i++) {
404 newBins[i] = factor * newBins[i-1];
405 }
406 axis->Set(bins, newBins);
407 delete [] newBins;
408
409
410}
411
412
413void AliTPCcalibGainMult::UpdateGainMap() {
414 //
415 // read in the old gain map and scale it appropriately...
416 //
417 /*
418 gSystem->Load("libANALYSIS");
419 gSystem->Load("libTPCcalib");
420 //
421 TFile jj("Run0_999999999_v1_s0.root");
422 AliTPCCalPad * pad = AliCDBEntry->GetObject()->Clone();
423 TFile hh("output.root");
424 AliTPCcalibGainMult * gain = calibTracksGain;
425 TH2D * histGainSec = gain->GetHistGainSector()->Projection(0,1);
426 //
427 TObjArray arr;
428 histGainSec->FitSlicesY(0, 0, -1, 0, "QNR", &arr);
429 TH1D * meanGainSec = arr->At(1);
430 Double_t gainsIROC[36];
431 Double_t gainsOROC[36];
432 Double_t gains[72];
433 //
434 for(Int_t isec = 1; isec < meanGainSec->GetNbinsX() + 1; isec++) {
435 cout << isec << " " << meanGainSec->GetXaxis()->GetBinCenter(isec) << " " <<meanGainSec->GetBinContent(isec) << endl;
436 gains[isec-1] = meanGainSec->GetBinContent(isec);
437 if (isec < 37) {
438 gainsIROC[isec-1] = meanGainSec->GetBinContent(isec);
439 } else {
440 gainsOROC[isec - 36 -1] = meanGainSec->GetBinContent(isec);
441 }
442 }
443 Double_t meanIroc = TMath::Mean(36, gainsIROC);
444 Double_t meanOroc = TMath::Mean(36, gainsIROC);
445 for(Int_t i = 0; i < 36; i++) gains[i] /= meanIroc;
446 for(Int_t i = 36; i < 72; i++) gains[i] /= meanOroc;
447 //
448 for(Int_t i = 0; i < 72; i++) {
449 AliTPCCalROC * chamber = pad->GetCalROC(i);
450 chamber->Multiply(gains[i]);
451 cout << i << " "<< chamber->GetMean() << endl;
452 }
453 //
454 // update the OCDB
455 //
456 AliCDBMetaData *metaData= new AliCDBMetaData();
457 metaData->SetObjectClassName("AliTPCCalPad");
458 metaData->SetResponsible("Alexander Kalweit");
459 metaData->SetBeamPeriod(1);
460 metaData->SetAliRootVersion("04-19-05"); //root version
461 metaData->SetComment("New gain map for 1600V OROC gain increase and equalization. Valid for runs starting after technical stop beginning of September.");
462 AliCDBId id1("TPC/Calib/GainFactorDedx", 131541, AliCDBRunRange::Infinity()); // important: new gain runs here..
463 AliCDBStorage * gStorage = AliCDBManager::Instance()->GetStorage("local:///d/alice05/akalweit/projects/OCDBupdate/HighGain_2010-09-03/OCDB/");
464 gStorage->Put(pad, id1, metaData);
465 */
466
467}
468
469void AliTPCcalibGainMult::UpdateClusterParam() {
470 //
471 //
472 //
473 /*
474 gSystem->Load("libANALYSIS");
475 gSystem->Load("libTPCcalib");
476 //
477 TFile ff("OldClsParam.root");
478 AliTPCClusterParam * param = AliCDBEntry->GetObject()->Clone();
479
480 TFile hh("output.root");
481 AliTPCcalibGainMult * gain = calibGainMult;
482 TH2D * histGainSec = gain->GetHistGainSector()->Projection(0,2);
483 TObjArray arr;
484 histGainSec->FitSlicesY(0, 0, -1, 0, "QNR", &arr);
485 histGainSec->Draw("colz");
486 TH1D * fitVal = arr.At(1);
487 fitVal->Draw("same");
488 param->GetQnormCorrMatrix()->Print();
489 param->GetQnormCorrMatrix()(0,5) *= fitVal->GetBinContent(1)/fitVal->GetBinContent(1); // short pads Qtot
490 param->GetQnormCorrMatrix()(1,5) *= fitVal->GetBinContent(2)/fitVal->GetBinContent(1); // med pads Qtot
491 param->GetQnormCorrMatrix()(2,5) *= fitVal->GetBinContent(3)/fitVal->GetBinContent(1); // long pads Qtot
492 //
493 param->GetQnormCorrMatrix()(3,5) *= fitVal->GetBinContent(1)/fitVal->GetBinContent(1); // short pads Qmax -> scaling assumed
494 param->GetQnormCorrMatrix()(4,5) *= fitVal->GetBinContent(2)/fitVal->GetBinContent(1); // med pads Qmax -> scaling assumed
495 param->GetQnormCorrMatrix()(5,5) *= fitVal->GetBinContent(3)/fitVal->GetBinContent(1); // long pads Qmax -> scaling assumed
496 //
497 TFile jj("newClusterParam.root","RECREATE");
498 param->Write();
499 param->GetQnormCorrMatrix()->Print();
500 //
501 // update the OCDB
502 //
503 AliCDBMetaData *metaData= new AliCDBMetaData();
504 metaData->SetObjectClassName("AliTPCClusterParam");
505 metaData->SetResponsible("Alexander Kalweit");
506 metaData->SetBeamPeriod(1);
507 metaData->SetAliRootVersion("04-19-04"); //root version
508 metaData->SetComment("1600V OROC / hard thres. / new algorithm");
509 AliCDBId id1("TPC/Calib/ClusterParam", 0, AliCDBRunRange::Infinity()); // important: new gain runs here..
510 AliCDBStorage * gStorage = AliCDBManager::Instance()->GetStorage("local:///lustre/alice/akalweit/baseline/CalibrationEntries/OldThres_NewAlgo_PP");
511 gStorage->Put(param, id1, metaData);
512 */
513
514
515}
516