/[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.3 by mocchiut, Fri Dec 12 16:18:21 2008 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)
Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.23