This subroutine does an integration from istart
to iend
of the real
function f
with an extended 3-point-simpson
T h i s
s u b r o u t i n e
d o e s
a n
i n t e g r a t i o n
f r o m
i
s
t
a
r
t
t o
i
e
n
d
o f
t h e
r e a l
f u n c t i o n
f
w i t h
a n
e x t e n d e d
p o i n t - s i m p s o n
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=dp), | intent(in), | dimension(*) | :: | f |
Function to integrate |
|
real(kind=dp), | intent(out) | :: | fint |
Integrated function |
||
integer, | intent(in) | :: | istart | |||
integer, | intent(in) | :: | iend | |||
real(kind=dp), | intent(in), | dimension(*) | :: | drdi |
Derivative dr/di |