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	mocchiut	1.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