--- calo/flight/CaloPreSampler/src/CaloPreSampler.cpp	2009/02/24 09:18:05	1.12
+++ calo/flight/CaloPreSampler/src/CaloPreSampler.cpp	2009/07/27 13:58:58	1.13
@@ -42,6 +42,7 @@
   nox = false;
   noy = false;
   forcecalo = false;
+  forcefitmode = -1;
   memset(mask,0,2*22*sizeof(Int_t));
   //
   Clear();
@@ -153,6 +154,15 @@
   // Clear structures used to communicate with fortran
   //
   event->ClearStructs();//ELENA
+  if ( forcefitmode > 0 ){
+    if ( forcefitmode != 1000 && forcefitmode != 1001 && forcefitmode != 1002 ){
+      printf(" ERROR! forcefitmode=%i \n Use forcefitmode = 1000 for fit mode 0, 1001 fit mode 1, 1002 fit mode 3\n",forcefitmode);
+      forcefitmode = -1;
+    } else {
+      event->clevel2->fmode[0] = forcefitmode;
+      event->clevel2->fmode[1] = forcefitmode;
+    };
+  };
   //
   Bool_t newentry = false;
   //