beta.f90

来自「本电子版分01.02.03与《Visual Fortran常用数值算法集》配套使」· F90 代码 · 共 7 行

FUNCTION beta(z,w)
REAL beta,w,z
!USES gammln
REAL gammln
beta=exp(gammln(z)+gammln(w)-gammln(z+w))
END FUNCTION beta