factorial_int16 Function

public recursive function factorial_int16(x) result(x_fact)

Recursively compute the factorial of a 16-bit integer. The max value that can be passed is 7 If x is less than 0 or greater 7, the function will return 0

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=int16),	intent(in)			::	x	$0 \leq x \leq 7$

Return Value integer(kind=int16)

$x!$

Contents

None