C**************************************************************    
C*                                                            *    
C*                 P R U D E D A T A                          *
C*                                                            *    
C**************************************************************    
C---             
C--- *********************************************************
C---
C---     COMMON BLOCK FOR PRUDE ANALYSES SUMMARIES
C---
C--- *********************************************************
C---

C---NUMBER OF PRUDE ANALYSES
       INTEGER NMXPRUDE
       PARAMETER (NMXPRUDE = 3)

C---INDIVIDUAL PRUDE ANALYSES SUMMARIES
       INTEGER PRUDESUM(200,NMXPRUDE)

C---NUMBER OF INCLUSIVE 16 BIT WORDS IN EACH SUMMARY AND TOTAL 
       INTEGER NPRUDESUM(NMXPRUDE),NPRUDETOT



C---PRUDE CCAL SUMMARY VARIABLES ( PCxx )
C---NUMBER OF COUNTERS: 1=TDC ON (OR BELOW TDC THRESHOLD); 2=TDC OFF
	INTEGER PCNC(2)

C---CCAL ENERGIES: 1 TOTAL ENERGY INCLUDING CRACK CORRECTIONS
C                  2 COUNTERS TDC ON
C                  3 COUNTERS TDC OFF
	REAL PCEN(3)

C---NUMBER OF ANALYSIS FINDS: 1=CLUSTERS; 2=PARTICLES; 3=RECOIL GAMMAS
	INTEGER PCNA(3)

C---CLUSTER INFORMATION: INTEGER                        REAL
C                        1= CONTRIBUTES TO PARTICLE #   1= THETA (RAD)
C                        2= BIT MASK OF CLUSTER         2= PHI (RAD)
C                                                       3= ENERGY (MEV)
C                                                       4= E CORRECTION (%)?
	INTEGER MAXPCC
	PARAMETER (MAXPCC = 32)
	INTEGER PCCI(2,MAXPCC)
	REAL PCCR(4,MAXPCC)

C---PARTICLE INFORMATION: INTEGER                REAL
C                         1= FIRST CLUSTER #     1= MOMENTUM P_X
C                         2= SECOND CLUSTER #    2= MOMENTUM P_Y
C                                                3= MOMENTUM P_Z
C                                                4= ENERGY
C                                                5= INVARIANT MASS
C                                                6= COS(OPENING ANGLE)
	INTEGER MAXPCP
	PARAMETER (MAXPCP = 16)
	INTEGER PCPI(2,MAXPCP)
	REAL PCPR(6,MAXPCP)


C---PRUDE PSINC SUMMARY VARIABLES ( PJxx )
C---NUMBER OF HITS 1= H1        5= H1*H2          8= H1*H2*CER
C                  2= HP        6= H1*HP          9= H1*HP*CER
C                  3= H2        7= H1*HP*H2      10= H1*HP*H2*CER
C                  4= CER
        INTEGER PJNH(10)

C---KINEMATICS AND INARIANT MASS    PJKM(I,J) 
C                        I: 1=MASS   2=ACOPL  3=AKIN   
C                        J: 1=MAX MEE   2=ASSOCITED WITH CER&HOD
        REAL PJKM(3,2)

C---ELECTRON INFO   PJEL(I,J)   I: 1= ENERGY, 2= THETA, 3= PHI;  J IS ELECTRON
        REAL PJEL(3,2)

C---ELECTRON ELEMENT ASSIGNMENT    PJEA(I,J)
C                     I: 1= H1, 2= HP, 3= HP, 4= CER;     J IS ELECTRON #
        INTEGER PJEA(4,2)

C---COMBINED ELECTRON WEIGHT
        REAL PJEW


	COMMON/PRUDETRIG/PRUDESUM,NPRUDESUM,NPRUDETOT

	COMMON/PCCALINT/PCNC,PCNA,PCCI,PCPI
	COMMON/PCCALREAL/PCEN,PCCR,PCPR

        COMMON/PJPSIINT/PJNH,PJEA
        COMMON/PJPSIREAL/PJKM,PJEL,PJEW