blob: 859d880225a21fbde5e9a89940cf3b0269b86980 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
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
|