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

add some defaults values

Browse Source
This commit is contained in:
tTh 2022-11-29 20:31:45 +01:00
parent f16d6e6163
commit 0c43b4231c
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
GravityField/realfield.f90
View File

@ -9,12 +9,13 @@ module realfield
type massbody type massbody
real :: posx, posy real :: posx, posy
real :: mass real :: mass = 1.0
integer :: serial integer :: serial = 666
end type end type
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
contains contains
!-----------------------------------------------------------------------
function compute_gravity(ix, iy, body) function compute_gravity(ix, iy, body)