Merged with linspace and logspace

1 files changed, 26 insertions, 0 deletions

diff --git a/2.3-1/macros/FunctionAnnotation/FA_SZ_ROW_DIAG.sci b/2.3-1/macros/FunctionAnnotation/FA_SZ_ROW_DIAG.sci
new file mode 100644
index 00000000..687a89e4
--- /dev/null
+++ b/2.3-1/macros/FunctionAnnotation/FA_SZ_ROW_DIAG.sci
@@ -0,0 +1,26 @@
+function outsize = FA_SZ_ROW_DIAG(insize)
+// function outsize = FA_SZ_1(insize)
+// -----------------------------------------------------------------
+// Returns the first element of the size array.
+// 
+// Input data:
+// insize: size of input argument. It is an array of 2 strings. 
+//          The first string specifies the number of rows.
+//          The second string specifies the number of columns.
+// 
+// Output data:
+// outsize: first element of the insize array.
+//
+// Status:
+// 08-Dec-2007 -- Raffaele Nutricato: Author.
+// 08-Dec-2007 -- Alberto Morea: Test Ok.
+// -----------------------------------------------------------------
+
+if(insize(1)=='1') then
+   outsize = insize(2);
+elseif(insize(1) == insize(2)) 
+    outsize = insize(1);
+else
+   outsize = insize(1);
+end
+endfunction