& KC.EQ.18) GOTO 110
IF(MSTU(41).GE.3.AND.KCHG(KC,2).EQ.0.AND.PYCHGE(K(I,2)).EQ.0)
& GOTO 110
+
ENDIF
NP=NP+1
PT=SQRT(P(I,1)**2+P(I,2)**2)
RETURN
END
-
- SUBROUTINE PYPTFS(MODE,PTMAX,PTMIN,PTGEN)
-C DUMMY
-C common /pyqpar/ T0u,tau0u,nfu,ienglu,ianglu
-C common /parimp/ b1,psib1,rb1,rb2,noquen
- RETURN
- END