CalorimeterLevel2/src/millim.for

      SUBROUTINE 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'

      COMMON / SHIFT / SHIFT

      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

  999 RETURN
      END

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