C************************************************************** C* * C* K I N E M . C D E * C* * C************************************************************** C--- C--- Common block containing informations about kinematics input C--- and output. Very preliminary C--- CMASS charmonium mass C--- NPDEC # of daughter particles in which CMASS decays C--- XMASS mass of the daughter particles C--- XCNS some useful constants computed once per run C--- ELAB,PLAB Energy and Momentum value in Lab.frame C--- PCM CM momentum of the daughter particles (2-body) C--- BETACM,GAMCM Beta and gamma of the CM C--- ACOPL,DETHETA acoplanarity and Detheta for the 2-body decay C--- between LINES1 and LINES2. C--- COSCM Center of Mass Cosinus of the polar angle C--- IFKIN2B <0 if the # of lines is # 2 C--- 7/20/91 AC The maximum invariant mass is now calculated C--- and stored in a new common block with the indeces of the 2 C--- correspondins clusters: C--- XMAXIN maximum invariant mass combination C--- LNMAX1,LNMAX2 indeces of the 2 clusters forming XMAXIN C--- INTEGER NPDEC REAL CMASS,XMASS(10),XCNS(10),ELAB,PLAB,PCM,BETACM &, GAMCM REAL ACOPL,DETHETA,COSCM,XMINV INTEGER IFLKIN2B,LINES1,LINES2 C COMMON/SETKIN/NPDEC,CMASS,XMASS,XCNS,PLAB,ELAB,BETACM &, GAMCM COMMON/SETKIN2/PCM COMMON/KIN2OUT/ACOPL,DETHETA,COSCM,IFLKIN2B,LINES1,LINES2,XMINV C--- C--- Kinematical variables APHI and AKIN computed assuming J/Psi decay C--- at rest in the C. of M. system INTEGER IFLKINP,LNEL1,LNEL2 REAL AKIN,APHI,XMEE,ETOT COMMON/KIN2INC/AKIN,APHI,IFLKINP,LNEL1,LNEL2,XMEE,ETOT C--- C--- Maximum invariant mass C--- INTEGER LNMAX1,LNMAX2 REAL XMAXIN COMMON/MAXINV/XMAXIN,LNMAX1,LNMAX2 C==============================================================================