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
      write(6,*)'f044 passed if lines 1&2=0.1 and line 3=0.01(approx)'
      stop
      end