This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / GEANT321 / fluka / parjet.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1995/10/24 10:20:01  cernlib
6 * Geant
7 *
8 *
9 #include "geant321/pilot.h"
10 *CMZ :  3.21/02 29/03/94  15.41.44  by  S.Giani
11 *-- Author :
12 *$ CREATE PARJET.FOR
13 *COPY PARJET
14 *
15 *=== parjet ===========================================================*
16 *
17       SUBROUTINE PARJET(IHAD,I)
18  
19 #include "geant321/dblprc.inc"
20 #include "geant321/dimpar.inc"
21 #include "geant321/iounit.inc"
22 #include "geant321/finpar.inc"
23 #include "geant321/part.inc"
24 #include "geant321/inpdat2.inc"
25       IHAD=1
26       NREF(1)=I
27       PXF(1)=0.D0
28       PYF(1)=0.D0
29       PZF(1)=0.D0
30       HEP(1)=AM(I)
31       AMF(1)=AM(I)
32       ICHF(1)=ICH(I)
33       IBARF(1)=IBAR(I)
34       ANF(1)=ANAME(I)
35       RETURN
36       END