/[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.1 by mocchiut, Fri Aug 10 12:23:35 2007 UTC revision 1.4 by mocchiut, Thu Jan 23 11:23:45 2014 UTC
# Line 34  C Line 34  C
34        INTEGER IBAR(2,NPLAV)        INTEGER IBAR(2,NPLAV)
35        INTEGER I,J,M,IFAIL,NN        INTEGER I,J,M,IFAIL,NN
36        INTEGER INDIC        INTEGER INDIC
37    c      integer getdblsh
38  C  C
39        COMMON /SDOUBLE/ POS,ANGOL,DBLSQ,DBLS        COMMON /SDOUBLE/ POS,ANGOL,DBLSQ,DBLS
40        SAVE /SDOUBLE/        SAVE /SDOUBLE/
# Line 47  C Line 48  C
48  C          C        
49  C Begin !  C Begin !
50  C      C    
51          getdblsh = 0
52        PIANO(1) = 0.        PIANO(1) = 0.
53        DO I = 2, NPLA        DO I = 2, NPLA
54           IF ( MOD(I,2).EQ.0 ) THEN           IF ( MOD(I,2).EQ.0 ) THEN
# Line 95  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 129  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.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.23