/[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.7 by kusanagi, Thu Aug 19 15:24:48 2004 UTC revision 1.8 by kusanagi, Fri Aug 20 15:01:46 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.17 *  C     * Version: 2.18.1 *
5  C  C
6    C     (see calunpack for changelog)
7  C------------------------------------------------  C------------------------------------------------
8        SUBROUTINE CALPULSE(vecta,lung,me)        SUBROUTINE CALPULSE(vecta,lung,me)
9  C------------------------------------------------  C------------------------------------------------
# Line 17  C Line 18  C
18        INTEGER NPLA, NCHA, LENSEV        INTEGER NPLA, NCHA, LENSEV
19        PARAMETER (NPLA=22,NCHA=96,LENSEV=NPLA*NCHA)        PARAMETER (NPLA=22,NCHA=96,LENSEV=NPLA*NCHA)
20  C  C
21        INTEGER*2 VECT(30000)        INTEGER*2 VECT(60000)
22        INTEGER*1 VECTA(lung)        INTEGER*1 VECTA(lung)
23  C  C
24        integer*2 check, crc,e2(4)        integer*2 check, crc,e2(4)
# Line 46  C Line 47  C
47        real calDSPtaberr(4), calevnum(4)        real calDSPtaberr(4), calevnum(4)
48        REAL DEXY(2,NPLA,NCHA), dexyc(2,npla,ncha), base(2,npla,6)        REAL DEXY(2,NPLA,NCHA), dexyc(2,npla,ncha), base(2,npla,6)
49        real perror(4)        real perror(4)
50        integer stwerr(4)        integer stwerr(4), dump
51    
52        COMMON / evento / IEV, stwerr,perror,        COMMON / evento / IEV, stwerr,perror,
53       &     dexy,dexyc,base,       &     dexy,dexyc,base,
# Line 62  C Line 63  C
63    
64        save / calib /        save / calib /
65    
66        COMMON /VARIE/ error, CONTR, e2        COMMON /VARIE/ error, CONTR, e2, dump
67        SAVE /VARIE/        SAVE /VARIE/
68            
69    
70  C          C        
71  C Begin !  C Begin !
72  C  C
73          if (dump.eq.0) dump = -1
74        if (iev2.lt.0.or.iev2.gt.9000000) iev2 = 0        if (iev2.lt.0.or.iev2.gt.9000000) iev2 = 0
75        me = 0        me = 0
76        lleng = 0        lleng = 0
# Line 82  c Line 84  c
84           lunga = int(lung/2) + 1           lunga = int(lung/2) + 1
85        endif        endif
86  c  c
87        if (lunga.gt.30000) then        if (lunga.gt.60000.and.dump.gt.0) then
88  c         print *,'Calorimeter WARNING: more than 30000 words!'           print *,'Calorimeter WARNING: more than 30000 words!'
89           lunga = 30000           lunga = 60000
90        endif        endif
91  c  c
92        length = ic        length = ic
# Line 301  C Line 303  C
303              me = 1              me = 1
304              goto 200              goto 200
305           endif           endif
306    
307    c      if (iev2.eq.dump) write(*,21)vect(length)
308    c      if (iev2.eq.dump) write(*,21)check      
309    c
310  C  C
311  C Process data.  C Process data.
312  C  C
# Line 363  C Line 369  C
369        RETURN        RETURN
370        END        END
371    
   
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.23