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

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

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

revision 2.1 by kusanagi, Fri Dec 3 22:08:10 2004 UTC revision 2.2 by kusanagi, Wed Dec 22 11:39:07 2004 UTC
# Line 10  C Line 10  C
10        INTEGER iev,iev2        INTEGER iev,iev2
11        INTEGER contr        INTEGER contr
12        integer stwerr(4),dumpo        integer stwerr(4),dumpo
13        integer cstwerr(4), pstwerr(4), IEV3        integer cstwerr(4), pstwerr(4), IEV3, merror(4)
14  C  C
15        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)
16        real calselftrig(4,7), calIItrig(4), calstripshit(4),        real calselftrig(4,7), calIItrig(4), calstripshit(4),
# Line 38  C Line 38  C
38    
39        save / calpul /        save / calpul /
40  c  c
41        COMMON / VARIE / dumpo, CONTR        COMMON / VARIE / dumpo, CONTR, merror
42        SAVE / VARIE /        SAVE / VARIE /
43  C  C
44        call azero(calped,4*11*96)        call azero(calped,4*11*96)
Legend:
Removed from v.2.1  
changed lines
  Added in v.2.2
  ViewVC Help
Powered by ViewVC 1.1.23