Solution

Next: Declaration Format Up: Reformatting Code Previous: Reformatting Code

Solution

Better:

      PROGRAM MAIN
       INTEGER :: Degrees_Fahrenheit ,Degrees_Centigrade
       READ*, Degrees_Fahrenheit
       Degrees_Centigrade = 5*(Degrees_Fahrenheit-32)/9
       PRINT*, Degrees_Centigrade
      END PROGRAM MAIN

Next: Declaration Format Up: Reformatting Code Previous: Reformatting Code