1 #include "isajet/pilot.h"
3 C----------------------------------------------------------------------
5 C- Purpose and Methods :
6 C- Initialize PJSET starting from PJETS
8 C- Created 14-AUG-1991 Serban D. Protopopescu
10 C----------------------------------------------------------------------
11 #if defined(CERNLIB_IMPNONE)
14 #include "isajet/primar.inc"
15 #include "isajet/pjets.inc"
16 #include "isajet/jetset.inc"
18 C----------------------------------------------------------------------
22 JTYPE(NJSET)=IDJETS(I)
25 115 PJSET(K,NJSET)=PJETS(K,I)