Wrong segment word signature fixed (5800->5900)
[u/mrichter/AliRoot.git] / HMPID / AliHMPIDRawStream.h
1 #ifndef ALIHMPIDRAWSTREAM_H
2 #define ALIHMPIDRAWSTREAM_H
3 /* Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
4  * See cxx source for full Copyright notice                               */
5
6 ///////////////////////////////////////////////////////////////////////////////
7 ///
8 /// This is a class for reading raw data digits for HMPID.
9 /// The data format is taken from the document provided by Paolo Martinengo.
10 ///
11 /// cvetan.cheshkov@cern.ch 19/07/2007
12 ///
13 ///////////////////////////////////////////////////////////////////////////////
14
15 #include <TObject.h>
16 #include <TRandom.h>
17 #include "AliHMPIDParam.h"
18 #include <AliBitPacking.h>
19 #include <AliFstream.h>
20 #include "AliHMPIDDigit.h"
21 #include "AliDAQ.h"
22 class AliRawReader;
23
24 class AliHMPIDRawStream: public TObject {
25   public :
26     AliHMPIDRawStream(AliRawReader* rawReader);
27     AliHMPIDRawStream();
28     
29     virtual ~AliHMPIDRawStream();
30
31     virtual void     Reset();
32     virtual Bool_t   Next();
33             void     Init();
34     
35             Int_t    Ch( Int_t ddl,Int_t row,Int_t dil,Int_t pad    ) {return AliHMPIDParam::A2C(fPad[ddl][row][dil][pad]); }            //chamber number
36             
37             Int_t GetDDLNumber()  const { return fDDLNumber; }                                                                            // Provide current DDL number
38     inline Int_t GetCharge(Int_t ddl,Int_t row, Int_t dilogic, Int_t pad);                                                                         // Provide the charge observed in certain row,dilogic,pad channel
39             inline Int_t GetPad(Int_t ddl,Int_t row,Int_t dil,Int_t pad);                                                                        //
40             
41             Int_t   Pc          ( Int_t ddl,Int_t row,Int_t dil,Int_t pad                            ) {return AliHMPIDParam::A2P(fPad[ddl][row][dil][pad]);}                                                 //PC position number
42             Int_t   PadPcX      ( Int_t ddl,Int_t row,Int_t dil,Int_t pad                            ) {return AliHMPIDParam::A2X(fPad[ddl][row][dil][pad]);}                                                 //pad pc x # 0..79
43             Int_t   PadPcY      ( Int_t ddl,Int_t row,Int_t dil,Int_t pad                            ) {return AliHMPIDParam::A2Y(fPad[ddl][row][dil][pad]);}                                                 //pad pc y # 0..47
44    
45             inline  Bool_t SetZeroSup (Bool_t isSup);
46     inline  Bool_t GetZeroSup(); 
47                  
48     inline void    Raw            (UInt_t &w32,Int_t &ddl,Int_t &r,Int_t &d,Int_t &a);                                               //digit->(w32,ddl,r,d,a)
49     inline void    Raw            (Int_t ddl,Int_t r,Int_t d,Int_t a);                                                               //raw->abs pad number
50     inline Bool_t  Raw            (UInt_t  w32,Int_t  ddl,AliRawReader *pRR);                                                      //(w32,ddl)->digit
51     inline void   SetCharge      (Int_t ddl,Int_t row,Int_t dil,Int_t pad,Int_t q);
52     inline void    WriteRaw       (TObjArray *pDigLst                             );                                                      //write as raw stream     
53     inline void   WriteRowMarker  (AliFstream *ddl,UInt_t size);
54     inline void   WriteEoE        (AliFstream *ddl,UInt_t row,UInt_t dil,UInt_t wordCnt);  
55     inline void   WriteSegMarker  (AliFstream *ddl,UInt_t row);   
56     
57 //    inline TClonesArray  ReMap(TClonesArray *pDigIn);
58     
59     enum EHMPIDRawStreamError {
60       kRawDataSizeErr = 1,
61       kRowMarkerErr = 2,
62       kWrongRowErr = 3,
63       kWrongDilogicErr = 4,
64       kWrongPadErr = 5,
65       kEoEFlagErr = 6,
66       kEoESizeErr = 7,
67       kEoEDILOGICErr = 8,
68       kEoERowErr = 9,
69       kBadSegWordErr = 10,
70       kWrongSegErr = 11
71     };
72     
73     enum {
74       kNRows       = 24,                                    // Number of rows (starting from 1 !)//was25
75       kNDILOGICAdd = 10,                                    // Number of DILOGIC addresses in a row (starting from 1 !) //was11
76       kNPadAdd     = 48,                                    // Number of pad row
77       kNRowsPerSegment = 8,                                 // Number of rows per segment
78       kNDDL = 14
79     };
80    enum EHMPIDRawError {
81     kInvalidRawDataWord = 1
82   };
83
84     
85   private :
86
87     AliHMPIDRawStream& operator = (const AliHMPIDRawStream& stream);
88     AliHMPIDRawStream(const AliHMPIDRawStream& stream);
89
90     UInt_t           GetNextWord();
91
92     Int_t            fCharge[kNDDL][kNRows+1][kNDILOGICAdd+1][kNPadAdd]; // Array for charge values for all channels in one DDL
93     
94     Int_t            fPad[kNDDL][kNRows+1][kNDILOGICAdd+1][kNPadAdd]; // Array for abs pad values for all channels in one DDL
95
96     UInt_t           fRawWord[kNDDL][kNRows+1][kNDILOGICAdd+1][kNPadAdd];
97         
98     Int_t            fDDLNumber;    // index of current DDL number
99
100     AliRawReader*    fRawReader;    // object for reading the raw data
101
102     UChar_t*         fData;         // raw data
103
104     Int_t            fPosition;     // current position in fData
105     
106     Bool_t           fZeroSup;
107
108     ClassDef(AliHMPIDRawStream, 0)  // base class for reading HMPID raw digits
109 };
110 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
111 void AliHMPIDRawStream::Raw(UInt_t &w32,Int_t &ddl,Int_t &r,Int_t &d,Int_t &a)
112 {
113 // Convert raw stream word to raw word format
114 // Arguments: w32,ddl,r,d,a where to write the results
115 // Returns: none
116   Int_t y2a[6]={5,3,1,0,2,4};
117   
118   ddl=2*Ch(ddl,r,d,a)+Pc(ddl,r,d,a)%2;                                                          //DDL# 0..13
119   Int_t tmp=1+Pc(ddl,r,d,a)/2*8+PadPcY(ddl,r,d,a)/6;  r=(Pc(ddl,r,d,a)%2)? 25-tmp:tmp;              //row r=1..24
120   d=1+PadPcX(ddl,r,d,a)/8;                                                                  //DILOGIC# 1..10
121   a=y2a[PadPcY(ddl,r,d,a)%6]+6*(PadPcX(ddl,r,d,a)%8);                                           //ADDRESS 0..47        
122   
123   w32=0;    
124   AliBitPacking::PackWord((fCharge[ddl][r][d][a]>4095)?4095:(UInt_t)fCharge[ddl][r][d][a],w32, 0,11);       // 0000 0rrr rrdd ddaa aaaa qqqq qqqq qqqq        Qdc               bits (00..11) counts (0..4095)
125   //molnarl: Since in simulation the the charge can be > than 4095 but not in real life we need to protect. If fQ>4095 after packing we will get 0 for the charge! 
126   assert(0<=a&&a<=47);AliBitPacking::PackWord(        a ,w32,12,17);  // 3322 2222 2222 1111 1111 1000 0000 0000        DILOGIC address   bits (12..17) counts (0..47)
127   assert(1<=d&&d<=10);AliBitPacking::PackWord(        d ,w32,18,21);  // 1098 7654 3210 9876 5432 1098 7654 3210        DILOGIC number    bits (18..21) counts (1..10)
128   assert(1<=r&&r<=24);AliBitPacking::PackWord(        r ,w32,22,26);  //                                                Row number        bits (22..26) counts (1..24)  
129 }
130 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
131 void AliHMPIDRawStream::Raw(Int_t ddl,Int_t r,Int_t d,Int_t a)
132 {
133   //Assign absolute pad ID based on ddl,row,dil,pad
134   //Arguments: DDL, row number, dilogic number, dilogic address(pad)
135   //Returns  : nothing
136
137   assert(0<=ddl&&ddl<=13); assert(1<=r&&r<=24); assert(1<=d&&d<=10);   assert(0<=a&&a<=47);  
138   Int_t a2y[6]={3,2,4,1,5,0};//pady for a given address (for single DILOGIC chip)
139                                   Int_t ch=ddl/2;
140   Int_t tmp=(r-1)/8;              Int_t pc=(ddl%2)? 5-2*tmp:2*tmp; 
141                                   Int_t px=(d-1)*8+a/6;
142         tmp=(ddl%2)?(24-r):r-1;   Int_t py=6*(tmp%8)+a2y[a%6];
143   fPad[ddl][r][d][a]=AliHMPIDParam::Abs(ch,pc,px,py);
144 }
145 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
146 Bool_t AliHMPIDRawStream::Raw(UInt_t w32,Int_t ddl, AliRawReader *pRR)
147 {
148 // Converts a given raw data word to a digit
149 // Arguments: w32 - 32 bits raw data word
150 //            ddl - DDL idx  0 1 2 3 4 ... 13
151 //   Returns: none
152   Int_t r = AliBitPacking::UnpackWord(w32,22,26); assert(1<=r&&r<=24);   //                                         Row number      (1..24)    
153   Int_t d = AliBitPacking::UnpackWord(w32,18,21); assert(1<=d&&d<=10);   // 3322 2222 2222 1111 1111 1000 0000 0000 DILOGIC number  (1..10)
154   Int_t a = AliBitPacking::UnpackWord(w32,12,17); assert(0<=a&&a<=47);   // 1098 7654 3210 9876 5432 1098 7654 3210 DILOGIC address (0..47)  
155   Int_t q = AliBitPacking::UnpackWord(w32, 0,11); assert(0<=q&&q<=4095); // 0000 0rrr rrdd ddaa aaaa qqqq qqqq qqqq Qdc             (0..4095) 
156   if (r<1 || r>24 || d<1 || d>10 || a<0 || a>47 || q<0 || q>4095) {
157     AliWarning(Form("Invalid raw data word %x",w32));
158     pRR->AddMajorErrorLog(kInvalidRawDataWord,Form("w=%x",w32));
159     return kFALSE;
160   }
161   Raw(ddl,r,d,a);
162   fCharge[ddl][r][d][a]=q;
163   return kTRUE;
164 }
165 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
166 void AliHMPIDRawStream::SetCharge(Int_t ddl,Int_t row,Int_t dil,Int_t pad,Int_t q)
167
168   //Setter for the charger in the raw stream
169   //Arguments: DDL, row number, dilogic number, dilogic address(pad), charge
170   //Returns:   Charge from the raw stream
171      fCharge[ddl][row][dil][pad]=q;
172      //  return fCharge[ddl][row][dil][pad];
173       
174 }
175 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
176 Int_t AliHMPIDRawStream::GetPad(Int_t ddl,Int_t row,Int_t dil,Int_t pad)
177 {
178   // The method returns the absolute pad number or -1 
179   // in case the charge from the channels
180   // has not been read or invalid arguments
181  
182   assert(0<=ddl&&ddl<=13);  
183   assert(1<=row&&row<=24); 
184   assert(1<=dil&&dil<=10);   
185   assert(0<=pad&&pad<=47);  
186   
187   Int_t a2y[6]={3,2,4,1,5,0};     //pady for a given padress (for single DILOGIC chip)
188                                   Int_t ch=ddl/2;
189   Int_t tmp=(row-1)/8;            Int_t pc=(ddl%2)? 5-2*tmp:2*tmp; 
190                                   Int_t px=(dil-1)*8+pad/6;
191         tmp=(ddl%2)?(24-row):row-1;   
192                                   Int_t py=6*(tmp%8)+a2y[pad%6];
193                                   
194   return fPad[ddl][row][dil][pad]=AliHMPIDParam::Abs(ch,pc,px,py);
195 }//GetPad()
196 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
197 Int_t AliHMPIDRawStream::GetCharge(Int_t ddl,Int_t row, Int_t dilogic, Int_t pad)
198 {
199   // The method returns the charge collected
200   // in a particular channel
201   // Return -1 in case the charge from the channels
202   // has not been read or invalid arguments
203   if (ddl < 0 || ddl > kNDDL) {
204     AliError(Form("Wrong DDL index %d!",ddl));
205     return 0;
206   }  
207   if (row < 1 || row > kNRows) {
208     AliError(Form("Wrong row index %d!",row));
209     return 0;
210   }
211
212   if (dilogic < 1 || dilogic > kNDILOGICAdd) {
213     AliError(Form("Wrong DILOGIC address %d!",dilogic));
214     return 0;
215   }
216   
217   if (pad >= kNPadAdd) {
218     AliError(Form("Wrong pad index %d!",pad));
219     return 0;
220   }
221
222   return fCharge[ddl][row][dilogic][pad];
223   
224 }
225 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
226 void AliHMPIDRawStream::WriteRowMarker(AliFstream *ddl,UInt_t size)
227 {
228   //Writes the row marker for real data and pedestal into the ddl stream
229   //Arguments: ddl stream and the size of the block of the given row, the siye is at least the 10 EoE words!
230   //Returns:   nothing
231   UInt_t w32=0;
232   UInt_t marker=12968;                                    //ror marker: 32a8 in hexa; 12968 in decimal
233   AliBitPacking::PackWord(size,  w32, 16,31);            //number of roaw written after row marker (digits and EoE)
234   AliBitPacking::PackWord(marker,w32,0,15);              //32a8=12968
235   ddl->WriteBuffer((char*)&w32,sizeof(w32));              
236 }
237 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
238 void AliHMPIDRawStream::WriteEoE(AliFstream *ddl,UInt_t row,UInt_t dil,UInt_t wordCnt  )
239 {
240   //Writes the EoE word from real data and pedestals into the ddl stream
241   //Arguments:  ddl stream, row number, dilogic number and the number of words before the EoE
242   //Retursns:   nothing
243   UInt_t e=1;
244   UInt_t w32=0;
245   assert(1<=row&&row<=24);      AliBitPacking::PackWord((UInt_t)row     ,w32,22,26);    // row number (1...24)
246   assert(1<=dil&&dil<=10);      AliBitPacking::PackWord((UInt_t)dil     ,w32,18,21);    // DILOGIC number (1...10)
247                                 AliBitPacking::PackWord(          e     ,w32, 7,17);   // event number -- not used
248                                 AliBitPacking::PackWord((UInt_t)wordCnt ,w32, 0, 6);  // word counter (0...47)                                                                  AliBitPacking::PackWord((UInt_t)1       ,w32,27,27);  // bit 27 is always 1 by definition of EoE
249                                 AliBitPacking::PackWord((UInt_t)1       ,w32,27,27);  // bit 27 is always 1 by definition of EoE    
250   ddl->WriteBuffer((char*)&w32,sizeof(w32));      
251
252 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++     
253 void AliHMPIDRawStream::WriteSegMarker(AliFstream *ddl,UInt_t row)
254 {
255   //Writes the segment marker (after 8 rows) into the ddl stream
256   //Arguments: ddl stream and the segment: row 8 -> 0x5900, row 16 -> 5901, row 24 -> 5902
257   //Retruns:   nothing
258     UInt_t w32=0;
259                                 AliBitPacking::PackWord((UInt_t)43791,        w32,16,31);       //43791==AB0F
260                                 AliBitPacking::PackWord((UInt_t)(22784+row/8),w32, 0,15);       //22784==5900    
261     ddl->WriteBuffer((char*)&w32,sizeof(w32)); 
262 }      
263 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++     
264 Bool_t AliHMPIDRawStream::SetZeroSup (Bool_t isSup)
265 {
266   //Prevision to turn OFF zero suppression
267   //Arguments: setter
268   //Returns:   switch
269   fZeroSup=isSup;
270   return fZeroSup;
271 }
272 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++     
273 Bool_t AliHMPIDRawStream::GetZeroSup()
274 {
275   if(fZeroSup==kTRUE) return kTRUE;
276   else                return kFALSE;
277 }
278 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++     
279 void AliHMPIDRawStream::WriteRaw(TObjArray *pDigAll)
280 {
281 // Write a list of digits for a given chamber in raw data stream
282 // Arguments: pDigAll- list of digits 
283 //   Returns: none      
284   Int_t  ddl,r,d,a;            //32 bits data word 
285   Int_t  cntLpad,cntRpad;
286   Int_t  cntLrow,cntRrow;
287   Int_t  cntL=0,cntR=0;                           //data words counters for DDLs
288   Int_t  cntLeoe,cntReoe;
289   UInt_t posL,posR;
290   UInt_t cntLseg,cntRseg;
291   Int_t  cntRdig=0,cntLdig=0;
292   
293   UInt_t posLmarker,posRmarker;
294   Int_t digcnt=0;
295
296   Int_t isDigThere[14][25][11][48];
297   
298   for(Int_t iCh=AliHMPIDParam::kMinCh;iCh<=AliHMPIDParam::kMaxCh;iCh++){//chambers loop
299     cntL=0;cntR=0;   
300     for(Int_t iddl=0;iddl<14;iddl++){
301       for(Int_t irow=1;irow<=24;irow++){
302         for(Int_t idil=1;idil<=10;idil++){
303           for(Int_t ipad=0;ipad<48;ipad++){
304             isDigThere[iddl][irow][idil][ipad]=-1;
305           }
306         }
307       }
308     }
309     
310     AliFstream* ddlL;                                 //output streams, 2 per chamber
311     AliFstream* ddlR;                          
312     
313     AliRawDataHeader header; header.SetAttribute(0);  //empty DDL header
314     
315     ddlL = new AliFstream(AliDAQ::DdlFileName("HMPID",2*iCh+1)); //left and right looking at the IP
316     ddlR = new AliFstream(AliDAQ::DdlFileName("HMPID",2*iCh));   //open both DDL of this chamber in parallel
317     
318     ddlL->WriteBuffer((char*)&header,sizeof(header));            //write dummy header as place holder, actual 
319     ddlR->WriteBuffer((char*)&header,sizeof(header));            //will be rewritten later when total size of DDL is known
320     
321     UInt_t w32=0;                 //32 bits data word 
322     digcnt=0;
323     
324     TClonesArray *pDigCh=(TClonesArray *)pDigAll->At(iCh); //list of digits for current chamber 
325     //Printf("::::::::::::::::::; Number of Digits to write: %d == %d",pDigCh->GetEntriesFast(),pDigCh->GetEntries());
326     for(Int_t iDig=0;iDig<pDigCh->GetEntriesFast();iDig++){//digits loop
327       AliHMPIDDigit *pDig1=(AliHMPIDDigit*)pDigCh->At(iDig);
328       pDig1->Raw(w32,ddl,r,d,a);
329       isDigThere[ddl][r][d][a]=iDig;
330     }  
331     
332     for(Int_t row = 1; row <= AliHMPIDRawStream::kNRows; row++){ //AliHMPIDRawStream::kNRows=25!
333       cntRrow=0;cntLrow=0;cntLseg=0;cntRseg=0;// 
334       cntLeoe=0;cntReoe=0;
335       posLmarker=ddlL->Tellp(); WriteRowMarker(ddlL,(UInt_t)1);   cntL++; cntRrow++; 
336       posRmarker=ddlR->Tellp(); WriteRowMarker(ddlR,(UInt_t)1);   cntR++; cntLrow++; 
337       for(Int_t dil = 1; dil <= AliHMPIDRawStream::kNDILOGICAdd; dil++){ //AliHMPIDRawStream::kNDILOGICAdd = 11!
338         cntLpad=0;cntRpad=0;
339         for(Int_t pad = 0; pad < AliHMPIDRawStream::kNPadAdd; pad++){   //AliHMPIDRawStream::kNPadAdd     = 48
340           for ( Int_t iddl=2*iCh; iddl<=2*iCh+1;iddl++){
341             if (isDigThere[iddl][row][dil][pad]!=-1) {
342               AliHMPIDDigit *pDig=(AliHMPIDDigit*)pDigCh->At(isDigThere[iddl][row][dil][pad]);             
343               pDig->Raw(w32,ddl,r,d,a);  
344               if(pDig->Q() < 0 ) continue;                                                 //We can turn of the zero sup for pedestal simulation
345               //Printf("::::::::::::::: ddl from Digit : %d",ddl);
346               if(ddl%2){                                                                               //write raw digit selecting on DDL
347                 ddlL->WriteBuffer((char*)&w32,sizeof(w32));   cntL++; cntLpad++; cntLrow++;  cntLdig++;//Printf(" WL: %x isDig: %d",w32,isDigThere[iddl][row][dil][pad]);
348               }else{
349                 ddlR->WriteBuffer((char*)&w32,sizeof(w32));   cntR++; cntRpad++; cntRrow++;   cntRdig++;//Printf(" WR: %x isDig: %d",w32,isDigThere[iddl][row][dil][pad]);
350               }
351             }//ddl 
352           }//isDig
353         }//pad
354         WriteEoE(ddlL,row,dil,cntLpad); cntL++;  cntLrow++;    cntLeoe++;                                 //molnarl: write EoE markers
355         WriteEoE(ddlR,row,dil,cntRpad); cntR++;  cntRrow++;    cntReoe++;
356       }//dil
357       if(row%8==0){                                               
358         WriteSegMarker(ddlL,row); cntL++;  cntLseg++;
359         WriteSegMarker(ddlR,row); cntR++;  cntRseg++;
360       }
361       posL=ddlL->Tellp();   ddlL->Seekp(posLmarker);    WriteRowMarker(ddlL,(UInt_t)(cntLrow-1)); ddlL->Seekp(posL);      //find the marker position write and  go back to the actual position to continue writing                    
362       posR=ddlR->Tellp();   ddlR->Seekp(posRmarker);    WriteRowMarker(ddlR,(UInt_t)(cntRrow-1)); ddlR->Seekp(posR);                           
363     }//row
364     header.fSize=sizeof(header)+cntL*sizeof(w32); ddlL->Seekp(0); ddlL->WriteBuffer((char*)&header,sizeof(header)); delete ddlL; //rewrite header with size set to
365     header.fSize=sizeof(header)+cntR*sizeof(w32); ddlR->Seekp(0); ddlR->WriteBuffer((char*)&header,sizeof(header)); delete ddlR; //number of bytes and close file
366     
367     //Printf("In Ch %d # digits written to LDD %d RDDL %d",iCh,cntLdig,cntRdig);
368     
369   }//chambers loop
370 }//WriteRaw()
371 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
372
373 #endif