This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / 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