SUB FATORIAL (SENO POR SÉRIE DE TAYLOR)

REAL FUNCTION FATORIAL(N)
! Locais de memória
   INTEGER N
! Cálculos
FATORIAL = 1
    DO I = 2,N,1
    FATORIAL=FATORIAL*I
    END DO
END FUNCTION