PROGRAM TSTJET
C
C     list jetset particle definitions
C
#include "pydat1.inc"
#include "stdlun.inc"

      INTEGER NEVT,I,NPRNT,LOK
C
      NEVT=100
      NPRNT=1
C initialize HEP logical units
      LNHWRT=23
      LNHRD=0
      LNHDCY=0
      LNHOUT=22
      MSTU(11)=LNHOUT
      OPEN(UNIT=LNHOUT,FILE='stdlistj.lpt',STATUS='NEW')
C
C... 
c     write(lnhout,1001)
c     call pylist(11)
c     write(lnhout,1002)
      call pylist(12)
c     write(lnhout,1003)
c     call pylist(13)
C
C
c...close output file
      CLOSE(UNIT=LNHOUT)
      STOP
 1001 format(' ----------------------- pylist(11) -------------------')
 1002 format(' ----------------------- pylist(12) -------------------')
 1003 format(' ----------------------- pylist(13) -------------------')
      END