a question:about simulating a point source in free space

I had written a program about simulating a point source in free space
with Mur absorbing boundaries.but ,it is wrong.who does help me ?I thanks for all friends.itw program is fortran 90.this program written according to others.

sorry :(, long time no fortran programming, could you write it in MATLAB?
it is more simpler, straight forward and easier to undrestand. but if you can, and if you have time.
(if the code is FDTD, which i think it is, a friend of mine wrote a code for his master in matlab, i think with PBC and other BCs,i may ask him to give'em to me, i'll post if any req.)

marti