]> git.uio.no Git - u/mrichter/AliRoot.git/blame - TRD/AliTRDtrack.cxx
Bug fix in LUT
[u/mrichter/AliRoot.git] / TRD / AliTRDtrack.cxx
CommitLineData
46d29e70 1/**************************************************************************
2 * Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
3 * *
4 * Author: The ALICE Off-line Project. *
5 * Contributors are mentioned in the code where appropriate. *
6 * *
7 * Permission to use, copy, modify and distribute this software and its *
8 * documentation strictly for non-commercial purposes is hereby granted *
9 * without fee, provided that the above copyright notice appears in all *
10 * copies and that both the copyright notice and this permission notice *
11 * appear in the supporting documentation. The authors make no claims *
12 * about the suitability of this software for any purpose. It is *
13 * provided "as is" without express or implied warranty. *
14 **************************************************************************/
15
16/*
17$Log$
ca6c93d6 18Revision 1.10 2002/06/12 09:54:35 cblume
19Update of tracking code provided by Sergei
20
0a29d0f1 21Revision 1.8 2001/05/30 12:17:47 hristov
22Loop variables declared once
23
3ab6f951 24Revision 1.7 2001/05/28 17:07:58 hristov
25Last minute changes; ExB correction in AliTRDclusterizerV1; taking into account of material in G10 TEC frames and material between TEC planes (C.Blume,S.Sedykh)
26
2a941f4e 27Revision 1.4 2000/12/08 16:07:02 cblume
28Update of the tracking by Sergei
29
bbf92647 30Revision 1.3 2000/10/15 23:40:01 cblume
31Remove AliTRDconst
32
0e9c2ad5 33Revision 1.2 2000/10/06 16:49:46 cblume
34Made Getters const
35
46d29e70 36Revision 1.1.2.1 2000/09/22 14:47:52 cblume
37Add the tracking code
38
39*/
40
41#include <iostream.h>
5443e65e 42#include <TObject.h>
46d29e70 43
46d29e70 44#include "AliTRDgeometry.h"
45#include "AliTRDcluster.h"
46#include "AliTRDtrack.h"
5443e65e 47#include "../TPC/AliTPCtrack.h"
46d29e70 48
49ClassImp(AliTRDtrack)
50
51
52//_____________________________________________________________________________
53
a819a5f7 54AliTRDtrack::AliTRDtrack(const AliTRDcluster *c, UInt_t index,
5443e65e 55 const Double_t xx[5], const Double_t cc[15],
56 Double_t xref, Double_t alpha) : AliKalmanTrack() {
46d29e70 57 //-----------------------------------------------------------------
58 // This is the main track constructor.
59 //-----------------------------------------------------------------
5443e65e 60
61 fSeedLab = -1;
46d29e70 62
63 fAlpha=alpha;
5443e65e 64 if (fAlpha<-TMath::Pi()) fAlpha += 2*TMath::Pi();
65 if (fAlpha>=TMath::Pi()) fAlpha -= 2*TMath::Pi();
66
46d29e70 67 fX=xref;
68
69 fY=xx[0]; fZ=xx[1]; fC=xx[2]; fE=xx[3]; fT=xx[4];
70
71 fCyy=cc[0];
72 fCzy=cc[1]; fCzz=cc[2];
73 fCcy=cc[3]; fCcz=cc[4]; fCcc=cc[5];
74 fCey=cc[6]; fCez=cc[7]; fCec=cc[8]; fCee=cc[9];
75 fCty=cc[10]; fCtz=cc[11]; fCtc=cc[12]; fCte=cc[13]; fCtt=cc[14];
76
5443e65e 77 fIndex[0]=index;
78 SetNumberOfClusters(1);
79
80 fdEdx=0.;
a2b90f83 81
5443e65e 82 Double_t q = TMath::Abs(c->GetQ());
a819a5f7 83 Double_t s = fX*fC - fE, t=fT;
5443e65e 84 if(s*s < 1) q *= TMath::Sqrt((1-s*s)/(1+t*t));
85
86 fdQdl[0] = q;
46d29e70 87}
88
89//_____________________________________________________________________________
5443e65e 90AliTRDtrack::AliTRDtrack(const AliTRDtrack& t) : AliKalmanTrack(t) {
46d29e70 91 //
92 // Copy constructor.
93 //
94
5443e65e 95 SetLabel(t.GetLabel());
96 fSeedLab=t.GetSeedLabel();
46d29e70 97
5443e65e 98 SetChi2(t.GetChi2());
46d29e70 99 fdEdx=t.fdEdx;
100
101 fAlpha=t.fAlpha;
102 fX=t.fX;
103
104 fY=t.fY; fZ=t.fZ; fC=t.fC; fE=t.fE; fT=t.fT;
105
106 fCyy=t.fCyy;
107 fCzy=t.fCzy; fCzz=t.fCzz;
108 fCcy=t.fCcy; fCcz=t.fCcz; fCcc=t.fCcc;
109 fCey=t.fCey; fCez=t.fCez; fCec=t.fCec; fCee=t.fCee;
110 fCty=t.fCty; fCtz=t.fCtz; fCtc=t.fCtc; fCte=t.fCte; fCtt=t.fCtt;
111
5443e65e 112 Int_t n=t.GetNumberOfClusters();
113 SetNumberOfClusters(n);
114 for (Int_t i=0; i<n; i++) {
a819a5f7 115 fIndex[i]=t.fIndex[i];
116 fdQdl[i]=t.fdQdl[i];
117 }
5443e65e 118}
119
120//_____________________________________________________________________________
121AliTRDtrack::AliTRDtrack(const AliKalmanTrack& t, Double_t alpha) {
122 //
123 // Constructor from AliTPCtrack or AliITStrack .
124 //
125
126 SetLabel(t.GetLabel());
127 SetChi2(0.);
128 SetNumberOfClusters(0);
129
130 fdEdx=0;
131
132 fAlpha = alpha;
133 if (fAlpha < -TMath::Pi()) fAlpha += 2*TMath::Pi();
134 else if (fAlpha >= TMath::Pi()) fAlpha -= 2*TMath::Pi();
135
136 Double_t x, p[5]; t.GetExternalParameters(x,p);
137
138 fX=x;
139
140 x = GetConvConst();
141
142 fY=p[0]; fZ=p[1]; fC=p[4]/x;
143 fE=fX*fC-p[2]; fT=p[3];
144
145 //Conversion of the covariance matrix
146 Double_t c[15]; t.GetExternalCovariance(c);
147
148 c[10]/=x; c[11]/=x; c[12]/=x; c[13]/=x; c[14]/=x*x;
149
150 Double_t c22=fX*fX*c[14] - 2*fX*c[12] + c[5];
151 Double_t c32=fX*c[13] - c[8];
152 Double_t c20=fX*c[10] - c[3], c21=fX*c[11] - c[4], c42=fX*c[14] - c[12];
153
154 fCyy=c[0 ];
155 fCzy=c[1 ]; fCzz=c[2 ];
156 fCcy=c[10]; fCcz=c[11]; fCcc=c[14];
157 fCey=c20; fCez=c21; fCec=c42; fCee=c22;
158 fCty=c[6 ]; fCtz=c[7 ]; fCtc=c[13]; fCte=c32; fCtt=c[9 ];
159
160}
161
162//____________________________________________________________________________
163void AliTRDtrack::GetExternalParameters(Double_t& xr, Double_t x[5]) const {
164 //
165 // This function returns external TRD track representation
166 //
167 xr=fX;
168 x[0]=GetY();
169 x[1]=GetZ();
170 x[2]=GetSnp();
171 x[3]=GetTgl();
172 x[4]=fC*GetConvConst();
173}
174
175//_____________________________________________________________________________
176void AliTRDtrack::GetExternalCovariance(Double_t cc[15]) const {
177 //
178 // This function returns external representation of the covriance matrix.
179 //
180 Double_t a=GetConvConst();
181
182 Double_t c22=fX*fX*fCcc-2*fX*fCec+fCee;
183 Double_t c32=fX*fCtc-fCte;
184 Double_t c20=fX*fCcy-fCey, c21=fX*fCcz-fCez, c42=fX*fCcc-fCec;
185
186 cc[0 ]=fCyy;
187 cc[1 ]=fCzy; cc[2 ]=fCzz;
188 cc[3 ]=c20; cc[4 ]=c21; cc[5 ]=c22;
189 cc[6 ]=fCty; cc[7 ]=fCtz; cc[8 ]=c32; cc[9 ]=fCtt;
190 cc[10]=fCcy*a; cc[11]=fCcz*a; cc[12]=c42*a; cc[13]=fCtc*a; cc[14]=fCcc*a*a;
191}
192
46d29e70 193
194//_____________________________________________________________________________
195void AliTRDtrack::GetCovariance(Double_t cc[15]) const {
196 cc[0]=fCyy;
197 cc[1]=fCzy; cc[2]=fCzz;
198 cc[3]=fCcy; cc[4]=fCcz; cc[5]=fCcc;
199 cc[6]=fCey; cc[7]=fCez; cc[8]=fCec; cc[9]=fCee;
200 cc[10]=fCty; cc[11]=fCtz; cc[12]=fCtc; cc[13]=fCte; cc[14]=fCtt;
201}
202
203//_____________________________________________________________________________
2a941f4e 204Int_t AliTRDtrack::Compare(const TObject *o) const {
46d29e70 205
5443e65e 206// Compares tracks according to their Y2 or curvature
46d29e70 207
208 AliTRDtrack *t=(AliTRDtrack*)o;
209 // Double_t co=t->GetSigmaY2();
210 // Double_t c =GetSigmaY2();
211
212 Double_t co=TMath::Abs(t->GetC());
213 Double_t c =TMath::Abs(GetC());
214
215 if (c>co) return 1;
216 else if (c<co) return -1;
217 return 0;
218}
219
a819a5f7 220//_____________________________________________________________________________
221void AliTRDtrack::CookdEdx(Double_t low, Double_t up) {
222 //-----------------------------------------------------------------
223 // Calculates dE/dX within the "low" and "up" cuts.
224 //-----------------------------------------------------------------
5443e65e 225
a819a5f7 226 Int_t i;
5443e65e 227 Int_t nc=GetNumberOfClusters();
a819a5f7 228
5443e65e 229 Float_t sorted[kMAX_CLUSTERS_PER_TRACK];
230 for (i=0; i < nc; i++) {
231 sorted[i]=fdQdl[i];
232 }
a819a5f7 233
234 Int_t swap;
5443e65e 235
a819a5f7 236 do {
237 swap=0;
238 for (i=0; i<nc-1; i++) {
239 if (sorted[i]<=sorted[i+1]) continue;
240 Float_t tmp=sorted[i];
241 sorted[i]=sorted[i+1]; sorted[i+1]=tmp;
242 swap++;
243 }
244 } while (swap);
245
246 Int_t nl=Int_t(low*nc), nu=Int_t(up*nc);
247 Float_t dedx=0;
248 for (i=nl; i<=nu; i++) dedx += sorted[i];
249 dedx /= (nu-nl+1);
5443e65e 250
a819a5f7 251 SetdEdx(dedx);
252}
253
254
255
46d29e70 256//_____________________________________________________________________________
257Int_t AliTRDtrack::PropagateTo(Double_t xk,Double_t x0,Double_t rho,Double_t pm)
258{
259 // Propagates a track of particle with mass=pm to a reference plane
260 // defined by x=xk through media of density=rho and radiationLength=x0
261
5443e65e 262
46d29e70 263 if (TMath::Abs(fC*xk - fE) >= 0.99999) {
5443e65e 264 Int_t n=GetNumberOfClusters();
265 if (n>4) cerr<<n<<" AliTRDtrack warning: Propagation failed !\n";
46d29e70 266 return 0;
267 }
268
269 Double_t x1=fX, x2=x1+(xk-x1), dx=x2-x1, y1=fY, z1=fZ;
5443e65e 270 Double_t c1=fC*x1 - fE;
271 if((c1*c1) > 1) return 0;
272 Double_t r1=sqrt(1.- c1*c1);
273 Double_t c2=fC*x2 - fE;
274 if((c2*c2) > 1) return 0;
275 Double_t r2=sqrt(1.- c2*c2);
46d29e70 276
277 fY += dx*(c1+c2)/(r1+r2);
278 fZ += dx*(c1+c2)/(c1*r2 + c2*r1)*fT;
279
280 //f = F - 1
281 Double_t rr=r1+r2, cc=c1+c2, xx=x1+x2;
282 Double_t f02= dx*(rr*xx + cc*(c1*x1/r1+c2*x2/r2))/(rr*rr);
283 Double_t f03=-dx*(2*rr + cc*(c1/r1 + c2/r2))/(rr*rr);
284 Double_t cr=c1*r2+c2*r1;
285 Double_t f12= dx*fT*(cr*xx-cc*(r1*x2-c2*c1*x1/r1+r2*x1-c1*c2*x2/r2))/(cr*cr);
286 Double_t f13=-dx*fT*(2*cr + cc*(c2*c1/r1-r1 + c1*c2/r2-r2))/(cr*cr);
287 Double_t f14= dx*cc/cr;
288
289 //b = C*ft
290 Double_t b00=f02*fCcy + f03*fCey, b01=f12*fCcy + f13*fCey + f14*fCty;
291 Double_t b10=f02*fCcz + f03*fCez, b11=f12*fCcz + f13*fCez + f14*fCtz;
292 Double_t b20=f02*fCcc + f03*fCec, b21=f12*fCcc + f13*fCec + f14*fCtc;
293 Double_t b30=f02*fCec + f03*fCee, b31=f12*fCec + f13*fCee + f14*fCte;
294 Double_t b40=f02*fCtc + f03*fCte, b41=f12*fCtc + f13*fCte + f14*fCtt;
295
296 //a = f*b = f*C*ft
297 Double_t a00=f02*b20+f03*b30,a01=f02*b21+f03*b31,a11=f12*b21+f13*b31+f14*b41;
298
299 //F*C*Ft = C + (a + b + bt)
300 fCyy += a00 + 2*b00;
301 fCzy += a01 + b01 + b10;
302 fCcy += b20;
303 fCey += b30;
304 fCty += b40;
305 fCzz += a11 + 2*b11;
306 fCcz += b21;
307 fCez += b31;
308 fCtz += b41;
309
310 fX=x2;
311
312
313 //Multiple scattering ******************
314
315 Double_t d=sqrt((x1-fX)*(x1-fX)+(y1-fY)*(y1-fY)+(z1-fZ)*(z1-fZ));
316 Double_t p2=GetPt()*GetPt()*(1.+fT*fT);
5443e65e 317 p2 = TMath::Min(p2,1e+08); // to avoid division by (1-1) for stiff tracks
46d29e70 318 Double_t beta2=p2/(p2 + pm*pm);
319
320 Double_t ey=fC*fX - fE, ez=fT;
321 Double_t xz=fC*ez, zz1=ez*ez+1, xy=fE+ey;
322
323 Double_t theta2=14.1*14.1/(beta2*p2*1e6)*d/x0*rho;
324 fCcc += xz*xz*theta2;
325 fCec += xz*ez*xy*theta2;
326 fCtc += xz*zz1*theta2;
327 fCee += (2*ey*ez*ez*fE+1-ey*ey+ez*ez+fE*fE*ez*ez)*theta2;
328 fCte += ez*zz1*xy*theta2;
329 fCtt += zz1*zz1*theta2;
330
331
332 //Energy losses************************
5443e65e 333 if (x1 < x2) d=-d;
46d29e70 334 Double_t dE=0.153e-3/beta2*(log(5940*beta2/(1-beta2)) - beta2)*d*rho;
ca6c93d6 335 //PH SetLength(GetLength()+d);
5443e65e 336
337 cc = fC;
46d29e70 338 fC*=(1.- sqrt(p2+pm*pm)/p2*dE);
5443e65e 339 fE+=fX*(fC-cc);
46d29e70 340
341 return 1;
342
343}
344
46d29e70 345//_____________________________________________________________________________
5443e65e 346Int_t AliTRDtrack::Update(const AliTRDcluster *c, Double_t chisq, UInt_t index)
46d29e70 347{
348 // Assignes found cluster to the track and updates track information
349
a819a5f7 350 Double_t r00=c->GetSigmaY2(), r01=0., r11=c->GetSigmaZ2();
46d29e70 351 r00+=fCyy; r01+=fCzy; r11+=fCzz;
352 Double_t det=r00*r11 - r01*r01;
353 Double_t tmp=r00; r00=r11/det; r11=tmp/det; r01=-r01/det;
354
355 Double_t k00=fCyy*r00+fCzy*r01, k01=fCyy*r01+fCzy*r11;
356 Double_t k10=fCzy*r00+fCzz*r01, k11=fCzy*r01+fCzz*r11;
357 Double_t k20=fCcy*r00+fCcz*r01, k21=fCcy*r01+fCcz*r11;
358 Double_t k30=fCey*r00+fCez*r01, k31=fCey*r01+fCez*r11;
359 Double_t k40=fCty*r00+fCtz*r01, k41=fCty*r01+fCtz*r11;
360
361 Double_t dy=c->GetY() - fY, dz=c->GetZ() - fZ;
362 Double_t cur=fC + k20*dy + k21*dz, eta=fE + k30*dy + k31*dz;
363 if (TMath::Abs(cur*fX-eta) >= 0.99999) {
5443e65e 364 Int_t n=GetNumberOfClusters();
365 if (n>4) cerr<<n<<" AliTRDtrack warning: Filtering failed !\n";
366 return 0;
46d29e70 367 }
368
369 fY += k00*dy + k01*dz;
370 fZ += k10*dy + k11*dz;
371 fC = cur;
372 fE = eta;
373 fT += k40*dy + k41*dz;
374
375 Double_t c01=fCzy, c02=fCcy, c03=fCey, c04=fCty;
376 Double_t c12=fCcz, c13=fCez, c14=fCtz;
377
378 fCyy-=k00*fCyy+k01*fCzy; fCzy-=k00*c01+k01*fCzz;
379 fCcy-=k00*c02+k01*c12; fCey-=k00*c03+k01*c13;
380 fCty-=k00*c04+k01*c14;
381
382 fCzz-=k10*c01+k11*fCzz;
383 fCcz-=k10*c02+k11*c12; fCez-=k10*c03+k11*c13;
384 fCtz-=k10*c04+k11*c14;
385
386 fCcc-=k20*c02+k21*c12; fCec-=k20*c03+k21*c13;
387 fCtc-=k20*c04+k21*c14;
388
389 fCee-=k30*c03+k31*c13;
390 fCte-=k30*c04+k31*c14;
391
392 fCtt-=k40*c04+k41*c14;
393
5443e65e 394 Int_t n=GetNumberOfClusters();
395 fIndex[n]=index;
396 SetNumberOfClusters(n+1);
46d29e70 397
5443e65e 398 SetChi2(GetChi2()+chisq);
46d29e70 399 // cerr<<"in update: fIndex["<<fN<<"] = "<<index<<endl;
5443e65e 400
401 return 1;
46d29e70 402}
403
404//_____________________________________________________________________________
405Int_t AliTRDtrack::Rotate(Double_t alpha)
406{
407 // Rotates track parameters in R*phi plane
408
409 fAlpha += alpha;
410
411 Double_t x1=fX, y1=fY;
412 Double_t ca=cos(alpha), sa=sin(alpha);
413 Double_t r1=fC*fX - fE;
414
5443e65e 415 if (TMath::Abs(r1) >= 0.99999) {
416 Int_t n=GetNumberOfClusters();
417 if (n>4) cerr<<n<<" AliTRDtrack warning: Rotation failed !\n";
418 return 0;
419 }
420
46d29e70 421 fX = x1*ca + y1*sa;
422 fY=-x1*sa + y1*ca;
423 fE=fE*ca + (fC*y1 + sqrt(1.- r1*r1))*sa;
424
425 Double_t r2=fC*fX - fE;
426 if (TMath::Abs(r2) >= 0.99999) {
5443e65e 427 Int_t n=GetNumberOfClusters();
428 if (n>4) cerr<<n<<" AliTRDtrack warning: Rotation failed !\n";
46d29e70 429 return 0;
430 }
431
432 Double_t y0=fY + sqrt(1.- r2*r2)/fC;
433 if ((fY-y0)*fC >= 0.) {
5443e65e 434 Int_t n=GetNumberOfClusters();
435 if (n>4) cerr<<n<<" AliTRDtrack warning: Rotation failed !!!\n";
46d29e70 436 return 0;
437 }
438
439 //f = F - 1
440 Double_t f00=ca-1, f32=(y1 - r1*x1/sqrt(1.- r1*r1))*sa,
441 f30=fC*sa, f33=(ca + sa*r1/sqrt(1.- r1*r1))-1;
442
443 //b = C*ft
444 Double_t b00=fCyy*f00, b03=fCyy*f30+fCcy*f32+fCey*f33;
445 Double_t b10=fCzy*f00, b13=fCzy*f30+fCcz*f32+fCez*f33;
446 Double_t b20=fCcy*f00, b23=fCcy*f30+fCcc*f32+fCec*f33;
447 Double_t b30=fCey*f00, b33=fCey*f30+fCec*f32+fCee*f33;
448 Double_t b40=fCty*f00, b43=fCty*f30+fCtc*f32+fCte*f33;
449
450 //a = f*b = f*C*ft
451 Double_t a00=f00*b00, a03=f00*b03, a33=f30*b03+f32*b23+f33*b33;
452
453 // *** Double_t dy2=fCyy;
454
455 //F*C*Ft = C + (a + b + bt)
456 fCyy += a00 + 2*b00;
457 fCzy += b10;
458 fCcy += b20;
459 fCey += a03+b30+b03;
460 fCty += b40;
461 fCez += b13;
462 fCec += b23;
463 fCee += a33 + 2*b33;
464 fCte += b43;
465
466 // *** fCyy+=dy2*sa*sa*r1*r1/(1.- r1*r1);
467 // *** fCzz+=d2y*sa*sa*fT*fT/(1.- r1*r1);
468
469 return 1;
470}
471
472
46d29e70 473//_____________________________________________________________________________
474Double_t AliTRDtrack::GetPredictedChi2(const AliTRDcluster *c) const
475{
a819a5f7 476 /*
477 Double_t r00=c->GetSigmaY2(), r01=0., r11=c->GetSigmaZ2();
46d29e70 478 r00+=fCyy; r01+=fCzy; r11+=fCzz;
479
480 Double_t det=r00*r11 - r01*r01;
481 if (TMath::Abs(det) < 1.e-10) {
482 if (fN>4) cerr<<fN<<" AliTRDtrack warning: Singular matrix !\n";
483 return 1e10;
484 }
485 Double_t tmp=r00; r00=r11; r11=tmp; r01=-r01;
486
487 Double_t dy=c->GetY() - fY, dz=c->GetZ() - fZ;
488
489 return (dy*r00*dy + 2*r01*dy*dz + dz*r11*dz)/det;
a819a5f7 490 */
491
492 Double_t dy=c->GetY() - fY;
493 Double_t r00=c->GetSigmaY2();
494
495 return (dy*dy)/r00;
496
46d29e70 497}
498
499
500//_________________________________________________________________________
501void AliTRDtrack::GetPxPyPz(Double_t& px, Double_t& py, Double_t& pz) const
502{
503 // Returns reconstructed track momentum in the global system.
504
505 Double_t pt=TMath::Abs(GetPt()); // GeV/c
506 Double_t r=fC*fX-fE;
5443e65e 507
508 Double_t y0;
509 if(r > 1) { py = pt; px = 0; }
510 else if(r < -1) { py = -pt; px = 0; }
511 else {
512 y0=fY + sqrt(1.- r*r)/fC;
513 px=-pt*(fY-y0)*fC; //cos(phi);
514 py=-pt*(fE-fX*fC); //sin(phi);
515 }
46d29e70 516 pz=pt*fT;
517 Double_t tmp=px*TMath::Cos(fAlpha) - py*TMath::Sin(fAlpha);
518 py=px*TMath::Sin(fAlpha) + py*TMath::Cos(fAlpha);
519 px=tmp;
520
521}
522
5443e65e 523//_________________________________________________________________________
524void AliTRDtrack::GetGlobalXYZ(Double_t& x, Double_t& y, Double_t& z) const
46d29e70 525{
5443e65e 526 // Returns reconstructed track coordinates in the global system.
527
528 x = fX; y = fY; z = fZ;
529 Double_t tmp=x*TMath::Cos(fAlpha) - y*TMath::Sin(fAlpha);
530 y=x*TMath::Sin(fAlpha) + y*TMath::Cos(fAlpha);
531 x=tmp;
532
533}
3ab6f951 534
5443e65e 535//_________________________________________________________________________
536void AliTRDtrack::ResetCovariance() {
537 //
538 // Resets covariance matrix
539 //
46d29e70 540
5443e65e 541 fCyy*=10.;
542 fCzy=0.; fCzz*=10.;
543 fCcy=0.; fCcz=0.; fCcc*=10.;
544 fCey=0.; fCez=0.; fCec=0.; fCee*=10.;
545 fCty=0.; fCtz=0.; fCtc=0.; fCte=0.; fCtt*=10.;
46d29e70 546
5443e65e 547}