PROGRAM ch1102
! This program reads in a grid of temperatures
! (degrees Fahrenheit) at 25 grid references
! and converts them to degrees Celsius
IMPLICIT NONE
REAL, DIMENSION (1:5,1:5) :: Fahrenheit, Celsius
INTEGER :: Long, Lat
!
! Read in the temperatures 
!
  DO Lat=1,5 
    PRINT *, ' For Latitude= ',Lat
    DO Long=1,5   
      PRINT *, ' For Longitude', Long
      READ *,Fahrenheit( Long, Lat)
    END DO
  END DO
!
! Conversion applied to all values
!
  Celsius = 5.0/9.0 * (Fahrenheit - 32.0)
  PRINT * , Celsius
  PRINT * , Fahrenheit
END PROGRAM ch1102