1 /**************************************************************************
2 * Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
4 * Author: The ALICE Off-line Project. *
5 * Contributors are mentioned in the code where appropriate. *
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 **************************************************************************/
16 ///////////////////////////////////////////////////////////////////////////////
18 /// This is a class for reading the HMPID raw data
19 /// The format of the raw data corresponds to the one
20 /// which was documented by Paolo Martinengo.
22 ///////////////////////////////////////////////////////////////////////////////
24 #include "AliHMPIDRawStream.h"
25 #include "AliRawReader.h"
28 ClassImp(AliHMPIDRawStream)
30 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
31 AliHMPIDRawStream::AliHMPIDRawStream(AliRawReader* rawReader) :
40 fRawReader(rawReader),
54 fNumOfErr = new Int_t*[kNDDL]; // Store the numner of errors for a given error type and a given DD
55 for(Int_t i=0;i<kNDDL;i++) {
56 fNumOfErr[i] = new Int_t [kSumErr];
59 fnDDLInStream=new Int_t[kNDDL];
60 fnDDLOutStream=new Int_t[kNDDL];
61 for(Int_t iddl=0;iddl<kNDDL;iddl++) { fnDDLInStream[iddl]=-1;fnDDLOutStream[iddl]=-1;}
63 for(Int_t iddl=0;iddl<kNDDL;iddl++)
64 for(Int_t ierr=0; ierr < kSumErr; ierr++) fNumOfErr[iddl][ierr]=0; //reset errors
66 fRawReader->Select("HMPID");
71 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
72 AliHMPIDRawStream::AliHMPIDRawStream() :
95 fNumOfErr = new Int_t*[kNDDL]; // Store the numner of errors for a given error type and a given DD
96 for(Int_t i=0;i<kNDDL;i++) {
97 fNumOfErr[i] = new Int_t [kSumErr];
99 fnDDLInStream=new Int_t[kNDDL];
100 fnDDLOutStream=new Int_t[kNDDL];
101 for(Int_t iddl=0;iddl<kNDDL;iddl++) { fnDDLInStream[iddl]=-1;fnDDLOutStream[iddl]=-1;}
104 for(Int_t iddl=0;iddl<kNDDL;iddl++)
105 for(Int_t ierr=0; ierr < kSumErr; ierr++) fNumOfErr[iddl][ierr]=0; //reset errors
109 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
110 AliHMPIDRawStream::~AliHMPIDRawStream()
126 for(Int_t i=0;i<kNDDL;i++) delete [] fNumOfErr[i];
129 delete [] fnDDLInStream;
130 delete [] fnDDLOutStream;
132 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
133 void AliHMPIDRawStream::Reset()
135 // reset raw stream params
136 // Reinitalize the containers
142 if (fRawReader) fRawReader->Reset();
144 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
145 Bool_t AliHMPIDRawStream::Turbo()
148 Int_t row,dilogic;UInt_t pad;
149 Int_t cntGlob = fRawReader->GetDataSize()/4;
153 for(Int_t i=1;i<cntGlob;i++) {
154 if(!GetWord(1)) return kFALSE;
155 if (((fWord >> kbit27) & 1)) continue;
156 UInt_t statusControlRow = 0x32a8;
157 UInt_t rowControlWord = fWord >> kbit0 & 0xfbff;
158 if(rowControlWord == statusControlRow) continue;
160 row = (fWord >> kbit22) & 0x1f;
161 dilogic = (fWord >> kbit18) & 0xf; //dilogic info in raw word is between bits: 18...21
163 pad = (fWord >> kbit12) & 0x3f; //pad info in raw word is between bits: 12...17
164 if(!CheckPad(pad)) continue;
165 Int_t charge = fWord & 0xfff;
166 if(GetPad(fDDLNumber,row,dilogic,pad)<0) continue;
167 fPad[fNPads] = GetPad(fDDLNumber,row,dilogic,pad);
168 fCharge[fNPads] = charge;
170 if(charge==0) fNumOfErr[fDDLNumber][kPedQZero]++;
172 //Printf("Size: %i DDL %i row %i dilogic %i pad %i fPos %i fNPads: %i Charge: %d Word %4.4x GoodW: %i",cntGlob,fDDLNumber,row,dilogic,pad,fPosition,fNPads,fCharge[fNPads-1],fWord,gw++);
175 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
176 Bool_t AliHMPIDRawStream::Next()
178 // read next DDL raw data from the HMPID raw data stream
179 // return kFALSE in case of error or no data left
180 AliDebug(1,"Start.");
182 if (!fRawReader->ReadNextData(fData)) return kFALSE;
183 } while (fRawReader->GetDataSize() == 0);
185 Int_t runNumber = fRawReader->GetRunNumber();
187 Int_t ddlArray[] = {0,1,2,3,4,5,6,7,8,9,10,11,12,13};
189 // next line: fix for link chamber2 cables inversion for period LHC11d, LHC11e, LHC11f and LHC11h.
191 if(runNumber>=156620 && runNumber<=170593) {ddlArray[4] = 5; ddlArray[5] = 4;}
192 else {ddlArray[4] = 4; ddlArray[5] = 5;}
195 Event type is selected as in $ALICE_ROOT/RAW/event.h
196 #define START_OF_RUN ((eventTypeType) 1)
197 #define END_OF_RUN ((eventTypeType) 2)
198 #define START_OF_RUN_FILES ((eventTypeType) 3)
199 #define END_OF_RUN_FILES ((eventTypeType) 4)
200 #define START_OF_BURST ((eventTypeType) 5)
201 #define END_OF_BURST ((eventTypeType) 6)
202 #define PHYSICS_EVENT ((eventTypeType) 7) <<---------------
203 #define CALIBRATION_EVENT ((eventTypeType) 8)
204 #define EVENT_FORMAT_ERROR ((eventTypeType) 9)
205 #define START_OF_DATA ((eventTypeType)10)
206 #define END_OF_DATA ((eventTypeType)11)
207 #define SYSTEM_SOFTWARE_TRIGGER_EVENT ((eventTypeType)12)
208 #define DETECTOR_SOFTWARE_TRIGGER_EVENT ((eventTypeType)13)
209 #define EVENT_TYPE_MIN 1
210 #define EVENT_TYPE_MAX 13
214 Bool_t status=kFALSE;
216 fDDLNumber = ddlArray[fRawReader->GetDDLID()];
219 AliWarning(Form("fDDLNumber not a acceptable value %i",fDDLNumber));
223 if(fRawReader->GetType() == 7 || fRawReader->GetType() == 8 ) { //New: Select Physics events, Old: Raw data size is not 0 and not 47148 (pedestal)
224 fnDDLInStream[fDDLNumber]=1; fnDDLOutStream[fDDLNumber]=0;
226 fLDCNumber = fRawReader->GetLDCId();
227 fTimeStamp = fRawReader->GetTimestamp();
229 AliDebug(1,Form("DDL %i started to be decoded!",fDDLNumber));
230 fRawDataSize=fRawReader->GetDataSize()/4;
231 DelVars(); //We have to delete the variables initialized in the InitVars before recall IntiVars!!!
232 InitVars(fRawDataSize); //To read the charge and pads we cannot delete before the status return
234 if(fTurbo==kTRUE) status=Turbo();
235 else status = ReadHMPIDRawData();
237 if(status) AliDebug(1,Form("Event DDL %i successfully decoded!.",fDDLNumber));
238 else AliDebug(1,Form("Event DDL %i ERROR in decoding!.",fDDLNumber));
239 //DumpData(fRawReader->GetDataSize());
243 if(status==kTRUE) {fnDDLOutStream[fDDLNumber]++; }//Printf("fnDDLOutStream[%d]=%d",fDDLNumber,fnDDLOutStream[fDDLNumber]); } //Count the number of events when the DDL was succesfully decoded
245 // return status; // temporary solution...
248 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
249 void AliHMPIDRawStream::InitVars(Int_t n)
255 fCharge = new Int_t[n];
258 fPos = new Int_t[4*n+4]; //reset debug
259 for(Int_t ie = 0 ; ie < 4*n+4; ie++) fPos[ie] = 0; //initialize for 0, otherwise the position is considered filled and will not be updated for the dump
262 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
263 void AliHMPIDRawStream::DelVars()
268 //Clean the initvars!!!!!!!!
270 if (fCharge) { delete [] fCharge; fCharge = 0x0; }
271 if (fPad) { delete [] fPad; fPad = 0x0; }
272 if (fPos) { delete [] fPos; fPos = 0x0; }
278 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
279 Bool_t AliHMPIDRawStream::ReadHMPIDRawData()
281 //Here the loop on the decoding the raw bank
282 //for one ddl starts.
283 //It returns: kFALSE if any error occurs
285 Int_t cntGlob = fRawReader->GetDataSize()/4;
286 if(cntGlob==0) {fNumOfErr[fDDLNumber][kRawDataSizeErr]++; return kFALSE; }
292 if(!GetWord(cnt)) return kFALSE;
296 while (cnt>20) { //counter limit is changed from 0 to 20 to take into account (skipp) the 5 extra words in the equipment header
297 nwSeg = (fWord >> kbit8) & 0xfff;
298 if(!CheckSegment()) return kFALSE;
299 if(!ReadSegment(cntSegment)) return kFALSE;
301 if(nwSeg != cntSegment) {AliDebug(1,Form("Error in Segment counters: %i different wrt %i",nwSeg,cntSegment)); return kFALSE;}
302 if(!GetWord(cntSegment+1,kBwd)) return kFALSE;
309 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
310 Bool_t AliHMPIDRawStream::ReadSegment(Int_t &cntSegment)
313 //It returns: kFALSE if any error occurs
315 cntSegment = (fWord >> kbit8) & 0xfff;
316 Int_t cnt = cntSegment;
320 if(!GetWord(cnt,kBwd)) return kFALSE;
324 cntRow = (fWord >> kbit16) & 0xfff;
325 if(!CheckRowMarker()) return kFALSE;
326 if(!ReadRow(nwRow)) return kFALSE;
328 if(nwRow != cntRow) {AliDebug(1,Form("Error in Row counters: %i different wrt %i",nwRow,cntRow)); return kFALSE;}
329 if(!GetWord(cntRow+1)) return kFALSE;
339 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
340 Bool_t AliHMPIDRawStream::ReadRow(Int_t &cntRow)
343 //It returns: kFALSE if any error occurs
350 cntRow = (fWord >> kbit16) & 0xfff;
353 if(!GetWord(cntRow)) return kFALSE;
357 if(!CheckEoE(nwDil)) return kFALSE;
358 if(!ReadDilogic(cntDilogic)) return kFALSE;
360 if(nwDil != cntDilogic) {AliDebug(1,Form("Error in Dilogic counters: %i different wrt %i",nwDil,cntDilogic));return kFALSE;}
362 if(!GetWord(1,kBwd)) return kFALSE; // go to next Dilogic bank...
364 // Printf(" cnt %i cntDilogic %i ",cnt,cntDilogic);
372 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
373 Bool_t AliHMPIDRawStream::ReadDilogic(Int_t &cntDilogic)
375 // Read the dilogic bank
376 //It returns: kFALSE if any error occurs
379 cntDilogic = fWord & 0x7f;
381 Int_t cnt = cntDilogic;
383 // Printf(" cnt DILOGIC %i at %i word %08X",cnt,fPosition,fWord);
385 for(Int_t iDil=0;iDil<cntDilogic;iDil++) {
386 UInt_t dilogic = 0, row = 0;
387 if(!GetWord(1,kBwd)) return kFALSE;
388 //check on row number
390 row = (fWord >> kbit22) & 0x1f;
391 if(!CheckRow(row)) continue;
392 //check dilogic number
393 dilogic = (fWord >> kbit18) & 0xf; //dilogic info in raw word is between bits: 18...21
394 if(!CheckDilogic(dilogic)) continue;
396 UInt_t pad = (fWord >> kbit12) & 0x3f; //pad info in raw word is between bits: 12...17
397 if(!CheckPad(pad)) continue;
398 Int_t charge = fWord & 0xfff;
399 if(GetPad(fDDLNumber,row,dilogic,pad)<0) continue;
400 fPad[fNPads] = GetPad(fDDLNumber,row,dilogic,pad);
401 fCharge[fNPads] = charge;
406 AliDebug(1,Form("If PEDESTAL run -> WARNING: ZERO charge is read from DDL: %d row: %d dil: %d pad: %d",fDDLNumber,row,dilogic,pad));
407 fNumOfErr[fDDLNumber][kPedQZero]++;
415 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
416 Bool_t AliHMPIDRawStream::CheckSegment()
418 // Check the segment marker
419 //It returns: kFALSE if any error occurs
422 UInt_t markSegment = 0xAB0;
425 UInt_t segWord = GetWord();
426 if ((segWord >> 20) != statusSegWord) {
427 fRawReader->AddMajorErrorLog(kBadSegWordErr);
428 AliDebug(1,Form("Wrong segment word signature: %x, expected 0xab0!",(segWord >> 20)));
429 fNumOfErr[kBadSegWordErr]++;
433 UInt_t segMarker = (fWord >> kbit20) & 0xfff;
434 if (segMarker != markSegment ) {
435 //fRawReader->AddMajorErrorLog(kWrongSegErr,Form("Segment marker %0X wrong (expected %0X) at %i in word %0X!",segMarker,markSegment,fPosition,fWord));
436 AliDebug(1,Form("Segment marker %X wrong (expected %0X)! at %i in word %0X!",segMarker,markSegment,fPosition,fWord));
437 fNumOfErr[fDDLNumber][kWrongSegErr]++;
441 UInt_t segAddress = fWord & 0xff;
442 if (segAddress<1 ||segAddress>3) {
443 //fRawReader->AddMajorErrorLog(kWrongSegErr,Form("Segment address %d not in the valid range [1-3] at %i in word %0X",segAddress,fPosition,fWord));
444 AliDebug(1,Form("Segment address %d not in the valid range [1-3]",segAddress));
445 fNumOfErr[fDDLNumber][kWrongSegErr]++;
448 // Printf("Segment Marker found at %i! Number of segment is %i",fPosition,segAddress);
451 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
452 Bool_t AliHMPIDRawStream::CheckRow(UInt_t row)
454 //check on row number
455 //It returns: kFALSE if any error occurs
457 // Printf("ROW %i word %0X",row,fWord);
458 if(row>=1 && row <=kNRows) return kTRUE;
460 //fRawReader->AddMajorErrorLog(kWrongRowErr,Form("row %d",row));
461 AliDebug(1,Form("Wrong row index: %d, expected (1 -> %d) word %0X at %i...",row,kNRows,fWord,fPosition));
462 fNumOfErr[fDDLNumber][kWrongRowErr]++;
465 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
466 Bool_t AliHMPIDRawStream::CheckDilogic(UInt_t dilogic)
468 //check dilogic number
469 //It returns: kFALSE if any error occurs
471 if (dilogic>= 1 && dilogic <=kNDILOGICAdd) return kTRUE;
473 //fRawReader->AddMajorErrorLog(kWrongDilogicErr,Form("dil %d",dilogic));
474 AliDebug(1,Form("Wrong DILOGIC index: %d, expected (1 -> %d)!",dilogic,kNDILOGICAdd));
475 fNumOfErr[fDDLNumber][kWrongDilogicErr]++;
476 //dilogic = iDILOGIC;
479 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
480 Bool_t AliHMPIDRawStream::CheckPad(UInt_t pad)
483 //It returns: kFALSE if any error occurs
485 if (pad < kNPadAdd) return kTRUE;
487 //fRawReader->AddMajorErrorLog(kWrongPadErr,Form("pad %d",pad));
488 AliDebug(1,Form("Wrong pad index: %d, expected (0 -> %d)!",pad,kNPadAdd));
489 fNumOfErr[fDDLNumber][kWrongPadErr]++;
492 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
493 Bool_t AliHMPIDRawStream::CheckEoE(Int_t &nDil)
495 //check the End of Event
496 //It returns: kFALSE if any error occurs
498 if (!((fWord >> kbit27) & 0x1)) { //check 27th bit in EoE. It must be 1!
499 //fRawReader->AddMajorErrorLog(kEoEFlagErr);
500 AliDebug(1,Form("Missing end-of-event flag! (%08X) at %i",fWord,fPosition));
501 fNumOfErr[fDDLNumber][kEoEFlagErr]++;
504 nDil = fWord & 0x7f; //nDil=EoE word count
505 if(nDil < 0 || nDil > 48 ) {
507 //fRawReader->AddMajorErrorLog(kEoESizeErr,Form("EoE size=%d",nDil));
508 AliDebug(1,Form("Wrong end-of-event word-count: %08X",fWord));
509 fNumOfErr[fDDLNumber][kEoESizeErr]++;
512 // UInt_t da = (eOfEvent >> 18) & 0xf;
513 // if (cntData!=0 && da != dilogic) {
514 // fRawReader->AddMajorErrorLog(kEoEDILOGICErr,Form("eoe dil %d != %d",da,dilogic));
515 // AliDebug(1,Form("Wrong DILOGIC address found in end-of-event: %d, expected %d!",da,dilogic));
516 // fNumOfErr[kEoEDILOGICErr]++;
517 // return kFALSE; AliQAChecker::Instance()->Run(AliQAv1::kHMPID, task, obj) ;
520 // UInt_t ca = (eOfEvent >> 22) & 0x1f;
521 // if (cntData!=0 && ca != row) {
522 // fRawReader->AddMajorErrorLog(kEoERowErr,Form("eoe row %d != %d",ca,row));
523 // AliDebug(1,Form("Wrong row index found in end-of-event: %d, expected %d!",ca,row));
524 // fNumOfErr[kEoERowErr]++;
529 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
530 Bool_t AliHMPIDRawStream::CheckRowMarker()
532 //check the row marker
533 //It returns: kFALSE if any error occurs
535 UInt_t nMAXwordsInRow = 0x1EA;
536 UInt_t statusControlRow = 0x32a8; // 0x36a8 for zero suppression
537 //First check on row marker
538 UInt_t rowControlWord = fWord >> kbit0 & 0xfbff;
540 if(rowControlWord != statusControlRow) {
541 //fRawReader->AddMajorErrorLog(kRowMarkerErr);
542 AliDebug(1,Form("Wrong row marker %x expected 0x32a8!",rowControlWord));
543 fNumOfErr[fDDLNumber][kRowMarkerErr]++;
546 //Second check on row marker
547 UInt_t wordsInRow = fWord >> kbit16 & 0x0fff; // Number of words after the row marker, bit 10 is skipped in this check
549 if (wordsInRow > nMAXwordsInRow) {
550 //fRawReader->AddMajorErrorLog(kRowMarkerSizeErr);
551 AliDebug(1,Form(" FATAL: Number of words %x in a row exceeds the expected value: 0x1EA !",wordsInRow));
552 fNumOfErr[fDDLNumber][kRowMarkerSizeErr]++;
558 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
559 Bool_t AliHMPIDRawStream::GetWord(Int_t n,EDirection dir)
561 // This method returns the n-th 32 bit word
562 // inside the raw data payload.
563 // The method is supposed to be endian (platform)
568 AliError("fPosition < 0 !!! Event skipped.");
569 fRawReader->AddMajorErrorLog(kRawDataSizeErr,"fPosition<0");
573 if(dir==kBwd) n = -n;
576 if(fPosition==-4) return kTRUE;
578 if(fPosition<0 || fPosition > fRawReader->GetDataSize()) {
579 AliWarning(Form("fPosition out of boundaries %i",fPosition));
585 fWord |= fData[fPosition++];
586 fWord |= fData[fPosition++] << 8;
587 fWord |= fData[fPosition++] << 16;
588 fWord |= fData[fPosition++] << 24;
592 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
593 void AliHMPIDRawStream::DumpData(Int_t nw)
595 //just a simple raw data dump
596 // in () is the position in bytes
598 for(Int_t i=0;i<nw;i+=4) {
599 if(!(i%16)) printf(" \n %8i) ",i);
600 printf("%02X%02X%02X%02X [ %06i ] ",fData[i+3],fData[i+2],fData[i+1],fData[i+0],fPos[i]);
602 Printf(" \n -----end of dump ----------- ");
604 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
605 void AliHMPIDRawStream::StorePosition()
607 //just for debug purpose
608 // it stores the position
609 //read for the first time
610 // Printf("@@@@@@@@@ fPos: %x fPosition: %d",fPos,fPosition);
611 if(fPos[fPosition]!=0) {
612 // Printf("Position already stored!!! Value %i at address %i",fPos[fPosition],fPosition);
616 fPos[fPosition] = fiPos;
617 // if(stDeb)Printf("%i - Actual position %i",iPos,fPosition);
619 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++