diff options
| author | Wojtek Kosior <kwojtus@protonmail.com> | 2019-06-21 18:06:27 +0200 |
|---|---|---|
| committer | Wojtek Kosior <kwojtus@protonmail.com> | 2019-06-21 18:06:27 +0200 |
| commit | 47b2c4b6524a1eba6540ba48435e7b78ab68846e (patch) | |
| tree | b67cd304b9bcf78df52a2d2a94d98d0d82801354 | |
| parent | a71cf683b756e87bd8bcc2778fe45cc68d8c92e6 (diff) | |
| download | fortran-assignment3-47b2c4b6524a1eba6540ba48435e7b78ab68846e.tar.gz fortran-assignment3-47b2c4b6524a1eba6540ba48435e7b78ab68846e.zip | |
add interface of analytical integrate function
| -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 |