%N bico %F $MIR/src/subs/hann.for
%D Find binomial coefficients
%P nebk
%: binomial, utilities
%B
      subroutine bico (n, k, c)

      implicit none
      integer n, k
      real c

  Compute binomial coefficent. 
  Algorithm from Numerical Recipes, p 158

         /  
         | n |       n!
         |   |  = --------
         |   |     k!(n-k)!
         | k |   
           /

  Input:
    n,k     i     Binomial arguments
  Output:
    c       r     Result
