"filegen.pms.pllel" <-
function(ont="BP",organism="yeast",npFile=18)
  {    
    if(!(ont %in% c("BP","MF","CC")))
      stop("Invalid ontology (must be one of 'BP','MF', or 'CC')")
    if(!(organism %in% c("yeast","human","mouse","rat")))
      stop("Invalid organism (must be one of 'yeast','human','mouse', or 'rat')")

    ooc.name <- paste("go",ont,"ooc.",organism,sep="")
    if(is.null(tryCatch(data(list=ooc.name,package="mBison"),warning=function(w) NULL)) && !exists(ooc.name) && is.null(tryCatch(load(paste(ooc.name,".RData",sep="")),error=function(e) NULL)))
      stop("Object-ontology complex ",ooc.name," not found")
    expr <- paste("goOOC <- ",ooc.name,sep="")
    eval(parse(text=expr))

    go.names <- nodes(DAG(rDAG(ontology(goOOC))))
    num <- 1
    iter <- 1
    while ((num+npFile-1) <= length(go.names)) {
      file.name <- paste("pms.input_",iter,".txt",sep="")
      write(go.names[num:(num+npFile-1)],file=file.name,ncolumns=1)
      num <- num+npFile
      iter <- iter+1
    }
    if(num <= length(go.names)) {
      file.name <- paste("pms.input_",iter,".txt",sep="")
      write(go.names[num:length(go.names)],file=file.name,ncolumns=1)
    }    
  }