Bugfix in AliPoints2Memory
[u/mrichter/AliRoot.git] / GEANT321 / fluka / beta.F
CommitLineData
fe4da5cc 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