/[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 1.8 by kusanagi, Fri Aug 20 15:01:46 2004 UTC revision 1.9 by kusanagi, Tue Aug 24 08:00:00 2004 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: 2.18.1 *  C     * Version: 2.18.2 *
5  C  C
6  C     (see calunpack for changelog)  C     (see calunpack for changelog)
7    C
8    C     - fixed compilation error
9    C
10  C------------------------------------------------  C------------------------------------------------
11        SUBROUTINE CALPULSE(vecta,lung,me)        SUBROUTINE CALPULSE(vecta,lung,me)
12  C------------------------------------------------  C------------------------------------------------
# Line 85  c Line 88  c
88        endif        endif
89  c  c
90        if (lunga.gt.60000.and.dump.gt.0) then        if (lunga.gt.60000.and.dump.gt.0) then
91           print *,'Calorimeter WARNING: more than 30000 words!'  c         print *,'Calorimeter WARNING: more than 30000 words!'
92           lunga = 60000           lunga = 60000
93        endif        endif
94  c  c
# Line 273  C               Line 276  C              
276       &        'Status word:',2X,Z4)       &        'Status word:',2X,Z4)
277   12      FORMAT(2X,'Error - did NOT find view:',2X,I1)   12      FORMAT(2X,'Error - did NOT find view:',2X,I1)
278   13      FORMAT(2X,'Error - eof reached, exiting')   13      FORMAT(2X,'Error - eof reached, exiting')
279     21      FORMAT(2X,'CRC: ',2X,Z8)
280  C  C
281           K = CONTR           K = CONTR
282           ic0 = icb           ic0 = icb
# Line 304  C Line 308  C
308              goto 200              goto 200
309           endif           endif
310    
311  c      if (iev2.eq.dump) write(*,21)vect(length)        if (iev2.eq.dump) write(*,21)vect(length)
312  c      if (iev2.eq.dump) write(*,21)check              if (iev2.eq.dump) write(*,21)check      
313  c  c
314  C  C
315  C Process data.  C Process data.
# Line 368  C Line 372  C
372        if (me.eq.0) iev2 = iev2 + 1        if (me.eq.0) iev2 = iev2 + 1
373        RETURN        RETURN
374        END        END
   
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.23