factorial Function

public pure recursive function factorial(n) result(res)

calculated factorial

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	n	integer number

Return Value real(kind=8)

result = n!