- #1
Sue Parks
- 38
- 0
I understand that FORTRAN 90 has a built-it recursion function. How could I implement this function without using the built in recursion function?
Fortran:
PROGRAM RECURSIVE_FACT
IMPLICIT NONE
INTEGER, PARAMETER :: M = 100
DOUBLE PRECISION :: fact
INTEGER :: I
PRINT *, factorial (N)
CONTINUE
RECURSIVE FUNCTION Factorial(n) RESULT(Fact)
IMPLICIT NONE
INTEGER :: Fact
INTEGER, INTENT(IN) :: n
IF (n == 0) THEN
Fact = 1
ELSE
Fact = n * Factorial(n-1)
END IF
END FUNCTION Factorial
END PROGRAM RECURSIVE_FACT
Last edited by a moderator: