1 IMPLICIT REAL*8 (A-
H, O-Z)
3C.... COMMONBALOCKS FOR MODE
6 REAL*8 USER_XX(1000),
USER_YY(1000),
XX(1000),YY(1000)
***************************************************************************************Pseudo Class RRes *****************************************************************************************Parameters and physical constants **Maarten sept ************************************************************************DOUBLE PRECISION xsmu **************************************************************************PARTICLE DATA all others are from PDG *Only resonances with known widths into electron pairs are sept ************************************************************************C Declarations C
IMPLICIT REAL *A O Z IMPLICIT USER_YY(1000)
IMPLICIT REAL *A O Z IMPLICIT INTEGER(I-N) C.... COMMONBALOCKS FOR MODE COMMON/MODEXS/ICH common/bornXS/xborn REAL *8 USER_XX(1000)
IMPLICIT REAL *A O Z IMPLICIT XX(1000)