# file nnet/multinom.q copyright (C) 1994-8 W. N. Venables and B. D. Ripley
#
multinom <- function(formula, data=sys.parent(), weights, subset, na.action,
	    contrasts=NULL, Hess=F, summ=0, censored=F, ...)
{
  class.ind <- function(cl)
  {
    n <- length(cl)
    x <- matrix(0, n, length(levels(cl)))
    x[(1:n) + n * (as.vector(unclass(cl)) - 1)] <- 1
    dimnames(x) <- list(names(cl), levels(cl))
    x
  }
  summ2 <- function(X, Y)
  {
    X <- as.matrix(X)
    Y <- as.matrix(Y)
    n <- dim(X)[1]
    p <- dim(X)[2]
    q <- dim(Y)[2]
    Z <- t(cbind(X, Y))
    storage.mode(Z) <- "double"
    z <- .C("VR_summ2",
	    as.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
	    Z = Pas.integer(n),
	    as.integer(p),
	    as.integer(q),
