      subroutine minnalbe(par1,par2,
     s           brdfalb)
      real par1,par2,brdfalb
      brdfalb=2.*par2/(par1+1.)
      return
      end
