JGonzalez/fpakc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Some progress

Browse source 
Fixed an issue with random integer numbers.
Cylindrical coordinates are not perfect yet:
  - Box (cylinder) with initial constant density loses particles at r =
    0
  - Injection density still low in r = 0
This commit is contained in:
Jorge Gonzalez 2024-07-06 19:14:44 +02:00
commit 626e970d82
5 changed files with 31 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/modules/common/moduleRandom.f90
View file

@ -43,7 +43,7 @@ MODULE moduleRandom
rnd = 0
CALL RANDOM_NUMBER(rnd01)
rnd = NINT(REAL(b - a) * rnd01) + a
rnd = a + FLOOR((b+1-a)*rnd01)
END FUNCTION randomIntAB