1 files changed, 30 insertions, 0 deletions
diff --git a/macros/FunctionAnnotation/FA_SZ_DEC 2OCT.sci~ b/macros/FunctionAnnotation/FA_SZ_DEC 2OCT.sci~
new file mode 100644
index 00000000..340dd2a5
--- /dev/null
+++ b/macros/FunctionAnnotation/FA_SZ_DEC 2OCT.sci~
@@ -0,0 +1,30 @@
+function opout1 = FA_SZ_DEC2OCT(inval1)
+
+// 07-Sep-2016 -- Author : Shamik Guha
+
+
+// ------------------------------
+// --- Check input arguments. ---
+// ------------------------------
+//SCI2CNInArgCheck(argn(2),2,2);
+//insize=string(insize);
+
+inval1=string(inval1);
+disp(inval1);
+
+if (isnum(inval1)) then
+    in_num1 = eval(inval1) ;
+    out1=dec2oct(in_num1);
+    disp(out1);
+
+else
+    error(36, "Wrong input argument '+inval1+'.");
+
+end
+
+out1=eval(out1);
+
+opout1=string(floor(log10(abs(out1)+1))+1);
+out1=string(out1);
+disp(opout1);
+endfunction