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