add some defaults values

2022-11-29 20:31:45 +01:00
parent f16d6e6163
commit 0c43b4231c
1 changed files with 3 additions and 2 deletions
--- a/GravityField/realfield.f90
+++ b/GravityField/realfield.f90
@@ -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)