program readin
!reads in a number from the screen
!JWP22/10/98

implicit none

real :: x
print *, 'Type in a valid real number:'
read *, x
print *, 'The number you typed was ', x

end program readin