PROGRAM convert

!  Filename:  convert.f90
!
!  Programmer:  Br. David Carlson
!
!  Date:  December 6, 1999
!
!  Revised:  May 2, 2004 by Br. David Carlson
!
!  Reference:  Fortran 90/95 by Chapman
!
!  This program asks the user to enter a temperature in Fahrenheit and prints
!  the equivalent in Kelvin.

IMPLICIT NONE

REAL::fahrenheit, kelvin

WRITE (*,*) 'Enter the Fahrenheit temperature to be converted: '
READ (*,*) fahrenheit

kelvin = (5.0 / 9.0) * (fahrenheit - 32.0) + 273.15

WRITE (*,*) 'Fahrenheit temp ' , fahrenheit, ' is ', kelvin, ' Kelvin'

END PROGRAM