Author: A.P.Sapozhnikov

Language: Fortran


Real*8 function Clebsch2(k,n) calculates coefficient

C(k,n) = k! * (n-k)! / n!   

Function is free upon typical overflow errors while direct calculation of factorials. Being a descendant of MPI_AllReduce operation, function is a typical collective job for known MPI-package. It may be effectively used in parallel MPI applications.

Sources and detailed description of Clebsch2 are submitted.



  home up e-mail