forroutines/calorimeter/clearall.for

C-----------------------------------------------------
      SUBROUTINE CLEARALL
C-----------------------------------------------------

      IMPLICIT NONE
C
      INTEGER NPLA, NCHA, LENSEV
      PARAMETER (NPLA=22,NCHA=96,LENSEV=NPLA*NCHA)
C
      INTEGER iev,iev2
      INTEGER contr
      integer stwerr(4),dumpo
      integer cstwerr(4), pstwerr(4), IEV3, merror(4)
C
      REAL DEXY(2,NPLA,NCHA), dexyc(2,npla,ncha), base(2,npla,6) 
      real calselftrig(4,7), calIItrig(4), calstripshit(4),
     &     calDSPtaberr(4), calevnum(4)
      REAL calped(4,11,96), calgood(4,11,96), calthr(4,11,6)
      REAL calrms(4,11,96), calbase(4,11,6), calvar(4,11,6)
      REAL calpuls(4,11,96)
      real perror(4), cperror(4), pperror(4)
C
      COMMON / evento / IEV, stwerr,perror,
     &     dexy,dexyc,base,
     &     calselftrig,calIItrig,
     &     calstripshit,calDSPtaberr,calevnum
      
      save / evento /

      COMMON / calib / IEV2, cstwerr, cperror,
     &     calped, calgood, calthr, calrms, 
     &     calbase, calvar

      save / calib /

      COMMON / calpul / IEV3, pstwerr, pperror,
     &     calpuls

      save / calpul /
c
      COMMON / VARIE / dumpo, CONTR, merror
      SAVE / VARIE /
C
      call azero(calped,4*11*96)
      call azero(calgood,4*11*96)
      call azero(calthr,4*11*6)
      call azero(calrms,4*11*96)
      call azero(calbase,4*11*6)
      call azero(calvar,4*11*6)
      call azero(calpuls,4*11*96)
      call azero(dexy,4*11*96)
      call azero(dexyc,4*11*96)
      call azero(base,4*11*6)
      call azero(calselftrig,4*7)
      call azero(calIItrig,4)
      call azero(calstripshit,4)
      call azero(calDSPtaberr,4)
      call azero(calevnum,4)
c
      return 
      end
1	kusanagi	2.1	C-----------------------------------------------------
2			SUBROUTINE CLEARALL
3			C-----------------------------------------------------
4
5			IMPLICIT NONE
6			C
7			INTEGER NPLA, NCHA, LENSEV
8			PARAMETER (NPLA=22,NCHA=96,LENSEV=NPLA*NCHA)
9			C
10			INTEGER iev,iev2
11			INTEGER contr
12			integer stwerr(4),dumpo
13	kusanagi	2.2	integer cstwerr(4), pstwerr(4), IEV3, merror(4)
14	kusanagi	2.1	C
15			REAL DEXY(2,NPLA,NCHA), dexyc(2,npla,ncha), base(2,npla,6)
16			real calselftrig(4,7), calIItrig(4), calstripshit(4),
17			& calDSPtaberr(4), calevnum(4)
18			REAL calped(4,11,96), calgood(4,11,96), calthr(4,11,6)
19			REAL calrms(4,11,96), calbase(4,11,6), calvar(4,11,6)
20			REAL calpuls(4,11,96)
21			real perror(4), cperror(4), pperror(4)
22			C
23			COMMON / evento / IEV, stwerr,perror,
24			& dexy,dexyc,base,
25			& calselftrig,calIItrig,
26			& calstripshit,calDSPtaberr,calevnum
27
28			save / evento /
29
30			COMMON / calib / IEV2, cstwerr, cperror,
31			& calped, calgood, calthr, calrms,
32			& calbase, calvar
33
34			save / calib /
35
36			COMMON / calpul / IEV3, pstwerr, pperror,
37			& calpuls
38
39			save / calpul /
40			c
41	kusanagi	2.2	COMMON / VARIE / dumpo, CONTR, merror
42	kusanagi	2.1	SAVE / VARIE /
43			C
44			call azero(calped,41196)
45			call azero(calgood,41196)
46			call azero(calthr,4116)
47			call azero(calrms,41196)
48			call azero(calbase,4116)
49			call azero(calvar,4116)
50			call azero(calpuls,41196)
51			call azero(dexy,41196)
52			call azero(dexyc,41196)
53			call azero(base,4116)
54			call azero(calselftrig,4*7)
55			call azero(calIItrig,4)
56			call azero(calstripshit,4)
57			call azero(calDSPtaberr,4)
58			call azero(calevnum,4)
59			c
60			return
61			end