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/common.f90 | 5 ----- src/integral.f90 | 22 ---------------------- src/main.f90 | 7 ------- src/nbody.lisp | 1 + src/package.lisp | 3 +++ src/simulation.f90 | 4 ---- 6 files changed, 4 insertions(+), 38 deletions(-) delete mode 100644 src/common.f90 delete mode 100644 src/integral.f90 delete mode 100644 src/main.f90 create mode 100644 src/nbody.lisp create mode 100644 src/package.lisp delete mode 100644 src/simulation.f90 (limited to 'src') 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 -- cgit v1.2.3