Bugfix in AliPoints2Memory
[u/mrichter/AliRoot.git] / GEANT321 / fluka / hinhev.F
CommitLineData
fe4da5cc 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 HINHEV.FOR
13*COPY HINHEV
14*
15*=== hinhev ===========================================================*
16*
17 SUBROUTINE HINHEV ( N, PLAB, ELAB, ITTA )
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*
37 EPROJ = ELAB
38 PPROJ = PLAB
39 KPROJ = N
40 KTARG = ITTA
41 AMTAR = AM (KTARG)
42 UMO = SQRT ( ( EPROJ + AMTAR - PPROJ ) * ( EPROJ + AMTAR
43 & + PPROJ ) )
44 NHAD = 0
45 CALL HADEVV ( NHAD, KPROJ, KTARG, PPROJ, EPROJ, UMO )
46 IR = NHAD
47 DO 1000 I = 1, NHAD
48 ELR (I) = HEPH (I)
49 PLR (I) = SQRT ( ( HEPH (I) - AMH (I) ) * ( HEPH (I) + AMH (I)
50 & ) )
51 CXR (I) = PXH (I) / PLR (I)
52 CYR (I) = PYH (I) / PLR (I)
53 CZR (I) = PZH (I) / PLR (I)
54 ITR (I) = NREH (I)
55 1000 CONTINUE
56*=== End of subroutine hinhev =========================================*
57 RETURN
58 END