/[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.2 by kusanagi, Mon Oct 18 13:01:32 2004 UTC revision 2.3 by kusanagi, Fri Dec 3 22:08:10 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.3 *  C     * Version: 3.0.0 *
 C  
 C     (see calunpack for changelog)  
5  C  C
6    C     0.00.0 - 3.0.0: (2004-11-08) changes in the commons (one more common for
7    C                     calpulse and from calstripshit to calstriphit).
8    C
9  C     - fixed compilation error  C     - fixed compilation error
10  C  C
11  C------------------------------------------------  C------------------------------------------------
# Line 46  C Line 47  C
47        REAL calped(4,11,96), calgood(4,11,96), calthr(4,11,6)        REAL calped(4,11,96), calgood(4,11,96), calthr(4,11,6)
48        REAL calrms(4,11,96), calbase(4,11,6), calvar(4,11,6)        REAL calrms(4,11,96), calbase(4,11,6), calvar(4,11,6)
49    
50        real calselftrig(4,7), calIItrig(4), calstripshit(4)        real calselftrig(4,7), calIItrig(4), calstriphit(4)
51        real calDSPtaberr(4), calevnum(4)        real calDSPtaberr(4), calevnum(4)
52        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)
53        real perror(4)        real perror(4), cperror(4)
54          real pperror(4)
55          integer pstwerr(4), IEV3
56          integer cstwerr(4)
57        integer stwerr(4), dump        integer stwerr(4), dump
58    
59        COMMON / evento / IEV, stwerr,perror,        COMMON / evento / IEV, stwerr,perror,
60       &     dexy,dexyc,base,       &     dexy,dexyc,base,
61       &     calselftrig,calIItrig,       &     calselftrig,calIItrig,
62       &     calstripshit,calDSPtaberr,calevnum       &     calstriphit,calDSPtaberr,calevnum
63                
64        save / evento /        save / evento /
65    
66        COMMON / calib / IEV2, calped, calgood, calthr, calrms,        COMMON / calib / IEV2, cstwerr, cperror,
67         &     calped, calgood, calthr, calrms,
68       &     calbase,       &     calbase,
69       &     calvar,       &     calvar
      &     calpuls  
70    
71        save / calib /        save / calib /
72    
73          COMMON / calpul / IEV3, pstwerr, pperror,
74         &     calpuls
75    
76          save / calpul /
77    
78    c
79    
80        COMMON /VARIE/ dump, CONTR        COMMON /VARIE/ dump, CONTR
81        SAVE /VARIE/        SAVE /VARIE/
82            
# Line 74  C         Line 85  C        
85  C Begin !  C Begin !
86  C  C
87        if (dump.eq.0) dump = -1        if (dump.eq.0) dump = -1
88        if (iev2.lt.0.or.iev2.gt.9000000) iev2 = 0        if (iev3.lt.0.or.iev3.gt.9000000) iev3 = 0
89        me = 0        me = 0
90        lleng = 0        lleng = 0
91        ic = 0        ic = 0
# Line 366  C Line 377  C
377              endif              endif
378              if (l.ne.contr) bi = 0              if (l.ne.contr) bi = 0
379              if (bi.eq.1) then              if (bi.eq.1) then
380                 stwerr(l) = ibset(stwerr(l),bit)                 pstwerr(l) = ibset(pstwerr(l),bit)
381              else              else
382                 stwerr(l) = ibclr(stwerr(l),bit)                 pstwerr(l) = ibclr(pstwerr(l),bit)
383              endif              endif
384           enddo           enddo
385           if (l.eq.contr) then           if (l.eq.contr) then
386              perror(l) = float(error(l))              pperror(l) = float(error(l))
387           else           else
388              perror(l) = 0.              pperror(l) = 0.
389           endif           endif
390        enddo        enddo
391  C  C
392        if (me.eq.0) iev2 = iev2 + 1        if (me.eq.0) iev3 = iev3 + 1
393        RETURN        RETURN
394        END        END
395    
Legend:
Removed from v.2.2  
changed lines
  Added in v.2.3
  ViewVC Help
Powered by ViewVC 1.1.23