SAVE /PYJETS/,/PYDAT1/,/PYDAT2/,/PYDAT3/,/PYINT4/
C...Local array.
DIMENSION PS(2,6),IJOIN(100)
- write(6,*) "<-PYEXEC", MDCY(PYCOMP(310), 1), MSTJ(22)
C...Initialize and reset.
MSTU(24)=0
IF(MSTU(12).GE.1) CALL PYLIST(0)
RETURN
END
-
- SUBROUTINE PYPTFS(MODE,PTMAX,PTMIN,PTGEN)
-C DUMMY
- RETURN
- END