GEANT321/fluka/hevhin.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:19:57  cernlib
   6 * Geant
   7 *
   8 *
   9 #include "geant321/pilot.h"
  10 *CMZ :  3.21/02 29/03/94  15.41.43  by  S.Giani
  11 *-- Author :
  12 *$ CREATE HEVHIN.FOR
  13 *COPY HEVHIN
  14 *
  15 *=== hevhin ===========================================================*
  16 *
  17       SUBROUTINE HEVHIN ( NHAD, KPROJ, KTARG, PPROJ, EPROJ, UMO )
  18
  19 #include "geant321/dblprc.inc"
  20 #include "geant321/dimpar.inc"
  21 #include "geant321/iounit.inc"
  22 *
  23 *----------------------------------------------------------------------*
  24 *                                                                      *
  25 *     Created on 01 october 1991   by    Alfredo Ferrari & Paola Sala  *
  26 *                                                   Infn - Milan       *
  27 *                                                                      *
  28 *     Last change on 01-oct-91     by    Alfredo Ferrari               *
  29 *                                                                      *
  30 *                                                                      *
  31 *----------------------------------------------------------------------*
  32 *
  33 #include "geant321/finlsp.inc"
  34 #include "geant321/hadpar.inc"
  35 #include "geant321/part.inc"
  36       PARAMETER ( CXDUM = 0.D+00 )
  37       PARAMETER ( CYDUM = 0.D+00 )
  38       PARAMETER ( CZDUM = 1.D+00 )
  39 *
  40       ELAB = EPROJ
  41       PLAB = PPROJ
  42       N    = KPROJ
  43       ITTA = KTARG
  44       CALL HADRIV ( N, PLAB, ELAB, CXDUM, CYDUM, CZDUM, ITTA )
  45       NHAD = IR
  46       DO 1000 I = 1, IR
  47          HEPH (I) = ELR (I)
  48          PXH  (I) = PLR (I) * CXR (I)
  49          PYH  (I) = PLR (I) * CYR (I)
  50          PZH  (I) = PLR (I) * CZR (I)
  51          NREH (I) = ITR (I)
  52          ICHH (I) = ICH  (NREH(I))
  53          IBARH(I) = IBAR (NREH(I))
  54          AMH  (I) = AM   (NREH(I))
  55          ANH  (I) = ANAME(NREH(I))
  56  1000 CONTINUE
  57 *=== End of subroutine Hevhin =========================================*
  58       RETURN
  59       END