GEANT321/fluka/beta.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:19:59  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 BETA.FOR
  13 *COPY BETA
  14 *
  15 *=== beta =============================================================*
  16 *
  17       FUNCTION BETA(X1,X2,BET)
  18
  19 #include "geant321/dblprc.inc"
  20 #include "geant321/dimpar.inc"
  21 #include "geant321/iounit.inc"
  22       AX=0.D0
  23       BETX1=BET*X1
  24       IF(BETX1.LT.70.D0) AX=-1.D0/BET**2*(BETX1+1.D0)*EXP(-BETX1)
  25       AY=1.D0/BET**2*(BET*X2+1.D0)*EXP(-BET*X2)
  26       BETA=AX+AY
  27       RETURN
  28       END