/[PAMELA software]/DarthVader/TrackerLevel2/src/TrkLevel1.cpp
ViewVC logotype

Diff of /DarthVader/TrackerLevel2/src/TrkLevel1.cpp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by pam-fi, Tue Sep 5 15:15:40 2006 UTC revision 1.23 by pam-fi, Fri Aug 31 14:56:51 2007 UTC
# Line 5  Line 5 
5  #include <TrkLevel1.h>  #include <TrkLevel1.h>
6  #include <iostream>  #include <iostream>
7  using namespace std;  using namespace std;
8    //......................................
9    // F77 routines
10    //......................................
11    extern "C" {
12            
13    //      int readetaparam_();
14        float cog_(int*,int*);
15        float pfaeta_(int*,float*);
16        float pfaeta2_(int*,float*);
17        float pfaeta3_(int*,float*);
18        float pfaeta4_(int*,float*);
19        float pfaetal_(int*,float*);
20        int   npfastrips_(int*,float*);
21            
22    }
23  //--------------------------------------  //--------------------------------------
24  //  //
25  //  //
26  //--------------------------------------  //--------------------------------------
27  TrkCluster::TrkCluster(){  TrkCluster::TrkCluster(){
28                    
29          view     = 0;  //    cout << "TrkCluster::TrkCluster()"<<endl;
30          ladder   = 0;      view     = -1;
31          maxs     = 0;      maxs     = -1;
32          mult     = 0;      indmax   = -1;
33          sgnl     = 0;          
34          whichtrk = -1;      CLlength = 0;
35          CLlength = 0;      clsignal = 0;
36          clsignal = 0;      clsigma  = 0;
37          clsigma  = 0;      cladc    = 0;
38          cladc    = 0;      clbad    = 0;
         clbad    = 0;  
39    
40  };  };
41  //--------------------------------------  //--------------------------------------
42  //  //
43  //  //
44  //--------------------------------------  //--------------------------------------
45  TrkCluster::~TrkCluster(){  TrkCluster::TrkCluster(const TrkCluster& t){
46            
47        view     = t.view;
48        maxs     = t.maxs;
49        indmax   = t.indmax;
50                    
51        CLlength = t.CLlength;      
52        if(CLlength){
53            clsignal = new Float_t[CLlength];
54            clsigma  = new Float_t[CLlength];
55            cladc    = new Int_t[CLlength];
56            clbad    = new Bool_t[CLlength];
57            for(Int_t i=0; i<CLlength;i++){
58                clsignal[i] = t.clsignal[i];
59                clsigma[i]  = t.clsigma[i];
60                cladc[i]    = t.cladc[i];
61                clbad[i]    = t.clbad[i];
62            };
63        };
64    };
65    //--------------------------------------
66    //
67    //
68    //--------------------------------------
69    void TrkCluster::Clear(){
70        
71    //    cout << "void TrkCluster::Clear()"<<endl;
72        if(CLlength){
73          delete [] clsignal;          delete [] clsignal;
74          delete [] clsigma;          delete [] clsigma;
75          delete [] cladc;          delete [] cladc;
76          delete [] clbad;          delete [] clbad;
77        }
78    
79        view     = 0;
80        maxs     = 0;
81        indmax   = 0;
82            
83        CLlength = 0;
84        clsignal = 0;
85        clsigma  = 0;
86        cladc    = 0;
87        clbad    = 0;
88    
89  };  };
90  //--------------------------------------  //--------------------------------------
91  //  //
92  //  //
93  //--------------------------------------  //--------------------------------------
94  TrkCluster::TrkCluster(const TrkCluster& t){  /**
95     * Evaluate the cluster signal including a maximum number of adjacent
96     * strips, around maxs, having a significant signal.
97     * @param nstrip   Maximum number of strips.
98     * @param cut      Inclusion cut ( s > cut*sigma ).
99     * @param force    Falg to force the PFA strip-inclusion pattern (nstrip>0)
100     * If nstrip<=0 only the inclusion cut is used to determine the cluster size.
101     */
102    Float_t TrkCluster::GetSignal(Int_t nstrip, Float_t cut, Bool_t force){
103        
104        if(CLlength<=0)return 0;
105    
106        Float_t s = 0;
107        
108        //-----------------------------------
109        // inlcude strips with s > cut*sigma
110        //-----------------------------------
111    
112        if( nstrip<=0 ){
113    //          for(Int_t is = 0; is < CLlength; is++){
114    //              Float_t scut = cut*clsigma[is];
115    //              if(clsignal[is] > scut) s += clsignal[is];
116    //          };
117            for(Int_t is = indmax+1; is < CLlength; is++){
118                Float_t scut = cut*clsigma[is];
119                if(clsignal[is] > scut) s += clsignal[is];
120                else break;
121            };
122            for(Int_t is = indmax; is >=0; is--){
123                Float_t scut = cut*clsigma[is];
124                if(clsignal[is] > scut) s += clsignal[is];
125                else break;
126            };
127            return s;
128        };
129        
130        //---------------------------------------------------
131        // inlcude strips with s > cut*sigma, up to nstrip.
132        // strips are included in order of decreasing signal
133        //---------------------------------------------------
134        if( !force ){
135    
136            Int_t il = indmax;
137            Int_t ir = indmax;
138            Int_t inc = 0;
139                    
140          view     = t.view;          if( clsignal[indmax] < cut*clsigma[indmax] ) return 0;
         ladder   = t.ladder;  
         maxs     = t.maxs;  
         mult     = t.mult;  
         sgnl     = t.sgnl;  
         whichtrk = t.whichtrk;  
141                    
142          CLlength = t.CLlength;            while ( inc < nstrip ){
143          clsignal = new Float_t[CLlength];              Float_t sl = -100000;
144          clsigma  = new Float_t[CLlength];              Float_t sr = -100000;
145          cladc    = new Int_t[CLlength];              if( il >= 0       ) sl = clsignal[il];
146          clbad    = new Bool_t[CLlength];              if( ir < CLlength ) sr = clsignal[ir];
147          for(Int_t i=0; i<CLlength;i++){              if( sl == sr && inc == 0 ){
148                  clsignal[i] = t.clsignal[i];                  s += clsignal[il]; //cout << inc<<" - "<< clsignal[il]<<" "<<s<<endl;
149                  clsigma[i]  = t.clsigma[i];                  il--;
150                  cladc[i]    = t.cladc[i];                  ir++;
151                  clbad[i]    = t.clbad[i];              }else if ( sl >= sr && sl > cut*clsigma[il] && inc !=0 ){
152                    s += sl;//cout << inc<<" - "<< clsignal[il]<<" "<<s<<endl;
153                    il--;
154                }else if ( sl < sr && sr > cut*clsigma[ir] ){
155                    s += sr;//cout << inc<<" - " << clsignal[ir]<<" "<<s<<endl;
156                    ir++;
157                }else break;
158                
159                inc++;
160            }
161            return s;
162    
163        }else{
164        //---------------------------------------------------
165        // evaluate signal using a fixed number of strips,
166        // following the PFA inclusion patters
167        //---------------------------------------------------
168    //     --> signal of the central strip
169            Float_t sc = clsignal[indmax];
170    //     signal of adjacent strips
171            Float_t sl1 = -9999.;
172            Float_t sl2 = -9999.;
173            Float_t sr1 = -9999.;
174            Float_t sr2 = -9999.;
175            if(indmax-1>=0) sl1 = clsignal[indmax-1];
176            if(indmax-2>=0) sl2 = clsignal[indmax-2];
177            if(indmax+1<CLlength) sr1 = clsignal[indmax+1];
178            if(indmax+2<CLlength) sr2 = clsignal[indmax+2];
179    
180            if(nstrip==1){
181                s = sc;
182            }else if(nstrip==2){
183                if( sl1>sr1 && sl1+sc!=0 )s = (sl1+sc);
184                if( sl1<sr1 && sr1+sc!=0 )s = (sc+sr1);
185                if( sl1==sr1 && sl1 != -9999.){
186                    if( clsigma[indmax-1] < clsigma[indmax+1] &&  sl1+sc!=0 )s = (sl1+sc);
187                    if( clsigma[indmax-1] > clsigma[indmax+1] &&  sc+sr1!=0 )s = (sc+sr1);
188                }
189            }else if(nstrip==3){
190                s = (sl1+sc+sr1);
191            }else if(nstrip==4){
192                if( sl2>sr2 && sl2+sl1+sc+sr1!=0 )s = (sl2+sl1+sc+sr1);
193                if( sl2<sr2 && sl1+sc+sr1+sr2!=0 )s = (sl1+sc+sr1+sr2);
194                if( sl2==sr2 && sl2 != -9999.){
195                    if( clsigma[indmax-2] < clsigma[indmax+2] &&  sl2+sl1+sc+sr1!=0 )s = (sl2+sl1+sc+sr1);
196                    if( clsigma[indmax-2] > clsigma[indmax+2] &&  sl1+sc+sr1+sr2!=0 )s = (sl1+sc+sr1+sr2);
197                }
198            }else if(nstrip==5){
199                s = (sl1+sc+sr1);
200                if(sl2 != -9999.)s += sl2;
201                if(sr2 != -9999.)s += sr2;
202            }else{
203                cout << "Float_t TrkCluster::GetSignal("<<nstrip<<","<<cut<<","<<force<<")- not implemented"<<endl;  
204            }
205        
206        }
207    
208        return 0.;
209    
210    };
211    
212    
213    /**
214     * Evaluate the cluster signal-to-noise, as defined by Turchetta, including a
215     * maximum number of adjacent strips, around maxs, having a significant signal.
216     * @param nstrip   Maximum number of strips.
217     * @param cut      Inclusion cut ( s > cut*sigma ).
218     * If nstrip<=0 only the inclusion cut is used to determine the cluster size.
219     */
220    Float_t TrkCluster::GetSignalToNoise(Int_t nstrip, Float_t cut){
221            
222        if(CLlength<=0)return 0;
223    
224        Float_t sn = 0;
225        
226        if( nstrip<=0 ){
227            for(Int_t is = indmax+1; is < CLlength; is++){
228                Float_t scut = cut*clsigma[is];
229                if(clsignal[is] > scut) sn += clsignal[is]/clsigma[is];
230                else break;
231            };
232            for(Int_t is = indmax; is >=0; is--){
233                Float_t scut = cut*clsigma[is];
234                if(clsignal[is] > scut) sn += clsignal[is]/clsigma[is];
235                else break;
236          };          };
237            return sn;
238        };
239        
240        
241        Int_t il = indmax;
242        Int_t ir = indmax;
243        Int_t inc = 0;
244    
245        if( clsignal[indmax] < cut*clsigma[indmax] ) return 0;
246    
247        while ( inc < nstrip ){
248            Float_t sl = -100000;
249            Float_t sr = -100000;
250            if( il >= 0       ) sl = clsignal[il];
251            if( ir < CLlength ) sr = clsignal[ir];
252            if( sl == sr && inc == 0 ){
253                sn += clsignal[il]/clsigma[il];
254                il--;
255                ir++;
256            }else if ( sl >= sr && sl > cut*clsigma[il] && inc !=0 ){
257                sn += sl/clsigma[il];
258                il--;
259            }else if ( sl < sr && sr > cut*clsigma[ir] ){
260                sn += sr/clsigma[ir];
261                ir++;
262            }else break;
263            
264            inc++;
265        }
266        return sn;
267  };  };
268    /**
269     * Evaluate the cluster multiplicity.
270     * @param cut Inclusion cut.
271     */
272    Int_t TrkCluster::GetMultiplicity(Float_t cut){
273    
274        if(CLlength<=0)return 0;
275    
276        Int_t m = 0;
277    
278        for(Int_t is = indmax+1; is < CLlength; is++){
279            Float_t scut = cut*clsigma[is];
280            if(clsignal[is] > scut) m++;
281            else break;
282        };
283        for(Int_t is = indmax; is >=0; is--){
284            Float_t scut = cut*clsigma[is];
285            if(clsignal[is] > scut) m++;
286            else break;
287        };
288        return m;
289    };
290    /**
291     * True if the cluster contains bad strips.
292     * @param nbad Number of strips around the maximum.
293     */
294    Bool_t TrkCluster::IsBad(Int_t nbad){
295                    
296        if(CLlength<=0)return 0;
297    
298        Int_t il,ir;
299        il = indmax;
300        ir = indmax;
301        for(Int_t i=1; i<nbad; i++){
302            if (ir == CLlength-1 && il == 0)break;
303            else if (ir == CLlength-1 && il != 0)il--;
304            else if (ir != CLlength-1 && il == 0)ir++;
305            else{
306                if(clsignal[il-1] > clsignal[ir+1])il--;
307                else ir++;
308            }
309        }
310        Int_t isbad = 0;
311        for(Int_t i=il; i<=ir; i++)isbad += clbad[i];
312        
313        return ( isbad != nbad );
314    };
315    /**
316     * True if the cluster contains saturated strips.
317     * @param nbad Number of strips around the maximum.
318     */
319    Bool_t TrkCluster::IsSaturated(Int_t nbad){
320    
321        if(CLlength<=0)return 0;
322    
323        Int_t il,ir;
324        il = indmax;
325        ir = indmax;
326        for(Int_t i=1; i<nbad; i++){
327            if (ir == CLlength-1 && il == 0)break;
328            else if (ir == CLlength-1 && il != 0)il--;
329            else if (ir != CLlength-1 && il == 0)ir++;
330            else{
331                if(clsignal[il-1] > clsignal[ir+1])il--;
332                else ir++;
333            }
334        }
335        Int_t isbad = 0;
336        for(Int_t i=il; i<=ir; i++){
337            if( IsX() && cladc[i] > 2980 )isbad++;
338            if( IsY() && cladc[i] <   80 )isbad++;
339        }
340        return ( isbad != 0 );
341        
342    }
343  //--------------------------------------  //--------------------------------------
344  //  //
345  //  //
346  //--------------------------------------  //--------------------------------------
347  void TrkCluster::Dump(){  void TrkCluster::Dump(){
348    
349          cout << "----- Cluster" << endl;      cout << "----- Cluster" << endl;
350          cout << "View "<<view << " - Ladder "<<ladder<<endl;      cout << "View "<<view << " - Ladder "<<GetLadder()<<endl;
351          cout << "(Track ID "<<whichtrk<<")"<<endl;      cout << "Position of maximun "<< maxs <<endl;
352          cout << "Position of maximun "<<maxs<<endl;      cout << "Multiplicity        "<< GetMultiplicity() <<endl;
353          cout << "Multiplicity        "<<mult<<endl;      cout << "Tot signal          "<< GetSignal() << " (ADC channels)"<<endl ;
354          cout << "Tot signal          "<<sgnl<< " (ADC channels)";      cout << "Signal/Noise        "<< GetSignalToNoise()<<endl;
355          cout <<endl<< "Strip signals       ";      cout << "COG                 "<< GetCOG(0)<<endl;;
356          for(Int_t i =0; i<CLlength; i++)cout << " " <<clsignal[i];      cout << "Strip signals       ";
357          cout <<endl<< "Strip sigmas        ";      for(Int_t i =0; i<CLlength; i++)cout << " " <<clsignal[i];
358          for(Int_t i =0; i<CLlength; i++)cout << " " <<clsigma[i];      cout <<endl<< "Strip sigmas        ";
359          cout <<endl<< "Strip ADC           ";      for(Int_t i =0; i<CLlength; i++)cout << " " <<clsigma[i];
360          for(Int_t i =0; i<CLlength; i++)cout << " " <<cladc[i];      cout <<endl<< "Strip ADC           ";
361          cout <<endl<< "Strip BAD           ";      for(Int_t i =0; i<CLlength; i++)cout << " " <<cladc[i];
362          for(Int_t i =0; i<CLlength; i++)cout << " " <<clbad[i];      cout <<endl<< "Strip BAD           ";
363          cout << endl;      for(Int_t i =0; i<CLlength; i++){
364            if(i==indmax)cout << "  *" <<clbad[i]<<"*";
365            else cout << " " <<clbad[i];
366        }
367        cout << endl;
368                    
369  }  }
370  //--------------------------------------  //--------------------------------------
371  //  //
372  //  //
373  //--------------------------------------  //--------------------------------------
374  TrkLevel1::TrkLevel1(){  /**
375     * Method to fill a level1 struct with only one cluster (done to use F77 p.f.a. routines on a cluster basis).
376     */
377    void TrkCluster::GetLevel1Struct(cTrkLevel1* l1){
378                    
379    //    cTrkLevel1* l1 = new cTrkLevel1;
380    
381    //    cTrkLevel1* l1 = &level1event_ ;
382            
383        l1->nclstr1 = 1;
384        l1->view[0] = view;
385        l1->ladder[0] = GetLadder();
386        l1->maxs[0] = maxs;
387        l1->mult[0] = GetMultiplicity();
388        l1->dedx[0] = GetSignal();
389        l1->indstart[0] = 1;
390        l1->indmax[0]   = indmax+1;
391        l1->totCLlength = CLlength;
392        for(Int_t i=0; i<CLlength; i++){
393            l1->clsignal[i] = clsignal[i];
394            l1->clsigma[i] = clsigma[i];
395            l1->cladc[i] = cladc[i];
396            l1->clbad[i] = clbad[i];
397        };
398            
399          good1 = -1;  //    return l1;
400    };
401    //--------------------------------------
402    //
403    //
404    //--------------------------------------
405    /**
406     * Evaluates the Center-Of-Gravity (COG) of the cluster, in strips, relative to the strip with the maximum signal (TrkCluster::maxs).
407     *      @param ncog Number of strips to evaluate COG.  
408     * If ncog=0, the COG of the cluster is evaluated according to the cluster multiplicity (defined by the inclusion cut).
409     * If ncog>0, the COG is evaluated using ncog strips, even if they have a negative signal (according to G.Landi)
410     */
411    Float_t TrkCluster::GetCOG(Int_t ncog){
412                    
413          Cluster = new TClonesArray("TrkCluster");      int ic = 1;
414        GetLevel1Struct();
415        return cog_(&ncog,&ic);
416                    
417          for(Int_t i=0; i<12 ; i++){  };
418  //              crc[i] = -1;  /**
419                  for(Int_t j=0; j<24 ; j++){   * Evaluates the Center-Of-Gravity (COG) of the cluster, in strips, relative to the strip with the maximum signal (TrkCluster::maxs),
420                          cnev[j][i]=0;   * choosing the number of strips according to the angle, as implemented for the eta-algorythm .
421                          cnnev[j][i]=0;   *      @param angle Projected angle in degree.        
422                  };   */
423                  fshower[i]=0;  Float_t TrkCluster::GetCOG(Float_t angle){
424                
425        Int_t neta  = 0;
426    
427    //     Float_t eta = GetETA(0,angle);
428    //     for(neta=2; neta<10; neta++) if( eta == GetETA(neta,angle) ) break;
429    //    if(eta != GetETA(neta,angle) )cout << "Attenzione!! pasticcio "<<endl;
430    
431        if( view%2 ){   //Y
432            neta=2;
433        }else{          //X
434            if( fabs(angle) <= 10. ){
435                neta = 2;
436            }else if( fabs(angle) > 10. && fabs(angle) <= 15. ){
437                neta = 3;
438            }else{
439                neta = 4;
440          };          };
441        };
442    
443        return GetCOG(neta);
444            
445    };
446    //--------------------------------------
447    //
448    //
449    //--------------------------------------
450    /**
451     * Evaluates the cluster position, in pitch units, relative to the strip
452     *  with the maximum signal (TrkCluster::maxs), by applying the non-linear
453     *  ETA-algorythm.
454     *  @param neta  Number of strips to evaluate ETA.
455     *  @param angle Projected (effective) angle between particle track and detector plane.
456     *  @landi flag to apply Landi correction
457     * Implemented values of neta are 2,3,4. If neta=0, ETA2, ETA3 and ETA4 are applied according to the angle.
458     */
459    Float_t TrkCluster::GetETA(Int_t neta, float angle, bool landi){
460            
461    //    cout << "GetETA(neta,angle) "<< neta << " "<< angle;
462    //      LoadPfaParam();
463    
464        TrkParams::Load(4);
465        if( !TrkParams::IsLoaded(4) ){
466            cout << "Float_t TrkCluster::GetETA(Int_t neta, float angle, bool landi) --- ERROR --- p.f.a. parameters  not loaded"<<endl;
467            return 0;
468        }
469    
470        float ax = angle;
471        int ic = 1;
472        GetLevel1Struct();
473        if(     neta == 0 && !landi) return pfaeta_(&ic,&ax);
474        else if(neta == 0 && landi ) return pfaetal_(&ic,&ax);
475        else if(neta == 2          ) return pfaeta2_(&ic,&ax);
476        else if(neta == 3          ) return pfaeta3_(&ic,&ax);
477        else if(neta == 4          ) return pfaeta4_(&ic,&ax);
478        else cout << "TrkCluster::GetETA("<<neta<<","<<angle<<","<<landi<<") not implemented\n";
479        return 0;
480        
481    };
482    
483    /**
484     * Evaluates the cluster position, in pitch unit, relative to the strip with
485     * the maximum signal (TrkCluster::maxs), by applying the PFA set as default (see TrkParams).
486     *  @param angle Projected (effective) angle between particle track and detector plane.
487     */
488    Float_t TrkCluster::GetPositionPU(float angle){
489    
490        if     ( TrkParams::GetPFA() == 0  )return GetETA(0,angle,false);
491        else if( TrkParams::GetPFA() == 2  )return GetETA(2,angle,false);
492        else if( TrkParams::GetPFA() == 3  )return GetETA(3,angle,false);
493        else if( TrkParams::GetPFA() == 4  )return GetETA(4,angle,false);
494        else if( TrkParams::GetPFA() == 5  )return GetETA(0,angle,true);
495        else if( TrkParams::GetPFA() == 10 )return GetCOG(0);
496        else if( TrkParams::GetPFA() == 11 )return GetCOG(1);
497        else if( TrkParams::GetPFA() == 12 )return GetCOG(2);
498        else if( TrkParams::GetPFA() == 13 )return GetCOG(3);
499        else if( TrkParams::GetPFA() == 14 )return GetCOG(4);
500        else cout << "  TrkCluster::GetPositionPU(float "<<angle<<") -- WARNING -- PFA="<<TrkParams::GetPFA()<<" not implemented"<<endl;
501        
502        return 0.;
503        
504    }
505    
506    /**
507     * Give the number of strip used to evaluate the cluster coordinate
508     * according to the p.f.a.
509     * It returns 0 when the COG is used (in this case the number of strip used
510     * equals the multiplicity).
511     */
512    Int_t TrkCluster::GetPFAstrips(float angle){
513    
514        float ax = angle;
515        int ic = 1;
516        GetLevel1Struct();
517        return npfastrips_(&ic,&ax);
518    
519    }
520    
521    //--------------------------------------
522    //
523    //
524    //--------------------------------------
525    TrkLevel1::TrkLevel1(){
526            
527    //    cout << "TrkLevel1::TrkLevel1()"<<endl;
528    //    Cluster = new TClonesArray("TrkCluster");
529        Cluster = 0;
530        for(Int_t i=0; i<12 ; i++){
531            good[i] = -1;
532            for(Int_t j=0; j<24 ; j++){
533                cn[j][i]=0;
534                cnn[j][i]=0;
535            };
536        };
537        TrkParams::SetTrackingMode();
538        TrkParams::SetPrecisionFactor();
539        TrkParams::SetStepMin();
540        TrkParams::SetPFA();
541    }
542    //--------------------------------------
543    //
544    //
545    //--------------------------------------
546    void TrkLevel1::Set(){
547        if(!Cluster)Cluster = new TClonesArray("TrkCluster");
548  }  }
549  //--------------------------------------  //--------------------------------------
550  //  //
# Line 109  TrkLevel1::TrkLevel1(){ Line 552  TrkLevel1::TrkLevel1(){
552  //--------------------------------------  //--------------------------------------
553  void TrkLevel1::Dump(){  void TrkLevel1::Dump(){
554            
555          TClonesArray &t  = *Cluster;      cout<<"DSP status: ";
556        for(Int_t i=0; i<12 ; i++)cout<<good[i]<<" ";
557        cout<<endl;
558        cout<<"VA1 mask : "<<endl;
559        for(Int_t i=0; i<12 ; i++){
560            for(Int_t ii=0; ii<24 ; ii++){
561                Int_t mask = cnn[ii][i];
562                if(mask>0)mask=1;
563                cout<<mask<<" ";
564            }
565            cout <<endl;
566        }
567        
568        if(!Cluster)return;
569        TClonesArray &t  = *Cluster;
570        for(int i=0; i<this->nclstr(); i++)     ((TrkCluster *)t[i])->Dump();
571            
         for(int i=0; i<this->nclstr(); i++)     ((TrkCluster *)t[i])->Dump();  
   
572  }  }
573    /**
574     * \brief Dump processing status
575     */
576    void TrkLevel1::StatusDump(int view){
577        cout << "DSP n. "<<view+1<<" (level1-)status: "<<hex<<showbase<<good[view]<<dec<<endl;    
578    };
579    /**
580     * \brief Check event status
581     *
582     * Check the event status, according to a flag-mask given as input.
583     * Return true if the view passes the check.
584     *
585     * @param view View number (0-11)
586     * @param flagmask Mask of flags to check (eg. flagmask=0x111 no missing packet,
587     *  no crc error, no software alarm)
588     *
589     * @see TrkLevel2 class definition to know how the status flag is defined
590     *
591     */
592    Bool_t TrkLevel1::StatusCheck(int view, int flagmask){
593    
594        if( view<0 || view >= 12)return false;
595        return !(good[view]&flagmask);
596    
597    };
598    
599    
600  //--------------------------------------  //--------------------------------------
601  //  //
602  //  //
# Line 121  void TrkLevel1::Dump(){ Line 604  void TrkLevel1::Dump(){
604  /**  /**
605   * Fills a TrkLevel1 object with values from a struct cTrkLevel1 (to get data from F77 common).   * Fills a TrkLevel1 object with values from a struct cTrkLevel1 (to get data from F77 common).
606   */   */
607  void TrkLevel1::SetFromLevel1Struct(cTrkLevel1 *l1){  void TrkLevel1::SetFromLevel1Struct(cTrkLevel1 *l1, Bool_t full){
608    
609          //  *** CLUSTER ***  //    cout << "void TrkLevel1::SetFromLevel1Struct(cTrkLevel1 *l1, Bool_t full)"<<endl;
610          TrkCluster* t_cl = new TrkCluster();      
611          TClonesArray &t = *Cluster;      Clear();
612          for(int i=0; i<l1->nclstr1; i++){      //  ---------------
613                        //  *** CLUSTER ***
614                  t_cl->view     = l1->view[i];      //  ---------------
615                  t_cl->ladder   = l1->ladder[i];      TrkCluster* t_cl = new TrkCluster();
616                  t_cl->maxs     = l1->maxs[i];      if(!Cluster)Cluster = new TClonesArray("TrkCluster");
617                  t_cl->mult     = l1->mult[i];      TClonesArray &t = *Cluster;
618                  t_cl->sgnl     = l1->dedx[i];      for(int i=0; i<l1->nclstr1; i++){
619                  t_cl->whichtrk = l1->whichtrack[i]-1;  
620                            t_cl->Clear();
621                  Int_t from = l1->indstart[i] -1;  //      if( full || (!full && l1->whichtrack[i]) ){
                 Int_t to   = l1->totCLlength ;  
                 if(i != l1->nclstr1-1)to   = l1->indstart[i+1] -1 ;  
                 t_cl->CLlength = to - from ;  
                   
                 t_cl->clsignal = new Float_t[t_cl->CLlength];  
                 t_cl->clsigma  = new Float_t[t_cl->CLlength];  
                 t_cl->cladc    = new Int_t[t_cl->CLlength];  
                 t_cl->clbad    = new Bool_t[t_cl->CLlength];  
                 Int_t index = 0;  
                 for(Int_t is = from; is < to; is++ ){  
                         t_cl->clsignal[index] = (Float_t) l1->clsignal[is];  
                         t_cl->clsigma[index]  = (Float_t) l1->clsigma[is];  
                         t_cl->cladc[index]    = (Int_t)   l1->cladc[is];  
                         t_cl->clbad[index]    = (Bool_t)  l1->clbad[is];  
                         index++;  
                 };  
                                   
                 new(t[i]) TrkCluster(*t_cl);  
         };  
622                    
623          delete t_cl;          t_cl->view     = l1->view[i];
624            t_cl->maxs     = l1->maxs[i];
625    
626          //  general variables          if( full || (!full && l1->whichtrack[i]) ){
627                t_cl->indmax   = l1->indmax[i] - l1->indstart[i];      
628                Int_t from = l1->indstart[i] -1;
629                Int_t to   = l1->totCLlength ;
630                if(i != l1->nclstr1-1)to   = l1->indstart[i+1] -1 ;
631                t_cl->CLlength = to - from ;
632                
633                t_cl->clsignal = new Float_t[t_cl->CLlength];
634                t_cl->clsigma  = new Float_t[t_cl->CLlength];
635                t_cl->cladc    = new Int_t[t_cl->CLlength];
636                t_cl->clbad    = new Bool_t[t_cl->CLlength];
637    
638          good1 = l1->good1;              Int_t index = 0;
639          for(Int_t i=0; i<12 ; i++){              for(Int_t is = from; is < to; is++ ){
640  //              crc[i] = l1->crc[i];                  t_cl->clsignal[index] = (Float_t) l1->clsignal[is];
641                  for(Int_t j=0; j<24 ; j++){                  t_cl->clsigma[index]  = (Float_t) l1->clsigma[is];
642                          cnev[j][i]     = l1->cnev[j][i];                  t_cl->cladc[index]    = (Int_t)   l1->cladc[is];
643                          cnnev[j][i] = l1->cnnev[j][i];                  t_cl->clbad[index]    = (Bool_t)  l1->clbad[is];
644                  };                  index++;
645                  fshower[i] = l1->fshower[i];              };
646            }
647            new(t[i]) TrkCluster(*t_cl); // <<< store cluster
648        };
649        
650        delete t_cl;
651        
652        //  -------------------------
653        //  ****general variables****
654        //  -------------------------    
655        for(Int_t i=0; i<12 ; i++){
656            good[i] = l1->good[i];
657            for(Int_t j=0; j<24 ; j++){
658                cn[j][i]     = l1->cnev[j][i];
659    //          cnrms[j][i]  = l1->cnrmsev[j][i];
660                cnn[j][i]    = l1->cnnev[j][i];
661          };          };
662                };
663        
664  }  }
665  /**  /**
666   * Fills a struct cTrkLevel1 with values from a TrkLevel1 object (to put data into a F77 common).   * Fills a struct cTrkLevel1 with values from a TrkLevel1 object (to put data into a F77 common).
667   */   */
668    
669  void TrkLevel1::GetLevel1Struct(cTrkLevel1 *l1) const {  void TrkLevel1::GetLevel1Struct(cTrkLevel1* l1) {
670      
671          // ********* completare ********* //  //    cTrkLevel1* l1 = &level1event_ ;
672          // ********* completare ********* //      
673          // ********* completare ********* //      for(Int_t i=0; i<12 ; i++){
674          // ********* completare ********* //          l1->good[i] = good[i];
675          // ********* completare ********* //          for(Int_t j=0; j<24 ; j++){
676          // ********* completare ********* //              l1->cnev[j][i]    = cn[j][i]  ;
677  //  general variables              l1->cnnev[j][i]   = cnn[j][i] ;
678          l1->good1 = good1;              l1->cnrmsev[j][i] = 0. ;
         for(Int_t i=0; i<12 ; i++){  
 //              l1->crc[i] = crc[i];  
                 for(Int_t j=0; j<24 ; j++){  
                         l1->cnev[j][i]     = cnev[j][i];  
                         l1->cnnev[j][i] = cnnev[j][i];  
                 };  
                 l1->fshower[i] = fshower[i];  
679          };          };
680                    l1->fshower[i] = 0;
681  //  *** CLUSTERS ***      };
682      l1->nclstr1 =  Cluster->GetEntries();  
683          for(Int_t i=0;i<l1->nclstr1;i++){      l1->nclstr1=0;
684        l1->totCLlength=0;
685                  l1->view[i]     = ((TrkCluster *)Cluster->At(i))->view;      Int_t index=0;
686                  l1->ladder[i]   = ((TrkCluster *)Cluster->At(i))->ladder;      if(Cluster){
687                  l1->maxs[i]     = ((TrkCluster *)Cluster->At(i))->maxs;          Int_t i=0;
688                  l1->mult[i]     = ((TrkCluster *)Cluster->At(i))->mult;          for(Int_t ii=0;ii<Cluster->GetEntries();ii++){
689                  l1->dedx[i]     = ((TrkCluster *)Cluster->At(i))->sgnl;              TrkCluster *clu = GetCluster(ii);
690                                // ----------------------------------------
691                // attenzione!!
692                // se il cluster non e` salvato (view = 0)
693                // DEVE essere escluso dal common F77
694                // ----------------------------------------
695                if(clu->view != 0 ){
696                    l1->view[i]     = clu->view;
697                    l1->ladder[i]   = clu->GetLadder();
698                    l1->maxs[i]     = clu->maxs;
699                    l1->mult[i]     = clu->GetMultiplicity();
700                    l1->dedx[i]     = clu->GetSignal();
701                    l1->indstart[i] = index+1;
702                    l1->indmax[i]   = l1->indstart[i] + clu->indmax;
703                    l1->totCLlength += clu->CLlength;
704                    for(Int_t iw=0; iw < clu->CLlength; iw++){
705                        l1->clsignal[index] = clu->clsignal[iw];
706                        l1->clsigma[index]  = clu->clsigma[iw];
707                        l1->cladc[index]    = clu->cladc[iw];
708                        l1->clbad[index]    = clu->clbad[iw];
709                        index++;
710                    }
711                    i++;
712                }
713          }          }
714                    l1->nclstr1 =  i;      
715          // ********* completare ********* //      }
716    
717    //    return l1;
718  }  }
719  //--------------------------------------  //--------------------------------------
720  //  //
721  //  //
722  //--------------------------------------  //--------------------------------------
723  void TrkLevel1::Clear(){  void TrkLevel1::Clear(){
724                
725          good1    = -1;      for(Int_t i=0; i<12 ; i++){
726          for(Int_t i=0; i<12 ; i++){          good[i] = -1;
727  //              crc[i] = -1;          for(Int_t j=0; j<24 ; j++){
728                  for(Int_t j=0; j<24 ; j++){              cn[j][i]    = 0;
729                          cnev[j][i]     = 0;              cnn[j][i]   = 0;
                         cnnev[j][i] = 0;  
                 };  
                 fshower[i] = 0;  
730          };          };
731  //      totCLlength = 0;      };
732          Cluster->Clear();  //    if(Cluster)Cluster->Clear("C");
733        if(Cluster)Cluster->Delete();
734        
735    }
736    //--------------------------------------
737    //
738    //
739    //--------------------------------------
740    void TrkLevel1::Delete(){
741        
742    //    Clear();
743        if(Cluster)Cluster->Delete();
744        if(Cluster)delete Cluster;
745        
746  }  }
747  //--------------------------------------  //--------------------------------------
748  //  //
# Line 234  void TrkLevel1::Clear(){ Line 750  void TrkLevel1::Clear(){
750  //--------------------------------------  //--------------------------------------
751  TrkCluster *TrkLevel1::GetCluster(int is){  TrkCluster *TrkLevel1::GetCluster(int is){
752    
753          if(is >= this->nclstr()){      if(!Cluster)return 0;
754                  cout << "** TrkLevel1::GetCluster(int) ** Cluster "<< is << " does not exits! " << endl;      if(is >= nclstr()){
755                  cout << "( Stored clusters nclstr() = "<< this->nclstr()<<" )" << endl;          cout << "** TrkLevel1::GetCluster(int) ** Cluster "<< is << " does not exits! " << endl;
756                  return 0;          cout << "( Stored clusters nclstr() = "<< this->nclstr()<<" )" << endl;
757          }          return 0;
758          TClonesArray &t = *(Cluster);      }
759          TrkCluster *cluster = (TrkCluster*)t[is];      
760          return cluster;      TClonesArray &t = *(Cluster);
761  }      TrkCluster *cluster = (TrkCluster*)t[is];
762        return cluster;
763  // //--------------------------------------  }
764  // //  //--------------------------------------
765  // //  //
766  // //--------------------------------------  //
767  // TrkTrackRef::TrkTrackRef(){  //--------------------------------------
768  //      for(int ip=0;ip<6;ip++){  // /**
769  //              clx[ip]  = 0;  //  * Load Position-Finding-Algorythm parameters (call the F77 routine).
770  //              cly[ip]  = 0;  //  *
771  //      };  //  */
772  // };  // int TrkLevel1::LoadPfaParam(TString path){
773  // //--------------------------------------          
774  // //  //     if( path.IsNull() ){
775  // //  //      path = gSystem->Getenv("PAM_CALIB");
776  // //--------------------------------------  //      if(path.IsNull()){
777  // TrkTrackRef::TrkTrackRef(const TrkTrackRef& t){  //          cout << " TrkLevel1::LoadPfaParam() ==> No PAMELA environment variables defined "<<endl;
778  //      for(int ip=0;ip<6;ip++){  //          return 0;
779  //              clx[ip]  = t.clx[ip];  //      }
780  //              cly[ip]  = t.cly[ip];  //      path.Append("/trk-param/eta_param-0/");
781  //      };  //     }
782  // };  
783  // //--------------------------------------  //     strcpy(path_.path,path.Data());
784  // //  //     path_.pathlen = path.Length();
785  // //  //     path_.error   = 0;
786  // //--------------------------------------  //     cout <<"Loading p.f.a. parameters: "<<path<<endl;
787  // void TrkTrackRef::Clear(){  //     return readetaparam_();
788  //      for(int ip=0;ip<6;ip++){  // }
789  //              clx[ip]  = 0;  
790  //              cly[ip]  = 0;  // /**
791  //      };  //  * Load magnetic field parameters (call the F77 routine).
792  // };  //  *
793  // //--------------------------------------  //  */
794  // //  // int TrkLevel1::LoadFieldParam(TString path){
795  // //          
796  // //--------------------------------------  // //    if( strcmp(path_.path,path.Data()) ){
797  // TrkLevel2Ref::TrkLevel2Ref(){  //     if( path.IsNull() ){
798  //      Track    = new TClonesArray("TrkTrackRef");  //      path = gSystem->Getenv("PAM_CALIB");
799  //      SingletX = new TClonesArray("TRef");  //      if(path.IsNull()){
800  //      SingletY = new TClonesArray("TRef");  //          cout << " TrkLevel1::LoadFieldParam() ==> No PAMELA environment variables defined "<<endl;
801  // };  //          return 0;
802  // //--------------------------------------  //      }
803  // //  //      path.Append("/trk-param/field_param-0/");
804  // //  //     }
805  // //--------------------------------------  //     cout <<"Loading magnetic field "<<path<<endl;
806  // void TrkLevel2Ref::SetFromLevel2Struct(cTrkLevel2 *l2){  //     strcpy(path_.path,path.Data());
807  //        //     path_.pathlen = path.Length();
808  //      TrkTrackRef*   t_track   = new TrkTrackRef();  //     path_.error   = 0;
809  //      TRef t_singlet = 0;  //     return readb_();
810  //        // //    }      
811  //      TClonesArray &t = *Track;  // //    return 0;
812  //      for(int i=0; i<l2->ntrk; i++){  // }
813  //              for(int ip=0;ip<6;ip++){  // /**
814  //                      t_track->clx[ip]  = 0;//<<<puntatore al cluster  //  * Load magnetic field parameters (call the F77 routine).
815  //                      t_track->cly[ip]  = 0;//<<<puntatore al cluster  //  *
816  //              };  //  */
817  //              new(t[i]) TrkTrackRef(*t_track);  // int TrkLevel1::LoadChargeParam(TString path){
818  //              t_track->Clear();          
819  //      };  // //    if( strcmp(path_.path,path.Data()) ){
820  // //  *** SINGLETS ***  //     if( path.IsNull() ){
821  //      TClonesArray &sx = *SingletX;  //      path = gSystem->Getenv("PAM_CALIB");
822  //      for(int i=0; i<l2->nclsx; i++){  //      if(path.IsNull()){
823  //              t_singlet = 0;//<<<puntatore al cluster  //          cout << " TrkLevel1::LoadChargeParam() ==> No PAMELA environment variables defined "<<endl;
824  //              new(sx[i]) TRef(t_singlet);  //          return 0;
825    //      }
826    //      path.Append("/trk-param/charge_param-1/");
827    //     }
828    //     cout <<"Loading charge-correlation parameters: "<<path<<endl;
829    //     strcpy(path_.path,path.Data());
830    //     path_.pathlen = path.Length();
831    //     path_.error   = 0;
832    //     return readchargeparam_();
833    // //    }      
834    // //    return 0;
835    // }
836    // /**
837    //  * Load magnetic field parameters (call the F77 routine).
838    //  *
839    //  */
840    // int TrkLevel1::LoadAlignmentParam(TString path){
841            
842    // //    if( strcmp(path_.path,path.Data()) ){
843    //     if( path.IsNull() ){
844    //      path = gSystem->Getenv("PAM_CALIB");
845    //      if(path.IsNull()){
846    //          cout << " TrkLevel1::LoadAlignmentParam() ==> No PAMELA environment variables defined "<<endl;
847    //          return 0;
848    //      }
849    //      path.Append("/trk-param/align_param-0/");
850    //     }
851    //     cout <<"Loading alignment parameters: "<<path<<endl;
852    //     strcpy(path_.path,path.Data());
853    //     path_.pathlen = path.Length();
854    //     path_.error   = 0;
855    //     return readalignparam_();
856    // //    }      
857    // //    return 0;
858    // }
859    // /**
860    //  * Load magnetic field parameters (call the F77 routine).
861    //  *
862    //  */
863    // int TrkLevel1::LoadMipParam(TString path){
864            
865    // //    if( strcmp(path_.path,path.Data()) ){
866    //     if( path.IsNull() ){
867    //      path = gSystem->Getenv("PAM_CALIB");
868    //      if(path.IsNull()){
869    //          cout << " TrkLevel1::LoadMipParam() ==> No PAMELA environment variables defined "<<endl;
870    //          return 0;
871  //      }  //      }
872  //      TClonesArray &sy = *SingletY;  //      path.Append("/trk-param/mip_param-0/");
873  //      for(int i=0; i<l2->nclsy; i++){  //     }
874  //              t_singlet = 0;//<<<puntatore al cluster  //     cout <<"Loading ADC-to-MIP conversion parameters: "<<path<<endl;
875  //              new(sy[i]) TRef(t_singlet);  //     strcpy(path_.path,path.Data());
876  //      };  //     path_.pathlen = path.Length();
877  //        //     path_.error   = 0;
878  //      delete t_track;  //     return readmipparam_();
879    // //    }      
880    // //    return 0;
881  // }  // }
882  // //--------------------------------------  // /**
883  // //  //  * Load magnetic field parameters (call the F77 routine).
884  // //  //  *
885  // //--------------------------------------  //  */
886  // void TrkLevel2Ref::Clear(){  // int TrkLevel1::LoadVKMaskParam(TString path){
887  //      Track->Clear();          
888  //      SingletX->Clear();  // //    if( strcmp(path_.path,path.Data()) ){
889  //      SingletY->Clear();  //     if( path.IsNull() ){
890    //      path = gSystem->Getenv("PAM_CALIB");
891    //      if(path.IsNull()){
892    //          cout << " TrkLevel1::LoadVKMaskParam() ==> No PAMELA environment variables defined "<<endl;
893    //          return 0;
894    //      }
895    //      path.Append("/trk-param/mask_param-1/");
896    //     }
897    //     cout <<"Loading VK-mask parameters: "<<path<<endl;
898    //     strcpy(path_.path,path.Data());
899    //     path_.pathlen = path.Length();
900    //     path_.error   = 0;
901    //     return readvkmask_();
902    // //    }      
903    // //    return 0;
904  // }  // }
905    
906    // /**
907    //  * Load all (default) parameters. Environment variable must be defined.
908    //  *
909    //  */
910    // int TrkLevel1::LoadParams(){
911    
912    //     int result=0;
913        
914    //     result = result * LoadFieldParam();
915    //     result = result * LoadPfaParam();
916    //     result = result * LoadChargeParam();
917    //     result = result * LoadAlignmentParam();
918    //     result = result * LoadMipParam();
919    //     result = result * LoadVKMaskParam();
920    
921    //     return result;
922    // }
923    
924    
925    
926    int TrkLevel1::GetPfaNbinsAngle(){
927        TrkParams::Load(4);
928        if( !TrkParams::IsLoaded(4) ){
929            cout << "int TrkLevel1::GetPfaNbinsAngle() --- ERROR --- p.f.a. parameters  not loaded"<<endl;
930            return 0;
931        }
932        return pfa_.nangbin;
933    };
934    
935    int TrkLevel1::GetPfaNbinsETA(){
936        TrkParams::Load(4);
937        if( !TrkParams::IsLoaded(4) ){
938            cout << "int TrkLevel1::GetPfaNbinsETA() --- ERROR --- p.f.a. parameters  not loaded"<<endl;
939            return 0;
940        }
941        return pfa_.netaval;
942    };
943    
944    /**
945     *
946     *
947     */
948    float* TrkLevel1::GetPfaCoord(TString pfa, int nview, int nladder, int nang){
949    
950        TrkParams::Load(4);
951        if( !TrkParams::IsLoaded(4) ){
952            cout << "float* TrkLevel1::GetPfaCoord(TString pfa, int nview, int nladder, int nang) --- ERROR --- p.f.a. parameters  not loaded"<<endl;
953            return 0;
954        }
955      
956        int nbins = GetPfaNbinsETA();
957        if(!nbins)return 0;
958    
959        float *fcorr = new float [nbins];
960    
961        if(!pfa.CompareTo("ETA2",TString::kIgnoreCase)){
962            for(int ib=0; ib<nbins; ib++){
963                fcorr[ib] = pfa_.feta2[nang][nladder][nview][ib];
964                cout << pfa_.eta2[nang][ib] << " - " <<  pfa_.feta2[nang][nladder][nview][ib]<<endl;;
965            }
966        }else if (!pfa.CompareTo("ETA3",TString::kIgnoreCase)){
967            for(int ib=0; ib<nbins; ib++)fcorr[ib] = pfa_.feta3[nang][nladder][nview][ib];
968        }else if (!pfa.CompareTo("ETA4",TString::kIgnoreCase)){
969            for(int ib=0; ib<nbins; ib++)fcorr[ib] = pfa_.feta4[nang][nladder][nview][ib];
970        }else{
971            cout << pfa<<" pfa parameters not implemented "<<endl;
972            return 0;
973        }    
974    
975        return fcorr;
976    
977    };
978    
979    float* TrkLevel1::GetPfaAbs(TString pfa, int nang){
980      
981        TrkParams::Load(4);
982        if( !TrkParams::IsLoaded(4) ){
983            cout << "float* TrkLevel1::GetPfaAbs(TString pfa, int nang) --- ERROR --- p.f.a. parameters  not loaded"<<endl;
984            return 0;
985        }
986    
987        int nbins = GetPfaNbinsETA();
988        if(!nbins)return 0;
989    
990        float *fcorr = new float [nbins];
991    
992        if(!pfa.CompareTo("ETA2",TString::kIgnoreCase)){
993            for(int ib=0; ib<nbins; ib++)fcorr[ib] = pfa_.eta2[nang][ib];
994        }else if (!pfa.CompareTo("ETA3",TString::kIgnoreCase)){
995            for(int ib=0; ib<nbins; ib++)fcorr[ib] = pfa_.eta3[nang][ib];
996        }else if (!pfa.CompareTo("ETA4",TString::kIgnoreCase)){
997            for(int ib=0; ib<nbins; ib++)fcorr[ib] = pfa_.eta4[nang][ib];
998        }else{
999            cout << pfa<<" pfa parameters not implemented "<<endl;
1000            return 0;
1001        }    
1002    
1003        return fcorr;
1004    
1005    };
1006    
1007    /**
1008     * Method to call the F77 routine that performs level1->level2 processing.
1009     * The level2 output is stored in a common block, which can be retrieved
1010     * by mean of the method TrkLevel2::SetFromLevel2Struct().
1011     * NB If the TrkLevel1 object is readout from a tree, and the
1012     * TrkLevel1::ProcessEvent(int pfa) is used to reprocess the event, attention
1013     * should be payed to the fact that single clusters (clusters not associated
1014     * with any track) might not be stored. Full reprocessing should be done starting
1015     * from level0 data.
1016     */
1017    //int TrkLevel1::ProcessEvent(int pfa){
1018    int TrkLevel1::ProcessEvent(){
1019    
1020    //    cout << "int TrkLevel1::ProcessEvent()" << endl;
1021        TrkParams::Load( );
1022        if( !TrkParams::IsLoaded() )return 0;
1023    
1024        GetLevel1Struct();
1025    
1026    //    analysisflight_(&pfa);
1027    //    TrkParams::SetPFA(pfa);
1028        analysisflight_();
1029    
1030        return 1;
1031    
1032    }
1033    
1034    
1035  ClassImp(TrkLevel1);  ClassImp(TrkLevel1);
1036  ClassImp(TrkCluster);  ClassImp(TrkCluster);
 // ClassImp(TrkTrackRef);  
 // ClassImp(TrkLevel2Ref);  
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.23
  ViewVC Help
Powered by ViewVC 1.1.23