# Numerical integration of Hankel functions

I would like to know how to perform numeric integration for the following type of integrals in Mathematica.
For the following integrand, we can not get the symbolic result.

NIntegrate[ y * Integrate[ 1/x * HankelH1[1, k*x] * HankelH2[1, x/k], {x,1,y}],
{y, 1, 2}]


The aim of the integration is to find the real and imaginary parts of the result.

Your views and inputs are greatly appreciated.

-
p.s. where k = Exp[I*Pi/4] with "I" being the complex variable. – learner123 Nov 29 '13 at 11:15
Yes the integration needs to be done twice – learner123 Nov 29 '13 at 11:32
Can you try along the same direction as your other question 37931 ? – b.gatessucks Nov 29 '13 at 11:38
What's wrong with with a straightforward double integral, NIntegrate[y*1/x*HankelH1[1, k*x]*HankelH2[1, x/k], {y, 1, 2}, {x, 1, y}]? – Michael E2 Nov 29 '13 at 16:30

k = Exp[I Pi/4];