From f618466c25d43f3bae9e40920273bf77de1e1149 Mon Sep 17 00:00:00 2001
From: leochanj105 <leochanj@live.unc.edu>
Date: Mon, 19 Oct 2020 23:09:30 -0400
Subject: initial sd-vbs

initial sd-vbs

add sd-vbs

sd-vbs
---
 SD-VBS/common/c/horzcat.c | 48 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 48 insertions(+)
 create mode 100644 SD-VBS/common/c/horzcat.c

(limited to 'SD-VBS/common/c/horzcat.c')

diff --git a/SD-VBS/common/c/horzcat.c b/SD-VBS/common/c/horzcat.c
new file mode 100644
index 0000000..2041396
--- /dev/null
+++ b/SD-VBS/common/c/horzcat.c
@@ -0,0 +1,48 @@
+/********************************
+Author: Sravanthi Kota Venkata
+********************************/
+
+#include "sdvbs_common.h"
+
+F2D* horzcat(F2D* a, F2D* b, F2D* c)
+{
+    F2D *out;
+    int rows=0, cols=0, i, j, k, c_1, c_2, r_3, c_3;
+    
+    c_1 = a->width;
+    cols += c_1;
+
+    c_2 = b->width;
+    cols += c_2;
+
+    r_3 = c->height;
+    c_3 = c->width;
+    cols += c_3;
+    rows = r_3;
+    
+    out = fMallocHandle(rows, cols);    
+    
+    for(i=0; i<rows; i++)
+    {
+        k = 0;
+        for(j=0; j<c_1; j++)
+        {
+            subsref(out,i,k) = subsref(a,i,j);
+            k++;
+        }
+        for(j=0; j<c_2; j++)
+        {
+            subsref(out,i,k) = subsref(b,i,j);
+            k++;
+        }
+        for(j=0; j<c_3; j++)
+        {
+            subsref(out,i,k) = subsref(c,i,j);
+            k++;
+        }
+    }
+
+    return out;
+}
+
+
-- 
cgit v1.2.2