--- DarthVader/CalorimeterLevel2/src/millim.for	2006/05/19 13:15:51	1.1.1.1
+++ DarthVader/CalorimeterLevel2/src/millim.for	2008/12/12 16:18:21	1.3
@@ -1,4 +1,5 @@
-      SUBROUTINE MILLIM(LL,RMM)
+c      SUBROUTINE MILLIM(LL,RMM)
+      INTEGER FUNCTION MILLIM(LL,RMM)
 C----------------------------------------------------------------------
 C-
 C-   Purpose and Methods : TRASFORMA IL NUMERO DI STRISCIA IN mm TENENDO CONTO
@@ -17,9 +18,13 @@
 C-
 C----------------------------------------------------------------------
       INCLUDE 'INTEST.TXT'
-
+      REAL SHIFT, AAA, RMM
+      INTEGER LL,K1,K2
       COMMON / SHIFT / SHIFT
+      SAVE / SHIFT /
 
+      MILLIM = 0
+      
       AAA = AA + SHIFT
       II = LL - 1
       K1 = INT(II / 32)