From 8e30cb8d4c1caffc2d877bec6975f1539fc193d3 Mon Sep 17 00:00:00 2001
From: Thomas Albers Raviola <thomas@thomaslabs.org>
Date: Sun, 21 Apr 2024 21:51:54 +0200
Subject: * Initial commit

---
 src/integral.f90 | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 src/integral.f90

(limited to 'src/integral.f90')

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
-- 
cgit v1.2.3