double precision function dsimple(d)
      double precision d
      dsimple = d
      return
      end