This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / 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