EXP POR TAYLOR (SUBPROGRAMA)

REAL FUNCTION EXP_PORTAYLOR(X,NF)
!LOCAIS DE MEMÓRIA
REAL X
INTEGER N,NF
!CÁLCULOS
EXP_PORTAYLOR = 0
DO N = 0,NF,1
    EXP_PORTAYLOR = EXP_PORTAYLOR + X**N/FATORIAL(N)
END DO
END FUNCTION