r=10.0e-9
      i=10**(-9)
      j=0**0
      write(6,*)i,j
      stop
      end