/[PAMELA software]/calo/flight/CaloDoubleShower/src/getdblsh.for
ViewVC logotype

Diff of /calo/flight/CaloDoubleShower/src/getdblsh.for

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

revision 1.3 by mocchiut, Tue Aug 4 15:01:29 2009 UTC revision 1.4 by mocchiut, Thu Jan 23 11:23:45 2014 UTC
# Line 97  C Line 97  C
97         GOTO 50         GOTO 50
98        ENDIF        ENDIF
99  C  C
100        RIMP = ABS(1./AL_P(5))        RIMP = ABS(REAL(1./AL_P(5)))
101  C  C
102        DO M = 1,2        DO M = 1,2
103           DO I = 1,NPLA               DO I = 1,NPLA    
# Line 131  C     Line 131  C    
131              ENDIF              ENDIF
132  C      C    
133              IF (M.EQ.1) THEN              IF (M.EQ.1) THEN
134                 BAR(M,I) = XOUT(I)*10. + XALIG                 BAR(M,I) = REAL(XOUT(I))*10. + XALIG
135              ELSE              ELSE
136                 BAR(M,I) = YOUT(I)*10. + YALIG                                   BAR(M,I) = REAL(YOUT(I))*10. + YALIG                  
137              ENDIF              ENDIF
138  C  C
139              CALL LASTRISCIA(BAR(M,I),IBAR(M,I))              CALL LASTRISCIA(BAR(M,I),IBAR(M,I))
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.23