! 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