Can you help me a code to solve this question? Also I need a comments on each section of codes

The number 1 would be stored with the implied leading 1, an exponent of 0 (the actual number stored is 127, remember the shift), and the fractional bits would all be zero. The number 2 would be stored with the implied leading 1, an exponent of 1, and the fractional bits would all be zero. What is important for this assignment is realizing the value of the last bit in the significand. For the 1, the last bit is 2-23 = 1.19e-7. This is about 1/ten millionth. For 2, it is 2-23 = 2.38e-7. Write a Fortran program with at least two variables of type real*4. Set one of them equal to 1.0 and the other to 2.0. Next, write a do loop that iterates 10 million times. In the loop, add 1.e-7 (one ten-millionth) to each variable (The variable should appear on both sides of the equal sign.) After the loop, print out each variable with a label. The variables must be of type real*4. The number 1 would be stored with the implied leading 1, an exponent of 0 (the actual number stored is 127, remember the shift), and the fractional bits would all be zero. The number 2 would be stored with the implied leading 1, an exponent of 1, and the fractional bits would all be zero. What is important for this assignment is realizing the value of the last bit in the significand. For the 1, the last bit is 2-23 = 1.19e-7. This is about 1/ten millionth. For 2, it is 2-23 = 2.38e-7. Write a Fortran program with at least two variables of type real*4. Set one of them equal to 1.0 and the other to 2.0. Next, write a do loop that iterates 10 million times. In the loop, add 1.e-7 (one ten-millionth) to each variable (The variable should appear on both sides of the equal sign.) After the loop, print out each variable with a label. The variables must be of type real*4