--- DarthVader/CalorimeterLevel2/src/millim.for	2006/05/19 13:15:51	1.1
+++ DarthVader/CalorimeterLevel2/src/millim.for	2006/11/22 08:31:11	1.2
@@ -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,8 +18,10 @@
 C-
 C----------------------------------------------------------------------
       INCLUDE 'INTEST.TXT'
-
+      REAL SHIFT, AAA, RMM
+      INTEGER LL,K1,K2
       COMMON / SHIFT / SHIFT
+      SAVE / SHIFT /
 
       AAA = AA + SHIFT
       II = LL - 1