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

  999 RETURN
      END

1	c SUBROUTINE MILLIM(LL,RMM)
2	INTEGER FUNCTION MILLIM(LL,RMM)
3	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	REAL SHIFT, AAA, RMM
22	INTEGER LL,K1,K2
23	COMMON / SHIFT / SHIFT
24	SAVE / SHIFT /
25
26	MILLIM = 0
27
28	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	999 RETURN
36	END
37