Bugfix in AliPoints2Memory
[u/mrichter/AliRoot.git] / GEANT321 / fluka / bnkeka.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 BNKEKA.FOR
13*COPY BNKEKA
14* *
15*=== bnkeka ===========================================================*
16* *
17 FUNCTION BNKEKA(IT,TO,AMSS,SQAMSS )
18
19#include "geant321/dblprc.inc"
20#include "geant321/dimpar.inc"
21#include "geant321/iounit.inc"
22C*** CASCADE PARAMETER CALCULATION
23 DIMENSION A(2),B(2),C(2),D(2)
24 SAVE A,B,C,D
25 DATA A/1.D0,1.3D0/
26 DATA B/.15D0,.225D0/
27 DATA C /1.35D0,2.28D0/
28 DATA D/.3D0,.4D0/
29 IF(TO-0.1D0) 1,1,2
30 1 CONTINUE
31 BNKEKA=SQAMSS*B(IT)*0.1D0
32 RETURN
33 2 CONTINUE
34 IF (TO-10.D0) 3,4,4
35 3 CONTINUE
36 BNKEKA=0.1D0*SQAMSS*(0.5D0+A(IT)*(1.D0+LOG10(TO))**2)*D(IT)
37 RETURN
38 4 CONTINUE
39 BNKEKA=SQAMSS*0.1D0*C(IT)
40 RETURN
41 END