The integration of the function has been modified for functions with kinks - at each kink the integration is restarted.
Warning
Input is destroyed
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
u p
t o
\ ( r _ { c u t } \ )
o f
a n
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(inout), | dimension (*) | :: | f | ||
real(kind=dp), | intent(out) | :: | fint | |||
integer, | intent(in) | :: | ipan | |||
integer, | intent(in), | dimension (0:ipand) | :: | ircut | ||
real(kind=dp), | intent(in), | dimension (*) | :: | drdi |