Автор: А.П.Сапожников

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

Программа 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.


  home up e-mail