EVENS.F95

	PROGRAM EVENS
!
! Purpose: To demonstrate the use of a DO loop.
!
	IMPLICIT NONE
	INTEGER::N		! Integer input variable
	INTEGER::I		! DO loop variable
!
	WRITE(*,*)'Enter an integer'
	READ(*,*)N
	DO I=2,2*N,2		! Start of DO loop
	   WRITE(*,*)I
	END DO 			! End of DO loop
	STOP
	END PROGRAM EVENS