diff --git a/GravityField/realfield.f90 b/GravityField/realfield.f90
index eb33af7..27272a8 100644
--- 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)