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