! ! =====> Program - P41.F90 ! ! Loop with an increment of 2 ! PRINT *, 'This is Program >> P41 - DO loop' ! ! M takes odd values from 1 to 99 LS=0 LT=0 L1: DO M=1,100,2 LS=LS+1 LT=LT+M PRINT * ,LS,M,LT END DO L1 200 PRINT * ,LS,M,LT STOP END OUTPUT: Program entered This is Program >> P41 - DO loop 1 1 1 2 3 4 3 5 9 4 7 16 5 9 25 6 11 36 7 13 49 8 15 64 9 17 81 10 19 100 11 21 121 12 23 144 13 25 169 14 27 196 15 29 225 16 31 256 17 33 289 18 35 324 19 37 361 20 39 400 21 41 441 22 43 484 23 45 529 24 47 576 25 49 625 26 51 676 27 53 729 28 55 784 29 57 841 30 59 900 31 61 961 32 63 1024 33 65 1089 34 67 1156 35 69 1225 36 71 1296 37 73 1369 38 75 1444 39 77 1521 40 79 1600 41 81 1681 42 83 1764 43 85 1849 44 87 1936 45 89 2025 46 91 2116 47 93 2209 48 95 2304 49 97 2401 50 99 2500 50 101 2500 Fortran-90 STOP
Page builder: Charles Boivin
Last modified: 11/07/95