source: PSPA/parmelaPSPA/tags/v0.1/rannor.f @ 447

Last change on this file since 447 was 101, checked in by garnier, 12 years ago

premier tag
File size: 409 bytes
Line 
1c+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2      subroutine rannor(a,b)
3c---a,b are gaussian random numbers of mean 0 and variance 1
4c---uses random number generator supplied with parmela
5      include 'constcom.h'
6     
7      y = sandom(d)
8      z = sandom(d)
9      x = twopi*z
10      a1 = sqrt(-2.0*alog(y))
11      a = a1*sin(x)
12      b = a1*cos(x)
13      return
14      end
Note: See TracBrowser for help on using the repository browser.