tTh/Fortraneries
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fine tuning

Browse Source
This commit is contained in:
tTh
2023-02-15 17:41:17 +01:00
parent 87ff3d8815
commit 56ef22b4eb
5 changed files with 19 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
GravityField/realfield.f90
View File

@@ -82,7 +82,7 @@ subroutine create_some_planets(planets, coef, sx, sy)
!-
planets(foo)%posx = rand() * real(sx-1)
planets(foo)%posy = rand() * real(sy-1)
planets(foo)%mass = 7.12e6 + coef*foo
planets(foo)%mass = 7.12e6 + coef*foo*3
planets(foo)%heading = 2 * 3.141592654 * rand()
if (rand() .LT. 0.15) planets(foo)%speed = 3.14159
planets(foo)%serial = foo*2 + 120