# SCM Repository

[matrix] Diff of /pkg/Matrix/R/ddenseMatrix.R
 [matrix] / pkg / Matrix / R / ddenseMatrix.R

# Diff of /pkg/Matrix/R/ddenseMatrix.R

revision 2199, Mon Jun 2 16:09:12 2008 UTC revision 2346, Thu Mar 12 10:40:52 2009 UTC
# Line 144  Line 144
144  .bandDense <- function(x, k1, k2, ...) {  .bandDense <- function(x, k1, k2, ...) {
145      k1 <- as.integer(k1[1])      k1 <- as.integer(k1[1])
146      k2 <- as.integer(k2[1])      k2 <- as.integer(k2[1])
147      dd <- dim(x); sqr <- dd[1] == dd[2]      dd <- dim(x)
148      stopifnot(-dd[1] <= k1, k1 <= k2, k2 <= dd[1])      sqr <- dd[1] == dd[2]
149        stopifnot(-dd[1] <= k1, k1 <= k2, k2 <= dd[2])
150      r <- .Call(dense_band, x, k1, k2)      r <- .Call(dense_band, x, k1, k2)
151      if (sqr &&  k1 < 0 &&  k1 == -k2  && isSymmetric(x)) ## symmetric      if (sqr &&  k1 < 0 &&  k1 == -k2  && isSymmetric(x)) ## symmetric
152          forceSymmetric(r)          forceSymmetric(r)

Legend:
 Removed from v.2199 changed lines Added in v.2346