program ch0802 ! This program reads in a grid of temperatures ! (degrees Fahrenheit) at 25 grid references ! and converts them to degrees Celsius implicit none integer, parameter :: n = 5 real, dimension (1:n, 1:n) :: fahrenheit, celsius integer :: long, lat ! read in the temperatures do lat = 1, n print *, ' For Latitude= ', lat do long = 1, n print *, ' For Longitude', long read *, fahrenheit(lat, long) end do end do ! Conversion applied to all values celsius = 5.0/9.0*(fahrenheit-32.0) print *, celsius print *, fahrenheit end program ch0802