aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorWojtek Kosior <kwojtus@protonmail.com>2019-06-21 18:06:27 +0200
committerWojtek Kosior <kwojtus@protonmail.com>2019-06-21 18:06:27 +0200
commit47b2c4b6524a1eba6540ba48435e7b78ab68846e (patch)
treeb67cd304b9bcf78df52a2d2a94d98d0d82801354
parenta71cf683b756e87bd8bcc2778fe45cc68d8c92e6 (diff)
downloadfortran-assignment3-47b2c4b6524a1eba6540ba48435e7b78ab68846e.tar.gz
fortran-assignment3-47b2c4b6524a1eba6540ba48435e7b78ab68846e.zip
add interface of analytical integrate function
-rw-r--r--src/functions.f907
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