5 SUBROUTINE ATTFLV(ID,IDQ,IDQQ)
8 IF(ABS(ID).LT.100) THEN
12 IF(ABS(IDQ).EQ.3) NSIGN=-1
22 C ********return ID of quark(IDQ) and anti-quark(IDQQ)
25 C Return LU ID for quarks and diquarks for proton(ID=2212)
26 C anti-proton(ID=-2212) and nuetron(ID=2112)
27 C LU ID for d=1,u=2, (ud)0=2101, (ud)1=2103,
28 C (dd)1=1103,(uu)1=2203.
29 C Use SU(6) weight proton=1/3d(uu)1 + 1/6u(ud)1 + 1/2u(ud)0
30 C nurtron=1/3u(dd)1 + 1/6d(ud)1 + 1/2d(ud)0
33 IF(ABS(ID).EQ.2112) IDQ=1
37 IF(X.GT.0.666667) GO TO 10
42 IF(ABS(ID).EQ.2112) THEN