diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/functions.f90 | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/functions.f90 b/src/functions.f90 index b028c02..8f0b894 100644 --- a/src/functions.f90 +++ b/src/functions.f90 @@ -2,6 +2,13 @@ MODULE functions real(kind=8), private, parameter :: poly_coeffs(11) = & [-11.0, 15.6, -4.6, 22.5, 8.1, 5.1, -0.3, -8.0, 0.0, -9.9, 2.2] + + INTERFACE + FUNCTION analytical_integral(ibeg, iend) result(y) + real(kind=8), intent(in) :: ibeg, iend + real(kind=8) :: y + END FUNCTION analytical_integral + END INTERFACE CONTAINS |