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