jianmu
/
lammps
forked from lijiext/lammps
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

git-svn-id: svn://svn.icms.temple.edu/lammps-ro/trunk@998 f3b2605a-c512-4ea7-a41b-209d697bcdaa

This commit is contained in:
sjplimp 2007-10-09 23:46:58 +00:00
parent 2c33ed2d63
commit 4fdb3616b0
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/random_mars.cpp
View File

@ -25,10 +25,11 @@ RanMars::RanMars(LAMMPS *lmp, int seed) : Pointers(lmp)
{
int ij,kl,i,j,k,l,ii,jj,m;
double s,t;
if (seed == 0) error->all("Marsaglia RNG cannot use 0 seed");
save = 0;
if (seed <= 0 || seed > 900000000)
error->all("Invalid seed for Marsaglia random # generator");
save = 0;
u = new double[97+1];
ij = (seed-1)/30082;