/[PAMELA software]/yoda/techmodel/forroutines/calorimeter/calpulse.for
ViewVC logotype

Diff of /yoda/techmodel/forroutines/calorimeter/calpulse.for

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

revision 2.5 by kusanagi, Wed Dec 22 11:39:07 2004 UTC revision 2.6 by kusanagi, Thu Feb 24 08:58:15 2005 UTC
# Line 1  Line 1 
1  C  C
2  C  Written by Mirko Boezio and Emiliano Mocchiutti  C  Written by Mirko Boezio and Emiliano Mocchiutti
3  C  C
4  C     * Version: 3.1.2 *  C     * Version: 3.1.3 *
5    C
6    C     3.1.2 - 3.1.3: (2005-02-23) added some printout in debugging mode.
7  C  C
8  C     3.1.1 - 3.1.2: (2004-12-21) changed common varie.  C     3.1.1 - 3.1.2: (2004-12-21) changed common varie.
9  C  C
# Line 152  c     if so go out of this loop and go o Line 154  c     if so go out of this loop and go o
154              ke = 1              ke = 1
155              m = ic              m = ic
156              contr = 1              contr = 1
157                if (iev.eq.dump) then
158                   print *,'1m,lunga,lleng,lung,pari',m,lunga,lleng,lung,
159         &              pari
160                endif
161              call fillin(m,lunga,lleng,lung,pari,vect,vecta)              call fillin(m,lunga,lleng,lung,pari,vect,vecta)
162              icb = 1              icb = 1
163              E2(contr) = vect(icb)              E2(contr) = vect(icb)
Legend:
Removed from v.2.5  
changed lines
  Added in v.2.6
  ViewVC Help
Powered by ViewVC 1.1.23