"igraph2graph" <-
function(g,names=NULL)
  {
    require(igraph, quietly=TRUE)

    g.adj <- get.adjacency(g)
    if(is.null(names)) names <- as.character(0:(nrow(g.adj)-1))
    rownames(g.adj) <- colnames(g.adj) <- names
    g.graph <- as(g.adj,"graphNEL")

    return(g.graph)
  }