double precision exp
      exp= 10.**(-1.0)
      write(6,*) exp
      exp=10.d0**(-1.0)
      write(6,*)exp
      exp=10.d0**(-2.0)
      write(6,*)exp
      stop
      end