program ch0806
implicit none
!
! 1 us gallon = 3.7854118 litres
! 1 uk gallon = 4.545 litres
!
integer , parameter :: n=10
real , parameter :: us = 3.7854118
real , parameter :: uk = 4.545
integer :: i
integer , dimension(1:n) :: Litre=[(i,i=1,n)]
real , dimension(1:n) :: Gallon,USGallon
   Gallon = Litre / uk
   USGallon = Litre / us
   print *,' Litres Imperial USA'
   print *,' Gallon Gallon'
   do i = 1,n
      print *,Litre(i), ' ',Gallon(i),' ',USGallon(i)
   end do
end program ch0806