summaryrefslogtreecommitdiff
path: root/macros/FunctionAnnotation/FA_SZ_ROW_DIAG.sci
blob: 687a89e4fe7e775e4e52f76ad663d2e5002402bb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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