Mercurial > hg > jgplsrc

diff vcatsp.c @ 0:e0bbaa717f41 draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
lol J
author Jordi Gutiérrez Hermoso <jordigh@octave.org>
date Mon, 25 Nov 2013 11:56:30 -0500
parents
children
line wrap: on
line diff
new file mode 100644
--- /dev/null
+++ b/vcatsp.c
@@ -0,0 +1,13 @@
+/* Copyright 1990-2011, Jsoftware Inc.  All rights reserved. */
+/* License in license.txt.                                   */
+/*                                                                         */
+/* Verbs: ,. on Sparse Arguments of rank 2 or less                         */
+
+#include "j.h"
+
+
+F2(jtstitchsp2){I ar,wr;
+ RZ(a&&w);
+ ar=AR(a); wr=AR(w);
+ R irs2(a,w,0L,ar?ar-1:0,wr?wr-1:0,jtover);
+}    /* sparse arrays with rank 2 or less */