c_simpson_ab_sample Function

function c_simpson_ab_sample(f, a, b) result(sum)

Arguments

Type IntentOptional Attributes Name
complex(kind=8) :: f(:)
real(kind=8) :: a
real(kind=8) :: b

Return Value complex(kind=8)


Calls

proc~~c_simpson_ab_sample~~CallsGraph proc~c_simpson_ab_sample c_simpson_ab_sample c_simpson_dh_sample c_simpson_dh_sample proc~c_simpson_ab_sample->c_simpson_dh_sample

Source Code

function c_simpson_ab_sample(f,a,b) result(sum)
  complex(8) :: f(:)
  real(8)    :: dh,a,b
  complex(8) :: sum
  integer    :: L
  L=size(f)
  dh=(b-a)/dble(L-1)
  sum = c_simpson_dh_sample(f,dh)
end function c_simpson_ab_sample