%N factln %F $MIR/src/subs/hann.for
%D Find ln(n!)
%P nebk
%: factorial, utilities
%B
      real function factln (n)

      implicit none
      integer n

  Find ln(n!) with Gamma function.   
  Algorithm from Numerical Rbecipes, p 159

  Input:
    n      i     Input
