MODULE MODULE_SUM7

IMPLICIT NONE

CONTAINS

FUNCTION Sum7(n)

INTEGER :: Sum7, i

INTEGER, INTENT(IN) :: n

Sum7=0

DO i=1, n

IF (MOD(i,7)==0) THEN

Sum7=Sum7+i

END IF

END DO

END FUNCTION Sum7

END MODULE MODULE_SUM7