More volume overlaps corrected
[u/mrichter/AliRoot.git] / ISAJET / code / ipjset.F
CommitLineData
0795afa3 1#include "isajet/pilot.h"
2 SUBROUTINE IPJSET
3C----------------------------------------------------------------------
4C-
5C- Purpose and Methods :
6C- Initialize PJSET starting from PJETS
7C-
8C- Created 14-AUG-1991 Serban D. Protopopescu
9C-
10C----------------------------------------------------------------------
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
18C----------------------------------------------------------------------
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
25115 PJSET(K,NJSET)=PJETS(K,I)
26 IFRAME(I)=1
27110 CONTINUE
28 999 RETURN
29 END