/[PAMELA software]/DarthVader/CalorimeterLevel2/src/millim.for
ViewVC logotype

Diff of /DarthVader/CalorimeterLevel2/src/millim.for

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.1.1 by mocchiut, Fri May 19 13:15:51 2006 UTC revision 1.4 by mocchiut, Tue Aug 4 14:01:20 2009 UTC
# Line 1  Line 1 
1        SUBROUTINE MILLIM(LL,RMM)  c      SUBROUTINE MILLIM(LL,RMM)
2          INTEGER FUNCTION MILLIM(LL,RMM)
3  C----------------------------------------------------------------------  C----------------------------------------------------------------------
4  C-  C-
5  C-   Purpose and Methods : TRASFORMA IL NUMERO DI STRISCIA IN mm TENENDO CONTO  C-   Purpose and Methods : TRASFORMA IL NUMERO DI STRISCIA IN mm TENENDO CONTO
# Line 17  C-   IF (IBAR.EQ.0) IBAR = 1 Line 18  C-   IF (IBAR.EQ.0) IBAR = 1
18  C-  C-
19  C----------------------------------------------------------------------  C----------------------------------------------------------------------
20        INCLUDE 'INTEST.TXT'        INCLUDE 'INTEST.TXT'
21          REAL SHIFT, AAA, RMM
22          INTEGER LL,K1,K2
23        COMMON / SHIFT / SHIFT        COMMON / SHIFT / SHIFT
24          SAVE / SHIFT /
25    
26          MILLIM = 0
27          
28        AAA = AA + SHIFT        AAA = AA + SHIFT
29        II = LL - 1        II = LL - 1
30        K1 = INT(II / 32)        K1 = INT(II / 32)
# Line 27  C--------------------------------------- Line 32  C---------------------------------------
32        RMM = FLOAT(K1) * ADIST + AAA + FLOAT(K2) * 2.44 - 2.44 / 2.        RMM = FLOAT(K1) * ADIST + AAA + FLOAT(K2) * 2.44 - 2.44 / 2.
33  C  C
34    
35    999 RETURN  c  999 RETURN
36          RETURN
37        END        END
38    
Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.23