This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / GEANT321 / ghrout / sverl2.F
CommitLineData
fe4da5cc 1*
2* $Id$
3*
4* $Log$
5* Revision 1.1.1.1 1995/10/24 10:21:13 cernlib
6* Geant
7*
8*
9#include "geant321/pilot.h"
10*CMZ : 3.21/02 29/03/94 15.41.40 by S.Giani
11*-- Author :
12 SUBROUTINE SVERL2(M,X)
13 DIMENSION U(2)
14 CALL GRNDM(U,2)
15 X=0.62666*LOG((1.+U(1))/(1.-U(1)))
16 IF(U(2).LT.0.5) X=-X
17 X=M+X*SQRT(M*1.)
18 RETURN
19 END