]> git.uio.no Git - u/mrichter/AliRoot.git/blame - GEANT321/fluka/beexi.F
git://git.uio.no / u / mrichter / AliRoot.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
CdEventFile() method added.
[u/mrichter/AliRoot.git] / GEANT321 / fluka / beexi.F
CommitLineData
fe4da5cc 1*
2* $Id$
3*
4* $Log$
5* Revision 1.1.1.1 1995/10/24 10:20:03 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 BEEXI.FOR
13*COPY BEEXI
14* *
15*=== beexi ============================================================*
16* *
17 FUNCTION BEEXI(IJ,E,A)
18
19#include "geant321/dblprc.inc"
20#include "geant321/dimpar.inc"
21#include "geant321/iounit.inc"
22C-----------------------------------------------
23C NUCLEAR EXCITATION ENERGY INCLUDING ALL LOW ENERGY SECONDARIES IN
24C COLLISIONS OF PARTICLE IJ OF ENERGY E GEV ON NUCLEI A
25C-----------------------------------------------
26 IF (E.LE.0.125D0) GO TO 20
27 B=SQRT(A)/9.D0-.2D0
28 IF (B.GT.A*0.01D0) B=A*0.01D0
29 IF (E.GE.3.D0) GO TO 10
30 IF (B.LT.0.125D0) B=0.125D0
31 BEEXI=0.125D0+(E-0.125D0)*(B-0.125D0)/2.875D0
32 RETURN
33 10 CONTINUE
34 BEEXI=B
35 RETURN
36 20 CONTINUE
37 BEEXI=E
38 RETURN
39 END