!
      PROGRAM P42
!
!
      IMPLICIT NONE
      INTEGER :: KS,LT,I,J
      PRINT *, 'This is Program >> P42  - Nested DO loops'
!
!     Two nested DO loops
      KS=0
      LT=0
L1:   DO  I=1,20,2
L2:      DO  J=I,25
            KS=KS+J
         END DO L2
         LT=LT+I
         PRINT *,I,KS,LT
      END DO L1
      STOP
      END PROGRAM P42