* Initial commit

4 files changed, 38 insertions, 0 deletions

diff --git a/src/common.f90 b/src/common.f90
new file mode 100644
index 0000000..9bffb5f
--- /dev/null
+++ b/src/common.f90
@@ -0,0 +1,5 @@
+module common
+  use, intrinsic ::  iso_fortran_env, only : real64, stdout => output_unit
+  public
+  integer, parameter :: dp = 8
+end module common
diff --git a/src/integral.f90 b/src/integral.f90
new file mode 100644
index 0000000..859d880
--- /dev/null
+++ b/src/integral.f90
@@ -0,0 +1,22 @@
+module integral
+  use common, only : dp
+  implicit none
+
+  public
+
+  interface
+     real(dp) pure function ivp_func(t, y)
+       import :: dp
+       real(dp), intent(in) :: t, y
+     end function ivp_func
+     ! module procedure :: rk4
+  end interface
+contains
+  real(dp) function rk4 (x) result(y)
+    real(dp), intent(in) :: x
+    y = x
+  end function rk4
+
+  ! pure function rk4()
+  ! end function rk4
+end module integral
diff --git a/src/main.f90 b/src/main.f90
new file mode 100644
index 0000000..4610008
--- /dev/null
+++ b/src/main.f90
@@ -0,0 +1,7 @@
+program nbody
+  use common
+  use simulation
+  implicit none
+
+  write (stdout, '(a)') 'Hello World!'
+end program nbody
diff --git a/src/simulation.f90 b/src/simulation.f90
new file mode 100644
index 0000000..bb5c408
--- /dev/null
+++ b/src/simulation.f90
@@ -0,0 +1,4 @@
+module simulation
+  implicit none
+
+end module simulation