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