ISAJET/code/ipjset.F

   1 #include "isajet/pilot.h"
   2       SUBROUTINE IPJSET
   3 C----------------------------------------------------------------------
   4 C-
   5 C-   Purpose and Methods :
   6 C-       Initialize PJSET starting from PJETS
   7 C-
   8 C-   Created  14-AUG-1991   Serban D. Protopopescu
   9 C-
  10 C----------------------------------------------------------------------
  11 #if defined(CERNLIB_IMPNONE)
  12       IMPLICIT NONE
  13 #endif
  14 #include "isajet/primar.inc"
  15 #include "isajet/pjets.inc"
  16 #include "isajet/jetset.inc"
  17       INTEGER I,K
  18 C----------------------------------------------------------------------
  19       DO 110 I=1,NJET
  20         NJSET=NJSET+1
  21         JORIG(NJSET)=JPACK*I
  22         JTYPE(NJSET)=IDJETS(I)
  23         JDCAY(NJSET)=0
  24         DO 115 K=1,5
  25 115     PJSET(K,NJSET)=PJETS(K,I)
  26         IFRAME(I)=1
  27 110   CONTINUE
  28   999 RETURN
  29       END