c_simpson_nonlin_sample Function

function c_simpson_nonlin_sample(f, x) result(sum)

Arguments

Type IntentOptional Attributes Name
complex(kind=8) :: f(:)
real(kind=8) :: x(size(f))

Return Value complex(kind=8)


Calls

proc~~c_simpson_nonlin_sample~~CallsGraph proc~c_simpson_nonlin_sample c_simpson_nonlin_sample d_simpson_nonlin_sample d_simpson_nonlin_sample proc~c_simpson_nonlin_sample->d_simpson_nonlin_sample dimag dimag proc~c_simpson_nonlin_sample->dimag

Source Code

function c_simpson_nonlin_sample(f,x) result(sum)
  complex(8) :: f(:)
  complex(8) :: sum
  real(8)    :: x(size(f)),rsum,isum
  rsum=d_simpson_nonlin_sample(dreal(f),x)
  isum=d_simpson_nonlin_sample(dimag(f),x)
  sum  = dcmplx(rsum,isum)
end function c_simpson_nonlin_sample