From 055ed6e70738cf9e18e3f983c003a87eae1e4aaa Mon Sep 17 00:00:00 2001 From: Thomas Albers Raviola Date: Sun, 5 May 2024 23:31:27 +0200 Subject: * Change language to Common Lisp --- src/integral.f90 | 22 ---------------------- 1 file changed, 22 deletions(-) delete mode 100644 src/integral.f90 (limited to 'src/integral.f90') diff --git a/src/integral.f90 b/src/integral.f90 deleted file mode 100644 index 859d880..0000000 --- a/src/integral.f90 +++ /dev/null @@ -1,22 +0,0 @@ -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