--- DarthVader/CalorimeterLevel2/src/calol2cm.for	2007/11/29 16:11:52	1.11
+++ DarthVader/CalorimeterLevel2/src/calol2cm.for	2014/01/16 15:29:09	1.14
@@ -73,12 +73,12 @@
       CALL VZERO(YY,NPLAV)      
       VARFIT(1) = 0.
       VARFIT(2) = 0.
-      NPFIT(1) = 0.
-      NPFIT(2) = 0.
+      NPFIT(1) = 0
+      NPFIT(2) = 0
       VARCFIT(1) = 0.
       VARCFIT(2) = 0.
-      NPCFIT(1) = 0.
-      NPCFIT(2) = 0.
+      NPCFIT(1) = 0
+      NPCFIT(2) = 0
       ELEN = 0.
       SELEN = 0.
       NSTRIP = 0.
@@ -247,7 +247,8 @@
 C     CALCULATE ELEN AND SELEN
 C
 c      ELEN =  40.82 * QTOT * 1.06 * 1E-4  
-      ELEN =  260. * QTOT   
+C      ELEN =  260. * QTOT   
+      ELEN =  QTOT / 260.   
       IF (ELEN.GT.0.) THEN
          SELEN = ELEN * (0.01183 + 0.121 / SQRT(ELEN))
       ELSE
@@ -256,9 +257,9 @@
 C
  9696 CONTINUE
 C
- 45   continue
+c 45   continue
 
- 50   continue
+c 50   continue
 
       return
       END