00001 C---------------------------------------------------------------------
00002 C GEN.INC Masses and center-fo-mass reference points
00003 C
00004 C 950720 Michael Kelsey -- Extracted from FCALC.F
00005 C 950722 Added parameters, CM and DCM arrays
00006 C---------------------------------------------------------------------
00007 INTEGER GEN_NCM, GEN_ND
00008 PARAMETER (GEN_NCM=9, GEN_ND=2)
00009
00010 DOUBLE PRECISION A, ALPS, ALAM
00011 DOUBLE PRECISION CM(GEN_NCM), DCM(GEN_ND)
00012 DOUBLE PRECISION MASS(4,2), MP, MS, MC
00013 COMMON /GEN/ MASS,MP,MS,MC,A,ALPS,ALAM,CM,DCM
