ICODE-ADC/lammps
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix whitespace issues

Browse Source
This commit is contained in:
Axel Kohlmeyer
2020-01-13 22:47:06 -05:00
parent d3348371e1
commit 0a84106b23
4 changed files with 40 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/random_mars.cpp
View File

@ -120,7 +120,7 @@ double RanMars::gaussian()
------------------------------------------------------------------------- */
double RanMars::gaussian(double mu, double sigma)
{
{
double v1;
v1 = mu+sigma*gaussian();
return v1;
@ -133,7 +133,7 @@ double RanMars::gaussian(double mu, double sigma)
double RanMars::rayleigh(double sigma)
{
double first,v1;
if (sigma <= 0) error->all(FLERR,"Invalid Rayleigh parameter");
v1 = uniform();
@ -151,17 +151,17 @@ double RanMars::besselexp(double theta, double alpha, double cp)
if (theta < 0.0 || alpha < 0.0 || alpha < 1.0)
error->all(FLERR,"Invalid Bessel exponential distribution parameters");
v1 = uniform();
v2 = uniform();
if (cp < 0.0)
first = sqrt((1.0-alpha)*cp*cp - 2.0*alpha*theta*log(v1) +
2.0*sqrt(-2.0*theta*(1.0-alpha)*alpha*log(v1)) *
first = sqrt((1.0-alpha)*cp*cp - 2.0*alpha*theta*log(v1) +
2.0*sqrt(-2.0*theta*(1.0-alpha)*alpha*log(v1)) *
cos(2.0*MathConst::MY_PI*v2)*cp);
else
first = -sqrt((1.0-alpha)*cp*cp - 2.0*alpha*theta*log(v1) -
2.0*sqrt(-2.0*theta*(1.0-alpha)*alpha*log(v1)) *
first = -sqrt((1.0-alpha)*cp*cp - 2.0*alpha*theta*log(v1) -
2.0*sqrt(-2.0*theta*(1.0-alpha)*alpha*log(v1)) *
cos(2.0*MathConst::MY_PI*v2)*cp);
return first;