       x=7.0d0
       write(6,900) x
900  format(f5.0)
     end
