Rflctv.f - Lambertian reflection

Hi Fluka experts, I like to define a diffuse reflector for optical photons, a diffusion reflector in which only the Lambertian reflection occurs, not a Specular lobe or Specular spike, can someone guide me on what modifications I need to make to the rflctv.f routine for this purpose? ?Thanks