[u/mrichter/AliRoot.git] / ISAJET / code / ipjset.F

#include "isajet/pilot.h"
      SUBROUTINE IPJSET
C----------------------------------------------------------------------
C-
C-   Purpose and Methods : 
C-       Initialize PJSET starting from PJETS
C-
C-   Created  14-AUG-1991   Serban D. Protopopescu
C-
C----------------------------------------------------------------------
#if defined(CERNLIB_IMPNONE)
      IMPLICIT NONE
#endif
#include "isajet/primar.inc"
#include "isajet/pjets.inc"
#include "isajet/jetset.inc"
      INTEGER I,K
C----------------------------------------------------------------------
      DO 110 I=1,NJET
        NJSET=NJSET+1
        JORIG(NJSET)=JPACK*I
        JTYPE(NJSET)=IDJETS(I)
        JDCAY(NJSET)=0
        DO 115 K=1,5
115     PJSET(K,NJSET)=PJETS(K,I)
        IFRAME(I)=1
110   CONTINUE
  999 RETURN
      END
Commit	Line	Data
0795afa3	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