Diff of /pkg/src/Csparse.c

Parent Directory | Revision Log | Patch

	revision 1141, Thu Jan 12 03:02:46 2006 UTC	revision 1218, Mon Feb 20 22:47:20 2006 UTC
#	Line 1	Line 1
1	/* Sparse matrices in compress column-oriented form */	/* Sparse matrices in compressed column-oriented form */
2	#include "Csparse.h"	#include "Csparse.h"
3	#include "chm_common.h"	#include "chm_common.h"
4
#	Line 118	Line 118
118	return chm_sparse_to_SEXP(chcp, 1);	return chm_sparse_to_SEXP(chcp, 1);
119	}	}
120
121		SEXP Csparse_horzcat(SEXP x, SEXP y)
122		{
123		cholmod_sparse *chx = as_cholmod_sparse(x),
124		*chy = as_cholmod_sparse(y), *ans;
125
126		ans = cholmod_horzcat(chx, chy, 1, &c);
127		Free(chx); Free(chy);
128		return chm_sparse_to_SEXP(ans, 1);
129		}
130
131		SEXP Csparse_vertcat(SEXP x, SEXP y)
132		{
133		cholmod_sparse *chx = as_cholmod_sparse(x),
134		*chy = as_cholmod_sparse(y), *ans;
135
136		ans = cholmod_vertcat(chx, chy, 1, &c);
137		Free(chx); Free(chy);
138		return chm_sparse_to_SEXP(ans, 1);
139		}

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.1141   changed lines   Added in v.1218

---

R-Forge@R-project.org	ViewVC Help
Powered by ViewVC 1.0.0