diff options
| author | Thomas Albers Raviola <thomas@thomaslabs.org> | 2024-05-05 23:31:27 +0200 |
|---|---|---|
| committer | Thomas Albers Raviola <thomas@thomaslabs.org> | 2024-05-05 23:31:27 +0200 |
| commit | 055ed6e70738cf9e18e3f983c003a87eae1e4aaa (patch) | |
| tree | 1caf094e4749219ff15294c8da3faff0b3fb09e9 /src | |
| parent | 8e30cb8d4c1caffc2d877bec6975f1539fc193d3 (diff) | |
Diffstat (limited to 'src')
| -rw-r--r-- | src/common.f90 | 5 | ||||
| -rw-r--r-- | src/integral.f90 | 22 | ||||
| -rw-r--r-- | src/main.f90 | 7 | ||||
| -rw-r--r-- | src/nbody.lisp | 1 | ||||
| -rw-r--r-- | src/package.lisp | 3 | ||||
| -rw-r--r-- | src/simulation.f90 | 4 |
6 files changed, 4 insertions, 38 deletions
diff --git a/src/common.f90 b/src/common.f90 deleted file mode 100644 index 9bffb5f..0000000 --- a/src/common.f90 +++ /dev/null @@ -1,5 +0,0 @@ -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 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 diff --git a/src/main.f90 b/src/main.f90 deleted file mode 100644 index 4610008..0000000 --- a/src/main.f90 +++ /dev/null @@ -1,7 +0,0 @@ -program nbody - use common - use simulation - implicit none - - write (stdout, '(a)') 'Hello World!' -end program nbody diff --git a/src/nbody.lisp b/src/nbody.lisp new file mode 100644 index 0000000..20071b5 --- /dev/null +++ b/src/nbody.lisp @@ -0,0 +1 @@ +(in-package #:nbody) diff --git a/src/package.lisp b/src/package.lisp new file mode 100644 index 0000000..70a0737 --- /dev/null +++ b/src/package.lisp @@ -0,0 +1,3 @@ +(defpackage #:nbody + (:use #:cl) + (:export)) diff --git a/src/simulation.f90 b/src/simulation.f90 deleted file mode 100644 index bb5c408..0000000 --- a/src/simulation.f90 +++ /dev/null @@ -1,4 +0,0 @@ -module simulation - implicit none - -end module simulation |