.packageName <- "bicreduc"
HeightMapAlg <- function(R,B)
{
    storage.mode(R) <- "double"
    storage.mode(B) <- "integer"
    .Call("HeightMapAlgorithm", R, B, PACKAGE="bicreduc")
}
.First.lib <- function(lib,pkg)
{
   library.dynam("bicreduc",pkg,lib)
   cat("package bicreduc v0.4-7 loaded\n")
   cat("type 'help(HeightMapAlg)' for help\n")
}

