CalorimeterLevel2/src/millim.for

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
C-   DELLE AREE MORTE
C-
C-   Inputs  : NUMERO DI STRISCIA (INTERO)
C-   Outputs : VALORE IN mm (REALE)
C-   Controls:
C-
C-   Created   3-FEB-1994   MIRKO BOEZIO
C-   Modified  1-MAR-1994   MIRKO BOEZIO . SOSTITUITO IN MILLIM
C-   - AA / 2.              CON
C-   - 3.75 / 2.
C-   Modified  31-MAR-1994   MIRKO BOEZIO . AGGIUNTA IN LASTRISCIA LA RIGA :
C-   IF (IBAR.EQ.0) IBAR = 1
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)
      K2 = MOD(II,32) + 1
      RMM = FLOAT(K1) * ADIST + AAA + FLOAT(K2) * 2.44 - 2.44 / 2.
C

c  999 RETURN
      RETURN
      END

1	mocchiut	1.2	c SUBROUTINE MILLIM(LL,RMM)
2			INTEGER FUNCTION MILLIM(LL,RMM)
3	mocchiut	1.1	C----------------------------------------------------------------------
4			C-
5			C- Purpose and Methods : TRASFORMA IL NUMERO DI STRISCIA IN mm TENENDO CONTO
6			C- DELLE AREE MORTE
7			C-
8			C- Inputs : NUMERO DI STRISCIA (INTERO)
9			C- Outputs : VALORE IN mm (REALE)
10			C- Controls:
11			C-
12			C- Created 3-FEB-1994 MIRKO BOEZIO
13			C- Modified 1-MAR-1994 MIRKO BOEZIO . SOSTITUITO IN MILLIM
14			C- - AA / 2. CON
15			C- - 3.75 / 2.
16			C- Modified 31-MAR-1994 MIRKO BOEZIO . AGGIUNTA IN LASTRISCIA LA RIGA :
17			C- IF (IBAR.EQ.0) IBAR = 1
18			C-
19			C----------------------------------------------------------------------
20			INCLUDE 'INTEST.TXT'
21	mocchiut	1.2	REAL SHIFT, AAA, RMM
22			INTEGER LL,K1,K2
23	mocchiut	1.1	COMMON / SHIFT / SHIFT
24	mocchiut	1.2	SAVE / SHIFT /
25	mocchiut	1.1
26	mocchiut	1.3	MILLIM = 0
27
28	mocchiut	1.1	AAA = AA + SHIFT
29			II = LL - 1
30			K1 = INT(II / 32)
31			K2 = MOD(II,32) + 1
32			RMM = FLOAT(K1) * ADIST + AAA + FLOAT(K2) * 2.44 - 2.44 / 2.
33			C
34
35	mocchiut	1.4	c 999 RETURN
36			RETURN
37	mocchiut	1.1	END
38