1 #include "isajet/pilot.h"
2 SUBROUTINE PRTLST(JTLIS,AMY,AMX)
4 C List defined particles. AMY, AMX are the masses of the
5 C fourth generation quarks. If a negative mass is given,
6 C then these are not listed.
7 C This must be linked with ISAJET, including ALDATA.
9 #if defined(CERNLIB_IMPNONE)
12 #include "isajet/qlmass.inc"
13 #include "isajet/wcon.inc"
16 INTEGER IFL1,IFL2,IFL3,JSPIN,INDEX,I,ID
17 REAL AM,CG,AMASS,CHARGE
20 C Initialize SUSY masses to 0. Remember offset of 1 from KL.
27 CALL FLAVOR(80,IFL1,IFL2,IFL3,JSPIN,INDEX)
29 CALL FLAVOR(90,IFL1,IFL2,IFL3,JSPIN,INDEX)
31 WRITE(JTLIS,101) AMY,AMX
37 CALL FLAVOR(ID,IFL1,IFL2,IFL3,JSPIN,INDEX)
38 IF(AMX.LT.0..OR.AMY.LT.0.) THEN
39 IF(IABS(IFL1).GT.6.OR.IABS(IFL2).GT.6.OR.IABS(IFL3).GT.6)
47 WRITE(JTLIS,102) ID,LB,AM,CG,IFL1,IFL2,IFL3,JSPIN,INDEX
51 CALL FLAVOR(ID,IFL1,IFL2,IFL3,JSPIN,INDEX)
58 WRITE(JTLIS,102) ID,LB,AM,CG,IFL1,IFL2,IFL3,JSPIN,INDEX
63 101 FORMAT(10X,'ISAJET PARTICLES, M(Y) =',F10.3,' M(X) =',F10.3//
64 1 5X,'ID',4X,'PARTICLE',8X,'MASS',4X,'CHARGE',
65 2 4X,'---FLAVOR---',4X,'SPIN',4X,'INDEX')
66 102 FORMAT(1X,I6,4X,A8,F12.6,F10.2,4X,3I4,I8,I9)