program temp_conversion 
implicit none 
real :: c ! censius
real :: f ! fahrenheit 
print*, "enter the valeu of c"
read*, c 
f = 1.8*c + 32.0 
print*, "fahrenheit", f 
end program temp_conversion