Bugfix in AliPoints2Memory
[u/mrichter/AliRoot.git] / GEANT321 / fluka / bnkeka.F
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"
22 C*** 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