From 0c43b4231cf8cacfad3231fa13aa2ae53c360ff9 Mon Sep 17 00:00:00 2001 From: tTh Date: Tue, 29 Nov 2022 20:31:45 +0100 Subject: [PATCH] add some defaults values --- GravityField/realfield.f90 | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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)