program base_conversion
implicit none
real :: x1 = 1.0
real :: x2 = 0.1
real :: x3 = 0.01
real :: x4 = 0.001
real :: x5 = 0.0001
   print *,' ',x1
   print *,' ',x2
   print *,' ',x3
   print *,' ',x4
   print *,' ',x5
end program base_conversion