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