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

add some defaults values

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
real :: posx, posy
real :: mass
integer :: serial
real :: mass = 1.0
integer :: serial = 666
end type
!-----------------------------------------------------------------------
contains
!-----------------------------------------------------------------------
function compute_gravity(ix, iy, body)