diff options
Diffstat (limited to '2.3-1/macros/FunctionAnnotation/FA_SCHUR_SZ.sci')
| -rw-r--r-- | 2.3-1/macros/FunctionAnnotation/FA_SCHUR_SZ.sci | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/2.3-1/macros/FunctionAnnotation/FA_SCHUR_SZ.sci b/2.3-1/macros/FunctionAnnotation/FA_SCHUR_SZ.sci new file mode 100644 index 00000000..6ae20305 --- /dev/null +++ b/2.3-1/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 |