From 47b2c4b6524a1eba6540ba48435e7b78ab68846e Mon Sep 17 00:00:00 2001
From: Wojtek Kosior <kwojtus@protonmail.com>
Date: Fri, 21 Jun 2019 18:06:27 +0200
Subject: add interface of analytical integrate function

---
 src/functions.f90 | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'src')

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