/[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.2 by mocchiut, Wed Nov 22 08:31:11 2006 UTC revision 1.4 by mocchiut, Tue Aug 4 14:01:20 2009 UTC
# Line 23  C--------------------------------------- Line 23  C---------------------------------------
23        COMMON / SHIFT / SHIFT        COMMON / SHIFT / SHIFT
24        SAVE / SHIFT /        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 30  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.2  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.23