/[PAMELA software]/calo/ground/LEVEL2/src/crcalol2.for
ViewVC logotype

Diff of /calo/ground/LEVEL2/src/crcalol2.for

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

revision 1.1 by mocchiut, Mon Dec 5 16:13:54 2005 UTC revision 1.2 by mocchiut, Wed Dec 21 16:38:07 2005 UTC
# Line 89  C Line 89  C
89        PIANO(1) = 0.        PIANO(1) = 0.
90        DO I = 2, 22        DO I = 2, 22
91           IF ( MOD(I,2).EQ.0 ) THEN           IF ( MOD(I,2).EQ.0 ) THEN
92              PIANO(I) = PIANO(I-1) - 8.42              PIANO(I) = PIANO(I-1) - 8.09
93           ELSE           ELSE
94              PIANO(I) = PIANO(I-1) - 9.76              PIANO(I) = PIANO(I-1) - 10.09
95           ENDIF           ENDIF
96        ENDDO        ENDDO
97  C  C
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.23