module temperatures
      real :: tf,tk
c    tf - temperature in Fahrenheit
c    tk - Equivalent temperature in Kelvin
      end module 
c
      program tconvert
c
      implicit none
c
c   Program to read a temperature in Degrees Fahrenheit and
c   print out the equivalent Temperature in Kelvin.
c
c   Programmed by: John Mahaffy  1/2/97
c
      call input
c
      call convert
c
      call output
      stop
      end
c
      subroutine convert
      use temperatures
      implicit none
c
c   Convert the value in tf from Degrees Fahrenheit
c   to Kelvin stored in the variable tk.  Assumes the
c   The freezing point of water is exactly 32.0 F and
c   273.16K.
c
c   Programmed by: John Mahaffy  1/2/97
c   Modified by:
c
c---------------------------------------------------------
	tk = 9./5.*(tf-32.)+273.16
c---------------------------------------------------------
      return
      end
c
      subroutine input 
      use temperatures
      implicit none
c
c   Prompt for and read a temperature in Degrees Fahrenheit
c
c   Programmed by: John Mahaffy  1/2/97
c
      write(*,2000,advance='no')
 2000 format(' Temperature (F): ')
      read *, tf
      return
      end
c
      subroutine output
      use temperatures
      implicit none
c
c   Print the original temperature in Degrees Fahrenheit
c   and the equivalent Temperature in Kelvin.
c
c   Programmed by: John Mahaffy  1/2/97
c
      write  (*,2000) tf,tk
 2000 format (f9.2, ' F  =' , f9.2, ' K')
      return
      end