MODULE MODULE1

IMPLICIT NONE

CONTAINS

FUNCTION Add(k)

INTEGER :: i, Add

INTEGER, INTENT(IN) :: k

Add=0

DO i=1, k

Add=Add+i

END DO

END FUNCTION Add

FUNCTION Fact(k)

INTEGER :: i, Fact

INTEGER, INTENT(IN) :: k

Fact=1

DO i=1, k

Fact=Fact*i

END DO

END FUNCTION Fact

END MODULE MODULE1