minnalbe.f

fortran原代码,提供各种基本算法的程序.可移植性能很好.

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