[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / v / normco.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/04/01 15:02:54  mclareni
* Mathlib gen
*
*
#include "gen/pilot.h"
      SUBROUTINE NORMCO(A,B,UA,UB,SIGMAA,SIGMAB,RO)
      Y=RNDM(-1.)
      Z=RNDM(-1.)
      X=6.2831853*Z
      AA=SQRT(-2.*LOG(Y))
      A=UA+SIGMAA*AA*(SQRT(1.-RO**2)*COS(X)+RO*SIN(X))
      B=UB+SIGMAB*AA*SIN(X)
      RETURN
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1996/04/01 15:02:54 mclareni
	6	* Mathlib gen
	7	*
	8	*
	9	#include "gen/pilot.h"
	10	SUBROUTINE NORMCO(A,B,UA,UB,SIGMAA,SIGMAB,RO)
	11	Y=RNDM(-1.)
	12	Z=RNDM(-1.)
	13	X=6.2831853*Z
	14	AA=SQRT(-2.*LOG(Y))
	15	A=UA+SIGMAAAA(SQRT(1.-RO*2)COS(X)+RO*SIN(X))
	16	B=UB+SIGMABAASIN(X)
	17	RETURN
	18	END