!
      PROGRAM P41
!
!     Loop with an increment of 2
!
      IMPLICIT NONE
      INTEGER :: M,LS,LT
!
      PRINT *, 'This is Program >> P41  - DO loop'
!
!     M takes odd values from 1 to 99
      LS=0
      LT=0
L1:   DO  M=1,10,2
         LS=LS+1
         LT=LT+M
         PRINT * ,LS,M,LT
      END DO L1
      PRINT * ,LS,M,LT
      STOP
      END PROGRAM P41