Programação de Computadores I - Recursão em Fortran 90

Senhores alunos:

Aos interessados em programação Fortran, segue programa que calcula o fatorial de um número usando uma função recursiva

Até a tarde.

-----------------------------------------------------------------------------------

PROGRAM MAIN
IMPLICIT NONE
INTEGER :: N
REAL :: F
PRINT *, 'N (N <= 34)?'
READ *,N
F=FATORIAL(N)
WRITE(*,' (I2,"!=",F40.0) ')N,F
CONTAINS
! Para projetar uma função recursiva em Fortran 90, se deve anexar a ! palavra RECURSIVE antes da palavra-chave FUNCTION. Além disso, na 
! linha de cabeçalho, após a lista de parâmetros,incluir
! a palavra-chave RESULT seguida, entre parênteses,pela
! variável interna que será usado para armazenar o valor de retorno.
    RECURSIVE REAL FUNCTION FATORIAL(N) RESULT(F)
        IMPLICIT NONE
        INTEGER, INTENT(IN) :: N
        IF (N<=1) THEN
            F = 1
        ELSE
            F = FATORIAL(N-1)*N
        END IF
    END FUNCTION FATORIAL

END PROGRAM MAIN