program input_more
  implicit none

  real :: x

  write (unit=*,fmt='(1x, a)',advance='NO') 'Give a number ( >1 ): '
  read *, x
  print *
  print '(1x,2(a,g11.3))', 'There are approximately ', x/LOG(x), &
    ' primes less or equal to ', x
end program input_more