GEANT321/fluka/bkeka.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 BKEKA.FOR
  13 *COPY BKEKA
  14 *                                                                      *
  15 *=== bkeka ============================================================*
  16 *                                                                      *
  17       FUNCTION BKEKA(IT,TO,AMSS)
  18
  19 #include "geant321/dblprc.inc"
  20 #include "geant321/dimpar.inc"
  21 #include "geant321/iounit.inc"
  22 C*** NUCLEAR CASCADE NUCLEON EMISSION PARAMETERS
  23       DIMENSION A(2),B(2)
  24       SAVE A,B
  25       DATA A/0.11D0,0.1D0/
  26       DATA B/0.21D0,0.20D0/
  27       IF (TO-10.D0) 1,2,2
  28     1 CONTINUE
  29 C    ENERGYADJUST
  30       ENADJ=1.D0
  31       BKEKA=ENADJ*(1.D0-0.001D0*AMSS)*(A(IT)+0.01D0*TO)
  32       RETURN
  33     2 CONTINUE
  34       BKEKA=B(IT)*(1.D0-0.001D0*AMSS)
  35       RETURN
  36       END