PROGRAM doloop

    N=0
    DO 210 I=1,10
        J=I
        DO 200 K=5,1
            L=K
            N=N+1
200         CONTINUE
210         CONTINUE
            WRITE(*,*) 'I =',I,', J =',J,', K =',K,', N =',N,', L =',L

        END