/[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.2 by mocchiut, Tue Aug 4 13:59:10 2009 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        integer getdblsh  c      integer getdblsh
38  C  C
39        COMMON /SDOUBLE/ POS,ANGOL,DBLSQ,DBLS        COMMON /SDOUBLE/ POS,ANGOL,DBLSQ,DBLS
40        SAVE /SDOUBLE/        SAVE /SDOUBLE/
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.23