binMean2D() - start coding work [BROKEN]

Test code:

   library(oce)
   system("R CMD SHLIB bin.cpp")
   dyn.load("bin.so")
   set.seed(123)
   x <- runif(10000)
   y <- runif(10000)
   f <- x + y
   source('../R/misc.R')
   binMean2D(x, y, f)