Язык: Фортран

---

Программа Real*8 function Clebsch2(k,n) вычисляет коэффициент

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

Программа свободна от типичных при вычислении факториалов "в лоб" случаев переполнения при умножении. Программа является коллективной операцией пакета MPI и прямым потомком операции MPI_AllReduce.

Подробнее:

А.П.Сапожников. Программа для вычисления простейшей формы коэффициентов Клебша-Гордана. Параллельная версия. Scientific report 2010-2011, LIT JINR, Изд: JINR, Dubna, 2011, c.260-261.

Архив программы с подробным описанием.

---