]> git.uio.no Git - u/mrichter/AliRoot.git/blobdiff - TRD/AliTRDmcmSim.cxx
Updating Run Types for TRIGGER pp.
[u/mrichter/AliRoot.git] / TRD / AliTRDmcmSim.cxx
index 292235cd3416a65bd4ea69ed987858accc70bb3e..b4aac295b5fa2311c12a93428210065b54ec71e9 100644 (file)
  * provided "as is" without express or implied warranty.                  *
  **************************************************************************/
 
+/* $Id$ */
+
 ///////////////////////////////////////////////////////////////////////////////
 //                                                                           //
 //  TRD MCM (Multi Chip Module) simulator                                    //
+//  which simulated the TRAP processing after the AD-conversion              //
+//  The relevant parameters (i.e. configuration registers of the TRAP        //
+//  configuration are taken from AliTRDtrapConfig.                           //
 //                                                                           //
 ///////////////////////////////////////////////////////////////////////////////
 
-/* $Id$ */
-
-/*
-
-  New release on 2007/08/17
-
-AliTRDmcmSim is now stably working and zero suppression function seems ok.
-From now, the default version of raw data is set to 3 in AliTRDfeeParam.
-
-The following internal parameters were abolished because it is useless and
-made trouble:
-
-   fColOfADCbeg
-   fColOfADCend
-
-GetCol member was modified accordingly. 
-
-New member function DumpData was prepared for diagnostics.
-
-ZSMapping member function was debugged. It was causing crash due to
-wrong indexing in 1 dimensional numbering. Also code was shaped up better.
-
-*/
-
-/*Semi-final version of TRD raw data simulation code with zero suppression (ZS)
-similar to TRD FEE. ZS is realized by the class group:
-
-  AliTRDfeeParam
-  AliTRDmcmSim
-  AliTRDrawData
-
-AliTRDfeeParam has been modified to have more parameters like raw data
-production version and so on. AliTRDmcmSim is new class and this is the core
-of MCM (PASA+TRAP) simulator. It has still very simple function and it will be
-another project to improve this to make it closer to the reall FEE.
-AliTRDrawData has been modified to use new class AliTRDmcmSim.
-
-These modifications were tested on Aug. 02 HEAD version that code itself
-compiles. I'm sure there must be still bugs and we need testing by as many as
-possible persons now. Especially it seems HLT part is impacted by problems
-because some parameters were moved from AliTRDrawData to AliTRDfeeParam (like
-fRawVersion disappeared from AliTRDrawData).
+#include <fstream>  // needed for raw data dump
 
-In TRD definition, we have now 4 raw data versions.
-
-  0 very old offline version (by Bogdan)
-  1 test version (no zero suppression)
-  2 final version (no zero suppression)
-  3 test version (with zero suppression)
-
-The default is still set to 2 in AliTRDfeeParam::fgkRAWversion and it uses
-previously existing codes. If you set this to 3, AliTRDrawData changes behavior
-to use AliTRDmcmSim with ZS.
-
-Plan is after we make sure it works stably, we delete AliTRDmcm which is obsolete.
-However it still take time because tracklet part is not yet touched.
-The default raw version is 2.
-
-                                                                 Ken Oyama
-*/
-
-// if no histo is drawn, these are obsolete
-#include <TH1.h>
 #include <TCanvas.h>
-
-// only needed if I/O of tracklets is activated
-#include <TObject.h>
-#include <TFile.h>
-#include <TTree.h>
-#include <TSystem.h>
-
-#include <fstream>
-
+#include <TH1F.h>
+#include <TH2F.h>
+#include <TGraph.h>
+#include <TLine.h>
 #include <TMath.h>
+#include <TRandom.h>
+#include <TClonesArray.h>
 
 #include "AliLog.h"
+#include "AliRun.h"
+#include "AliRunLoader.h"
+#include "AliLoader.h"
+#include "AliTRDdigit.h"
 
-#include "AliTRDmcmSim.h"
 #include "AliTRDfeeParam.h"
+#include "AliTRDtrapConfig.h"
 #include "AliTRDSimParam.h"
 #include "AliTRDgeometry.h"
 #include "AliTRDcalibDB.h"
-
-// additional for new tail filter and/or tracklet
-#include "AliTRDtrapAlu.h"
+#include "AliTRDdigitsManager.h"
+#include "AliTRDarrayADC.h"
+#include "AliTRDarrayDictionary.h"
 #include "AliTRDpadPlane.h"
+#include "AliTRDtrackletMCM.h"
+#include "AliTRDmcmSim.h"
 
+#include "AliMagF.h"
+#include "TGeoGlobalMagField.h"
 
 ClassImp(AliTRDmcmSim)
 
+Bool_t AliTRDmcmSim::fgApplyCut = kTRUE;
+
+Float_t AliTRDmcmSim::fgChargeNorm = 65000.;
+Int_t AliTRDmcmSim::fgAddBaseline = 0;
+
+Int_t AliTRDmcmSim::fgPidNBinsQ0 = 40;
+Int_t AliTRDmcmSim::fgPidNBinsQ1 = 50;
+Bool_t AliTRDmcmSim::fgPidLutDelete = kFALSE;
+Int_t AliTRDmcmSim::fgPidLutDefault[40][50] = {
+  { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0  }, 
+  { 0, 9, 6, 12, 29, 53, 76, 94, 107, 116, 122, 126, 128, 129, 129, 129, 128, 127, 126, 124, 122, 120, 117, 115, 112, 109, 107, 104, 101, 99, 96, 94, 91, 89, 87, 85, 83, 81, 79, 78, 77, 75, 74, 73, 72, 72, 71, 71, 70, 70  }, 
+  { 0, 14, 8, 17, 37, 66, 94, 116, 131, 140, 146, 150, 152, 153, 153, 152, 150, 148, 145, 143, 139, 136, 132, 129, 125, 121, 118, 114, 110, 107, 104, 101, 98, 95, 93, 91, 89, 87, 85, 83, 82, 81, 80, 79, 78, 77, 77, 76, 76, 75  }, 
+  { 0, 33, 19, 34, 69, 112, 145, 167, 181, 189, 194, 196, 197, 197, 196, 194, 191, 188, 184, 180, 175, 170, 165, 159, 154, 148, 143, 137, 132, 127, 123, 118, 114, 111, 107, 104, 101, 99, 96, 94, 92, 91, 89, 88, 87, 86, 85, 85, 84, 84  }, 
+  { 0, 82, 52, 83, 136, 180, 205, 218, 226, 230, 232, 233, 233, 233, 232, 230, 228, 226, 223, 219, 215, 210, 205, 199, 193, 187, 180, 173, 167, 160, 154, 148, 142, 136, 131, 127, 122, 119, 115, 112, 109, 106, 104, 102, 100, 99, 97, 96, 95, 94  }, 
+  { 0, 132, 96, 136, 185, 216, 231, 238, 242, 244, 245, 245, 245, 245, 245, 244, 243, 242, 240, 238, 236, 233, 230, 226, 222, 217, 212, 206, 200, 193, 187, 180, 173, 167, 161, 155, 149, 144, 139, 134, 130, 126, 123, 120, 117, 114, 112, 110, 108, 107  }, 
+  { 0, 153, 120, 160, 203, 227, 238, 243, 246, 247, 248, 249, 249, 249, 248, 248, 247, 246, 245, 244, 243, 241, 239, 237, 234, 231, 228, 224, 219, 215, 209, 204, 198, 192, 186, 180, 174, 168, 163, 157, 152, 147, 143, 139, 135, 131, 128, 125, 123, 120  }, 
+  { 0, 156, 128, 166, 207, 229, 239, 244, 247, 248, 249, 249, 249, 249, 249, 249, 248, 247, 247, 246, 244, 243, 242, 240, 238, 236, 233, 230, 227, 224, 220, 216, 212, 207, 202, 197, 192, 187, 181, 176, 171, 166, 161, 156, 152, 148, 144, 140, 137, 134  }, 
+  { 0, 152, 128, 166, 206, 228, 239, 244, 246, 248, 249, 249, 249, 249, 249, 248, 248, 247, 246, 245, 244, 243, 241, 240, 238, 236, 234, 232, 229, 226, 224, 220, 217, 214, 210, 206, 202, 197, 193, 188, 184, 179, 174, 170, 166, 161, 157, 153, 150, 146  }, 
+  { 0, 146, 126, 164, 203, 226, 237, 243, 246, 247, 248, 248, 248, 248, 248, 247, 247, 246, 245, 244, 242, 241, 239, 238, 236, 234, 232, 230, 227, 225, 223, 220, 217, 215, 212, 209, 205, 202, 199, 195, 191, 187, 183, 179, 175, 171, 168, 164, 160, 156  }, 
+  { 0, 140, 123, 160, 200, 224, 235, 241, 244, 246, 247, 247, 247, 247, 247, 246, 245, 244, 243, 242, 240, 238, 237, 235, 233, 230, 228, 226, 224, 221, 219, 217, 215, 212, 210, 207, 205, 202, 200, 197, 194, 191, 188, 184, 181, 178, 174, 171, 168, 164  }, 
+  { 0, 133, 119, 156, 196, 220, 233, 239, 243, 245, 245, 246, 246, 246, 245, 244, 243, 242, 241, 239, 237, 235, 233, 231, 229, 226, 224, 221, 219, 216, 214, 212, 210, 208, 206, 204, 202, 199, 197, 195, 193, 191, 188, 186, 183, 181, 178, 175, 172, 169  }, 
+  { 0, 127, 115, 152, 192, 217, 230, 237, 241, 243, 244, 244, 244, 244, 243, 242, 241, 240, 238, 236, 234, 232, 229, 227, 224, 221, 218, 216, 213, 210, 208, 206, 203, 201, 200, 198, 196, 194, 193, 191, 190, 188, 186, 185, 183, 181, 179, 177, 174, 172  }, 
+  { 0, 121, 111, 147, 187, 213, 227, 235, 239, 241, 242, 243, 243, 242, 241, 240, 239, 237, 236, 233, 231, 228, 225, 222, 219, 216, 213, 210, 207, 204, 201, 199, 196, 194, 192, 191, 189, 188, 187, 185, 184, 183, 182, 181, 180, 178, 177, 176, 174, 172  }, 
+  { 0, 116, 107, 142, 181, 209, 224, 232, 237, 239, 240, 241, 241, 240, 239, 238, 237, 235, 233, 230, 227, 224, 221, 218, 214, 211, 207, 204, 200, 197, 194, 191, 189, 187, 185, 183, 182, 180, 179, 178, 178, 177, 176, 175, 175, 174, 173, 172, 172, 170  }, 
+  { 0, 112, 103, 136, 176, 204, 220, 229, 234, 237, 238, 239, 239, 238, 237, 236, 234, 232, 230, 227, 224, 221, 217, 213, 209, 205, 201, 198, 194, 190, 187, 184, 181, 179, 177, 175, 174, 172, 171, 171, 170, 169, 169, 169, 168, 168, 168, 168, 167, 167  }, 
+  { 0, 107, 99, 131, 170, 199, 216, 226, 231, 234, 236, 237, 237, 236, 235, 234, 232, 230, 227, 224, 221, 217, 213, 209, 205, 200, 196, 192, 188, 184, 180, 177, 174, 172, 169, 167, 166, 164, 163, 162, 162, 161, 161, 161, 161, 161, 161, 162, 162, 162  }, 
+  { 0, 104, 94, 125, 164, 193, 212, 222, 228, 232, 233, 234, 234, 234, 233, 231, 229, 227, 224, 221, 218, 214, 210, 205, 201, 196, 191, 187, 182, 178, 174, 171, 168, 165, 162, 160, 158, 157, 155, 154, 154, 153, 153, 153, 153, 154, 154, 154, 155, 155  }, 
+  { 0, 100, 90, 119, 157, 188, 207, 219, 225, 229, 231, 232, 232, 231, 230, 229, 227, 224, 222, 218, 215, 211, 206, 202, 197, 192, 187, 182, 178, 173, 169, 165, 162, 158, 156, 153, 151, 149, 148, 147, 146, 146, 145, 145, 145, 146, 146, 147, 148, 148  }, 
+  { 0, 97, 86, 113, 150, 182, 202, 215, 222, 226, 228, 229, 229, 229, 228, 226, 224, 222, 219, 216, 212, 208, 203, 199, 194, 188, 183, 178, 173, 169, 164, 160, 156, 153, 150, 147, 145, 143, 141, 140, 139, 138, 138, 138, 138, 138, 139, 139, 140, 141  }, 
+  { 0, 94, 82, 107, 144, 176, 197, 210, 218, 223, 225, 227, 227, 227, 226, 224, 222, 220, 217, 213, 209, 205, 201, 196, 191, 186, 180, 175, 170, 165, 160, 156, 152, 148, 145, 142, 139, 137, 135, 134, 132, 131, 131, 131, 131, 131, 131, 132, 132, 133  }, 
+  { 0, 92, 78, 102, 137, 169, 192, 206, 215, 220, 223, 224, 224, 224, 223, 222, 220, 217, 215, 211, 207, 203, 199, 194, 188, 183, 178, 172, 167, 162, 157, 152, 148, 144, 140, 137, 134, 132, 130, 128, 127, 125, 125, 124, 124, 124, 124, 125, 125, 126  }, 
+  { 0, 90, 75, 96, 131, 163, 187, 202, 211, 216, 220, 221, 222, 222, 221, 220, 218, 215, 212, 209, 205, 201, 197, 192, 187, 181, 176, 170, 165, 159, 154, 149, 145, 141, 137, 133, 130, 128, 125, 123, 122, 120, 119, 118, 118, 118, 118, 118, 119, 119  }, 
+  { 0, 88, 71, 91, 124, 157, 181, 197, 207, 213, 217, 219, 219, 219, 219, 217, 216, 213, 211, 207, 204, 200, 195, 190, 185, 180, 174, 169, 163, 158, 152, 147, 142, 138, 134, 130, 127, 124, 121, 119, 117, 116, 114, 114, 113, 112, 112, 112, 112, 113  }, 
+  { 0, 87, 68, 86, 118, 151, 176, 192, 203, 210, 214, 216, 217, 217, 217, 215, 214, 212, 209, 206, 202, 198, 194, 189, 184, 179, 173, 167, 162, 156, 151, 146, 141, 136, 132, 128, 124, 121, 118, 116, 114, 112, 110, 109, 108, 108, 107, 107, 107, 107  }, 
+  { 0, 85, 65, 81, 112, 144, 170, 188, 199, 206, 211, 213, 214, 215, 214, 213, 212, 210, 207, 204, 201, 197, 193, 188, 183, 178, 172, 167, 161, 155, 150, 145, 140, 135, 130, 126, 122, 119, 116, 113, 111, 109, 107, 106, 105, 104, 103, 103, 102, 102  }, 
+  { 0, 84, 62, 77, 106, 138, 165, 183, 195, 203, 208, 210, 212, 212, 212, 211, 210, 208, 206, 203, 200, 196, 192, 187, 183, 177, 172, 166, 161, 155, 150, 144, 139, 134, 129, 125, 121, 117, 114, 111, 109, 106, 104, 103, 101, 100, 99, 99, 98, 98  }, 
+  { 0, 84, 60, 73, 101, 133, 159, 178, 191, 199, 204, 208, 209, 210, 210, 209, 208, 206, 204, 202, 199, 195, 191, 187, 182, 177, 172, 166, 161, 155, 150, 144, 139, 134, 129, 124, 120, 116, 113, 110, 107, 104, 102, 100, 99, 98, 96, 96, 95, 95  }, 
+  { 0, 83, 58, 69, 96, 127, 154, 174, 187, 196, 201, 205, 207, 208, 208, 207, 206, 205, 203, 200, 197, 194, 190, 186, 182, 177, 172, 167, 161, 156, 150, 145, 139, 134, 129, 124, 120, 116, 112, 109, 106, 103, 101, 99, 97, 95, 94, 93, 92, 92  }, 
+  { 0, 82, 56, 66, 91, 121, 149, 169, 183, 192, 198, 202, 204, 206, 206, 206, 205, 203, 201, 199, 196, 193, 190, 186, 182, 177, 172, 167, 162, 156, 151, 145, 140, 135, 129, 125, 120, 116, 112, 108, 105, 102, 100, 97, 95, 94, 92, 91, 90, 89  }, 
+  { 0, 82, 54, 62, 86, 116, 144, 165, 179, 189, 195, 199, 202, 203, 204, 204, 203, 202, 200, 198, 196, 193, 189, 186, 182, 177, 173, 168, 163, 157, 152, 146, 141, 136, 130, 125, 121, 116, 112, 108, 105, 102, 99, 96, 94, 92, 91, 89, 88, 87  }, 
+  { 0, 82, 52, 59, 82, 111, 139, 160, 175, 185, 192, 197, 200, 201, 202, 202, 201, 200, 199, 197, 195, 192, 189, 186, 182, 178, 173, 168, 163, 158, 153, 148, 142, 137, 132, 127, 122, 117, 113, 109, 105, 102, 99, 96, 94, 92, 90, 88, 87, 85  }, 
+  { 0, 82, 50, 56, 78, 106, 134, 156, 171, 182, 189, 194, 197, 199, 200, 200, 200, 199, 198, 196, 194, 191, 188, 185, 182, 178, 174, 169, 164, 159, 154, 149, 144, 138, 133, 128, 123, 118, 114, 110, 106, 102, 99, 96, 93, 91, 89, 87, 86, 84  }, 
+  { 0, 82, 49, 54, 74, 102, 129, 151, 167, 179, 186, 191, 195, 197, 198, 198, 198, 197, 196, 195, 193, 191, 188, 185, 182, 178, 174, 170, 165, 161, 156, 151, 145, 140, 135, 130, 125, 120, 115, 111, 107, 103, 100, 97, 94, 91, 89, 87, 85, 83  }, 
+  { 0, 82, 47, 51, 70, 97, 124, 147, 164, 175, 183, 189, 192, 195, 196, 197, 197, 196, 195, 194, 192, 190, 188, 185, 182, 178, 175, 171, 166, 162, 157, 152, 147, 142, 137, 132, 127, 122, 117, 112, 108, 104, 101, 97, 94, 91, 89, 87, 85, 83  }, 
+  { 0, 83, 46, 49, 67, 93, 120, 143, 160, 172, 180, 186, 190, 192, 194, 195, 195, 195, 194, 193, 191, 189, 187, 185, 182, 179, 175, 172, 167, 163, 159, 154, 149, 144, 139, 134, 129, 124, 119, 114, 110, 106, 102, 98, 95, 92, 89, 87, 85, 83  }, 
+  { 0, 83, 45, 47, 64, 89, 116, 139, 156, 169, 177, 184, 188, 190, 192, 193, 193, 193, 193, 192, 190, 189, 187, 184, 182, 179, 176, 172, 168, 164, 160, 156, 151, 146, 141, 136, 131, 126, 121, 116, 112, 108, 104, 100, 96, 93, 90, 88, 85, 83  }, 
+  { 0, 84, 44, 45, 61, 85, 111, 134, 152, 165, 175, 181, 185, 188, 190, 191, 192, 192, 191, 191, 189, 188, 186, 184, 182, 179, 176, 173, 169, 166, 162, 157, 153, 148, 143, 138, 133, 128, 124, 119, 114, 110, 106, 102, 98, 95, 91, 89, 86, 84  }, 
+  { 0, 85, 43, 43, 58, 81, 107, 131, 149, 162, 172, 178, 183, 186, 188, 190, 190, 190, 190, 189, 188, 187, 186, 184, 182, 179, 176, 173, 170, 167, 163, 159, 155, 150, 145, 141, 136, 131, 126, 121, 117, 112, 108, 104, 100, 96, 93, 90, 87, 85  }, 
+  { 0, 85, 42, 41, 55, 78, 103, 127, 145, 159, 169, 176, 181, 184, 186, 188, 189, 189, 189, 188, 188, 186, 185, 183, 181, 179, 177, 174, 171, 168, 164, 160, 156, 152, 148, 143, 138, 134, 129, 124, 119, 115, 110, 106, 102, 98, 95, 91, 88, 86  } 
+};
+
+Int_t (*AliTRDmcmSim::fgPidLut) = *fgPidLutDefault;
+
 //_____________________________________________________________________________
-AliTRDmcmSim::AliTRDmcmSim() :TObject()
+AliTRDmcmSim::AliTRDmcmSim() : TObject()
   ,fInitialized(kFALSE)
-  ,fNextEvent(-1)    //new
-  ,fMaxTracklets(-1) //new
-  ,fChaId(-1)
-  ,fSector(-1)
-  ,fStack(-1)
-  ,fLayer(-1)
+  ,fMaxTracklets(-1) 
+  ,fDetector(-1)
   ,fRobPos(-1)
   ,fMcmPos(-1)
+  ,fRow (-1)
   ,fNADC(-1)
   ,fNTimeBin(-1)
-  ,fRow(-1)
   ,fADCR(NULL)
   ,fADCF(NULL)
-  ,fADCT(NULL)      //new
-  ,fPosLUT(NULL)    //new
-  ,fMCMT(NULL)      //new
+  ,fMCMT(NULL)
+  ,fTrackletArray(NULL)      
   ,fZSM(NULL)
   ,fZSM1Dim(NULL)
   ,fFeeParam(NULL)
+  ,fTrapConfig(NULL)
   ,fSimParam(NULL)
+  ,fCommonParam(NULL)
   ,fCal(NULL)
   ,fGeo(NULL)
+  ,fDigitsManager(NULL)
+  ,fPedAcc(NULL)
+  ,fGainCounterA(NULL)
+  ,fGainCounterB(NULL)
+  ,fTailAmplLong(NULL)
+  ,fTailAmplShort(NULL)
+  ,fNHits(0)
+  ,fFitReg(NULL)
 {
   //
   // AliTRDmcmSim default constructor
-  //
-
-  // By default, nothing is initialized.
-  // It is necessary to issue Init before use.
-}
-
-//_____________________________________________________________________________
-AliTRDmcmSim::AliTRDmcmSim(const AliTRDmcmSim &m) 
-  :TObject(m)
-  ,fInitialized(kFALSE) 
-  ,fNextEvent(-1)    //new
-  ,fMaxTracklets(-1) //new
-  ,fChaId(-1)
-  ,fSector(-1)
-  ,fStack(-1)
-  ,fLayer(-1)
-  ,fRobPos(-1)
-  ,fMcmPos(-1)
-  ,fNADC(-1)
-  ,fNTimeBin(-1)
-  ,fRow(-1)
-  ,fADCR(NULL)
-  ,fADCF(NULL)
-  ,fADCT(NULL)      //new
-  ,fPosLUT(NULL)    //new
-  ,fMCMT(NULL)      //new
-  ,fZSM(NULL)
-  ,fZSM1Dim(NULL)
-  ,fFeeParam(NULL)
-  ,fSimParam(NULL)
-  ,fCal(NULL)
-  ,fGeo(NULL)
-  
-{
-  //
-  // AliTRDmcmSim copy constructor
-  //
-
   // By default, nothing is initialized.
   // It is necessary to issue Init before use.
 }
 
-//_____________________________________________________________________________
 AliTRDmcmSim::~AliTRDmcmSim() 
 {
   //
   // AliTRDmcmSim destructor
   //
 
-  if( fADCR != NULL ) {
+  if(fInitialized) {
     for( Int_t iadc = 0 ; iadc < fNADC; iadc++ ) {
       delete [] fADCR[iadc];
       delete [] fADCF[iadc];
-      delete [] fADCT[iadc];
       delete [] fZSM [iadc];
     }
     delete [] fADCR;
     delete [] fADCF;
-    delete [] fADCT;
     delete [] fZSM;
     delete [] fZSM1Dim;
-  }
-  if(fInitialized){
-    delete [] fPosLUT;
     delete [] fMCMT;
+    delete [] fPedAcc;
+    delete [] fGainCounterA;
+    delete [] fGainCounterB;
+    delete [] fTailAmplLong;
+    delete [] fTailAmplShort;
+    delete [] fFitReg;
+    
+    fTrackletArray->Delete();
+    delete fTrackletArray;
+    delete fGeo;
   }
-
-  delete fGeo;
-
-}
-
-//_____________________________________________________________________________
-AliTRDmcmSim &AliTRDmcmSim::operator=(const AliTRDmcmSim &m)
-{
-  //
-  // Assignment operator
-  //
-
-  if (this != &m) {
-    ((AliTRDmcmSim &) m).Copy(*this);
-  }
-  return *this;
-
-}
-
-//_____________________________________________________________________________
-void AliTRDmcmSim::Copy(TObject &m) const
-{
-  //
-  // Copy function
-  //
-  ((AliTRDmcmSim &) m).fNextEvent     = 0; //new
-  ((AliTRDmcmSim &) m).fMaxTracklets  = 0; //new
-  ((AliTRDmcmSim &) m).fInitialized   = 0;
-  ((AliTRDmcmSim &) m).fChaId         = 0;
-  ((AliTRDmcmSim &) m).fSector        = 0;
-  ((AliTRDmcmSim &) m).fStack         = 0;
-  ((AliTRDmcmSim &) m).fLayer         = 0;
-  ((AliTRDmcmSim &) m).fRobPos        = 0;
-  ((AliTRDmcmSim &) m).fMcmPos        = 0;
-  ((AliTRDmcmSim &) m).fNADC          = 0;
-  ((AliTRDmcmSim &) m).fNTimeBin      = 0;
-  ((AliTRDmcmSim &) m).fRow           = 0;
-  ((AliTRDmcmSim &) m).fADCR          = 0;
-  ((AliTRDmcmSim &) m).fADCF          = 0;
-  ((AliTRDmcmSim &) m).fADCT          = 0; //new
-  ((AliTRDmcmSim &) m).fPosLUT        = 0; //new
-  ((AliTRDmcmSim &) m).fMCMT          = 0; //new
-  ((AliTRDmcmSim &) m).fZSM           = 0;
-  ((AliTRDmcmSim &) m).fZSM1Dim       = 0;
-  ((AliTRDmcmSim &) m).fFeeParam      = 0;
-  ((AliTRDmcmSim &) m).fSimParam      = 0;
-  ((AliTRDmcmSim &) m).fCal           = 0;
-  ((AliTRDmcmSim &) m).fGeo           = 0;
-
 }
 
-//_____________________________________________________________________________
-//void AliTRDmcmSim::Init( Int_t chaId, Int_t robPos, Int_t mcmPos, Bool_t newEvent ) // only for readout tree (new event)
-void AliTRDmcmSim::Init( Int_t chaId, Int_t robPos, Int_t mcmPos ) // only for readout tree (new event)
+void AliTRDmcmSim::Init( Int_t det, Int_t robPos, Int_t mcmPos, Bool_t /* newEvent */ ) 
 {
   //
   // Initialize the class with new geometry information
   // fADC array will be reused with filled by zero
   //
+   
+  if (!fInitialized) {
+    fFeeParam      = AliTRDfeeParam::Instance();
+    fTrapConfig    = AliTRDtrapConfig::Instance();
+    fSimParam      = AliTRDSimParam::Instance();
+    fCommonParam   = AliTRDCommonParam::Instance();
+    fCal           = AliTRDcalibDB::Instance();
+    fGeo           = new AliTRDgeometry();
+  }
 
-  fNextEvent     = 0; //**!!new!!**
-  fFeeParam      = AliTRDfeeParam::Instance();
-  fSimParam      = AliTRDSimParam::Instance();
-  fCal           = AliTRDcalibDB::Instance();
-  fGeo           = new AliTRDgeometry();
-  fChaId         = chaId;
-  fSector        = fGeo->GetSector( fChaId );
-  fStack         = fGeo->GetChamber( fChaId );
-  fLayer         = fGeo->GetPlane( fChaId );
+  fDetector      = det;
   fRobPos        = robPos;
   fMcmPos        = mcmPos;
   fNADC          = fFeeParam->GetNadcMcm();
   fNTimeBin      = fCal->GetNumberOfTimeBins();
   fRow           = fFeeParam->GetPadRowFromMCM( fRobPos, fMcmPos );
-
-  fMaxTracklets  = fFeeParam->GetMaxNrOfTracklets();
-
-
-  //if ((fChaId == 0 && fRobPos == 0 && fMcmPos == 0)) {
-  /* if (newEvent == kTRUE) {
-    fNextEvent = 1;
-    }*/
-   fNextEvent = 0;
-
-
-  // Allocate ADC data memory if not yet done
-  if( fADCR == NULL ) {
+  fMaxTracklets  = fFeeParam->GetMaxNrOfTracklets();  
+  
+  if (!fInitialized) {
     fADCR    = new Int_t *[fNADC];
     fADCF    = new Int_t *[fNADC];
-    fADCT    = new Int_t *[fNADC]; //new
     fZSM     = new Int_t *[fNADC];
     fZSM1Dim = new Int_t  [fNADC];
+    fGainCounterA = new UInt_t[fNADC];
+    fGainCounterB = new UInt_t[fNADC];
     for( Int_t iadc = 0 ; iadc < fNADC; iadc++ ) {
       fADCR[iadc] = new Int_t[fNTimeBin];
       fADCF[iadc] = new Int_t[fNTimeBin];
-      fADCT[iadc] = new Int_t[fNTimeBin]; //new
       fZSM [iadc] = new Int_t[fNTimeBin];
     }
+    
+    // filter registers
+    fPedAcc = new UInt_t[fNADC]; // accumulator for pedestal filter
+    fTailAmplLong = new UShort_t[fNADC];
+    fTailAmplShort = new UShort_t[fNADC];
+    
+    // tracklet calculation
+    fFitReg = new FitReg_t[fNADC]; 
+    fTrackletArray = new TClonesArray("AliTRDtrackletMCM", fMaxTracklets);
+    
+    fMCMT = new UInt_t[fMaxTracklets];
   }
 
-  // Initialize ADC data
+  fInitialized = kTRUE;
+
+  Reset();
+}
+
+void AliTRDmcmSim::Reset()
+{
+  // Resets the data values and internal filter registers
+  // by re-initialising them
+
   for( Int_t iadc = 0 ; iadc < fNADC; iadc++ ) {
     for( Int_t it = 0 ; it < fNTimeBin ; it++ ) {
       fADCR[iadc][it] = 0;
       fADCF[iadc][it] = 0;
-      fADCT[iadc][it] = -1;  //new
       fZSM [iadc][it] = 1;   // Default unread = 1
     }
     fZSM1Dim[iadc] = 1;      // Default unread = 1
+    fGainCounterA[iadc] = 0;
+    fGainCounterB[iadc] = 0;
   }
   
-  //new:
-  fPosLUT = new Int_t[128];
-  for(Int_t i = 0; i<128; i++){
-    fPosLUT[i] = 0;
-  }
-  
-  fMCMT = new UInt_t[fMaxTracklets];
   for(Int_t i = 0; i < fMaxTracklets; i++) {
     fMCMT[i] = 0;
   }
+  
+  FilterPedestalInit();
+  FilterGainInit();
+  FilterTailInit(fTrapConfig->GetTrapReg(AliTRDtrapConfig::kFPNP)); //??? not really correct if gain filter is active
+}
 
+void AliTRDmcmSim::SetNTimebins(Int_t ntimebins) 
+{
+  fNTimeBin = ntimebins;
+  for( Int_t iadc = 0 ; iadc < fNADC; iadc++ ) {
+    delete fADCR[iadc];
+    delete fADCF[iadc];
+    delete fZSM[iadc];
+    fADCR[iadc] = new Int_t[fNTimeBin];
+    fADCF[iadc] = new Int_t[fNTimeBin];
+    fZSM [iadc] = new Int_t[fNTimeBin];
+  }
+}
 
-  fInitialized = kTRUE;
+Bool_t AliTRDmcmSim::LoadMCM(AliRunLoader* const runloader, Int_t det, Int_t rob, Int_t mcm) 
+{
+  // loads the ADC data as obtained from the digitsManager for the specified MCM
+
+  Init(det, rob, mcm);
+
+  if (!runloader) {
+    AliError("No Runloader given");
+    return kFALSE;
+  }
+
+  AliLoader *trdLoader = runloader->GetLoader("TRDLoader");
+  if (!trdLoader) {
+    AliError("Could not get TRDLoader");
+    return kFALSE;
+  }
+
+  Bool_t retval = kTRUE;
+  trdLoader->LoadDigits();
+  fDigitsManager = 0x0;
+  AliTRDdigitsManager *digMgr = new AliTRDdigitsManager();
+  digMgr->SetSDigits(0);
+  digMgr->CreateArrays();
+  digMgr->ReadDigits(trdLoader->TreeD());
+  AliTRDarrayADC *digits = (AliTRDarrayADC*) digMgr->GetDigits(det);
+  if (digits->HasData()) {
+    digits->Expand();
+
+    if (fNTimeBin != digits->GetNtime()) 
+      SetNTimebins(digits->GetNtime());
+
+    Int_t padrow = fFeeParam->GetPadRowFromMCM(rob, mcm);
+    Int_t padcol = 0;
+    for (Int_t ch = 0; ch < fNADC; ch++) {
+      padcol = GetCol(ch);
+      fZSM1Dim[ch] = 1;
+      if (padcol < 0) {
+        fZSM1Dim[ch] = 0;
+        for (Int_t tb = 0; tb < fNTimeBin; tb++) {
+          fADCR[ch][tb] = fTrapConfig->GetTrapReg(AliTRDtrapConfig::kTPFP) + (fgAddBaseline << fgkAddDigits);
+          fADCF[ch][tb] = fTrapConfig->GetTrapReg(AliTRDtrapConfig::kTPFP) + (fgAddBaseline << fgkAddDigits);
+        }
+      }
+      else {
+        for (Int_t tb = 0; tb < fNTimeBin; tb++) {
+          if (digits->GetData(padrow,padcol, tb) < 0) {
+            fZSM1Dim[ch] = 0; 
+            fADCR[ch][tb] = fTrapConfig->GetTrapReg(AliTRDtrapConfig::kTPFP) + (fgAddBaseline << fgkAddDigits);
+            fADCF[ch][tb] = fTrapConfig->GetTrapReg(AliTRDtrapConfig::kTPFP) + (fgAddBaseline << fgkAddDigits);
+          }
+          else {
+            fADCR[ch][tb] = (digits->GetData(padrow, padcol, tb) + fgAddBaseline) << fgkAddDigits;
+            fADCF[ch][tb] = (digits->GetData(padrow, padcol, tb) + fgAddBaseline) << fgkAddDigits;
+          }
+        }
+      }
+    }
+  }
+  else 
+    retval = kFALSE;
+  
+  delete digMgr;
+  
+  return retval;
+}
+
+void AliTRDmcmSim::NoiseTest(Int_t nsamples, Int_t mean, Int_t sigma, Int_t inputGain, Int_t inputTail)
+{
+  // This function can be used to test the filters. 
+  // It feeds nsamples of ADC values with a gaussian distribution specified by mean and sigma.
+  // The filter chain implemented here consists of:
+  // Pedestal -> Gain -> Tail
+  // With inputGain and inputTail the input to the gain and tail filter, respectively, 
+  // can be chosen where 
+  // 0: noise input
+  // 1: pedestal output
+  // 2: gain output
+  // The input has to be chosen from a stage before. 
+  // The filter behaviour is controlled by the TRAP parameters from AliTRDtrapConfig in the 
+  // same way as in normal simulation.
+  // The functions produces four histograms with the values at the different stages.
+
+  TH1F *h   = new TH1F("noise", "Gaussian Noise;sample;ADC count",
+                       nsamples, 0, nsamples);
+  TH1F *hfp = new TH1F("pedf", "Noise #rightarrow Pedestal filter;sample;ADC count", nsamples, 0, nsamples);
+  TH1F *hfg = new TH1F("pedg", "Pedestal #rightarrow Gain;sample;ADC count", nsamples, 0, nsamples);
+  TH1F *hft = new TH1F("pedt", "Gain #rightarrow Tail;sample;ADC count", nsamples, 0, nsamples);
+  h->SetStats(kFALSE);
+  hfp->SetStats(kFALSE);
+  hfg->SetStats(kFALSE);
+  hft->SetStats(kFALSE);
+  
+  Int_t value;  // ADC count with noise (10 bit)
+  Int_t valuep; // pedestal filter output (12 bit)
+  Int_t valueg; // gain filter output (12 bit)
+  Int_t valuet; // tail filter value (12 bit)
+  
+  for (Int_t i = 0; i < nsamples; i++) {
+    value = (Int_t) gRandom->Gaus(mean, sigma);  // generate noise with gaussian distribution 
+    h->SetBinContent(i, value);
+
+    valuep = FilterPedestalNextSample(1, 0, ((Int_t) value) << 2);
+    
+    if (inputGain == 0)
+      valueg = FilterGainNextSample(1, ((Int_t) value) << 2);
+    else 
+      valueg = FilterGainNextSample(1, valuep); 
+    
+    if (inputTail == 0)
+      valuet = FilterTailNextSample(1, ((Int_t) value) << 2);
+    else if (inputTail == 1)
+      valuet = FilterTailNextSample(1, valuep); 
+    else
+      valuet = FilterTailNextSample(1, valueg); 
+
+    hfp->SetBinContent(i, valuep >> 2);
+    hfg->SetBinContent(i, valueg >> 2);
+    hft->SetBinContent(i, valuet >> 2);
+  }
+
+  TCanvas *c = new TCanvas; 
+  c->Divide(2,2);
+  c->cd(1);
+  h->Draw();
+  c->cd(2);
+  hfp->Draw();
+  c->cd(3);
+  hfg->Draw();
+  c->cd(4);
+  hft->Draw();
 }
 
-//_____________________________________________________________________________
 Bool_t AliTRDmcmSim::CheckInitialized()
 {
   //
@@ -344,127 +415,122 @@ Bool_t AliTRDmcmSim::CheckInitialized()
   return fInitialized;
 }
 
-//_____________________________________________________________________________
-
-
-void AliTRDmcmSim::SetPosLUT() {
-  Double_t iHi = (Double_t)fCal->GetPRFhi();
-  Double_t iLo = (Double_t)fCal->GetPRFlo();
-  Int_t   nBin = fCal->GetPRFbin();
-  Int_t   iOff = fLayer * nBin;
-  Int_t kNplan = fGeo->Nplan();
-
-  Float_t  *sPRFsmp   = new Float_t[nBin*kNplan];
-  Double_t *sPRFlayer = new Double_t[nBin];
-  
-  
-  for(Int_t i = 0; i<nBin*kNplan; i++){
-    
-    //printf("%f\n",fCal->GetSampledPRF()[i]);
-    sPRFsmp[i] = fCal->GetSampledPRF()[i]; 
-  
+void AliTRDmcmSim::Print(Option_t* const option) const
+{
+  // Prints the data stored and/or calculated for this MCM.
+  // The output is controlled by option which can be a sequence of any of 
+  // the following characters:
+  // R - prints raw ADC data
+  // F - prints filtered data 
+  // H - prints detected hits
+  // T - prints found tracklets
+  // The later stages are only useful when the corresponding calculations 
+  // have been performed.
+
+  printf("MCM %i on ROB %i in detector %i\n", fMcmPos, fRobPos, fDetector);
+
+  TString opt = option;
+  if (opt.Contains("R")) {
+    printf("Raw ADC data (10 bit):\n");
+    for (Int_t iTimeBin = 0; iTimeBin < fNTimeBin; iTimeBin++) {
+      for (Int_t iChannel = 0; iChannel < fNADC; iChannel++) {
+        printf("%5i", fADCR[iChannel][iTimeBin] >> fgkAddDigits);
+      }
+      printf("\n");
+    }
   }
 
-  Double_t sWidth = (iHi-iLo)/((Double_t) nBin);
-  Int_t   sPad    = (Int_t) (1.0/sWidth);
-  
-  // get the PRF for actual layer (interpolated to ibin data-points; 61 measured)
-  for(Int_t iBin = 0; iBin < nBin; iBin++){
-    sPRFlayer[iBin] = (Double_t)sPRFsmp[iOff+iBin];
+  if (opt.Contains("F")) {
+    printf("Filtered data (12 bit):\n");
+    for (Int_t iTimeBin = 0; iTimeBin < fNTimeBin; iTimeBin++) {
+      for (Int_t iChannel = 0; iChannel < fNADC; iChannel++) {
+        printf("%5i", fADCF[iChannel][iTimeBin]);
+      }
+      printf("\n");
+    }
   }
 
-  Int_t bin0 = (Int_t)(-iLo / sWidth - 0.5);                           // bin-nr. for pad-position 0
-  
-  Int_t bin1 = (Int_t)((Double_t)(0.5 - iLo) / sWidth - 0.5);          // bin-nr. for pad-position 0.5
-  bin1 = bin1 + 1;
-  bin0 = bin0 + 1;  //avoid negative values in aYest (start right of symmetry center)
-  while (bin0-sPad<0) {
-    bin0 = bin0 + 1;
-  }
-  while (bin1+sPad>=nBin) {
-    bin1 = bin1 - 1;
+  if (opt.Contains("H")) {
+    printf("Found %i hits:\n", fNHits);
+    for (Int_t iHit = 0; iHit < fNHits; iHit++) {
+      printf("Hit %3i in timebin %2i, ADC %2i has charge %3i and position %3i\n",
+             iHit,  fHits[iHit].fTimebin, fHits[iHit].fChannel, fHits[iHit].fQtot, fHits[iHit].fYpos);
+    }
   }
-  
-  Double_t* aYest = new Double_t[bin1-bin0+1];
 
-  /*TH1F* hist1 = new TH1F("h1","yest(y)",128,0,0.5);
-  TH1F* hist2 = new TH1F("h2","y(yest)",128,0,0.5);
-  TH1F* hist3 = new TH1F("h3","y(yest)-yest",128,0,0.5);
-  TH1F* hist4 = new TH1F("h4","y(yest)-yest,discrete",128,0,0.5);
-  TCanvas *c1 = new TCanvas("c1","c1",800,1000);
-  hist1->Draw();
-  TCanvas *c2 = new TCanvas("c2","c2",800,1000);
-  hist2->Draw();
-  TCanvas *c3 = new TCanvas("c3","c3",800,1000);
-  hist3->Draw();
-  TCanvas *c4 = new TCanvas("c4","c4",800,1000);
-  hist4->Draw();*/
-  
-  for(Int_t iBin = bin0; iBin <= bin1; iBin++){
-    aYest[iBin-bin0] = 0.5*(sPRFlayer[iBin-sPad] - sPRFlayer[iBin+sPad])/(sPRFlayer[iBin]); // estimated position from PRF; between 0 and 1
-    //Double_t position = ((Double_t)(iBin)+0.5)*sWidth+iLo;
-    //  hist1->Fill(position,aYest[iBin-bin0]);
+  if (opt.Contains("T")) {
+    printf("Tracklets:\n");
+    for (Int_t iTrkl = 0; iTrkl < fTrackletArray->GetEntriesFast(); iTrkl++) {
+      printf("tracklet %i: 0x%08x\n", iTrkl, ((AliTRDtrackletMCM*) (*fTrackletArray)[iTrkl])->GetTrackletWord());
+    }
   }
-  
-
-
-  Double_t aY[128]; // reversed function
+}
 
-  AliTRDtrapAlu a;
-  a.Init(1,8,0,31);
-  
-  for(Int_t j = 0; j<128; j++) { // loop over all Yest; LUT has 128 entries; 
-    Double_t yest = ((Double_t)j)/256; 
-    
-    Int_t iBin = 0;
-    while (yest>aYest[iBin] && iBin<(bin1-bin0)) {
-      iBin = iBin+1;
-    }
-    if((iBin == bin1 - bin0)&&(yest>aYest[iBin])) {
-      aY[j] = 0.5;                      // yest too big
-      //hist2->Fill(yest,aY[j]);
-      
+void AliTRDmcmSim::Draw(Option_t* const option) 
+{
+  // Plots the data stored in a 2-dim. timebin vs. ADC channel plot.
+  // The option selects what data is plotted and can be a sequence of 
+  // the following characters:
+  // R - plot raw data (default)
+  // F - plot filtered data (meaningless if R is specified)
+  // In addition to the ADC values:
+  // H - plot hits 
+  // T - plot tracklets
+
+  TString opt = option;
+
+  TH2F *hist = new TH2F("mcmdata", Form("Data of MCM %i on ROB %i in detector %i", \
+                                        fMcmPos, fRobPos, fDetector), \
+                        fNADC, -0.5, fNADC-.5, fNTimeBin, -.5, fNTimeBin-.5);
+  hist->GetXaxis()->SetTitle("ADC Channel");
+  hist->GetYaxis()->SetTitle("Timebin");
+  hist->SetStats(kFALSE);
+
+  if (opt.Contains("R")) {
+    for (Int_t iTimeBin = 0; iTimeBin < fNTimeBin; iTimeBin++) {
+      for (Int_t iAdc = 0; iAdc < fNADC; iAdc++) {
+        hist->SetBinContent(iAdc+1, iTimeBin+1, fADCR[iAdc][iTimeBin] >> fgkAddDigits);
+      }
     }
-    else {
-      Int_t bin_d = iBin + bin0 - 1;
-      Int_t bin_u = iBin + bin0;
-      Double_t y_d = ((Double_t)bin_d + 0.5)*sWidth + iLo; // lower y
-      Double_t y_u = ((Double_t)bin_u + 0.5)*sWidth + iLo; // upper y
-      Double_t yest_d = aYest[iBin-1];                     // lower estimated y
-      Double_t yest_u = aYest[iBin];                       // upper estimated y
-      
-      aY[j] = ((yest-yest_d)/(yest_u-yest_d))*(y_u-y_d) + y_d;
-      //hist2->Fill(yest,aY[j]);
-     
+  }
+  else {
+    for (Int_t iTimeBin = 0; iTimeBin < fNTimeBin; iTimeBin++) {
+      for (Int_t iAdc = 0; iAdc < fNADC; iAdc++) {
+        hist->SetBinContent(iAdc+1, iTimeBin+1, fADCF[iAdc][iTimeBin] >> fgkAddDigits);
+      }
     }
-    aY[j] = aY[j] - yest;
-    //hist3->Fill(yest,aY[j]);
-    // formatting
-    a.AssignDouble(aY[j]);
-    //a.WriteWord();
-    fPosLUT[j] = a.GetValue(); // 1+8Bit value;128 entries;LUT is steered by abs(Q(i+1)-Q(i-1))/Q(i)=COG and gives the correction to COG/2
-    //hist4->Fill(yest,fPosLUT[j]);
-    
   }
-   
-  
-  delete [] sPRFsmp;
-  delete [] sPRFlayer;
-  delete [] aYest;
-  
-}
+  hist->Draw("colz");
 
+  if (opt.Contains("H")) {
+    TGraph *grHits = new TGraph();
+    for (Int_t iHit = 0; iHit < fNHits; iHit++) {
+      grHits->SetPoint(iHit, 
+                       fHits[iHit].fChannel + 1 + fHits[iHit].fYpos/256., 
+                       fHits[iHit].fTimebin);
+    }
+    grHits->Draw("*");
+  }
 
-//_____________________________________________________________________________
-Int_t* AliTRDmcmSim::GetPosLUT(){
-  return fPosLUT;
+  if (opt.Contains("T")) {
+    TLine *trklLines = new TLine[4];
+    for (Int_t iTrkl = 0; iTrkl < fTrackletArray->GetEntries(); iTrkl++) {
+      AliTRDpadPlane *pp = fGeo->GetPadPlane(fDetector);
+      AliTRDtrackletMCM *trkl = (AliTRDtrackletMCM*) (*fTrackletArray)[iTrkl];
+      Float_t offset = pp->GetColPos(fFeeParam->GetPadColFromADC(fRobPos, fMcmPos, 19)) + 19 * pp->GetWidthIPad();
+      trklLines[iTrkl].SetX1((offset -  trkl->GetY()) / pp->GetWidthIPad());
+      trklLines[iTrkl].SetY1(0);
+      trklLines[iTrkl].SetX2((offset - (trkl->GetY() + ((Float_t) trkl->GetdY())*140e-4)) / pp->GetWidthIPad());
+      trklLines[iTrkl].SetY2(fNTimeBin - 1);
+      trklLines[iTrkl].SetLineColor(2);
+      trklLines[iTrkl].SetLineWidth(2);
+      printf("Tracklet %i: y = %f, dy = %f, offset = %f\n", iTrkl, trkl->GetY(), (trkl->GetdY() * 140e-4), offset);
+      trklLines[iTrkl].Draw();
+    }
+  }
 }
 
-
-
-void AliTRDmcmSim::SetData( Int_t iadc, Int_t *adc )
+void AliTRDmcmSim::SetData( Int_t iadc, Int_t* const adc )
 {
   //
   // Store ADC data into array of raw data
@@ -473,16 +539,16 @@ void AliTRDmcmSim::SetData( Int_t iadc, Int_t *adc )
   if( !CheckInitialized() ) return;
 
   if( iadc < 0 || iadc >= fNADC ) {
-    //Log (Form ("Error: iadc is out of range (should be 0 to %d).", fNADC-1));
+                       //Log (Form ("Error: iadc is out of range (should be 0 to %d).", fNADC-1));
     return;
   }
 
-  for( int it = 0 ;  it < fNTimeBin ; it++ ) {
-    fADCR[iadc][it] = (Int_t)(adc[it]);
+  for( Int_t it = 0 ;  it < fNTimeBin ; it++ ) {
+    fADCR[iadc][it] = (Int_t) (adc[it]) << fgkAddDigits;
+    fADCF[iadc][it] = (Int_t) (adc[it]) << fgkAddDigits;
   }
 }
 
-//_____________________________________________________________________________
 void AliTRDmcmSim::SetData( Int_t iadc, Int_t it, Int_t adc )
 {
   //
@@ -496,10 +562,60 @@ void AliTRDmcmSim::SetData( Int_t iadc, Int_t it, Int_t adc )
     return;
   }
 
-  fADCR[iadc][it] = adc;
+  fADCR[iadc][it] = adc << fgkAddDigits;
+  fADCF[iadc][it] = adc << fgkAddDigits;
+}
+
+void AliTRDmcmSim::SetData(AliTRDarrayADC* const adcArray, AliTRDdigitsManager *digitsManager)
+{
+  // Set the ADC data from an AliTRDarrayADC
+
+  if (!fInitialized) {
+    AliError("Called uninitialized! Nothing done!");
+    return;
+  }
+
+  fDigitsManager = digitsManager;
+
+  if (fNTimeBin != adcArray->GetNtime())
+    SetNTimebins(adcArray->GetNtime());
+
+  Int_t offset = (fMcmPos % 4) * 21 + (fRobPos % 2) * 84;
+
+//  Int_t firstAdc = 0;
+//  Int_t lastAdc = fNADC-1;
+//
+//  while (GetCol(firstAdc) < 0) {
+//    for (Int_t iTimeBin = 0; iTimeBin < fNTimeBin; iTimeBin++) {
+//      fADCR[firstAdc][iTimeBin] = fTrapConfig->GetTrapReg(AliTRDtrapConfig::kTPFP) + (fgAddBaseline << fgkAddDigits);
+//      fADCF[firstAdc][iTimeBin] = fTrapConfig->GetTrapReg(AliTRDtrapConfig::kTPFP) + (fgAddBaseline << fgkAddDigits);
+//    }
+//    firstAdc++;
+//  }
+//
+//  while (GetCol(lastAdc) < 0) {
+//    for (Int_t iTimeBin = 0; iTimeBin < fNTimeBin; iTimeBin++) {
+//      fADCR[lastAdc][iTimeBin] = fTrapConfig->GetTrapReg(AliTRDtrapConfig::kTPFP) + (fgAddBaseline << fgkAddDigits);
+//      fADCF[lastAdc][iTimeBin] = fTrapConfig->GetTrapReg(AliTRDtrapConfig::kTPFP) + (fgAddBaseline << fgkAddDigits);
+//    }
+//    lastAdc--;
+//  }
+
+  for (Int_t iTimeBin = 0; iTimeBin < fNTimeBin; iTimeBin++) {
+    for (Int_t iAdc = 0; iAdc < fNADC; iAdc++) {
+      Int_t value = adcArray->GetDataByAdcCol(GetRow(), 20-iAdc + offset, iTimeBin);
+      if (value < 0 || (20-iAdc + offset < 1) || (20-iAdc + offset > 165)) {
+        fADCR[iAdc][iTimeBin] = fTrapConfig->GetTrapReg(AliTRDtrapConfig::kTPFP) + (fgAddBaseline << fgkAddDigits);
+        fADCF[iAdc][iTimeBin] = fTrapConfig->GetTrapReg(AliTRDtrapConfig::kTPFP) + (fgAddBaseline << fgkAddDigits);
+      }
+      else {
+        fADCR[iAdc][iTimeBin] = (adcArray->GetData(GetRow(), GetCol(iAdc), iTimeBin)  + fgAddBaseline) << fgkAddDigits;
+        fADCF[iAdc][iTimeBin] = (adcArray->GetData(GetRow(), GetCol(iAdc), iTimeBin)  + fgAddBaseline) << fgkAddDigits;
+      }
+    }
+  }
 }
 
-//_____________________________________________________________________________
 void AliTRDmcmSim::SetDataPedestal( Int_t iadc )
 {
   //
@@ -509,29 +625,32 @@ void AliTRDmcmSim::SetDataPedestal( Int_t iadc )
   if( !CheckInitialized() ) return;
 
   if( iadc < 0 || iadc >= fNADC ) {
-    //Log (Form ("Error: iadc is out of range (should be 0 to %d).", fNADC-1));
     return;
   }
 
   for( Int_t it = 0 ; it < fNTimeBin ; it++ ) {
-    fADCR[iadc][it] = fSimParam->GetADCbaseline();
+    fADCR[iadc][it] = fTrapConfig->GetTrapReg(AliTRDtrapConfig::kTPFP) + (fgAddBaseline << fgkAddDigits);
+    fADCF[iadc][it] = fTrapConfig->GetTrapReg(AliTRDtrapConfig::kTPFP) + (fgAddBaseline << fgkAddDigits);
   }
 }
 
-//_____________________________________________________________________________
 Int_t AliTRDmcmSim::GetCol( Int_t iadc )
 {
   //
   // Return column id of the pad for the given ADC channel
   //
 
-  if( !CheckInitialized() ) return -1;
+  if( !CheckInitialized() ) 
+    return -1;
 
-  return fFeeParam->GetPadColFromADC(fRobPos, fMcmPos, iadc);
+  Int_t col = fFeeParam->GetPadColFromADC(fRobPos, fMcmPos, iadc);
+  if (col < 0 || col >= fFeeParam->GetNcol()) 
+    return -1;
+  else 
+    return col;
 }
 
-//_____________________________________________________________________________
-Int_t AliTRDmcmSim::ProduceRawStream( UInt_t *buf, Int_t maxSize )
+Int_t AliTRDmcmSim::ProduceRawStream( UInt_t *buf, Int_t maxSize, UInt_t iEv)
 {
   //
   // Produce raw data stream from this MCM and put in buf
@@ -540,11 +659,11 @@ Int_t AliTRDmcmSim::ProduceRawStream( UInt_t *buf, Int_t maxSize )
   //
 
   UInt_t  x;
-  UInt_t  iEv = 0;
   Int_t   nw  = 0;  // Number of written words
   Int_t   of  = 0;  // Number of overflowed words
   Int_t   rawVer   = fFeeParam->GetRAWversion();
   Int_t **adc;
+  Int_t   nActiveADC = 0;      // number of activated ADC bits in a word
 
   if( !CheckInitialized() ) return 0;
 
@@ -555,24 +674,32 @@ Int_t AliTRDmcmSim::ProduceRawStream( UInt_t *buf, Int_t maxSize )
   }
 
   // Produce MCM header
-  x = ((fRobPos * fFeeParam->GetNmcmRob() + fMcmPos) << 24) | ((iEv % 0x100000) << 4) | 0xC;
+  x = (1<<31) | (fRobPos << 28) | (fMcmPos << 24) | ((iEv % 0x100000) << 4) | 0xC;
+
   if (nw < maxSize) {
     buf[nw++] = x;
+    //printf("\nMCM header: %X ",x);
   }
   else {
     of++;
   }
 
-  // Produce ADC mask
+  // Produce ADC mask : nncc cccm mmmm mmmm mmmm mmmm mmmm 1100
+  //                           n : unused , c : ADC count, m : selected ADCs
   if( rawVer >= 3 ) {
     x = 0;
     for( Int_t iAdc = 0 ; iAdc < fNADC ; iAdc++ ) {
       if( fZSM1Dim[iAdc] == 0 ) { //  0 means not suppressed
-       x = x | (1 << iAdc);
+               x = x | (1 << (iAdc+4) );       // last 4 digit reserved for 1100=0xc
+               nActiveADC++;           // number of 1 in mmm....m
       }
     }
+       x = x | (1 << 30) | ( ( 0x3FFFFFFC ) & (~(nActiveADC) << 25) ) | 0xC;   // nn = 01, ccccc are inverted, 0xc=1100
+       //printf("nActiveADC=%d=%08X, inverted=%X ",nActiveADC,nActiveADC,x );
+
     if (nw < maxSize) {
       buf[nw++] = x;
+      //printf("ADC mask: %X nMask=%d ADC data: ",x,nActiveADC);
     }
     else {
       of++;
@@ -585,18 +712,19 @@ Int_t AliTRDmcmSim::ProduceRawStream( UInt_t *buf, Int_t maxSize )
   UInt_t aa=0, a1=0, a2=0, a3=0;
 
   for (Int_t iAdc = 0; iAdc < 21; iAdc++ ) {
-    if( rawVer>= 3 && fZSM1Dim[iAdc] != 0 ) continue; // suppressed
+    if( rawVer>= 3 && fZSM1Dim[iAdc] != 0 ) continue; // Zero Suppression, 0 means not suppressed
     aa = !(iAdc & 1) + 2;
     for (Int_t iT = 0; iT < fNTimeBin; iT+=3 ) {
-      a1 = ((iT    ) < fNTimeBin ) ? adc[iAdc][iT  ] : 0;
-      a2 = ((iT + 1) < fNTimeBin ) ? adc[iAdc][iT+1] : 0;
-      a3 = ((iT + 2) < fNTimeBin ) ? adc[iAdc][iT+2] : 0;
+      a1 = ((iT    ) < fNTimeBin ) ? adc[iAdc][iT  ] >> fgkAddDigits : 0;
+      a2 = ((iT + 1) < fNTimeBin ) ? adc[iAdc][iT+1] >> fgkAddDigits : 0;
+      a3 = ((iT + 2) < fNTimeBin ) ? adc[iAdc][iT+2] >> fgkAddDigits : 0;
       x = (a3 << 22) | (a2 << 12) | (a1 << 2) | aa;
       if (nw < maxSize) {
-       buf[nw++] = x;
+        buf[nw++] = x;
+        //printf("%08X ",x);
       }
       else {
-       of++;
+        of++;
       }
     }
   }
@@ -604,7 +732,6 @@ Int_t AliTRDmcmSim::ProduceRawStream( UInt_t *buf, Int_t maxSize )
   if( of != 0 ) return -of; else return nw;
 }
 
-//_____________________________________________________________________________
 Int_t AliTRDmcmSim::ProduceTrackletStream( UInt_t *buf, Int_t maxSize )
 {
   //
@@ -613,7 +740,6 @@ Int_t AliTRDmcmSim::ProduceTrackletStream( UInt_t *buf, Int_t maxSize )
   // with -1 * number of overflowed words
   //
 
-  UInt_t  x;
   Int_t   nw  = 0;  // Number of written words
   Int_t   of  = 0;  // Number of overflowed words
     
@@ -622,165 +748,309 @@ Int_t AliTRDmcmSim::ProduceTrackletStream( UInt_t *buf, Int_t maxSize )
   // Produce tracklet data. A maximum of four 32 Bit words will be written per MCM 
   // fMCMT is filled continuously until no more tracklet words available
 
-  Int_t wd = 0;
-  while ( (wd < fMaxTracklets) && (fMCMT[wd] > 0) ){
-      x = fMCMT[wd];
-      if (nw < maxSize) {
-       buf[nw++] = x;
-      }
-      else {
-       of++;
-      }
-      wd++;
+  for (Int_t iTracklet = 0; iTracklet < fTrackletArray->GetEntriesFast(); iTracklet++) {
+    if (nw < maxSize) 
+      buf[nw++] = ((AliTRDtrackletMCM*) (*fTrackletArray)[iTracklet])->GetTrackletWord();
+    else 
+      of++;
   }
   
   if( of != 0 ) return -of; else return nw;
 }
 
-
-//_____________________________________________________________________________
 void AliTRDmcmSim::Filter()
 {
   //
-  // Apply digital filter
+  // Filter the raw ADC values. The active filter stages and their
+  // parameters are taken from AliTRDtrapConfig.
+  // The raw data is stored separate from the filtered data. Thus, 
+  // it is possible to run the filters on a set of raw values 
+  // sequentially for parameter tuning.
   //
 
-  if( !CheckInitialized() ) return;
-
-  // Initialize filtered data array with raw data
-  for( Int_t iadc = 0 ; iadc < fNADC; iadc++ ) {
-    for( Int_t it = 0 ; it < fNTimeBin ; it++ ) {
-      fADCF[iadc][it] = fADCR[iadc][it]; 
-    }
+  if( !CheckInitialized() ) {
+    AliError("got called before initialization! Nothing done!");
+    return;
   }
 
-  // Then apply fileters one by one to filtered data array
-  if( fFeeParam->IsPFon() ) FilterPedestal();
-  if( fFeeParam->IsGFon() ) FilterGain();
-  if( fFeeParam->IsTFon() ) FilterTail();
+  // Apply filters sequentially. Bypass is handled by filters
+  // since counters and internal registers may be updated even 
+  // if the filter is bypassed.
+  // The first filter takes the data from fADCR and 
+  // outputs to fADCF. 
+  
+  // Non-linearity filter not implemented.
+  FilterPedestal();
+  FilterGain();
+  FilterTail();
+  // Crosstalk filter not implemented.
 }
 
-//_____________________________________________________________________________
-void AliTRDmcmSim::FilterPedestal()
+void AliTRDmcmSim::FilterPedestalInit() 
 {
-  //
-  // Apply pedestal filter
-  //
+  // Initializes the pedestal filter assuming that the input has 
+  // been constant for a long time (compared to the time constant).
 
-  Int_t ap = fSimParam->GetADCbaseline();      // ADC instrinsic pedestal
-  Int_t ep = fFeeParam->GetPFeffectPedestal(); // effective pedestal
-  //Int_t tc = fFeeParam->GetPFtimeConstant();   // this makes no sense yet
+//  UShort_t    fpnp = fTrapConfig->GetTrapReg(AliTRDtrapConfig::kFPNP); // 0..511 -> 0..127.75, pedestal at the output
+  UShort_t    fptc = fTrapConfig->GetTrapReg(AliTRDtrapConfig::kFPTC); // 0..3, 0 - fastest, 3 - slowest
+  UShort_t    shifts[4] = {11, 14, 17, 21}; //??? where to take shifts from?
 
-  for( Int_t iadc = 0 ; iadc < fNADC; iadc++ ) {
-    for( Int_t it = 0 ; it < fNTimeBin ; it++ ) {
-      fADCF[iadc][it] = fADCF[iadc][it] - ap + ep;
-    }
-  }
+  for (Int_t iAdc = 0; iAdc < fNADC; iAdc++)
+    fPedAcc[iAdc] = (fSimParam->GetADCbaseline() << 2) * (1<<shifts[fptc]);
 }
 
-//_____________________________________________________________________________
-void AliTRDmcmSim::FilterGain()
+UShort_t AliTRDmcmSim::FilterPedestalNextSample(Int_t adc, Int_t timebin, UShort_t value)
 {
-  //
-  // Apply gain filter (not implemented)
-  // Later it will be implemented because gain digital filiter will
-  // increase noise level.
-  //
+  // Returns the output of the pedestal filter given the input value.
+  // The output depends on the internal registers and, thus, the 
+  // history of the filter.
 
+  UShort_t    fpnp = fTrapConfig->GetTrapReg(AliTRDtrapConfig::kFPNP); // 0..511 -> 0..127.75, pedestal at the output
+  UShort_t    fptc = fTrapConfig->GetTrapReg(AliTRDtrapConfig::kFPTC); // 0..3, 0 - fastest, 3 - slowest
+  UShort_t    fpby = fTrapConfig->GetTrapReg(AliTRDtrapConfig::kFPBY); // 0..1 the bypass, active low
+  UShort_t    shifts[4] = {11, 14, 17, 21}; //??? where to come from
+
+  UShort_t accumulatorShifted;
+  Int_t correction;
+  UShort_t inpAdd;
+  
+  inpAdd = value + fpnp;
+
+  if (fpby == 0) //??? before or after update of accumulator
+    return value;
+
+  accumulatorShifted = (fPedAcc[adc] >> shifts[fptc]) & 0x3FF;   // 10 bits
+  if (timebin == 0) // the accumulator is disabled in the drift time
+  {
+    correction = (value & 0x3FF) - accumulatorShifted;
+    fPedAcc[adc] = (fPedAcc[adc] + correction) & 0x7FFFFFFF;             // 31 bits
+  }
+  
+  if (inpAdd <= accumulatorShifted)
+    return 0;
+  else
+  {
+    inpAdd = inpAdd - accumulatorShifted;
+    if (inpAdd > 0xFFF) 
+      return 0xFFF;
+    else 
+      return inpAdd;
+  }
 }
 
-//_____________________________________________________________________________
-void AliTRDmcmSim::FilterTail()
+void AliTRDmcmSim::FilterPedestal()
 {
   //
-  // Apply exponential tail filter (Bogdan's version)
+  // Apply pedestal filter
   //
+  // As the first filter in the chain it reads data from fADCR 
+  // and outputs to fADCF. 
+  // It has only an effect if previous samples have been fed to 
+  // find the pedestal. Currently, the simulation assumes that 
+  // the input has been stable for a sufficiently long time.
 
-  Double_t *dtarg  = new Double_t[fNTimeBin];
-  Int_t    *itarg  = new Int_t[fNTimeBin];
-  Int_t     nexp   = fFeeParam->GetTFnExp();
-  Int_t     tftype = fFeeParam->GetTFtype();
-
-  switch( tftype ) {
-    
-  case 0: // Exponential Filter Analog Bogdan
-    for (Int_t iCol = 0; iCol < fNADC; iCol++) {
-      FilterSimDeConvExpA( fADCF[iCol], dtarg, fNTimeBin, nexp);
-      for (Int_t iTime = 0; iTime < fNTimeBin; iTime++) {
-       fADCF[iCol][iTime] = (Int_t) TMath::Max(0.0,dtarg[iTime]);
-      }
+  for (Int_t iTimeBin = 0; iTimeBin < fNTimeBin; iTimeBin++) {
+    for (Int_t iAdc = 0; iAdc < fNADC; iAdc++) {
+      fADCF[iAdc][iTimeBin] = FilterPedestalNextSample(iAdc, iTimeBin, fADCR[iAdc][iTimeBin]);
     }
-    break;
+  }
+}
 
-  case 1: // Exponential filter digital Bogdan
-    for (Int_t iCol = 0; iCol < fNADC; iCol++) {
-      FilterSimDeConvExpD( fADCF[iCol], itarg, fNTimeBin, nexp);
-      for (Int_t iTime = 0; iTime < fNTimeBin; iTime++) {
-       fADCF[iCol][iTime] = itarg[iTime];
-      }
-    }
-    break;
-    
-  case 2: // Exponential filter Marian special
-    for (Int_t iCol = 0; iCol < fNADC; iCol++) {
-      FilterSimDeConvExpMI( fADCF[iCol], dtarg, fNTimeBin);
-      for (Int_t iTime = 0; iTime < fNTimeBin; iTime++) {
-       fADCF[iCol][iTime] = (Int_t) TMath::Max(0.0,dtarg[iTime]);
-      }
-    }
-    break;
-
-    //new
-  case 3: // Exponential filter using AliTRDtrapAlu class
-    for (Int_t iCol = 0; iCol < fNADC; iCol++) {
-      FilterSimDeConvExpEl( fADCF[iCol], itarg, fNTimeBin, nexp);
-      for (Int_t iTime = 0; iTime < fNTimeBin; iTime++) {
-       fADCF[iCol][iTime] = itarg[iTime]>>2; // to be used for raw-data
-       fADCT[iCol][iTime] = itarg[iTime];    // 12bits; to be used for tracklet; tracklet will have own container; 
-      }
-    }
-    break;
+void AliTRDmcmSim::FilterGainInit()
+{
+  // Initializes the gain filter. In this case, only threshold 
+  // counters are reset.
 
-    
-  default:
-    AliError(Form("Invalid filter type %d ! \n", tftype ));
-    break;
+  for (Int_t iAdc = 0; iAdc < fNADC; iAdc++) {
+    // these are counters which in hardware continue 
+    // until maximum or reset
+    fGainCounterA[iAdc] = 0;
+    fGainCounterB[iAdc] = 0;
   }
-
-  delete dtarg;
-  delete itarg;
 }
 
-//_____________________________________________________________________________
-void AliTRDmcmSim::ZSMapping()
+UShort_t AliTRDmcmSim::FilterGainNextSample(Int_t adc, UShort_t value)
 {
-  //
-  // Zero Suppression Mapping implemented in TRAP chip
-  //
-  // See detail TRAP manual "Data Indication" section:
-  // http://www.kip.uni-heidelberg.de/ti/TRD/doc/trap/TRAP-UserManual.pdf
-  //
+  // Apply the gain filter to the given value.
+  // BEGIN_LATEX O_{i}(t) = #gamma_{i} * I_{i}(t) + a_{i} END_LATEX
+  // The output depends on the internal registers and, thus, the 
+  // history of the filter.
 
-  Int_t eBIS = fFeeParam->GetEBsglIndThr();       // TRAP default = 0x4  (Tis=4)
-  Int_t eBIT = fFeeParam->GetEBsumIndThr();       // TRAP default = 0x28 (Tit=40)
-  Int_t eBIL = fFeeParam->GetEBindLUT();          // TRAP default = 0xf0
-                                                  // (lookup table accept (I2,I1,I0)=(111)
-                                                  // or (110) or (101) or (100))
-  Int_t eBIN = fFeeParam->GetEBignoreNeighbour(); // TRAP default = 1 (no neighbor sensitivity)
-  Int_t ep   = AliTRDfeeParam::GetPFeffectPedestal();
+  UShort_t    fgby = fTrapConfig->GetTrapReg(AliTRDtrapConfig::kFGBY); // bypass, active low
+  UShort_t    fgf  = fTrapConfig->GetTrapReg(AliTRDtrapConfig::TrapReg_t(AliTRDtrapConfig::kFGF0 + adc)); // 0x700 + (0 & 0x1ff);
+  UShort_t    fga  = fTrapConfig->GetTrapReg(AliTRDtrapConfig::TrapReg_t(AliTRDtrapConfig::kFGA0 + adc)); // 40;
+  UShort_t    fgta = fTrapConfig->GetTrapReg(AliTRDtrapConfig::kFGTA); // 20;
+  UShort_t    fgtb = fTrapConfig->GetTrapReg(AliTRDtrapConfig::kFGTB); // 2060;
 
-  if( !CheckInitialized() ) return;
+  UInt_t tmp;
 
-  for( Int_t iadc = 1 ; iadc < fNADC-1; iadc++ ) {
-    for( Int_t it = 0 ; it < fNTimeBin ; it++ ) {
+  value &= 0xFFF;
+  tmp = (value * fgf) >> 11;
+  if (tmp > 0xFFF) tmp = 0xFFF;
 
-      // Get ADC data currently in filter buffer
-      Int_t ap = fADCF[iadc-1][it] - ep; // previous
-      Int_t ac = fADCF[iadc  ][it] - ep; // current
-      Int_t an = fADCF[iadc+1][it] - ep; // next
+  if (fgby == 1)
+    value = AddUintClipping(tmp, fga, 12);
 
-      // evaluate three conditions
-      Int_t i0 = ( ac >=  ap && ac >=  an ) ? 0 : 1; // peak center detection
+  // Update threshold counters 
+  // not really useful as they are cleared with every new event
+  if ((fGainCounterA[adc] == 0x3FFFFFF) || (fGainCounterB[adc] == 0x3FFFFFF))
+  {
+    if (value >= fgtb) 
+      fGainCounterB[adc]++;
+    else if (value >= fgta) 
+      fGainCounterA[adc]++;
+  }
+
+  return value;
+}
+
+void AliTRDmcmSim::FilterGain()
+{
+  // Read data from fADCF and apply gain filter.
+
+  for (Int_t iAdc = 0; iAdc < fNADC; iAdc++) {
+    for (Int_t iTimeBin = 0; iTimeBin < fNTimeBin; iTimeBin++) {
+        fADCF[iAdc][iTimeBin] = FilterGainNextSample(iAdc, fADCF[iAdc][iTimeBin]);
+    }
+  }
+}
+
+void AliTRDmcmSim::FilterTailInit(Int_t baseline)
+{
+  // Initializes the tail filter assuming that the input has 
+  // been at the baseline value (configured by FTFP) for a 
+  // sufficiently long time.
+
+  // exponents and weight calculated from configuration
+  UShort_t    alphaLong = 0x3ff & fTrapConfig->GetTrapReg(AliTRDtrapConfig::kFTAL); // the weight of the long component
+  UShort_t    lambdaLong = (1 << 10) | (1 << 9) | (fTrapConfig->GetTrapReg(AliTRDtrapConfig::kFTLL) & 0x1FF); // the multiplier
+  UShort_t    lambdaShort = (0 << 10) | (1 << 9) | (fTrapConfig->GetTrapReg(AliTRDtrapConfig::kFTLS) & 0x1FF); // the multiplier
+
+  Float_t lambdaL = lambdaLong  * 1.0 / (1 << 11);
+  Float_t lambdaS = lambdaShort * 1.0 / (1 << 11);
+  Float_t alphaL  = alphaLong   * 1.0 / (1 << 11);
+  Float_t qup, qdn;
+  qup = (1 - lambdaL) * (1 - lambdaS);
+  qdn = 1 - lambdaS * alphaL - lambdaL * (1 - alphaL);
+  Float_t kdc = qup/qdn;
+
+  Float_t kt, ql, qs;
+  UShort_t aout;
+  
+  kt = kdc * baseline;
+  aout = baseline - (UShort_t) kt;
+  ql = lambdaL * (1 - lambdaS) *      alphaL;
+  qs = lambdaS * (1 - lambdaL) * (1 - alphaL);
+
+  for (Int_t iAdc = 0; iAdc < fNADC; iAdc++) {
+    fTailAmplLong[iAdc]  = (UShort_t) (aout * ql / (ql + qs));
+    fTailAmplShort[iAdc] = (UShort_t) (aout * qs / (ql + qs));
+  }
+}
+
+UShort_t AliTRDmcmSim::FilterTailNextSample(Int_t adc, UShort_t value)
+{
+  // Returns the output of the tail filter for the given input value. 
+  // The output depends on the internal registers and, thus, the 
+  // history of the filter.
+
+  // exponents and weight calculated from configuration
+  UShort_t    alphaLong = 0x3ff & fTrapConfig->GetTrapReg(AliTRDtrapConfig::kFTAL); // the weight of the long component
+  UShort_t    lambdaLong = (1 << 10) | (1 << 9) | (fTrapConfig->GetTrapReg(AliTRDtrapConfig::kFTLL) & 0x1FF); // the multiplier
+  UShort_t    lambdaShort = (0 << 10) | (1 << 9) | (fTrapConfig->GetTrapReg(AliTRDtrapConfig::kFTLS) & 0x1FF); // the multiplier
+
+  Float_t lambdaL = lambdaLong  * 1.0 / (1 << 11);
+  Float_t lambdaS = lambdaShort * 1.0 / (1 << 11);
+  Float_t alphaL  = alphaLong   * 1.0 / (1 << 11);
+  Float_t qup, qdn;
+  qup = (1 - lambdaL) * (1 - lambdaS);
+  qdn = 1 - lambdaS * alphaL - lambdaL * (1 - alphaL);
+//  Float_t kdc = qup/qdn;
+
+  UInt_t aDiff;
+  UInt_t alInpv;
+  UShort_t aQ;
+  UInt_t tmp;
+  
+  UShort_t inpVolt = value & 0xFFF;    // 12 bits
+      
+  if (fTrapConfig->GetTrapReg(AliTRDtrapConfig::kFTBY) == 0) // bypass mode, active low
+    return value;
+  else
+  {   
+    // add the present generator outputs
+    aQ = AddUintClipping(fTailAmplLong[adc], fTailAmplShort[adc], 12);
+
+    // calculate the difference between the input the generated signal
+    if (inpVolt > aQ) 
+      aDiff = inpVolt - aQ;
+    else                
+      aDiff = 0;
+
+    // the inputs to the two generators, weighted
+    alInpv = (aDiff * alphaLong) >> 11;
+
+    // the new values of the registers, used next time
+    // long component
+    tmp = AddUintClipping(fTailAmplLong[adc], alInpv, 12);
+    tmp =  (tmp * lambdaLong) >> 11;
+    fTailAmplLong[adc] = tmp & 0xFFF;
+    // short component
+    tmp = AddUintClipping(fTailAmplShort[adc], aDiff - alInpv, 12);
+    tmp =  (tmp * lambdaShort) >> 11;
+    fTailAmplShort[adc] = tmp & 0xFFF;
+
+    // the output of the filter
+    return aDiff;
+  }
+}
+
+void AliTRDmcmSim::FilterTail()
+{
+  // Apply tail filter
+
+  for (Int_t iTimeBin = 0; iTimeBin < fNTimeBin; iTimeBin++) {
+    for (Int_t iAdc = 0; iAdc < fNADC; iAdc++) {
+      fADCF[iAdc][iTimeBin] = FilterTailNextSample(iAdc, fADCF[iAdc][iTimeBin]);
+    }
+  }
+}
+
+void AliTRDmcmSim::ZSMapping()
+{
+  //
+  // Zero Suppression Mapping implemented in TRAP chip
+  //
+  // See detail TRAP manual "Data Indication" section:
+  // http://www.kip.uni-heidelberg.de/ti/TRD/doc/trap/TRAP-UserManual.pdf
+  //
+
+  //??? values should come from TRAPconfig
+  Int_t eBIS = fTrapConfig->GetTrapReg(AliTRDtrapConfig::kEBIS); // TRAP default = 0x4  (Tis=4)
+  Int_t eBIT = fTrapConfig->GetTrapReg(AliTRDtrapConfig::kEBIT); // TRAP default = 0x28 (Tit=40)
+  Int_t eBIL = fTrapConfig->GetTrapReg(AliTRDtrapConfig::kEBIL); // TRAP default = 0xf0
+                                                                 // (lookup table accept (I2,I1,I0)=(111)
+                                                                 // or (110) or (101) or (100))
+  Int_t eBIN = fTrapConfig->GetTrapReg(AliTRDtrapConfig::kEBIN); // TRAP default = 1 (no neighbor sensitivity)
+  Int_t ep   = 0; // fTrapConfig->GetTrapReg(AliTRDtrapConfig::kFPNP); //??? really subtracted here
+
+  Int_t **adc = fADCF;
+
+  if( !CheckInitialized() ) {
+    AliError("got called uninitialized! Nothing done!");    
+    return;
+  }
+
+  for( Int_t it = 0 ; it < fNTimeBin ; it++ ) {
+    for( Int_t iadc = 1 ; iadc < fNADC-1; iadc++ ) {
+
+      // Get ADC data currently in filter buffer
+      Int_t ap = adc[iadc-1][it] - ep; // previous
+      Int_t ac = adc[iadc  ][it] - ep; // current
+      Int_t an = adc[iadc+1][it] - ep; // next
+
+      // evaluate three conditions
+      Int_t i0 = ( ac >=  ap && ac >=  an ) ? 0 : 1; // peak center detection
       Int_t i1 = ( ap + ac + an > eBIT )    ? 0 : 1; // cluster
       Int_t i2 = ( ac > eBIS )              ? 0 : 1; // absolute large peak
 
@@ -793,7 +1063,6 @@ void AliTRDmcmSim::ZSMapping()
        fZSM[iadc-1][it] &= d;
        fZSM[iadc+1][it] &= d;
       }
-
     }
   }
 
@@ -803,11 +1072,9 @@ void AliTRDmcmSim::ZSMapping()
       fZSM1Dim[iadc] &= fZSM[iadc][it];
     }
   }
-
 }
 
-//_____________________________________________________________________________
-void AliTRDmcmSim::DumpData( char *f, char *target )
+void AliTRDmcmSim::DumpData( const char * const f, const char * const target )
 {
   //
   // Dump data stored (for debugging).
@@ -825,9 +1092,10 @@ void AliTRDmcmSim::DumpData( char *f, char *target )
 
   std::ofstream of( f, std::ios::out | std::ios::app );
   of << Form("AliTRDmcmSim::DumpData det=%03d sm=%02d stack=%d layer=%d rob=%d mcm=%02d\n",
-            fChaId, fSector, fStack, fLayer, fRobPos, fMcmPos );
+            fDetector, fGeo->GetSector(fDetector), fGeo->GetStack(fDetector), 
+             fGeo->GetSector(fDetector), fRobPos, fMcmPos );
 
-  for( int t=0 ; target[t] != 0 ; t++ ) {
+  for( Int_t t=0 ; target[t] != 0 ; t++ ) {
     switch( target[t] ) {
     case 'R' :
     case 'r' :
@@ -868,1870 +1136,919 @@ void AliTRDmcmSim::DumpData( char *f, char *target )
       Int_t s = ProduceRawStream( tempbuf, 1024 ); 
       of << Form("Stream for Raw Simulation size=%d rawver=%d\n", s, fFeeParam->GetRAWversion());
       of << Form("  address  data\n");
-      for( int i = 0 ; i < s ; i++ ) {
+      for( Int_t i = 0 ; i < s ; i++ ) {
        of << Form("  %04x     %08x\n", i, tempbuf[i]);
       }
     }
   }
 }
 
-//_____________________________________________________________________________
-void AliTRDmcmSim::FilterSimDeConvExpA(Int_t *source, Double_t *target
-                                     , Int_t n, Int_t nexp) 
+void AliTRDmcmSim::AddHitToFitreg(Int_t adc, UShort_t timebin, UShort_t qtot, Short_t ypos, Int_t label) 
 {
-  //
-  // Exponential filter "analog"
-  // source will not be changed
-  //
-
-  Int_t    i = 0;
-  Int_t    k = 0;
-  Double_t reminder[2];
-  Double_t correction;
-  Double_t result;
-  Double_t rates[2];
-  Double_t coefficients[2];
-
-  // Initialize (coefficient = alpha, rates = lambda)
-  // FilterOpt.C (aliroot@pel:/homel/aliroot/root/work/beamt/CERN02)
-
-  Double_t r1 = (Double_t)fFeeParam->GetTFr1();
-  Double_t r2 = (Double_t)fFeeParam->GetTFr2();
-  Double_t c1 = (Double_t)fFeeParam->GetTFc1();
-  Double_t c2 = (Double_t)fFeeParam->GetTFc2();
-  
-  coefficients[0] = c1;
-  coefficients[1] = c2;
-
-  Double_t dt = 0.1;
-  rates[0] = TMath::Exp(-dt/(r1));
-  rates[1] = TMath::Exp(-dt/(r2));
+  // Add the given hit to the fit register which is lateron used for 
+  // the tracklet calculation. 
+  // In addition to the fit sums in the fit register MC information 
+  // is stored.
+
+  if ((timebin >= fTrapConfig->GetTrapReg(AliTRDtrapConfig::kTPQS0)) && 
+      (timebin <  fTrapConfig->GetTrapReg(AliTRDtrapConfig::kTPQE0)))
+    fFitReg[adc].fQ0 += qtot;
+  
+  if ((timebin >= fTrapConfig->GetTrapReg(AliTRDtrapConfig::kTPQS1)) && 
+      (timebin <  fTrapConfig->GetTrapReg(AliTRDtrapConfig::kTPQE1)))
+    fFitReg[adc].fQ1 += qtot;
+  
+  if ((timebin >= fTrapConfig->GetTrapReg(AliTRDtrapConfig::kTPFS) ) && 
+      (timebin <  fTrapConfig->GetTrapReg(AliTRDtrapConfig::kTPFE)))
+  {
+    fFitReg[adc].fSumX  += timebin;
+    fFitReg[adc].fSumX2 += timebin*timebin;
+    fFitReg[adc].fNhits++;
+    fFitReg[adc].fSumY  += ypos;
+    fFitReg[adc].fSumY2 += ypos*ypos;
+    fFitReg[adc].fSumXY += timebin*ypos;
+  }
+
+  // register hits (MC info)
+  fHits[fNHits].fChannel = adc;
+  fHits[fNHits].fQtot = qtot;
+  fHits[fNHits].fYpos = ypos;
+  fHits[fNHits].fTimebin = timebin;
+  fHits[fNHits].fLabel = label;
+  fNHits++;
+}
 
-  // Attention: computation order is important
-  correction = 0.0;
-  for (k = 0; k < nexp; k++) {
-    reminder[k] = 0.0;
-  }
+void AliTRDmcmSim::CalcFitreg() 
+{
+  // Preprocessing.
+  // Detect the hits and fill the fit registers.
+  // Requires 12-bit data from fADCF which means Filter() 
+  // has to be called before even if all filters are bypassed.
+
+  //???
+  // TRAP parameters:
+  const UShort_t lutPos[128] = {   // move later to some other file
+    0,  1,  1,  2,  2,  3,  3,  4,  4,  5,  5,  6,  6,  7,  7,  8,  8,  9,  9, 10, 10, 11, 11, 11, 12, 12, 13, 13, 14, 14, 15, 15,
+    16, 16, 16, 17, 17, 18, 18, 19, 19, 19, 20, 20, 20, 21, 21, 22, 22, 22, 23, 23, 23, 24, 24, 24, 24, 25, 25, 25, 26, 26, 26, 26,
+    27, 27, 27, 27, 27, 27, 27, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 27, 27, 27, 27, 26,
+    26, 26, 26, 25, 25, 25, 24, 24, 23, 23, 22, 22, 21, 21, 20, 20, 19, 18, 18, 17, 17, 16, 15, 14, 13, 12, 11, 10,  9,  8,  7,  7};
+  
+  //??? to be clarified:
+  UInt_t adcMask = 0xffffffff;
+  
+  UShort_t timebin, adcch, adcLeft, adcCentral, adcRight, hitQual, timebin1, timebin2, qtotTemp;
+  Short_t ypos, fromLeft, fromRight, found;
+  UShort_t qTotal[19]; // the last is dummy
+  UShort_t marked[6], qMarked[6], worse1, worse2;
+  
+  timebin1 = fTrapConfig->GetTrapReg(AliTRDtrapConfig::kTPFS); 
+  if (fTrapConfig->GetTrapReg(AliTRDtrapConfig::kTPQS0) 
+      < timebin1)
+    timebin1 = fTrapConfig->GetTrapReg(AliTRDtrapConfig::kTPQS0);
+  timebin2 = fTrapConfig->GetTrapReg(AliTRDtrapConfig::kTPFE); 
+  if (fTrapConfig->GetTrapReg(AliTRDtrapConfig::kTPQE1) 
+      > timebin2)
+    timebin2 = fTrapConfig->GetTrapReg(AliTRDtrapConfig::kTPQE1);
+
+  // reset the fit registers
+  fNHits = 0; 
+  for (adcch = 0; adcch < fNADC-2; adcch++) // due to border channels
+  {
+    fFitReg[adcch].fNhits = 0;
+    fFitReg[adcch].fQ0    = 0;
+    fFitReg[adcch].fQ1    = 0;
+    fFitReg[adcch].fSumX  = 0;
+    fFitReg[adcch].fSumY  = 0;
+    fFitReg[adcch].fSumX2 = 0;
+    fFitReg[adcch].fSumY2 = 0;
+    fFitReg[adcch].fSumXY = 0;
+  }
+  
+  for (timebin = timebin1; timebin < timebin2; timebin++)
+  {
+    // first find the hit candidates and store the total cluster charge in qTotal array
+    // in case of not hit store 0 there.
+    for (adcch = 0; adcch < fNADC-2; adcch++) {
+      if ( ( (adcMask >> adcch) & 7) == 7) //??? all 3 channels are present in case of ZS
+      {
+        adcLeft  = fADCF[adcch  ][timebin];
+        adcCentral  = fADCF[adcch+1][timebin];
+        adcRight = fADCF[adcch+2][timebin];
+        if (fTrapConfig->GetTrapReg(AliTRDtrapConfig::kTPVBY) == 1) 
+          hitQual = ( (adcLeft * adcRight) < 
+                       (fTrapConfig->GetTrapReg(AliTRDtrapConfig::kTPVT) * adcCentral) );
+        else            
+          hitQual = 1;
+        // The accumulated charge is with the pedestal!!!
+        qtotTemp = adcLeft + adcCentral + adcRight;
+        if ( (hitQual) &&
+             (qtotTemp >= fTrapConfig->GetTrapReg(AliTRDtrapConfig::kTPHT)) &&
+             (adcLeft <= adcCentral) &&
+             (adcCentral > adcRight) )
+          qTotal[adcch] = qtotTemp;
+        else
+          qTotal[adcch] = 0;
+      }
+      else
+        qTotal[adcch] = 0; //jkl
+      AliDebug(10,Form("ch %2d   qTotal %5d",adcch, qTotal[adcch]));
+    }
+
+    fromLeft = -1;
+    adcch = 0;
+    found = 0;
+    marked[4] = 19; // invalid channel
+    marked[5] = 19; // invalid channel
+    qTotal[19] = 0;
+    while ((adcch < 16) && (found < 3))
+    {
+      if (qTotal[adcch] > 0)
+      {
+        fromLeft = adcch;
+        marked[2*found+1]=adcch;
+        found++;
+      }
+      adcch++;
+    }
     
-  for (i = 0; i < n; i++) {
+    fromRight = -1;
+    adcch = 18;
+    found = 0;
+    while ((adcch > 2) && (found < 3))
+    {
+      if (qTotal[adcch] > 0)
+      {
+        marked[2*found]=adcch;
+        found++;
+        fromRight = adcch;
+      }
+      adcch--;
+    }
 
-    result    = ((Double_t)source[i] - correction);    // no rescaling
-    target[i] = result;
+    AliDebug(10,Form("Fromleft=%d, Fromright=%d",fromLeft, fromRight));
+    // here mask the hit candidates in the middle, if any
+    if ((fromLeft >= 0) && (fromRight >= 0) && (fromLeft < fromRight))
+      for (adcch = fromLeft+1; adcch < fromRight; adcch++)
+        qTotal[adcch] = 0;
     
-    for (k = 0; k < nexp; k++) {
-      reminder[k] = rates[k] * (reminder[k] + coefficients[k] * result);
-    }
+    found = 0;
+    for (adcch = 0; adcch < 19; adcch++)
+      if (qTotal[adcch] > 0) found++;
+    // NOT READY
+
+    if (found > 4) // sorting like in the TRAP in case of 5 or 6 candidates!
+    {
+      if (marked[4] == marked[5]) marked[5] = 19;
+      for (found=0; found<6; found++)
+      {
+        qMarked[found] = qTotal[marked[found]] >> 4;
+        AliDebug(10,Form("ch_%d qTotal %d qTotals %d",marked[found],qTotal[marked[found]],qMarked[found]));
+      }
       
-    correction = 0.0;
-    for (k = 0; k < nexp; k++) {
-      correction += reminder[k];
+      Sort6To2Worst(marked[0], marked[3], marked[4], marked[1], marked[2], marked[5],
+                    qMarked[0],
+                    qMarked[3],
+                    qMarked[4],
+                    qMarked[1],
+                    qMarked[2],
+                    qMarked[5],
+                    &worse1, &worse2);
+      // Now mask the two channels with the smallest charge
+      if (worse1 < 19)
+      {
+        qTotal[worse1] = 0;
+        AliDebug(10,Form("Kill ch %d\n",worse1));
+      }
+      if (worse2 < 19)
+      {
+        qTotal[worse2] = 0;
+        AliDebug(10,Form("Kill ch %d\n",worse2));
+      }
+    }
+    
+    for (adcch = 0; adcch < 19; adcch++) {
+      if (qTotal[adcch] > 0) // the channel is marked for processing
+      {
+        adcLeft  = fADCF[adcch  ][timebin];
+        adcCentral  = fADCF[adcch+1][timebin];
+        adcRight = fADCF[adcch+2][timebin];
+        // hit detected, in TRAP we have 4 units and a hit-selection, here we proceed all channels!
+        // subtract the pedestal TPFP, clipping instead of wrapping
+        
+        Int_t regTPFP = fTrapConfig->GetTrapReg(AliTRDtrapConfig::kTPFP);
+        AliDebug(10, Form("Hit found, time=%d, adcch=%d/%d/%d, adc values=%d/%d/%d, regTPFP=%d, TPHT=%d\n",
+               timebin, adcch, adcch+1, adcch+2, adcLeft, adcCentral, adcRight, regTPFP, 
+               fTrapConfig->GetTrapReg(AliTRDtrapConfig::kTPHT)));
+
+        if (adcLeft  < regTPFP) adcLeft  = 0; else adcLeft  -= regTPFP;
+        if (adcCentral  < regTPFP) adcCentral  = 0; else adcCentral  -= regTPFP;
+        if (adcRight < regTPFP) adcRight = 0; else adcRight -= regTPFP;
+
+        // Calculate the center of gravity
+        // checking for adcCentral != 0 (in case of "bad" configuration)
+        if (adcCentral == 0)
+          continue;
+        ypos = 128*(adcLeft - adcRight) / adcCentral;
+        if (ypos < 0) ypos = -ypos;
+        // make the correction using the LUT
+        ypos = ypos + lutPos[ypos & 0x7F];
+        if (adcLeft > adcRight) ypos = -ypos;
+
+        // label calculation
+        Int_t mcLabel = -1;
+        if (fDigitsManager) {
+          Int_t label[9] = { 0 }; // up to 9 different labels possible
+          Int_t count[9] = { 0 };
+          Int_t maxIdx = -1;
+          Int_t maxCount = 0;
+          Int_t nLabels = 0;
+          Int_t padcol[3]; 
+          padcol[0] = fFeeParam->GetPadColFromADC(fRobPos, fMcmPos, adcch);
+          padcol[1] = fFeeParam->GetPadColFromADC(fRobPos, fMcmPos, adcch+1);
+          padcol[2] = fFeeParam->GetPadColFromADC(fRobPos, fMcmPos, adcch+2);
+          Int_t padrow = fFeeParam->GetPadRowFromMCM(fRobPos, fMcmPos);
+          for (Int_t iDict = 0; iDict < 3; iDict++) {
+            if (!fDigitsManager->UsesDictionaries() || fDigitsManager->GetDictionary(fDetector, iDict) == 0) {
+              AliError("Cannot get dictionary");
+              continue;
+            }
+            AliTRDarrayDictionary *dict = (AliTRDarrayDictionary*) fDigitsManager->GetDictionary(fDetector, iDict);
+            if (dict->GetDim() == 0) {
+              AliError(Form("Dictionary %i of det. %i has dim. 0", fDetector, iDict));
+              continue;
+            }
+            dict->Expand();
+            for (Int_t iPad = 0; iPad < 3; iPad++) {
+              if (padcol[iPad] < 0) 
+                continue;
+              Int_t currLabel = dict->GetData(padrow, padcol[iPad], timebin); //fDigitsManager->GetTrack(iDict, padrow, padcol, timebin, fDetector);
+             AliDebug(10, Form("Read label: %4i for det: %3i, row: %i, col: %i, tb: %i\n", currLabel, fDetector, padrow, padcol[iPad], timebin));
+              for (Int_t iLabel = 0; iLabel < nLabels; iLabel++) {
+                if (currLabel == label[iLabel]) {
+                  count[iLabel]++;
+                  if (count[iLabel] > maxCount) {
+                    maxCount = count[iLabel];
+                    maxIdx = iLabel;
+                  }
+                  currLabel = 0;
+                  break;
+                }
+              } 
+              if (currLabel > 0) {
+                label[nLabels++] = currLabel;
+              }
+            }
+          }
+          if (maxIdx >= 0)
+            mcLabel = label[maxIdx];
+        }
+
+        // add the hit to the fitregister
+        AddHitToFitreg(adcch, timebin, qTotal[adcch], ypos, mcLabel);
+      }
     }
   }
 }
 
-//_____________________________________________________________________________
-void AliTRDmcmSim::FilterSimDeConvExpD(Int_t *source, Int_t *target, Int_t n
-                                     , Int_t nexp) 
+void AliTRDmcmSim::TrackletSelection() 
 {
-  //
-  // Exponential filter "digital"
-  // source will not be changed
-  //
-
-  Int_t i        = 0;
-  Int_t fAlphaL  = 0;
-  Int_t fAlphaS  = 0;
-  Int_t fTailPed = 0;
-  Int_t iAlphaL  = 0;
-  Int_t iAlphaS  = 0;
-
-  // FilterOpt.C (aliroot@pel:/homel/aliroot/root/work/beamt/CERN02)
-  // initialize (coefficient = alpha, rates = lambda)
-
-  Double_t dt = 0.1;
-  Double_t r1 = (Double_t)fFeeParam->GetTFr1();
-  Double_t r2 = (Double_t)fFeeParam->GetTFr2();
-  Double_t c1 = (Double_t)fFeeParam->GetTFc1();
-  Double_t c2 = (Double_t)fFeeParam->GetTFc2();
-
-  Int_t fLambdaL = (Int_t)((TMath::Exp(-dt/r1) - 0.75) * 2048.0);
-  Int_t fLambdaS = (Int_t)((TMath::Exp(-dt/r2) - 0.25) * 2048.0);
-  Int_t iLambdaL = fLambdaL & 0x01FF; iLambdaL |= 0x0600; //  9 bit paramter + fixed bits
-  Int_t iLambdaS = fLambdaS & 0x01FF; iLambdaS |= 0x0200; //  9 bit paramter + fixed bits
-
-  if (nexp == 1) {
-    fAlphaL = (Int_t) (c1 * 2048.0);
-    iAlphaL = fAlphaL & 0x03FF;                                // 10 bit paramter
-  }
-  if (nexp == 2) {
-    fAlphaL = (Int_t) (c1 * 2048.0);
-    fAlphaS = (Int_t) ((c2 - 0.5) * 2048.0);
-    iAlphaL = fAlphaL & 0x03FF;                                // 10 bit paramter
-    iAlphaS = fAlphaS & 0x03FF; iAlphaS |= 0x0400;             // 10 bit paramter + fixed bits
+  // Select up to 4 tracklet candidates from the fit registers  
+  // and assign them to the CPUs.
+
+  UShort_t adcIdx, i, j, ntracks, tmp;
+  UShort_t trackletCand[18][2]; // store the adcch[0] and number of hits[1] for all tracklet candidates
+
+  ntracks = 0;
+  for (adcIdx = 0; adcIdx < 18; adcIdx++) // ADCs
+    if ( (fFitReg[adcIdx].fNhits 
+          >= fTrapConfig->GetTrapReg(AliTRDtrapConfig::kTPCL)) &&
+         (fFitReg[adcIdx].fNhits+fFitReg[adcIdx+1].fNhits
+          >= fTrapConfig->GetTrapReg(AliTRDtrapConfig::kTPCT)))
+    {
+      trackletCand[ntracks][0] = adcIdx;
+      trackletCand[ntracks][1] = fFitReg[adcIdx].fNhits+fFitReg[adcIdx+1].fNhits;
+      AliDebug(10,Form("%d  %2d %4d\n", ntracks, trackletCand[ntracks][0], trackletCand[ntracks][1]));
+      ntracks++;
+    };
+
+  for (i=0; i<ntracks;i++) 
+    AliDebug(10,Form("%d %d %d\n",i,trackletCand[i][0], trackletCand[i][1]));
+
+  if (ntracks > 4)
+  {
+    // primitive sorting according to the number of hits
+    for (j = 0; j < (ntracks-1); j++)
+    {
+      for (i = j+1; i < ntracks; i++)
+      {
+        if ( (trackletCand[j][1]  < trackletCand[i][1]) ||
+             ( (trackletCand[j][1] == trackletCand[i][1]) && (trackletCand[j][0] < trackletCand[i][0]) ) )
+        {
+          // swap j & i
+          tmp = trackletCand[j][1];
+          trackletCand[j][1] = trackletCand[i][1];
+          trackletCand[i][1] = tmp;
+          tmp = trackletCand[j][0];
+          trackletCand[j][0] = trackletCand[i][0];
+          trackletCand[i][0] = tmp;
+        }
+      }
+    }
+    ntracks = 4; // cut the rest, 4 is the max
   }
+  // else is not necessary to sort
   
-  Double_t iAl = iAlphaL  / 2048.0;           // alpha  L: correspondence to floating point numbers
-  Double_t iAs = iAlphaS  / 2048.0;           // alpha  S: correspondence to floating point numbers
-  Double_t iLl = iLambdaL / 2048.0;           // lambda L: correspondence to floating point numbers
-  Double_t iLs = iLambdaS / 2048.0;           // lambda S: correspondence to floating point numbers
-
-  Int_t h1;
-  Int_t h2;
-  Int_t rem1;
-  Int_t rem2;
-  Int_t correction;
-  Int_t result;
-  Int_t iFactor = ((Int_t) fFeeParam->GetPFeffectPedestal() ) << 2;
-
-  Double_t xi = 1 - (iLl*iAs + iLs*iAl);            // Calculation of equilibrium values of the
-  rem1 = (Int_t) ((iFactor/xi) * ((1-iLs)*iLl*iAl)); // Internal registers to prevent switch on effects.
-  rem2 = (Int_t) ((iFactor/xi) * ((1-iLl)*iLs*iAs));
-  
-  // further initialization
-  if ((rem1 + rem2) > 0x0FFF) {
-    correction = 0x0FFF;
-  } 
-  else {
-    correction = (rem1 + rem2) & 0x0FFF;
-  }
-
-  fTailPed = iFactor - correction;
-
-  for (i = 0; i < n; i++) {
-
-    result = (source[i]  - correction);
-    if (result < 0) { // Too much undershoot
-      result = 0;
+  // now sort, so that the first tracklet going to CPU0 corresponds to the highest adc channel - as in the TRAP
+  for (j = 0; j < (ntracks-1); j++)
+  {
+    for (i = j+1; i < ntracks; i++)
+    {
+      if (trackletCand[j][0] < trackletCand[i][0])
+      {
+        // swap j & i
+        tmp = trackletCand[j][1];
+        trackletCand[j][1] = trackletCand[i][1];
+        trackletCand[i][1] = tmp;
+        tmp = trackletCand[j][0];
+        trackletCand[j][0] = trackletCand[i][0];
+        trackletCand[i][0] = tmp;
+      }
     }
+  }
+  for (i = 0; i < ntracks; i++)  // CPUs with tracklets.
+    fFitPtr[i] = trackletCand[i][0]; // pointer to the left channel with tracklet for CPU[i]
+  for (i = ntracks; i < 4; i++)  // CPUs without tracklets
+    fFitPtr[i] = 31;            // pointer to the left channel with tracklet for CPU[i] = 31 (invalid)
+  AliDebug(10,Form("found %i tracklet candidates\n", ntracks));
+  for (i = 0; i < 4; i++)
+    AliDebug(10,Form("fitPtr[%i]: %i\n", i, fFitPtr[i]));
+}
 
-    target[i] = result;
-                                                        
-    h1 = (rem1 + ((iAlphaL * result) >> 11));
-    if (h1 > 0x0FFF) {
-      h1 = 0x0FFF;
-    } 
-    else {
-      h1 &= 0x0FFF;
+void AliTRDmcmSim::FitTracklet()
+{
+  // Perform the actual tracklet fit based on the fit sums 
+  // which have been filled in the fit registers. 
+
+  // parameters in fitred.asm (fit program)
+  Int_t decPlaces = 5;
+  Int_t rndAdd = 0;
+  if (decPlaces >  1) 
+    rndAdd = (1 << (decPlaces-1)) + 1;
+  else if (decPlaces == 1)
+    rndAdd = 1;
+  Int_t ndriftDp = 5;  // decimal places for drift time
+  Long64_t shift = ((Long64_t) 1 << 32);
+
+
+  // calculated in fitred.asm
+  Int_t padrow = ((fRobPos >> 1) << 2) | (fMcmPos >> 2);
+  Int_t yoffs = (((((fRobPos & 0x1) << 2) + (fMcmPos & 0x3)) * 18) << 8) - 
+    ((18*4*2 - 18*2 - 1) << 7);
+  yoffs = yoffs << decPlaces; // holds position of ADC channel 1
+  Int_t layer = fDetector % 6;
+  UInt_t scaleY = (UInt_t) ((0.635 + 0.03 * layer)/(256.0 * 160.0e-4) * shift);
+  UInt_t scaleD = (UInt_t) ((0.635 + 0.03 * layer)/(256.0 * 140.0e-4) * shift);
+  // previously taken from geometry:
+  // UInt_t scaleYold = (UInt_t) (shift * (pp->GetWidthIPad() / (256 * 160e-4)));
+  // UInt_t scaleDold = (UInt_t) (shift * (pp->GetWidthIPad() / (256 * 140e-4)));
+
+
+  // should come from trapConfig (DMEM) 
+  AliTRDpadPlane *pp = fGeo->GetPadPlane(fDetector);
+  Float_t scaleSlope = (256 / pp->GetWidthIPad()) * (1 << decPlaces); // only used for calculation of corrections and cut
+  Int_t ndrift   = 20 << ndriftDp; //??? value in simulation?
+  Int_t deflCorr = (Int_t) (TMath::Tan(fCommonParam->GetOmegaTau(fCal->GetVdriftAverage(fDetector))) * fGeo->CdrHght() * scaleSlope); // -370;
+  Int_t tiltCorr = (Int_t) (pp->GetRowPos(padrow) / fGeo->GetTime0(fDetector % 6) * fGeo->CdrHght() * scaleSlope * 
+                            TMath::Tan(pp->GetTiltingAngle() / 180. * TMath::Pi()));
+//  printf("vdrift av.: %f\n", fCal->GetVdriftAverage(fDetector));
+//  printf("chamber height: %f\n", fGeo->CdrHght());
+//  printf("omega tau: %f\n", fCommonParam->GetOmegaTau(fCal->GetVdriftAverage(fDetector)));
+//  printf("deflection correction: %i\n", deflCorr);
+  Float_t ptcut = 2.3;
+  AliMagF* fld = (AliMagF *) TGeoGlobalMagField::Instance()->GetField();
+  Double_t bz = 0;
+  if (fld) {
+    bz       = 0.1 * fld->SolenoidField();   // kGauss -> Tesla
+  }
+//  printf("Bz: %f\n", bz);
+  Float_t x0 = fGeo->GetTime0(fDetector % 6);
+  Float_t y0 = pp->GetColPos(fFeeParam->GetPadColFromADC(fRobPos, fMcmPos, 10));
+  Float_t alphaMax = TMath::ASin( (TMath::Sqrt(TMath::Power(x0/100., 2) + TMath::Power(y0/100., 2)) * 
+                                   0.3 * TMath::Abs(bz) ) / (2 * ptcut));
+//  printf("alpha max: %f\n", alphaMax * 180/TMath::Pi());
+  Int_t minslope = -1 * (Int_t) (fGeo->CdrHght() * TMath::Tan(TMath::ATan(y0/x0) + alphaMax) / 140.e-4);
+  Int_t maxslope = -1 * (Int_t) (fGeo->CdrHght() * TMath::Tan(TMath::ATan(y0/x0) - alphaMax) / 140.e-4);
+
+
+  // local variables for calculation
+  Long64_t mult, temp, denom; //???
+  UInt_t q0, q1, qTotal;          // charges in the two windows and total charge
+  UShort_t nHits;                 // number of hits
+  Int_t slope, offset;            // slope and offset of the tracklet
+  Int_t sumX, sumY, sumXY, sumX2; // fit sums from fit registers
+  //int32_t SumY2;                // not used in the current TRAP program
+  FitReg_t *fit0, *fit1;          // pointers to relevant fit registers
+  
+//  const uint32_t OneDivN[32] = {  // 2**31/N : exactly like in the TRAP, the simple division here gives the same result!
+//      0x00000000, 0x80000000, 0x40000000, 0x2AAAAAA0, 0x20000000, 0x19999990, 0x15555550, 0x12492490,
+//      0x10000000, 0x0E38E380, 0x0CCCCCC0, 0x0BA2E8B0, 0x0AAAAAA0, 0x09D89D80, 0x09249240, 0x08888880,
+//      0x08000000, 0x07878780, 0x071C71C0, 0x06BCA1A0, 0x06666660, 0x06186180, 0x05D17450, 0x0590B210,
+//      0x05555550, 0x051EB850, 0x04EC4EC0, 0x04BDA120, 0x04924920, 0x0469EE50, 0x04444440, 0x04210840};
+
+  for (Int_t cpu = 0; cpu < 4; cpu++) {
+    if (fFitPtr[cpu] == 31)
+    {
+      fMCMT[cpu] = 0x10001000; //??? AliTRDfeeParam::GetTrackletEndmarker(); 
     }
+    else
+    {
+      fit0 = &fFitReg[fFitPtr[cpu]  ];
+      fit1 = &fFitReg[fFitPtr[cpu]+1]; // next channel
+
+      mult = 1;
+      mult = mult << (32 + decPlaces);
+      mult = -mult;
+
+      // Merging
+      nHits   = fit0->fNhits + fit1->fNhits; // number of hits
+      sumX    = fit0->fSumX  + fit1->fSumX;
+      sumX2   = fit0->fSumX2 + fit1->fSumX2;
+      denom   = nHits*sumX2 - sumX*sumX;
+
+      mult    = mult / denom; // exactly like in the TRAP program
+      q0      = fit0->fQ0    + fit1->fQ0;
+      q1      = fit0->fQ1    + fit1->fQ1;
+      sumY    = fit0->fSumY  + fit1->fSumY  + 256*fit1->fNhits;
+      sumXY   = fit0->fSumXY + fit1->fSumXY + 256*fit1->fSumX;
+
+      slope   = nHits*sumXY - sumX * sumY;
+      AliDebug(5, Form("slope from fitreg: %i", slope));
+      offset  = sumX2*sumY  - sumX * sumXY;
+      temp    = mult * slope;
+      slope   = temp >> 32; // take the upper 32 bits
+      slope   = -slope;
+      temp    = mult * offset;
+      offset  = temp >> 32; // take the upper 32 bits
+
+      offset = offset + yoffs;
+      AliDebug(5, Form("slope: %i, slope * ndrift: %i, deflCorr: %i, tiltCorr: %i", slope, slope * ndrift, deflCorr, tiltCorr));
+      slope  = ((slope * ndrift) >> ndriftDp) + deflCorr + tiltCorr;
+      offset = offset - (fFitPtr[cpu] << (8 + decPlaces));
+      
+      AliDebug(5, Form("Det: %3i, ROB: %i, MCM: %2i: deflection: %i, min: %i, max: %i", fDetector, fRobPos, fMcmPos, slope, minslope, maxslope));
+      temp    = slope;
+      temp    = temp * scaleD;
+      slope   = (temp >> 32);
+      AliDebug(5, Form("slope after scaling: %i", slope));
+
+      temp    = offset;
+      temp    = temp * scaleY;
+      offset  = (temp >> 32);
+        
+      // rounding, like in the TRAP
+      slope   = (slope  + rndAdd) >> decPlaces;
+      AliDebug(5, Form("slope after shifting: %i", slope));
+      offset  = (offset + rndAdd) >> decPlaces;
+
+      Bool_t rejected = kFALSE;
+      if ((slope < minslope) || (slope > maxslope))
+        rejected = kTRUE;
+
+      if (rejected && GetApplyCut())
+      {
+        fMCMT[cpu] = 0x10001000; //??? AliTRDfeeParam::GetTrackletEndmarker();
+      }
+      else
+      {
+        if (slope > 63 || slope < -64) { // wrapping in TRAP!
+          AliError(Form("Overflow in slope: %i, tracklet discarded!", slope));
+          fMCMT[cpu] = 0x10001000;
+          continue;
+        }
+
+        slope   = slope  &   0x7F; // 7 bit
+        
+        if (offset > 0xfff || offset < -0xfff) 
+          AliWarning("Overflow in offset");
+        offset  = offset & 0x1FFF; // 13 bit
+
+       Float_t length = TMath::Sqrt(1 + (pp->GetRowPos(padrow) * pp->GetRowPos(padrow) +
+                                         (fFeeParam->GetPadColFromADC(fRobPos, fMcmPos, 10) * pp->GetWidthIPad() *
+                                          fFeeParam->GetPadColFromADC(fRobPos, fMcmPos, 10) * pp->GetWidthIPad())) /
+                                    (fGeo->GetTime0(fDetector % 6)*fGeo->GetTime0(fDetector % 6)));
+
+       //        qTotal  = (q1 / nHits) >> 1;
+       qTotal = GetPID(q0/length/fgChargeNorm, q1/length/fgChargeNorm);
+        if (qTotal > 0xff)
+          AliWarning("Overflow in charge");
+        qTotal  = qTotal & 0xFF; // 8 bit, exactly like in the TRAP program
+        
+        // assemble and store the tracklet word
+        fMCMT[cpu] = (qTotal << 24) | (padrow << 20) | (slope << 13) | offset;
+
+        // calculate MC label
+        Int_t mcLabel = -1;
+       Int_t nHits0 = 0;
+       Int_t nHits1 = 0;
+        if (fDigitsManager) {
+          Int_t label[30] = {0}; // up to 30 different labels possible
+          Int_t count[30] = {0};
+          Int_t maxIdx = -1;
+          Int_t maxCount = 0;
+          Int_t nLabels = 0;
+          for (Int_t iHit = 0; iHit < fNHits; iHit++) {
+            if ((fHits[iHit].fChannel - fFitPtr[cpu] < 0) ||
+                (fHits[iHit].fChannel - fFitPtr[cpu] > 1))
+              continue;
+
+           // counting contributing hits
+           if (fHits[iHit].fTimebin >= fTrapConfig->GetTrapReg(AliTRDtrapConfig::kTPQS0) &&
+               fHits[iHit].fTimebin <  fTrapConfig->GetTrapReg(AliTRDtrapConfig::kTPQE0))
+             nHits0++;
+           if (fHits[iHit].fTimebin >= fTrapConfig->GetTrapReg(AliTRDtrapConfig::kTPQS1) &&
+               fHits[iHit].fTimebin <  fTrapConfig->GetTrapReg(AliTRDtrapConfig::kTPQE1))
+             nHits1++;
+
+            Int_t currLabel = fHits[iHit].fLabel;
+            for (Int_t iLabel = 0; iLabel < nLabels; iLabel++) {
+              if (currLabel == label[iLabel]) {
+                count[iLabel]++;
+                if (count[iLabel] > maxCount) {
+                  maxCount = count[iLabel];
+                  maxIdx = iLabel;
+                }
+                currLabel = 0;
+                break;
+              }
+            }
+            if (currLabel > 0) {
+              label[nLabels++] = currLabel;
+            }
+          }
+          if (maxIdx >= 0)
+            mcLabel = label[maxIdx];
+        }
+        new ((*fTrackletArray)[fTrackletArray->GetEntriesFast()]) AliTRDtrackletMCM((UInt_t) fMCMT[cpu], fDetector*2 + fRobPos%2, fRobPos, fMcmPos);
+        ((AliTRDtrackletMCM*) (*fTrackletArray)[fTrackletArray->GetEntriesFast()-1])->SetLabel(mcLabel);
 
-    h2 = (rem2 + ((iAlphaS * result) >> 11));
-    if (h2 > 0x0FFF) {
-      h2 = 0x0FFF;
-    } 
-    else {
-      h2 &= 0x0FFF;
-    }
-  
-    rem1 = (iLambdaL * h1 ) >> 11;
-    rem2 = (iLambdaS * h2 ) >> 11;
-    
-    if ((rem1 + rem2) > 0x0FFF) {
-      correction = 0x0FFF;
-    } 
-    else {
-      correction = (rem1 + rem2) & 0x0FFF;
+       
+        ((AliTRDtrackletMCM*) (*fTrackletArray)[fTrackletArray->GetEntriesFast()-1])->SetNHits(fit0->fNhits + fit1->fNhits);
+       ((AliTRDtrackletMCM*) (*fTrackletArray)[fTrackletArray->GetEntriesFast()-1])->SetNHits0(nHits0);
+        ((AliTRDtrackletMCM*) (*fTrackletArray)[fTrackletArray->GetEntriesFast()-1])->SetNHits1(nHits1);
+        ((AliTRDtrackletMCM*) (*fTrackletArray)[fTrackletArray->GetEntriesFast()-1])->SetQ0(q0);
+        ((AliTRDtrackletMCM*) (*fTrackletArray)[fTrackletArray->GetEntriesFast()-1])->SetQ1(q1);
+      }
     }
-
   }
-
 }
 
-//_____________________________________________________________________________
-void AliTRDmcmSim::FilterSimDeConvExpMI(Int_t *source, Double_t *target
-                                      , Int_t n) 
+Int_t AliTRDmcmSim::GetPID(Float_t q0, Float_t q1) 
 {
-  //
-  // Exponential filter (M. Ivanov)
-  // source will not be changed
-  //
+  // get PID from accumulated charges q0 and q1
 
-  Int_t i = 0;
-  Double_t sig1[100];
-  Double_t sig2[100];
-  Double_t sig3[100];
-
-  for (i = 0; i < n; i++) {
-    sig1[i] = (Double_t)source[i];
-  }
+  Int_t binQ0 = (Int_t) (q0 * fgPidNBinsQ0) + 1;
+  Int_t binQ1 = (Int_t) (q1 * fgPidNBinsQ1) + 1;
+  binQ0 = binQ0 >= fgPidNBinsQ0 ? fgPidNBinsQ0-1 : binQ0;
+  binQ1 = binQ1 >= fgPidNBinsQ0 ? fgPidNBinsQ0-1 : binQ1;
 
-  Float_t dt      = 0.1;
-  Float_t lambda0 = (1.0 / fFeeParam->GetTFr2()) * dt;
-  Float_t lambda1 = (1.0 / fFeeParam->GetTFr1()) * dt;
+  return fgPidLut[binQ0*fgPidNBinsQ1+binQ1];
+}
 
-  FilterSimTailMakerSpline( sig1, sig2, lambda0, n);
-  FilterSimTailCancelationMI( sig2, sig3, 0.7, lambda1, n);
+void AliTRDmcmSim::SetPIDlut(Int_t *lut, Int_t nbinsq0, Int_t nbinsq1)
+{
+  // set a user-defined PID LUT
 
-  for (i = 0; i < n; i++) {
-    target[i] = sig3[i];
-  }
+  if (fgPidLutDelete)
+    delete [] fgPidLut;
 
+  fgPidLutDelete = kFALSE;
+  fgPidLut = lut;
+  fgPidNBinsQ0 = nbinsq0;
+  fgPidNBinsQ1 = nbinsq1;
 }
 
-//______________________________________________________________________________
-void AliTRDmcmSim::FilterSimTailMakerSpline(Double_t *ampin, Double_t *ampout
-                                          , Double_t lambda, Int_t n) 
+void AliTRDmcmSim::SetPIDlut(TH2F *lut)
 {
-  //
-  // Special filter (M. Ivanov)
-  //
-
-  Int_t    i = 0;
-  Double_t l = TMath::Exp(-lambda*0.5);
-  Double_t in[1000];
-  Double_t out[1000];
-
-  // Initialize in[] and out[] goes 0 ... 2*n+19
-  for (i = 0; i < n*2+20; i++) {
-    in[i] = out[i] = 0;
-  }
+  // set a user-defined PID LUT from a 2D histogram
 
-  // in[] goes 0, 1
-  in[0] = ampin[0];
-  in[1] = (ampin[0] + ampin[1]) * 0.5;
-   
-  // Add charge to the end
-  for (i = 0; i < 22; i++) {
-    in[2*(n-1)+i] = ampin[n-1]; // in[] goes 2*n-2, 2*n-1, ... , 2*n+19 
-  }
+  if (fgPidLutDelete)
+    delete [] fgPidLut;
 
-  // Use arithmetic mean
-  for (i = 1; i < n-1; i++) {
-    in[2*i]   = ampin[i];    // in[] goes 2, 3, ... , 2*n-4, 2*n-3
-    in[2*i+1] = ((ampin[i]+ampin[i+1]))/2.;
-  }
+  fgPidNBinsQ0 = lut->GetNbinsX();
+  fgPidNBinsQ1 = lut->GetNbinsY();
 
-  Double_t temp;
-  out[2*n]    = in[2*n];
-  temp        = 0;
-  for (i = 2*n; i >= 0; i--) {
-    out[i]    = in[i] + temp;
-    temp      = l*(temp+in[i]);
-  }
+  fgPidLut = new Int_t[fgPidNBinsQ0*fgPidNBinsQ1];
 
-  for (i = 0; i < n; i++){
-    //ampout[i] = out[2*i+1];  // org
-    ampout[i] = out[2*i];
+  for (Int_t ix = 0; ix < fgPidNBinsQ0; ix++) {
+    for (Int_t iy = 0; iy < fgPidNBinsQ1; iy++) {
+      fgPidLut[ix*fgPidNBinsQ1 + iy] = (Int_t) (256. * lut->GetBinContent(ix, iy));
+    }
   }
 
+  fgPidLutDelete = kTRUE;
 }
 
-//______________________________________________________________________________
-void AliTRDmcmSim::FilterSimTailCancelationMI(Double_t *ampin, Double_t *ampout
-                                            , Double_t norm, Double_t lambda
-                                            , Int_t n) 
+void AliTRDmcmSim::SetPIDlutDefault()
 {
-  //
-  // Special filter (M. Ivanov)
-  //
-
-  Int_t    i = 0;
+  // use the default PID LUT
 
-  Double_t l = TMath::Exp(-lambda*0.5);
-  Double_t k = l*(1.0 - norm*lambda*0.5);
-  Double_t in[1000];
-  Double_t out[1000];
+  if (fgPidLutDelete )
+    delete [] fgPidLut;
 
-  // Initialize in[] and out[] goes 0 ... 2*n+19
-  for (i = 0; i < n*2+20; i++) {
-    in[i] = out[i] = 0;
-  }
-
-  // in[] goes 0, 1
-  in[0] = ampin[0];
-  in[1] = (ampin[0]+ampin[1])*0.5;
+  fgPidLutDelete = kFALSE;
+  fgPidLut = *fgPidLutDefault;
+  fgPidNBinsQ0 = 40;
+  fgPidNBinsQ1 = 50;
+}
 
-  // Add charge to the end
-  for (i =-2; i < 22; i++) {
-    // in[] goes 2*n-4, 2*n-3, ... , 2*n+19 
-    in[2*(n-1)+i] = ampin[n-1];
-  }
+void AliTRDmcmSim::Tracklet()
+{
+  // Run the tracklet calculation by calling sequentially:
+  // CalcFitreg(); TrackletSelection(); FitTracklet()
+  // and store the tracklets 
 
-  for (i = 1; i < n-2; i++) {
-    // in[] goes 2, 3, ... , 2*n-6, 2*n-5
-    in[2*i]    = ampin[i];
-    in[2*i+1]  = (9.0 * (ampin[i]+ampin[i+1]) - (ampin[i-1]+ampin[i+2])) / 16.0;
-    //in[2*i+1]  = ((ampin[i]+ampin[i+1]))/2.0;
+  if (!fInitialized) {
+    AliError("Called uninitialized! Nothing done!");
+    return;
   }
 
-  Double_t temp;
-  out[0] = in[0];
-  temp   = in[0];
-  for (i = 1; i <= 2*n; i++) {
-    out[i] = in[i] + (k-l)*temp;
-    temp   = in[i] +  k   *temp;
-  }
+  fTrackletArray->Delete();
 
-  for (i = 0; i < n; i++) {
-    //ampout[i] = out[2*i+1];  // org
-    //ampout[i] = TMath::Max(out[2*i+1],0.0);  // org
-    ampout[i] = TMath::Max(out[2*i],0.0);
-  }
+  CalcFitreg();
+  if (fNHits == 0)
+    return;
+  TrackletSelection();
+  FitTracklet();
 }
 
+Bool_t AliTRDmcmSim::StoreTracklets() 
+{
+  // store the found tracklets via the loader
 
-//_____________________________________________________________________________________
-//the following filter uses AliTRDtrapAlu-class
+  if (fTrackletArray->GetEntriesFast() == 0) 
+    return kTRUE;
 
-void AliTRDmcmSim::FilterSimDeConvExpEl(Int_t *source, Int_t *target, Int_t n, Int_t nexp) {
-  //static Int_t count = 0;
-  Double_t dt = 0.1;
-  Double_t r1 = (Double_t)fFeeParam->GetTFr1();
-  Double_t r2 = (Double_t)fFeeParam->GetTFr2();
-  Double_t c1 = (Double_t)fFeeParam->GetTFc1();
-  Double_t c2 = (Double_t)fFeeParam->GetTFc2();
-  
-  nexp = 1;
-
-  //it is assumed that r1,r2,c1,c2 are given such, that the configuration values are in the ranges according to TRAP-manual
-  //parameters need to be adjusted
-  AliTRDtrapAlu lambdaL;
-  AliTRDtrapAlu lambdaS;
-  AliTRDtrapAlu alphaL;
-  AliTRDtrapAlu alphaS;
-  
-  AliTRDtrapAlu correction;
-  AliTRDtrapAlu result;
-  AliTRDtrapAlu bufL;
-  AliTRDtrapAlu bufS;
-  AliTRDtrapAlu bSource;
-  
-  lambdaL.Init(1,11);
-  lambdaS.Init(1,11);
-  alphaL.Init(1,11);
-  alphaS.Init(1,11);
-  
-  //count=count+1;
+  AliRunLoader *rl = AliRunLoader::Instance();
+  AliDataLoader *dl = 0x0;
+  if (rl)
+    dl = rl->GetLoader("TRDLoader")->GetDataLoader("tracklets");
+  if (!dl) {
+    AliError("Could not get the tracklets data loader!");
+    return kFALSE;
+  }
 
-  lambdaL.AssignDouble(TMath::Exp(-dt/r1));
-  lambdaS.AssignDouble(TMath::Exp(-dt/r2));
-  alphaL.AssignDouble(c1); // in AliTRDfeeParam the number of exponentials is set and also the according time constants
-  alphaS.AssignDouble(c2); // later it should be: alphaS=1-alphaL
+  TTree *trackletTree = dl->Tree();
+  if (!trackletTree) {
+    dl->MakeTree();
+    trackletTree = dl->Tree();
+  }
   
-  //data is enlarged to 12 bits, including 2 bits after the comma; class AliTRDtrapAlu is used to handle arithmetics correctly
-  correction.Init(10,2);
-  result.Init(10,2);
-  bufL.Init(10,2);
-  bufS.Init(10,2);
-  bSource.Init(10,2);
+  AliTRDtrackletMCM *trkl = 0x0;
+  TBranch *trkbranch = trackletTree->GetBranch("mcmtrklbranch");
+  if (!trkbranch)
+    trkbranch = trackletTree->Branch("mcmtrklbranch", "AliTRDtrackletMCM", &trkl, 32000);
   
-  for(Int_t i = 0; i < n; i++) {
-    bSource.AssignInt(source[i]);
-    result = bSource - correction; // subtraction can produce an underflow
-    if(result.GetSign() == kTRUE) {
-      result.AssignInt(0);
-    }
-    
-    //target[i] = result.GetValuePre();  // later, target and source should become AliTRDtrapAlu,too in order to simulate the 10+2Bits through the filter properly
-    
-    target[i] = result.GetValue(); // 12 bit-value; to get the corresponding integer value, target must be shifted: target>>2 
-
-    //printf("target-Wert zur Zeit %d : %d",i,target[i]);
-    //printf("\n");
-    
-    bufL  =  bufL + (result * alphaL);
-    bufL  =  bufL * lambdaL; 
-    
-    bufS  =  bufS + (result * alphaS);
-    bufS  =  bufS * lambdaS;  // eventually this should look like:
-    // bufS = (bufS + (result - result * alphaL)) * lambdaS // alphaS=1-alphaL; then alphaS-variable is not needed any more
-
-    correction = bufL + bufS; //check for overflow intrinsic; if overflowed, correction is set to 0x03FF
+  for (Int_t iTracklet = 0; iTracklet < fTrackletArray->GetEntriesFast(); iTracklet++) {
+    trkl = ((AliTRDtrackletMCM*) (*fTrackletArray)[iTracklet]);
+    trkbranch->SetAddress(&trkl);
+//      printf("filling tracklet 0x%08x\n", trkl->GetTrackletWord());
+    trkbranch->Fill();
   }
-  
-}
-
-
-
-
+  dl->WriteData("OVERWRITE");
 
+  return kTRUE;
+}
 
+void AliTRDmcmSim::WriteData(AliTRDarrayADC *digits)
+{
+  // write back the processed data configured by EBSF
+  // EBSF = 1: unfiltered data; EBSF = 0: filtered data
+  // zero-suppressed valued are written as -1 to digits
 
+  if (!fInitialized) {
+    AliError("Called uninitialized! Nothing done!");
+    return;
+  }
 
-//__________________________________________________________________________________
-
-
-// in order to use the Tracklets, please first 
-// -- set AliTRDfeeParam::fgkTracklet to kTRUE, in order to switch on Tracklet-calculation
-// -- set AliTRDfeeParam::fgkTFtype   to 3, in order to use the new tail cancellation filter
-// currently tracklets from filtered digits are only given when setting fgkTFtype (AliTRDfeeParam) to 3
-
-// code is designed such that the less possible calculations with AliTRDtrapAlu class-objects are performed; whenever possible calculations are done with doubles or integers and the results are transformed into the right format
-
-void AliTRDmcmSim::Tracklet(){
-    // tracklet calculation
-    // if you use this code outside a simulation, please make sure the same filter-settings as in the simulation are set in AliTRDfeeParam
-
-  if(!CheckInitialized()){ return; }
-  
-  Bool_t filtered = kTRUE;
-  
-  
-  
-  AliTRDtrapAlu data;
-  data.Init(10,2);
-  if(fADCT[0][0]==-1){                      // check if filter was applied
-    filtered = kFALSE;
-    for( Int_t iadc = 0 ; iadc < fNADC; iadc++ ) {
-      for( Int_t iT = 0 ; iT < fNTimeBin ; iT++ ) {
-       data.AssignInt(fADCR[iadc][iT]);
-       fADCT[iadc][iT] = data.GetValue(); // all incoming values are positive 10+2 bit values; if el.filter was called this is done correctly
+//  Int_t firstAdc = 0;
+//  Int_t lastAdc = fNADC - 1;
+//
+//  while (GetCol(firstAdc) < 0)
+//    firstAdc++;
+//
+//  while (GetCol(lastAdc) < 0) 
+//    lastAdc--;
+
+  Int_t offset = (fMcmPos % 4) * 21 + (fRobPos % 2) * 84;
+
+  if (fTrapConfig->GetTrapReg(AliTRDtrapConfig::kEBSF) != 0) // store unfiltered data
+  {
+    for (Int_t iAdc = 0; iAdc < fNADC; iAdc++) {
+      if (fZSM1Dim[iAdc] == 1) {
+        for (Int_t iTimeBin = 0; iTimeBin < fNTimeBin; iTimeBin++) {
+          digits->SetDataByAdcCol(GetRow(), 20-iAdc + offset, iTimeBin, -1);
+//          printf("suppressed: %i, %i, %i, %i, now: %i\n", fDetector, GetRow(), GetCol(iAdc), iTimeBin, 
+//                 digits->GetData(GetRow(), GetCol(iAdc), iTimeBin));
+        }
       }
     }
-   
   }
-  
-  // the online ordering of mcm's is reverse to the TRAP-ordering(?)! reverse fADCT (to be consistent to TRAP), then do all calculations
-  // reverse fADCT:
-  Int_t** rev0 = new Int_t *[fNADC];
-  Int_t** rev1 = new Int_t *[fNADC];
-  
-  for( Int_t iadc = 0 ; iadc < fNADC; iadc++ ) {
-    rev0[iadc] = new Int_t[fNTimeBin];
-    rev1[iadc] = new Int_t[fNTimeBin];
-    for( Int_t iT = 0; iT < fNTimeBin; iT++) {
-      if( iadc <= fNADC-iadc-1 ) {
-       rev0[iadc][iT]  = fADCT[fNADC-iadc-1][iT];
-       rev1[iadc][iT]  = fADCT[iadc][iT];
-       fADCT[iadc][iT] = rev0[iadc][iT];
+  else {
+    for (Int_t iAdc = 0; iAdc < fNADC; iAdc++) {
+      if (fZSM1Dim[iAdc] == 0) {
+        for (Int_t iTimeBin = 0; iTimeBin < fNTimeBin; iTimeBin++) {
+          digits->SetDataByAdcCol(GetRow(), 20-iAdc + offset, iTimeBin, (fADCF[iAdc][iTimeBin] >> fgkAddDigits) - fgAddBaseline);
+        }
       }
       else {
-       rev0[iadc][iT]  = rev1[fNADC-iadc-1][iT];
-       fADCT[iadc][iT] = rev0[iadc][iT];
+        for (Int_t iTimeBin = 0; iTimeBin < fNTimeBin; iTimeBin++) {
+          digits->SetDataByAdcCol(GetRow(), 20-iAdc + offset, iTimeBin, -1);
+//          printf("suppressed: %i, %i, %i, %i\n", fDetector, GetRow(), GetCol(iAdc), iTimeBin);
+        }
       }
     }
   }
-  for( Int_t iadc = 0 ; iadc < fNADC; iadc++ ) {
-    delete[] rev0[iadc];
-    delete[] rev1[iadc];
-  }
-  
-  delete[] rev0;
-  delete[] rev1;
-  
-  rev0 = NULL;
-  rev1 = NULL;
-    
-  // get the filtered pedestal; supports only electronic tail-cancellation filter
-  AliTRDtrapAlu filPed;
-  Int_t ep = 0;
-  Int_t *ieffped = new Int_t[fNTimeBin];
-  for(Int_t iT = 0; iT < fNTimeBin; iT++){
-    ieffped[iT] = ep; 
-  }
-  if( filtered == kTRUE ) {
-    if( fFeeParam->IsPFon() ){
-      ep = fFeeParam->GetPFeffectPedestal();
-    }
-    Int_t      nexp  = fFeeParam->GetTFnExp();
-    Int_t  *isource  = new Int_t[fNTimeBin];
-    filPed.Init(10,2);
-    filPed.AssignInt(ep);           
-    Int_t epf = filPed.GetValue();  
-    for(Int_t iT = 0; iT < fNTimeBin; iT++){
-      isource[iT] = ep;                  
-      ieffped[iT] = epf;
+}
+
+// help functions, to be cleaned up
+
+UInt_t AliTRDmcmSim::AddUintClipping(UInt_t a, UInt_t b, UInt_t nbits) const
+{
+  // 
+  // This function adds a and b (unsigned) and clips to 
+  // the specified number of bits. 
+  //  
+
+  UInt_t sum = a + b;
+  if (nbits < 32)
+  {
+    UInt_t maxv = (1 << nbits) - 1;;
+    if (sum > maxv) 
+      sum = maxv;
+  }
+  else
+  {
+    if ((sum < a) || (sum < b)) 
+      sum = 0xFFFFFFFF;
+  }
+  return sum;
+}
+
+void AliTRDmcmSim::Sort2(UShort_t  idx1i, UShort_t  idx2i, \
+                            UShort_t  val1i, UShort_t  val2i, \
+                            UShort_t *idx1o, UShort_t *idx2o, \
+                            UShort_t *val1o, UShort_t *val2o) const
+{
+  // sorting for tracklet selection
+
+    if (val1i > val2i)
+    {
+        *idx1o = idx1i;
+        *idx2o = idx2i;
+        *val1o = val1i;
+        *val2o = val2i;
     }
-    if( fFeeParam->IsTFon() ) {
-      FilterSimDeConvExpEl( isource, ieffped, fNTimeBin, nexp);
+    else
+    {
+        *idx1o = idx2i;
+        *idx2o = idx1i;
+        *val1o = val2i;
+        *val2o = val1i;
     }
-  
-    delete[] isource;
-  }
-  
-  //the following values should be in AliTRDfeeParam and have to be read in properly
-  //naming follows conventions in TRAP-manual
-  
-  
-  Bool_t bVBY = kTRUE;                         // cluster-verification bypass
+}
 
-  Double_t cQTParam = 0;                      // cluster quality threshold; granularity 2^-10; range: 0<=cQT/2^-10<=2^-4 - 2^-10
-  AliTRDtrapAlu cQTAlu; 
-  cQTAlu.Init(1,10,0,63);
-  cQTAlu.AssignDouble(cQTParam);
-  Int_t cQT = cQTAlu.GetValue();
+void AliTRDmcmSim::Sort3(UShort_t  idx1i, UShort_t  idx2i, UShort_t  idx3i, \
+                            UShort_t  val1i, UShort_t  val2i, UShort_t  val3i, \
+                            UShort_t *idx1o, UShort_t *idx2o, UShort_t *idx3o, \
+                            UShort_t *val1o, UShort_t *val2o, UShort_t *val3o)
+{
+  // sorting for tracklet selection
 
-  // linear fit 
-  Int_t tFS = fFeeParam->GetLinearFitStart();  // linear fit start
-  Int_t tFE = fFeeParam->GetLinearFitEnd();    // linear fit stop
-   
-  // charge accumulators
-  Int_t tQS0 = fFeeParam->GetQacc0Start();     // start-time for charge-accumulator 0
-  Int_t tQE0 = fFeeParam->GetQacc0End();       // stop-time for charge-accumulator 0
-  Int_t tQS1 = fFeeParam->GetQacc1Start();     // start-time for charge-accumulator 1 
-  Int_t tQE1 = fFeeParam->GetQacc1End();       // stop-time for charge-accumulator 1
-  // values set such that tQS0=tFS; tQE0=tQS1-1; tFE=tQE1; want to do (QS0+QS1)/N
-  Double_t cTHParam = (Double_t)fFeeParam->GetMinClusterCharge(); // cluster charge threshold
-  AliTRDtrapAlu cTHAlu;  
-  cTHAlu.Init(12,2);
-  cTHAlu.AssignDouble(cTHParam);
-  Int_t cTH = cTHAlu.GetValue();                                 // cTH used for comparison
-
-  struct List_t {
-    List_t *next;
-    Int_t iadc;
-    Int_t value;
-  };
-  
-  List_t selection[7];            // list with 7 elements
-  List_t *list = NULL;
-  List_t *listLeft = NULL;
-    
-  Int_t* qsum = new Int_t[fNADC];
-   
-  // fit sums
-  AliTRDtrapAlu qsumAlu;
-  qsumAlu.Init(12,2);           // charge sum will be 12+2 bits
-  AliTRDtrapAlu dCOGAlu; 
-  dCOGAlu.Init(1,7,0,127);      // COG will be 1+7 Bits; maximum 1 - 2^-7 for LUT
-  AliTRDtrapAlu yrawAlu;
-  yrawAlu.Init(1,8,-1,255);
-  AliTRDtrapAlu yAlu;
-  yAlu.Init(1,16,-1,0xFF00);    // only first 8 past-comma bits filled;additional 8 bits for accuracy;maximum 1 - 2^-8; sign is given by + or -
-  AliTRDtrapAlu xAlu;
-  xAlu.Init(5,8);               // 8 past-comma bits because value will be added/multiplied to another value with this accuracy
-  AliTRDtrapAlu xxAlu;
-  xxAlu.Init(10,0);            
-  AliTRDtrapAlu yyAlu;
-  yyAlu.Init(1,16,0,0xFFFF);    // maximum is 2^16-1; 16Bit for past-commas
-  AliTRDtrapAlu xyAlu;
-  xyAlu.Init(6,8);
-  AliTRDtrapAlu XAlu;
-  XAlu.Init(9,0);
-  AliTRDtrapAlu XXAlu;
-  XXAlu.Init(14,0);
-  AliTRDtrapAlu YAlu;
-  YAlu.Init(5,8);               // 14 bit, 1 is sign-bit; therefore only 13 bit 
-  AliTRDtrapAlu YYAlu;
-  YYAlu.Init(5,16);
-  AliTRDtrapAlu XYAlu;
-  XYAlu.Init(8,8);              // 17 bit, 1 is sign-bit; therefore only 16 bit        
-  AliTRDtrapAlu qtruncAlu;
-  qtruncAlu.Init(12,0);
-  AliTRDtrapAlu QT0Alu;
-  QT0Alu.Init(15,0);
-  AliTRDtrapAlu QT1Alu;
-  QT1Alu.Init(16,0);
-  
-  AliTRDtrapAlu inverseNAlu;
-  inverseNAlu.Init(1,8);        // replaces the LUT for 1/N
-  AliTRDtrapAlu MeanChargeAlu;  // mean charge in ADC counts
-  MeanChargeAlu.Init(8,0);
-  AliTRDtrapAlu TotalChargeAlu;
-  TotalChargeAlu.Init(17,8);
-  //nr of post comma bits should be the same for inverseN and TotalCharge
-  
-  
-  SetPosLUT();                    // initialize the position correction LUT for this MCM;
-
-
-  // fit-sums; remapping!; 0,1,2->0; 1,2,3->1; ... 18,19,20->18
-  Int_t *X   = new Int_t[fNADC-2];
-  Int_t *XX  = new Int_t[fNADC-2];
-  Int_t *Y   = new Int_t[fNADC-2];
-  Int_t *YY  = new Int_t[fNADC-2];
-  Int_t *XY  = new Int_t[fNADC-2];
-  Int_t *N   = new Int_t[fNADC-2];
-  Int_t *QT0 = new Int_t[fNADC-2]; // accumulated charge
-  Int_t *QT1 = new Int_t[fNADC-2]; // accumulated charge
-  
-  for (Int_t iCol = 0; iCol < fNADC-2; iCol++) { 
-      
-      // initialize fit-sums 
-      X[iCol]   = 0;
-      XX[iCol]  = 0;
-      Y[iCol]   = 0;
-      YY[iCol]  = 0;
-      XY[iCol]  = 0;
-      N[iCol]   = 0;
-      QT0[iCol] = 0;
-      QT1[iCol] = 0;
-  }
-  
+    Int_t sel;
 
-  filPed.Init(7,2);                         // convert filtered pedestal into 7+2Bits
-  
-  for(Int_t iT = 0; iT < fNTimeBin; iT++){
-    
-    if(iT<tFS || iT>=tFE) continue;         // linear fit yes/no? // !!**enable**!!
-
-    // reset
-    Int_t portChannel[4]   = {-1,-1,-1,-1};   
-    Int_t clusterCharge[4] = {0,0,0,0};
-    Int_t leftCharge[4]    = {0,0,0,0};
-    Int_t centerCharge[4]  = {0,0,0,0}; 
-    Int_t rightCharge[4]   = {0,0,0,0};
-    
-    Int_t mark = 0;
-    
-    filPed.AssignFormatted(ieffped[iT]);   // no size-checking with AssignFormatted; ieffped>=0
-    filPed = filPed;                       // this checks the size
-    
-    ieffped[iT] = filPed.GetValue();
-        
-    for(Int_t i = 0; i<7; i++){
-      selection[i].next       = NULL;
-      selection[i].iadc       =   -1;     // value of -1: invalid adc
-      selection[i].value      =    0;
-   
-    }
-    // selection[0] is starting list-element; just for pointing
 
-    // loop over inner adc's 
-    for (Int_t iCol = 1; iCol < fNADC-1; iCol++) { 
-      
-      Int_t left   = fADCT[iCol-1][iT]; 
-      Int_t center = fADCT[iCol][iT];
-      Int_t right  = fADCT[iCol+1][iT];  
+    if (val1i > val2i) sel=4; else sel=0;
+    if (val2i > val3i) sel=sel + 2;
+    if (val3i > val1i) sel=sel + 1;
+    //printf("input channels %d %d %d, charges %d %d %d sel=%d\n",idx1i, idx2i, idx3i, val1i, val2i, val3i, sel);
+    switch(sel)
+    {
+        case 6 : // 1 >  2  >  3            => 1 2 3
+        case 0 : // 1 =  2  =  3            => 1 2 3 : in this case doesn't matter, but so is in hardware!
+            *idx1o = idx1i;
+            *idx2o = idx2i;
+            *idx3o = idx3i;
+            *val1o = val1i;
+            *val2o = val2i;
+            *val3o = val3i;
+            break;
+
+        case 4 : // 1 >  2, 2 <= 3, 3 <= 1  => 1 3 2
+            *idx1o = idx1i;
+            *idx2o = idx3i;
+            *idx3o = idx2i;
+            *val1o = val1i;
+            *val2o = val3i;
+            *val3o = val2i;
+            break;
+
+        case 2 : // 1 <= 2, 2 > 3, 3 <= 1   => 2 1 3
+            *idx1o = idx2i;
+            *idx2o = idx1i;
+            *idx3o = idx3i;
+            *val1o = val2i;
+            *val2o = val1i;
+            *val3o = val3i;
+            break;
+
+        case 3 : // 1 <= 2, 2 > 3, 3  > 1   => 2 3 1
+            *idx1o = idx2i;
+            *idx2o = idx3i;
+            *idx3o = idx1i;
+            *val1o = val2i;
+            *val2o = val3i;
+            *val3o = val1i;
+            break;
+
+        case 1 : // 1 <= 2, 2 <= 3, 3 > 1   => 3 2 1
+            *idx1o = idx3i;
+            *idx2o = idx2i;
+            *idx3o = idx1i;
+            *val1o = val3i;
+            *val2o = val2i;
+            *val3o = val1i;
+        break;
+
+        case 5 : // 1 > 2, 2 <= 3, 3 >  1   => 3 1 2
+            *idx1o = idx3i;
+            *idx2o = idx1i;
+            *idx3o = idx2i;
+            *val1o = val3i;
+            *val2o = val1i;
+            *val3o = val2i;
+        break;
+
+        default: // the rest should NEVER happen!
+            AliError("ERROR in Sort3!!!\n");
+        break;
+    }
+//    printf("output channels %d %d %d, charges %d %d %d \n",*idx1o, *idx2o, *idx3o, *val1o, *val2o, *val3o);
+}
 
-      Int_t sum = left + center + right;            // cluster charge sum
-      qsumAlu.AssignFormatted(sum);    
-      qsumAlu = qsumAlu;                        // size-checking; redundant
-      qsum[iCol] = qsumAlu.GetValue(); 
-      
-      //hit detection and masking
-      if(center>=left){
-       if(center>right){
-         if(qsum[iCol]>=(cTH + 3*ieffped[iT])){    // effective pedestal of all three channels must be added to cTH(+20); this is not parallel to TRAP manual; maybe cTH has to be adjusted in fFeeParam; therefore channels are not yet reduced by their pedestal
-           mark |= 1;                              // marker
-         }
-       }
-      }
-      mark = mark<<1;                
-    }
-    mark = mark>>1;
+void AliTRDmcmSim::Sort6To4(UShort_t  idx1i, UShort_t  idx2i, UShort_t  idx3i, UShort_t  idx4i, UShort_t  idx5i, UShort_t  idx6i, \
+                               UShort_t  val1i, UShort_t  val2i, UShort_t  val3i, UShort_t  val4i, UShort_t  val5i, UShort_t  val6i, \
+                               UShort_t *idx1o, UShort_t *idx2o, UShort_t *idx3o, UShort_t *idx4o, \
+                               UShort_t *val1o, UShort_t *val2o, UShort_t *val3o, UShort_t *val4o)
+{
+  // sorting for tracklet selection
 
-       
-    // get selection of 6 adc's and sort,starting with greatest values
-
-    //read three from right side and sort (primitive sorting algorithm)
-    Int_t i = 0; // adc number
-    Int_t j = 1; // selection number
-    while(i<fNADC-2 && j<=3){
-      i = i + 1;
-      if((mark>>(i-1)) & 1 == 1) {
-       selection[j].iadc  = fNADC-1-i;
-       selection[j].value = qsum[fNADC-1-i]>>6;   // for hit-selection only the first 8 out of the 14 Bits are used for comparison
-       
-       // insert into sorted list
-       listLeft = &selection[0];
-       list = listLeft->next;
-       
-       if(list!=NULL) {
-         while((list->next != NULL) && (selection[j].value <= list->value)){
-           listLeft = list;
-           list = list->next;
-         }
-         
-         if(selection[j].value<=list->value){
-           selection[j].next = list->next;
-           list->next = &selection[j];
-         }
-         else {
-           listLeft->next = &selection[j];
-           selection[j].next = list;
-         }
-       }
-       else{
-         listLeft->next = &selection[j];
-         selection[j].next = list;
-       }
-       
-       j = j + 1;
-      }
-    }
+    UShort_t idx21s, idx22s, idx23s, dummy;
+    UShort_t val21s, val22s, val23s;
+    UShort_t idx23as, idx23bs;
+    UShort_t val23as, val23bs;
 
+    Sort3(idx1i, idx2i, idx3i, val1i, val2i, val3i,
+                 idx1o, &idx21s, &idx23as,
+                 val1o, &val21s, &val23as);
 
-    // read three from left side
-    Int_t k = fNADC-2;
-    while(k>i && j<=6) {
-      if((mark>>(k-1)) & 1 == 1) {
-       selection[j].iadc  = fNADC-1-k;
-       selection[j].value = qsum[fNADC-1-k]>>6;
-       
-       listLeft = &selection[0];
-       list = listLeft->next;
-       
-       if(list!=NULL){
-         while((list->next != NULL) && (selection[j].value <= list->value)){
-           listLeft = list;
-           list = list->next;
-         }
-       
-         if(selection[j].value<=list->value){
-           selection[j].next = list->next;
-           list->next = &selection[j];
-         }
-         else {
-           listLeft->next = &selection[j];
-           selection[j].next = list;
-         }
-       }
-       else{
-         listLeft->next = &selection[j];
-         selection[j].next = list;
-       }
+    Sort3(idx4i, idx5i, idx6i, val4i, val5i, val6i,
+                 idx2o, &idx22s, &idx23bs,
+                 val2o, &val22s, &val23bs);
 
-       j = j + 1;
-      }
-      k = k - 1;
-    }
+    Sort2(idx23as, idx23bs, val23as, val23bs, &idx23s, &dummy, &val23s, &dummy);
 
-    // get the four with greatest charge-sum
-    list = &selection[0];
-    for(i = 0; i<4; i++){
-      if(list->next == NULL) continue;
-      list = list->next;
-      if(list->iadc == -1) continue;
-      Int_t adc = list->iadc;                              // channel number with selected hit
-      
-      // the following arrays contain the four chosen channels in 1 time-bin
-      portChannel[i]   = adc; 
-      clusterCharge[i] = qsum[adc];
-      leftCharge[i]    = fADCT[adc-1][iT] - ieffped[iT]; // reduce by filtered pedestal (pedestal is part of the signal)
-      centerCharge[i]  = fADCT[adc][iT] - ieffped[iT];           
-      rightCharge[i]   = fADCT[adc+1][iT] - ieffped[iT];         
-    }
+    Sort3(idx21s, idx22s, idx23s, val21s, val22s, val23s,
+                 idx3o, idx4o, &dummy,
+                 val3o, val4o, &dummy);
 
-    // arithmetic unit
-    
-    // cluster verification
-    if(!bVBY){
-      for(i = 0; i<4; i++){
-       Int_t lr = leftCharge[i]*rightCharge[i]*1024;
-       Int_t cc = centerCharge[i]*centerCharge[i]*cQT;
-       if (lr>=cc){
-         portChannel[i]   = -1;                                 // set to invalid address 
-         clusterCharge[i] = 0;
-       }
-      }
-    }
-
-    // fit-sums of valid channels
-    // local hit position
-    for(i = 0; i<4; i++){
-      if (centerCharge[i] ==  0) {
-       portChannel[i] = -1; 
-      }// prevent division by 0
-      
-      if (portChannel[i]  == -1) continue;
-      
-      Double_t dCOG = (Double_t)(rightCharge[i]-leftCharge[i])/centerCharge[i];
-       
-      Bool_t sign = (dCOG>=0.0) ? kFALSE : kTRUE;
-      dCOG = (sign == kFALSE) ? dCOG : -dCOG;     // AssignDouble doesn't allow for signed doubles
-      dCOGAlu.AssignDouble(dCOG);
-      Int_t iLUTpos = dCOGAlu.GetValue();       // steers position in LUT
-            
-      dCOG = dCOG/2;
-      yrawAlu.AssignDouble(dCOG);
-      Int_t iCOG = yrawAlu.GetValue();
-      Int_t y = iCOG + fPosLUT[iLUTpos % 128];    // local position in pad-units
-      yrawAlu.AssignFormatted(y);               // 0<y<1           
-      yAlu  = yrawAlu;                        // convert to 16 past-comma bits
-      
-      if(sign == kTRUE) yAlu.SetSign(-1);       // buffer width of 9 bits; sign on real (not estimated) position
-      xAlu.AssignInt(iT);                       // buffer width of 5 bits 
-      
-
-      xxAlu = xAlu * xAlu;                  // buffer width of 10 bits -> fulfilled by x*x       
-      
-      yyAlu = yAlu * yAlu;                  // buffer width of 16 bits
-   
-      xyAlu = xAlu * yAlu;                  // buffer width of 14 bits
-                  
-      Int_t adc = portChannel[i]-1;              // remapping! port-channel contains channel-nr. of inner adc's (1..19; mapped to 0..18)
-
-      // calculate fit-sums recursively
-      // interpretation of their bit-length is given as comment
-      
-      // be aware that the accuracy of the result of a calculation is always determined by the accuracy of the less accurate value
-
-      XAlu.AssignFormatted(X[adc]);
-      XAlu = XAlu + xAlu;                   // buffer width of 9 bits 
-      X[adc] = XAlu.GetValue();
-             
-      XXAlu.AssignFormatted(XX[adc]);
-      XXAlu = XXAlu + xxAlu;                // buffer width of 14 bits    
-      XX[adc] = XXAlu.GetValue();
-
-      if (Y[adc] < 0) {
-       YAlu.AssignFormatted(-Y[adc]);          // make sure that only positive values are assigned; sign-setting must be done by hand
-       YAlu.SetSign(-1);
-      }
-      else {
-       YAlu.AssignFormatted(Y[adc]);
-       YAlu.SetSign(1);
-      }
-       
-      YAlu = YAlu + yAlu;                   // buffer width of 14 bits (8 past-comma);     
-      Y[adc] = YAlu.GetSignedValue();
-            
-      YYAlu.AssignFormatted(YY[adc]);
-      YYAlu = YYAlu + yyAlu;                // buffer width of 21 bits (16 past-comma) 
-      YY[adc] = YYAlu.GetValue();
-           
-      if (XY[adc] < 0) {
-       XYAlu.AssignFormatted(-XY[adc]);
-       XYAlu.SetSign(-1);
-      }
-      else {
-       XYAlu.AssignFormatted(XY[adc]);
-       XYAlu.SetSign(1);
-      }
-
-      XYAlu = XYAlu + xyAlu;                // buffer allows 17 bits (8 past-comma) 
-      XY[adc] = XYAlu.GetSignedValue();
-            
-      N[adc]  = N[adc] + 1;
-   
-
-      // accumulated charge
-      qsumAlu.AssignFormatted(qsum[adc+1]); // qsum was not remapped!
-      qtruncAlu = qsumAlu;
-
-      if(iT>=tQS0 && iT<=tQE0){
-       QT0Alu.AssignFormatted(QT0[adc]);
-       QT0Alu = QT0Alu + qtruncAlu;
-       QT0[adc] = QT0Alu.GetValue();
-       //interpretation of QT0 as 12bit-value (all pre-comma); is this as it should be done?; buffer allows 15 Bit
-      }
-      
-      if(iT>=tQS1 && iT<=tQE1){
-       QT1Alu.AssignFormatted(QT1[adc]);
-       QT1Alu = QT1Alu + qtruncAlu;
-       QT1[adc] = QT1Alu.GetValue();
-       //interpretation of QT1 as 12bit-value; buffer allows 16 Bit
-      }
-    }// i
-      
-    // remapping is done!!
-     
-  }//iT
-  
-    
-  // tracklet-assembly
-  
-  // put into AliTRDfeeParam and take care that values are in proper range
-  const Int_t cTCL = 1;      // left adc: number of hits; 8<=TCL<=31 (?? 1<=cTCL<+8 ??) 
-  const Int_t cTCT = 8;      // joint number of hits;     8<=TCT<=31
-  
-  Int_t mPair   = 0;         // marker for possible tracklet pairs
-  Int_t* hitSum = new Int_t[fNADC-3];
-  // hitSum[0] means: hit sum of remapped channels 0 and 1; hitSum[17]: 17 and 18; 
-  
-  // check for all possible tracklet-pairs of adjacent channels (two are merged); mark the left channel of the chosen pairs
-  for (Int_t iCol = 0; iCol < fNADC-3; iCol++) {
-    hitSum[iCol] = N[iCol] + N[iCol+1];
-    if ((N[iCol]>=cTCL) && (hitSum[iCol]>=cTCT)) {
-       mPair |= 1;         // mark as possible channel-pair
-     
-    }
-    mPair = mPair<<1;
-  }
-  mPair = mPair>>1;
-  
-  List_t* selectPair = new List_t[fNADC-2];      // list with 18 elements (0..18) containing the left channel-nr and hit sums
-                                                 // selectPair[18] is starting list-element just for pointing
-  for(Int_t k = 0; k<fNADC-2; k++){
-      selectPair[k].next       = NULL;
-      selectPair[k].iadc       =   -1;           // invalid adc
-      selectPair[k].value      =    0;
-   
-    }
-
- list = NULL;
- listLeft = NULL;
-  
-  // read marker and sort according to hit-sum
-  
-  Int_t adcL  = 0;            // left adc-channel-number (remapped)
-  Int_t selNr = 0;            // current number in list
-  
-  // insert marked channels into list and sort according to hit-sum
-  while(adcL < fNADC-3 && selNr < fNADC-3){
-     
-    if((mPair>>((fNADC-4)-(adcL))) & 1 == 1) {
-      selectPair[selNr].iadc  = adcL;
-      selectPair[selNr].value = hitSum[adcL];   
-      
-      listLeft = &selectPair[fNADC-3];
-      list = listLeft->next;
-       
-      if(list!=NULL) {
-       while((list->next != NULL) && (selectPair[selNr].value <= list->value)){
-         listLeft = list;
-         list = list->next;
-       }
-       
-       if(selectPair[selNr].value <= list->value){
-         selectPair[selNr].next = list->next;
-         list->next = &selectPair[selNr];
-       }
-       else {
-         listLeft->next = &selectPair[selNr];
-         selectPair[selNr].next = list;
-       }
-       
-      }
-      else{
-       listLeft->next = &selectPair[selNr];
-       selectPair[selNr].next = list;
-      }
-      
-      selNr = selNr + 1;
-    }
-    adcL = adcL + 1;
-  }
-  
-  //select up to 4 channels with maximum number of hits
-  Int_t lpairChannel[4] = {-1,-1,-1,-1}; // save the left channel-numbers of pairs with most hit-sum
-  Int_t rpairChannel[4] = {-1,-1,-1,-1}; // save the right channel, too; needed for detecting double tracklets
-  list = &selectPair[fNADC-3];
-  
-  for (Int_t i = 0; i<4; i++) {
-    if(list->next == NULL) continue;
-    list = list->next;
-    if(list->iadc == -1) continue;
-    lpairChannel[i] = list->iadc;        // channel number with selected hit
-    rpairChannel[i] = lpairChannel[i]+1;
-  }
-  
-  // avoid submission of double tracklets  
-  for (Int_t i = 3; i>0; i--) {
-    for (Int_t j = i-1; j>-1; j--) {
-      if(lpairChannel[i] == rpairChannel[j]) {
-       lpairChannel[i] = -1;
-       rpairChannel[i] = -1;
-       break;
-      }
-      if(rpairChannel[i] == lpairChannel[j]) {
-       lpairChannel[i] = -1;
-       rpairChannel[i] = -1;
-       break;
-      }
-    }
-  }
-  
-  // merging of the fit-sums of the remainig channels
-  // assume same data-word-width as for fit-sums for 1 channel
-  // relative scales!
-  Int_t mADC[4];                      
-  Int_t mN[4];
-  Int_t mQT0[4];
-  Int_t mQT1[4];
-  Int_t mX[4];
-  Int_t mXX[4];
-  Int_t mY[4];
-  Int_t mYY[4];
-  Int_t mXY[4];
-  Int_t mOffset[4];
-  Int_t mSlope[4];
-  Int_t mMeanCharge[4]; 
-  Int_t inverseN = 0;
-  Double_t invN = 0;
-  for (Int_t i = 0; i<4; i++){
-    mADC[i] = -1;                        // set to invalid number
-    mN[i]   =  0;
-    mQT0[i] =  0;
-    mQT1[i] =  0;
-    mX[i]   =  0;
-    mXX[i]  =  0;
-    mY[i]   =  0;
-    mYY[i]  =  0;
-    mXY[i]  =  0;
-    mOffset[i] = 0;
-    mSlope[i]  = 0;
-    mMeanCharge[i] = 0;
-  }
-  
-
-  YAlu.AssignInt(1);
-  Int_t wpad  = YAlu.GetValue();       // 1 with 8 past-comma bits
-  for (Int_t i = 0; i<4; i++){
-    
-    mADC[i] = lpairChannel[i];          // mapping of merged sums to left channel nr. (0,1->0; 1,2->1; ... 17,18->17)
-                                         // the adc and pad-mapping should now be one to one: adc i is linked to pad i; TRAP-numbering
-    Int_t madc = mADC[i];
-    if (madc == -1) continue;
-    mN[i]    = hitSum[madc];
-  
-    // don't merge fit sums in case of a stand-alone tracklet (consisting of only 1 channel); in that case only left channel makes up the fit sums
-    if (N[madc+1] == 0) {
-       mQT0[i] = QT0[madc];
-       mQT1[i] = QT1[madc];
-       
-    }
-    else {
-
-       // is it ok to do the size-checking for the merged fit-sums with the same format as for single-channel fit-sums?
-       
-       mQT0[i]   = QT0[madc] + QT0[madc+1];
-       QT0Alu.AssignFormatted(mQT0[i]);   
-       QT0Alu  = QT0Alu;                // size-check
-       mQT0[i]   = QT0Alu.GetValue();     // write back
-       
-       mQT1[i]   = QT1[madc] + QT1[madc+1];
-       QT1Alu.AssignFormatted(mQT1[i]);
-       QT1Alu  = QT1Alu;
-       mQT1[i]   = QT1Alu.GetValue();
-    }
-    
-    // calculate the mean charge in adc values; later to be replaced by electron likelihood
-    mMeanCharge[i] = mQT0[i] + mQT1[i]; // total charge
-    mMeanCharge[i] = mMeanCharge[i]>>2; // losing of accuracy; accounts for high mean charge
-    // simulate LUT for 1/N; LUT is fed with the double-accurate pre-calculated value of 1/N; accuracy of entries has to be adjusted to real TRAP
-    invN = 1.0/(mN[i]);
-    inverseNAlu.AssignDouble(invN);
-    inverseN = inverseNAlu.GetValue();
-    mMeanCharge[i] = mMeanCharge[i] * inverseN;  // now to be interpreted with 8 past-comma bits
-    TotalChargeAlu.AssignFormatted(mMeanCharge[i]);
-    TotalChargeAlu = TotalChargeAlu;
-    MeanChargeAlu = TotalChargeAlu;
-    mMeanCharge[i] = MeanChargeAlu.GetValue();
-    
-    if (N[madc+1] == 0) {
-       mX[i]     =   X[madc];
-       mXX[i]    =  XX[madc];
-       mY[i]     =   Y[madc];
-       mXY[i]    =  XY[madc];
-       mYY[i]    =  YY[madc];
-    }
-    else {
-       
-       mX[i]     =   X[madc] +  X[madc+1];
-       XAlu.AssignFormatted(mX[i]);
-       XAlu    = XAlu;
-       mX[i]     = XAlu.GetValue();
-       
-       mXX[i]    =  XX[madc] + XX[madc+1];
-       XXAlu.AssignFormatted(mXX[i]);
-       XXAlu   = XXAlu;
-       mXX[i]    = XXAlu.GetValue();
-    
-       mY[i]     =   Y[madc] + Y[madc+1] + wpad;
-       if (mY[i] < 0) {
-           YAlu.AssignFormatted(-mY[i]);
-           YAlu.SetSign(-1);
-       }
-       else {
-           YAlu.AssignFormatted(mY[i]);
-           YAlu.SetSign(1);
-       }
-       YAlu    = YAlu;
-       mY[i]     = YAlu.GetSignedValue();
-       
-       mXY[i]    = XY[madc] + XY[madc+1] + X[madc+1]*wpad;
-       
-       if (mXY[i] < 0) {
-           XYAlu.AssignFormatted(-mXY[i]);
-           XYAlu.SetSign(-1);
-       }
-       else {
-           XYAlu.AssignFormatted(mXY[i]);
-           XYAlu.SetSign(1);
-       }
-       XYAlu   = XYAlu;
-       mXY[i]    = XYAlu.GetSignedValue();
-    
-       mYY[i]    = YY[madc] + YY[madc+1] + 2*Y[madc+1]*wpad + wpad*wpad;
-       if (mYY[i] < 0) {
-           YYAlu.AssignFormatted(-mYY[i]);
-           YYAlu.SetSign(-1);
-       }
-       else {
-           YYAlu.AssignFormatted(mYY[i]);
-           YYAlu.SetSign(1);
-       }
-       
-       YYAlu   = YYAlu;
-       mYY[i]    = YYAlu.GetSignedValue();
-    }
-  
-  }
-    
-  // calculation of offset and slope from the merged fit-sums; 
-  // YY is needed for some error measure only; still to be done
-  // be aware that all values are relative values (scale: timebin-width; pad-width) and are integer values on special scale
-  
-  // which formats should be chosen?
-  AliTRDtrapAlu denomAlu;
-  denomAlu.Init(20,8);       
-  AliTRDtrapAlu numAlu;
-  numAlu.Init(20,8);     
-  // is this enough pre-comma place? covers the range of the 13 bit-word of the transmitted offset
-  // offset measured in coord. of left channel must be between -0.5 and 1.5; 14 pre-comma bits because numerator can be big
-
-  for (Int_t i = 0; i<4; i++) {
-    if (mADC[i] == -1) continue;
-      
-    Int_t num0  = (mN[i]*mXX[i]-mX[i]*mX[i]);
-    if (num0 < 0) {
-      denomAlu.AssignInt(-num0);    // num0 does not have to be interpreted as having past-comma bits -> AssignInt
-      denomAlu.SetSign(-1);
-    }
-    else {
-      denomAlu.AssignInt(num0);
-      denomAlu.SetSign(1);
-    }
-    
-    Int_t num1  = mN[i]*mXY[i] - mX[i]*mY[i];
-    if (num1 < 0) {
-      numAlu.AssignFormatted(-num1); // value of num1 is already formatted to have 8 past-comma bits
-      numAlu.SetSign(-1);
-    }
-    else {
-      numAlu.AssignFormatted(num1);
-      numAlu.SetSign(1);
-    }
-    numAlu    = numAlu/denomAlu;
-    mSlope[i]   = numAlu.GetSignedValue();
-   
-    Int_t num2  = mXX[i]*mY[i] - mX[i]*mXY[i];
-   
-    if (num2 < 0) {
-      numAlu.AssignFormatted(-num2);
-      numAlu.SetSign(-1);
-    }
-    else {
-      numAlu.AssignFormatted(num2);
-      numAlu.SetSign(1);
-    }
-   
-    numAlu    = numAlu/denomAlu;
-   
-    
-    mOffset[i]  = numAlu.GetSignedValue();
-    numAlu.SetSign(1);
-    denomAlu.SetSign(1);
-       
-                                 
-    //numAlu.AssignInt(mADC[i]+1);   // according to TRAP-manual but trafo not to middle of chamber (0.5 channels away)             
-    numAlu.AssignDouble((Double_t)mADC[i] + 1.5);      // numAlu has enough pre-comma place for that; correct trafo, best values
-    mOffset[i]  = mOffset[i] + numAlu.GetValue();      // transform offset to a coord.system relative to chip; +1 to avoid neg. values 
-    
-    // up to here: adc-mapping according to TRAP and in line with pad-col mapping
-    // reverse adc-counting to be again in line with the online mapping
-    mADC[i]     = fNADC - 4 - mADC[i];                 // fNADC-4-mADC[i]: 0..17; remapping necessary;
-    mADC[i]     = mADC[i] + 2; 
-    // +2: mapping onto original ADC-online-counting: inner adc's corresponding to a chip's pasa: number 2..19
-  }
-
-  // adc-counting is corresponding to online mapping; use AliTRDfeeParam::GetPadColFromADC to get the pad to which adc is connected; 
-  // pad-column mapping is reverse to adc-online mapping; TRAP adc-mapping is in line with pad-mapping (increase in same direction);
-  
-  // transform parameters to the local coordinate-system of a stack (used by GTU)
-  AliTRDpadPlane* padPlane = fGeo->CreatePadPlane(fLayer,fStack);
-  
-  Double_t padWidthI = padPlane->GetWidthIPad()*10.0; // get values in cm; want them in mm
-  //Double_t padWidthO = padPlane->GetWidthOPad()*10; // difference between outer pad-widths not included; in real TRAP??
-  
-  // difference between width of inner and outer pads of a row is not accounted for;
-  
-  Double_t magField = 0.4;                            // z-component of magnetic field in Tesla; adjust to current simulation!!; magnetic field can hardly be evaluated for the position of each mcm 
-  Double_t eCharge  = 0.3;                            // unit charge in (GeV/c)/m*T
-  Double_t ptMin   = 2.3;                            // minimum transverse momentum (GeV/c); to be adjusted(?)
-  
-  Double_t granularityOffset = 0.160;                // granularity for offset in mm
-  Double_t granularitySlope  = 0.140;                // granularity for slope  in mm     
-    
-  // get the coordinates in SM-system; parameters: 
-  
-  Double_t zPos       =  (padPlane->GetRowPos(fRow))*10.0;  // z-position of the MCM; fRow is counted on a chamber; SM consists of 5 
-  // zPos is position of pad-borders;
-  Double_t zOffset = 0.0;
-  if ( fRow == 0 || fRow == 15 ) {
-      zOffset = padPlane->GetLengthOPad();
-  }
-  else {
-      zOffset = padPlane->GetLengthIPad();
-  }
-  zOffset = (-1.0) * zOffset/2.0;
-  // turn zPos to be z-coordinate at middle of pad-row
-  zPos = zPos + zOffset;
-
-      
-  Double_t xPos       =  0.0;                               // x-position of the upper border of the drift-chamber of actual layer
-  Int_t    icol        =  0;                                 // column-number of adc-channel
-  Double_t yPos[4];                                         // y-position of the pad to which ADC is connected
-  Double_t dx          = 30.0;                               // height of drift-chamber in mm; maybe retrieve from AliTRDGeometry
-  Double_t vdrift      = fCal->GetVdriftAverage(fChaId);     // averaged drift velocity for this detector
-  Double_t lorTan     = fCal->GetOmegaTau(vdrift,magField); // tan of the Lorentz-angle for this detector; could be evaluated and set as a parameter for each mcm
-  //Double_t lorAngle   =  7.0;                               // Lorentz-angle in degrees
-  Double_t tiltAngle  = padPlane->GetTiltingAngle();        // sign-respecting tilting angle of pads in actual layer
-  Double_t tiltTan    = TMath::Tan(TMath::Pi()/180.0 * tiltAngle);
-  //Double_t lorTan     = TMath::Tan(TMath::Pi()/180.0 * lorAngle);
-
-  Double_t alphaMax[4];                            // maximum deflection from the direction to the primary vertex; granularity of hit pads
-  Double_t slopeMin[4];                            // local limits for the deflection
-  Double_t slopeMax[4];
-  Int_t   mslopeMin[4];                            // in granularity units; to be compared to mSlope[i]
-  Int_t   mslopeMax[4];
-
-
-  //x coord. of upper side of drift chambers in local SM-system (in mm)
-  //obtained by evaluating the x-range of the hits; should be crosschecked; only drift, not amplification region taken into account (30mm);
-  //the y-deflection is given as difference of y between lower and upper side of drift-chamber, not pad-plane;
-  switch(fLayer) 
-    {
-    case 0: 
-      xPos = 3003.0;
-      break;
-    case 1:
-      xPos = 3129.0;
-      break;
-    case 2:
-      xPos = 3255.0;
-      break;
-    case 3:
-      xPos = 3381.0;
-      break;
-    case 4:
-      xPos = 3507.0;
-      break;
-    case 5:
-      xPos = 3633.0;
-      break;
-    }
-  // calculation of offset-correction n: 
-
-  Int_t nCorrectOffset = (fRobPos % 2 == 0) ? ((fMcmPos % 4)) : ( 4 + (fMcmPos % 4));  
-  nCorrectOffset = (nCorrectOffset - 4)*18 - 1;
-  if (nCorrectOffset < 0) {
-    numAlu.AssignInt(-nCorrectOffset);
-    numAlu.SetSign(-1);
-  }
-  else {
-    numAlu.AssignInt(nCorrectOffset);
-    numAlu.SetSign(1);
-  }
-  nCorrectOffset = numAlu.GetSignedValue();         
-  Double_t mCorrectOffset = padWidthI/granularityOffset; // >= 0.0
-  // calculation of slope-correction
-
-  // this is only true for tracks coming (approx.) from primary vertex
-  Double_t cCorrectSlope = (-lorTan*dx + zPos/xPos*dx*tiltTan)/granularitySlope;
-  // Double_t cCorrectSlope =  zPos/xPos*dx*tiltTan/granularitySlope;
-  // zPos can be negative! for track from primary vertex: zOut-zIn > 0 <=> zPos > 0
-  
-  if (cCorrectSlope < 0) {
-      numAlu.AssignDouble(-cCorrectSlope);
-      numAlu.SetSign(-1);
-  }
-  else {
-      numAlu.AssignDouble(cCorrectSlope);
-      numAlu.SetSign(1);
-  }
-  cCorrectSlope = numAlu.GetSignedValue();
-  // convert slope to deflection between upper and lower drift-chamber position (slope is given in pad-unit/time-bins)
-  // different pad-width of outer pads of a pad-plane not taken into account
-  // tFS: upper plane of drift-volume (not amplification region); this choice is important for offset
-  // tFE: does !!not!! need to correspond to lower plane of drift-volume; TR hits can be cut;
-  
-  Double_t mCorrectSlope = ((Double_t)(fNTimeBin-tFS))*padWidthI/granularitySlope;  // >= 0.0
-
-  AliTRDtrapAlu correctAlu;
-  correctAlu.Init(20,8);
-  
-  AliTRDtrapAlu offsetAlu;
-  offsetAlu.Init(13,0,-0x1000,0x0FFF);          // 13 bit-word; 2-complement (1 sign-bit); asymmetric range
-  
-  AliTRDtrapAlu slopeAlu;
-  slopeAlu.Init(7,0,-0x40,0x3F);                // 7 bit-word;  2-complement (1 sign-bit);
-
-  for (Int_t i = 0; i<4; i++) {
-    
-    if (mADC[i] == -1) continue;
-    
-    icol = fFeeParam->GetPadColFromADC(fRobPos,fMcmPos,mADC[i]); // be aware that mADC[i] contains the ADC-number according to online-mapping
-    yPos[i]   = (padPlane->GetColPos(icol))*10.0;
-    
-    
-    // offset:
-    
-    correctAlu.AssignDouble(mCorrectOffset);     // done because max. accuracy is 8 bit
-    mCorrectOffset = correctAlu.GetValueWhole(); // cut offset correction to 8 past-comma bit accuracy
-    mOffset[i]  = (Int_t)((mCorrectOffset)*(Double_t)(mOffset[i] + nCorrectOffset)); 
-    mOffset[i]  = mOffset[i]*(-1);                   // adjust to direction of y-axes in online simulation
-    
-    if (mOffset[i] < 0) {
-      numAlu.AssignFormatted(-mOffset[i]);
-      numAlu.SetSign(-1);
-    }
-    else {
-      numAlu.AssignFormatted(mOffset[i]);
-      numAlu.SetSign(1);
-    }
-
-    offsetAlu = numAlu; 
-    mOffset[i]  = offsetAlu.GetSignedValue();  
-
-    
-    // slope:
-    
-    correctAlu.AssignDouble(mCorrectSlope);
-    mCorrectSlope = correctAlu.GetValueWhole();
-    
-    mSlope[i]   = (Int_t)((mCorrectSlope*(Double_t)mSlope[i]) + cCorrectSlope);
-
-    if (mSlope[i] < 0) {
-      numAlu.AssignFormatted(-mSlope[i]);
-      numAlu.SetSign(-1);
-    }
-    else {
-      numAlu.AssignFormatted(mSlope[i]);
-      numAlu.SetSign(1);
-    }
-
-    slopeAlu  = numAlu;     // here all past-comma values are cut, not rounded; alternatively add +0.5 before cutting (means rounding)
-    mSlope[i]   = slopeAlu.GetSignedValue(); 
-       
-    // local (LTU) limits for the deflection 
-    // ATan returns angles in radian
-    alphaMax[i]  = TMath::ASin(eCharge*magField/(2.0*ptMin)*(TMath::Sqrt(xPos*xPos + yPos[i]*yPos[i]))/1000.0); // /1000: mm->m
-    slopeMin[i]  = dx*(TMath::Tan(TMath::ATan(yPos[i]/xPos) - alphaMax[i]))/granularitySlope;
-    slopeMax[i]  = dx*(TMath::Tan(TMath::ATan(yPos[i]/xPos) + alphaMax[i]))/granularitySlope;
-    
-    if (slopeMin[i] < 0) {
-      slopeAlu.AssignDouble(-slopeMin[i]);
-      slopeAlu.SetSign(-1);
-    }
-    else { 
-      slopeAlu.AssignDouble(slopeMin[i]);
-      slopeAlu.SetSign(1);
-    }
-    mslopeMin[i] = slopeAlu.GetSignedValue();  // the borders should lie inside the range of mSlope -> usage of slopeAlu again
-   
-    if (slopeMax[i] < 0) {
-      slopeAlu.AssignDouble(-slopeMax[i]);
-      slopeAlu.SetSign(-1);
-    }
-    else {
-      slopeAlu.AssignDouble(slopeMax[i]);
-      slopeAlu.SetSign(1);
-    }
-    mslopeMax[i] = slopeAlu.GetSignedValue();
-  }
-
-  // suppress submission of tracks with low stiffness
-  // put parameters in 32bit-word and submit (write to file as root-file; sort after SM, stack, layer, chamber) 
-
-  // sort tracklet-words in ascending y-order according to the offset (according to mADC would also be possible)
-  // up to now they are sorted according to maximum hit sum
-  // is the sorting really done in the TRAP-chip?
-  
-  Int_t order[4] = {-1,-1,-1,-1};
-  Int_t wordnr = 0;   // number of tracklet-words
-  
-  for(Int_t j = 0; j < fMaxTracklets; j++) {
-      //if( mADC[j] == -1) continue; 
-      if( (mADC[j] == -1) || (mSlope[j] < mslopeMin[j]) || (mSlope[j] > mslopeMax[j])) continue; // this applies a pt-cut
-      wordnr++;
-      if( wordnr-1 == 0) {
-         order[0] = j;
-         continue;
-      }
-      // wordnr-1>0, wordnr-1<4
-      order[wordnr-1] = j;
-      for( Int_t k = 0; k < wordnr-1; k++) {
-         if( mOffset[j] < mOffset[order[k]] ) {
-             for( Int_t l = wordnr-1; l > k; l-- ) {
-                 order[l] = order[l-1];
-             }
-             order[k] = j;
-             break;
-         }
-         
-      }
-  }
-        
-  // fill the bit-words in ascending order and without gaps
-  UInt_t bitWord[4] = {0,0,0,0};                 // attention: unsigned int to have real 32 bits (no 2-complement)
-  for(Int_t j = 0; j < wordnr; j++) { // only "wordnr" tracklet-words
-      //Bool_t rem1 = kTRUE;
-    
-    Int_t i = order[j];
-    bitWord[j] =   0; // invalid bit-word (bit-word is 2-complement and therefore without sign)
-    //if( mADC[i] == -1) continue; 
-    ////if( (mADC[i] == -1) || (mSlope[i] < mslopeMin[i]) || (mSlope[i] > mslopeMax[i])) continue; //don't transmit bit word 
-    bitWord[j] =   1; // this is the starting 1 of the bit-word (at 33rd position); the 1 must be ignored
-    //printf("\n");
-    
-    /*
-    // pad position
-    if(mOffset[i] < 0) {
-      rem1 = kFALSE;   // don't remove the first 1
-      //printf("1");
-      for(Int_t iBit = 1; iBit < 13; iBit++) {
-       bitWord[j]  = bitWord[j]<<1;
-       bitWord[j] |= (1-((-mOffset[i])>>(12-iBit))&1);
-       //printf("%d",(1-((-mOffset[i])>>(12-iBit))&1));
-      }
-    }
-    else {
-      bitWord[j]   |= 0; 
-      //printf("0");
-      for(Int_t iBit = 1; iBit < 13; iBit++) {
-       bitWord[j]  = bitWord[j]<<1;
-       bitWord[j] |= (mOffset[i]>>(12-iBit))&1;
-       //printf("%d",(mOffset[i]>>(12-iBit))&1);
-      }
-    }
-        
-    // deflection length
-    bitWord[j] = bitWord[j]<<1;
-    if(mSlope[i] < 0) {
-      bitWord[j]   |= 1;
-      //printf("1");
-      for(Int_t iBit = 1; iBit < 7; iBit++) {
-       bitWord[j]  = bitWord[j]<<1;
-       bitWord[j] |= (1-((-mSlope[i])>>(6-iBit))&1);
-       //printf("%d",(1-((-mSlope[i])>>(6-iBit))&1));
-      }
-    }
-    else {
-      bitWord[j]   |= 0;
-      //printf("0");
-      for(Int_t iBit = 1; iBit < 7; iBit++) {
-       bitWord[j]  = bitWord[j]<<1;
-       bitWord[j] |= (mSlope[i]>>(6-iBit))&1;
-       //printf("%d",(mSlope[i]>>(6-iBit))&1);
-      }
-    }
-
-    // pad row
-    for(Int_t iBit = 0; iBit < 4; iBit++) {
-      bitWord[j]  = bitWord[j]<<1;
-      bitWord[j] |= (fRow>>(3-iBit))&1;
-      //printf("%d", (fRow>>(3-iBit))&1);
-    }
-    
-    // electron probability (currently not implemented; the mean charge is just scaled)
-    for(Int_t iBit = 0; iBit < 8; iBit++) {
-      bitWord[j]  = bitWord[j]<<1;
-      bitWord[j] |= (mMeanCharge[i]>>(7-iBit))&1;               
-      //printf("0");
-    }
-    
-
-    if (rem1 == kTRUE) {
-      bitWord[j] = bitWord[j] - (1<<31);
-      }*/
-
-
-    /*printf("mean charge: %d\n",mMeanCharge[i]);
-    printf("row: %d\n",fRow);
-    printf("slope: %d\n",mSlope[i]);
-    printf("pad position: %d\n",mOffset[i]);
-    printf("channel: %d\n",mADC[i]);*/
-
-    // electron probability (currently not implemented; the mean charge is just scaled)
-    for(Int_t iBit = 0; iBit < 8; iBit++) {
-      bitWord[j]  = bitWord[j]<<1;
-      bitWord[j] |= (mMeanCharge[i]>>(7-iBit))&1;               
-      //printf("0");
-    }
-    
-    // pad row
-    for(Int_t iBit = 0; iBit < 4; iBit++) {
-      bitWord[j]  = bitWord[j]<<1;
-      bitWord[j] |= (fRow>>(3-iBit))&1;
-      //printf("%d", (fRow>>(3-iBit))&1);
-    }
-    
-    // deflection length
-    bitWord[j] = bitWord[j]<<1;
-    if(mSlope[i] < 0) {
-      bitWord[j]   |= 1;
-      //printf("1");
-      for(Int_t iBit = 1; iBit < 7; iBit++) {
-       bitWord[j]  = bitWord[j]<<1;
-       bitWord[j] |= (1-((-mSlope[i])>>(6-iBit))&1);
-       //printf("%d",(1-((-mSlope[i])>>(6-iBit))&1));
-      }
-    }
-    else {
-      bitWord[j]   |= 0;
-      //printf("0");
-      for(Int_t iBit = 1; iBit < 7; iBit++) {
-       bitWord[j]  = bitWord[j]<<1;
-       bitWord[j] |= (mSlope[i]>>(6-iBit))&1;
-       //printf("%d",(mSlope[i]>>(6-iBit))&1);
-      }
-    }
-
-    // pad position
-    bitWord[j] = bitWord[j]<<1;
-    if(mOffset[i] < 0) {
-       bitWord[j]   |= 1;
-       //printf("1");
-       for(Int_t iBit = 1; iBit < 13; iBit++) {
-           bitWord[j]  = bitWord[j]<<1;
-           bitWord[j] |= (1-((-mOffset[i])>>(12-iBit))&1);
-           //printf("%d",(1-((-mOffset[i])>>(12-iBit))&1));
-       }
-    }
-    else {
-      bitWord[j]   |= 0; 
-      //printf("0");
-      for(Int_t iBit = 1; iBit < 13; iBit++) {
-       bitWord[j]  = bitWord[j]<<1;
-       bitWord[j] |= (mOffset[i]>>(12-iBit))&1;
-       //printf("%d",(mOffset[i]>>(12-iBit))&1);
-      }
-    }
-
-
-   
-    
-    //printf("bitWord: %u\n",bitWord[j]);
-    //printf("adc: %d\n",mADC[i]);
-    fMCMT[j] = bitWord[j];
-  }
-    
-  //printf("\n");
-
-  
-  delete [] qsum;
-  delete [] ieffped;
-
-  delete [] X;
-  delete [] XX;
-  delete [] Y;
-  delete [] YY;
-  delete [] XY;
-  delete [] N;
-  delete [] QT0;
-  delete [] QT1;
-
-  delete [] hitSum;
-  delete [] selectPair;
-
-  delete padPlane;
-
-
-
-/*
-
-  // output-part; creates some dump trees; output should not be organized inside the AliTRDmcmSim-class
-  
-  // structure: in system directory "./TRD_Tracklet" a root-file called "TRD_readout_tree.root" is stored with subdirectories SMxx/sx;
-  // in each of these subdirectories 6 trees according to layers are saved, called lx; 
-  // whenever a mcm of that layer had a bit-word!=0, a branch containing an array with 4 (possibly some valued 0) elements is added;
-  // branch-name: mcmxxxwd; 
-  // another branch contains the channel-number (mcmxxxch)
-  
-  
-  AliLog::SetClassDebugLevel("AliTRDmcmSim", 10);
-  AliLog::SetFileOutput("../log/tracklet.log");
-  
-  UInt_t* trackletWord;
-  Int_t*  adcChannel;
-
-  Int_t u = 0;
-    
-  // testing for wordnr in order to speed up the simulation
-  
-  if (wordnr == 0 && fNextEvent == 0) {
-    return;
-  }
-
-   
-  Int_t mcmNr = fRobPos * (fGeo->MCMmax()) + fMcmPos;
-  
-  Char_t* SMName    = new Char_t[4];
-  Char_t* stackName = new Char_t[2];
-  Char_t* layerName = new Char_t[2];
-
-  Char_t* treeName  = new Char_t[2];
-  Char_t* treeTitle = new Char_t[8];
-  Char_t* branchNameWd = new Char_t[8]; // mcmxxxwd bit word
-  Char_t* branchNameCh = new Char_t[8]; // mcmxxxch channel
-   
-  Char_t* dirName = NULL;
-  Char_t* treeFile  = NULL; 
-  Char_t* evFile = NULL;
-  Char_t* curDir = new Char_t[255];
-  
-  for (Int_t i = 0; i<255; i++) {
-    curDir[i]='n';
-  }
-  sprintf(curDir,"%s",gSystem->BaseName(gSystem->WorkingDirectory()));
-  Int_t rawEvent = 0;
-  Int_t nrPos = 3;
-  
-
-  while(curDir[nrPos]!='n'){
-    
-   
-    switch(curDir[nrPos]) {
-    case '0':
-      rawEvent = rawEvent*10 + 0;
-      break;
-    case '1':
-      rawEvent = rawEvent*10 + 1;
-      break;
-    case '2':
-      rawEvent = rawEvent*10 + 2;
-      break;
-    case '3':
-      rawEvent = rawEvent*10 + 3;
-      break;
-    case '4':
-      rawEvent = rawEvent*10 + 4;
-      break;
-    case '5':
-      rawEvent = rawEvent*10 + 5;
-      break;
-    case '6':
-      rawEvent = rawEvent*10 + 6;
-      break;
-    case '7':
-      rawEvent = rawEvent*10 + 7;
-      break;
-    case '8':
-      rawEvent = rawEvent*10 + 8;
-      break;
-    case '9':
-      rawEvent = rawEvent*10 + 9;
-      break;
-   
-    }
-    nrPos = nrPos + 1; 
-  }
-  delete [] curDir;
-    
-  if (!gSystem->ChangeDirectory("../TRD_Tracklet")) {
-    gSystem->MakeDirectory("../TRD_Tracklet");
-    gSystem->ChangeDirectory("../TRD_Tracklet");
-  }
-  
-  TFile *f = new TFile("TRD_readout_tree.root","update");
-  TTree *tree          = NULL;
-  TBranch *branch      = NULL;
-  TBranch *branchCh   = NULL; 
-   
-  Int_t iEventNr = 0; 
-  Int_t dignr = 10; // nr of digits of a integer
-  Int_t space = 1;  // additional char-space
-  
-  
-  evFile = new Char_t[2+space];
-  sprintf(evFile,"ev%d",iEventNr);
-
-  
-  while(f->cd(evFile)){
-    iEventNr = iEventNr + 1;
-    if (iEventNr/dignr > 0) {
-      dignr = dignr * 10;
-      space = space + 1;
-    }
-    delete [] evFile;
-    evFile = NULL;
-    evFile = new Char_t[2+space];
-    sprintf(evFile,"ev%d",iEventNr); 
-  }
-  
-  if(iEventNr == rawEvent) { fNextEvent = 1; } // new event
-   
-  if (fNextEvent == 1) {
-    fNextEvent = 0;
-    // turn to head directory
-    f->mkdir(evFile);
-    f->cd(evFile);
-    // create all subdirectories and trees in case of new event
-   
-     
-    for (Int_t iSector = 0; iSector < 18; iSector++) {
-  
-      if (iSector < 10) {
-       sprintf(SMName,"SM0%d",iSector);
-      }
-      else {
-       sprintf(SMName,"SM%d",iSector);
-      }
-
-      for (Int_t iStack = 0; iStack < 5; iStack++) {
-       sprintf(stackName,"s%d",iStack);
-       
-       f->cd(evFile);
-       if (iStack == 0) {
-         gDirectory->mkdir(SMName);
-       }
-       gDirectory->cd(SMName);
-       gDirectory->mkdir(stackName);
-       gDirectory->cd(stackName);
-       
-       for (Int_t iLayer = 0; iLayer < 6; iLayer++) {
-         sprintf(layerName,"l%d",iLayer);
-         sprintf(treeName,"%s",layerName);
-         sprintf(treeTitle,"%s%s%s",SMName,stackName,layerName);
-         tree = new TTree(treeName,treeTitle);
-         tree->Write("",TObject::kOverwrite);
-         delete tree;
-         tree = NULL;
-       }
-      }
-    }
-   
-    
-  }
-
-    
-  else {
-    iEventNr = iEventNr - 1;
-    dignr = dignr/10;
-    if (iEventNr/dignr == 0) space = space - 1;
-    delete [] evFile;
-    evFile = NULL;
-    evFile = new Char_t[2+space];
-    sprintf(evFile,"ev%d",iEventNr);    
-  }
-  
-  if (wordnr == 0) {
-    delete [] SMName;
-    delete [] stackName;
-    delete [] layerName;
-    delete [] treeName;
-    delete [] treeTitle;
-    delete [] branchNameWd;
-    delete [] branchNameCh;
-    delete [] evFile;
-    f->Close();
-    dirName   = new Char_t[6+space];
-    sprintf(dirName,"../raw%d",iEventNr);
-    gSystem->ChangeDirectory(dirName);
-    delete [] dirName;
-    return;
-  }
-  
-  dirName   = new Char_t[6+space];
-  sprintf(dirName,"../raw%d",iEventNr);
-  f->cd(evFile);
-  if (fSector < 10) {
-    sprintf(SMName,"SM0%d",fSector);
-  }
-  else {
-    sprintf(SMName,"SM%d",fSector);
-  }
-  sprintf(stackName,"s%d",fStack);
-  sprintf(layerName,"l%d",fLayer);
-  sprintf(treeName,"%s",layerName);
-  sprintf(treeTitle,"%s%s%s",SMName,stackName,layerName);
-  treeFile = new Char_t[13+space];
-  sprintf(treeFile,"%s/%s/%s/%s",evFile,SMName,stackName,treeName);
-  delete [] evFile;
-  evFile = NULL;
-  gDirectory->cd(SMName);
-  gDirectory->cd(stackName);
-  tree = (TTree*)f->Get(treeFile);
-  delete [] treeFile;
-  treeFile = NULL;
-
-
-  //make branch with number of words and fill
-
-  if (mcmNr < 10) {
-    sprintf(branchNameWd,"mcm00%dwd",mcmNr);
-    sprintf(branchNameCh,"mcm00%dch",mcmNr);
-  }
-  else {
-    if (mcmNr < 100) {
-      sprintf(branchNameWd,"mcm0%dwd",mcmNr); 
-      sprintf(branchNameCh,"mcm0%dch",mcmNr);
-    }
-    else {
-      sprintf(branchNameWd,"mcm%dwd",mcmNr); 
-      sprintf(branchNameCh,"mcm%dch",mcmNr);
-    }
-  }
+}
 
-      
-  
-  // fill the tracklet word; here wordnr > 0
-
-  trackletWord = new UInt_t[fMaxTracklets];
-  adcChannel   = new Int_t[fMaxTracklets];
-
-  for (Int_t j = 0; j < fMaxTracklets; j++) {
-      Int_t i = order[j];
-      trackletWord[j] = 0;
-      adcChannel[j] = -1;
-      if (bitWord[j]!=0) {
-         trackletWord[u] = bitWord[j];
-         adcChannel[u]   = mADC[i];   // mapping onto the original adc-array to be in line with the digits-adc-ordering (21 channels in total on 1 mcm, 18 belonging to pads); mADC[i] should be >-1 in case bitWord[i]>0
-         
-         //fMCMT[u] = bitWord[j];
-         u = u + 1;
-      }
-  }
-  
-  branch = tree->GetBranch(branchNameWd);
-  if(!branch) {
-    //make branch and fill
-    branch = tree->Branch(branchNameWd,trackletWord,"trackletWord[4]/i"); // 32 bit unsigned integer
-    branch->Fill();
-  }
+void AliTRDmcmSim::Sort6To2Worst(UShort_t  idx1i, UShort_t  idx2i, UShort_t  idx3i, UShort_t  idx4i, UShort_t  idx5i, UShort_t  idx6i, \
+                                    UShort_t  val1i, UShort_t  val2i, UShort_t  val3i, UShort_t  val4i, UShort_t  val5i, UShort_t  val6i, \
+                                    UShort_t *idx5o, UShort_t *idx6o)
+{
+  // sorting for tracklet selection
 
-  branchCh = tree->GetBranch(branchNameCh);
-  if(!branchCh) {
-    //make branch and fill
-    branchCh = tree->Branch(branchNameCh,adcChannel,"adcChannel[4]/i"); // 32 bit unsigned integer
-    branchCh->Fill();
-  }
+    UShort_t idx21s, idx22s, idx23s, dummy1, dummy2, dummy3, dummy4, dummy5;
+    UShort_t val21s, val22s, val23s;
+    UShort_t idx23as, idx23bs;
+    UShort_t val23as, val23bs;
 
-  tree->Write("",TObject::kOverwrite);
+    Sort3(idx1i, idx2i,   idx3i, val1i, val2i, val3i,
+                 &dummy1, &idx21s, &idx23as,
+                 &dummy2, &val21s, &val23as);
 
-  delete [] SMName;
-  delete [] stackName;
-  delete [] layerName;
-  delete [] treeName;
-  delete [] treeTitle;
-  delete [] branchNameWd;
-  delete [] branchNameCh;
-  delete [] trackletWord;
-  delete [] adcChannel;
-  
-  f->Close();
-  gSystem->ChangeDirectory(dirName);
-  delete [] dirName;
-  
-*/
+    Sort3(idx4i, idx5i, idx6i, val4i, val5i, val6i,
+                 &dummy1, &idx22s, &idx23bs,
+                 &dummy2, &val22s, &val23bs);
 
-  // to be done:
-  // error measure for quality of fit (not necessarily needed for the trigger)
-  // cluster quality threshold (not yet set)
-  // electron probability
-  
+    Sort2(idx23as, idx23bs, val23as, val23bs, &idx23s, idx5o, &val23s, &dummy1);
 
-   
+    Sort3(idx21s, idx22s, idx23s, val21s, val22s, val23s,
+                 &dummy1, &dummy2, idx6o,
+                 &dummy3, &dummy4, &dummy5);
+//    printf("idx21s=%d, idx23as=%d, idx22s=%d, idx23bs=%d, idx5o=%d, idx6o=%d\n",
+//            idx21s,    idx23as,    idx22s,    idx23bs,    *idx5o,    *idx6o);
 }
 
 
-
-
-
-