      function isimple(i)
      isimple = i
      return
      end
