Thanking you Prasad P Iyer PS. feel free to reply to ppiyer at outlook.com
Your code worked on my machine (Math. 8, Windows XP) without problems. The only thing that might be questionable, just check: the order of the last two parameters of the epsmodel in the definition of the function nfilm seam to be written in the reversed order. I think you did not intend that.