From 765d9c44f94634406eeff50e20e8cdfcf1b7699c Mon Sep 17 00:00:00 2001
From: siddhu8990
Date: Thu, 2 Feb 2017 16:02:41 +0530
Subject: Support for function 'schur' added

q
---
 macros/FunctionAnnotation/FA_SCHUR_SZ.sci | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 macros/FunctionAnnotation/FA_SCHUR_SZ.sci

(limited to 'macros/FunctionAnnotation/FA_SCHUR_SZ.sci')

diff --git a/macros/FunctionAnnotation/FA_SCHUR_SZ.sci b/macros/FunctionAnnotation/FA_SCHUR_SZ.sci
new file mode 100644
index 00000000..6ae20305
--- /dev/null
+++ b/macros/FunctionAnnotation/FA_SCHUR_SZ.sci
@@ -0,0 +1,13 @@
+function out2sz = FA_SCHUR_SZ(in2tp,in1sz)
+
+in2type = string(in2tp);
+in1sz = string(in1sz);
+in1dim = eval(in1sz);
+
+if(in2type == 'g')
+	out2sz = '1'
+else
+	out2sz = string(in1dim)
+end
+
+endfunction 
-- 
cgit