Displaying 2 results from an estimated 2 matches for "la_zgesv".
Did you mean:
la_dgesv
2009 Jul 14
1
LAPACK package
...<- as.complex(b)
if (!is.complex(a))
a[] <- as.complex(a)
return(if (is.matrix(b)) {
if (ncol(a) != nrow(b)) stop("'b' must be compatible with 'a'")
rownames(b) <- colnames(a)
print("inside Call La_zgesv a, b, PACKAGE base")
retur(NA)
.Call("La_zgesv", a, b, PACKAGE = "base")
#####################################
} else drop(.Call("La_zgesv", a, as.matrix(b), PACKAGE = "base")))
}
if (is.qr(a)) {
warning(&...
2009 Jun 28
1
ERROR: system is computationally singular: reciprocal condition number = 4.90109e-18
...b[] <- as.complex(b)
if (!is.complex(a))
a[] <- as.complex(a)
return(if (is.matrix(b)) {
if (ncol(a) != nrow(b)) stop("'b' must be compatible with 'a'")
rownames(b) <- colnames(a)
.Call("La_zgesv", a, b, PACKAGE = "base")
} else drop(.Call("La_zgesv", a, as.matrix(b), PACKAGE = "base")))
}
if (is.qr(a)) {
warning("solve.default called with a \"qr\" object: use 'qr.solve'")
return(solve.qr(a, b, to...