/[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.3 by mocchiut, Tue Aug 4 15:01:29 2009 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
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.23