interaction mobile phone_head

Hi all,
please, any one can help me to simulate the dipole antenna by using FDTD method ( code written on Fortran or C/C++ language), to evaluate the specific absorption rate in the human spherical model(two layers).
if you have this code , on free space or in proximitty of the object, please to send it to me, on: samirtic(at)hotmail.fr
thank you very much, and good luck for all.