Usrmed.f for optical photons reflection

A post was split to a new topic: Surface normal for Lambertian diffusion