diff options
author | nutricato | 2009-02-25 16:33:44 +0000 |
---|---|---|
committer | nutricato | 2009-02-25 16:33:44 +0000 |
commit | bc660e97e50b8fe1136d18d96c2a82860e492d3c (patch) | |
tree | 0187cbc8bbf318f18db1c5e4baf6df0348da9837 /src/Scilab2C | |
parent | 95b8c59cb19dbd144781ffeb663ab302d23d2774 (diff) | |
download | scilab2c-bc660e97e50b8fe1136d18d96c2a82860e492d3c.tar.gz scilab2c-bc660e97e50b8fe1136d18d96c2a82860e492d3c.tar.bz2 scilab2c-bc660e97e50b8fe1136d18d96c2a82860e492d3c.zip |
Diffstat (limited to 'src/Scilab2C')
-rw-r--r-- | src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_PREC.sci | 52 |
1 files changed, 0 insertions, 52 deletions
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_PREC.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_PREC.sci deleted file mode 100644 index 9f0523b7..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_PREC.sci +++ /dev/null @@ -1,52 +0,0 @@ -function opout = FA_TP_PREC(in1,in2,in3) -// function opout = FA_TP_PREC(in1,in2,in3) -// ----------------------------------------------------------------- -// -// Status: -// 2009 -- Arnaud Torset: Author. -// -// ----------------------------------------------------------------- -// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab -// Copyright (C) INRIA -// -// This file must be used under the terms of the CeCILL. -// This source file is licensed as described in the file COPYING, which -// you should have received as part of this distribution. The terms -// are also available at -// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt - - -// ------------------------------ -// --- Check input arguments. --- -// ------------------------------ -SCI2CNInArgCheck(argn(2),2,3); - -if (argn(2)==2) then -in1Pin2 = in1+in2; - -select (in1Pin2), - case 'ss' then opout = 's', - case 'sc' then opout = 's', - case 'cs' then opout = 's', - case 'cc' then opout = 's', - else opout = 'd', -end -end - -if (argn(2)==3) then -in1Pin2 = in1+in2+in3; - -select (in1Pin2), - case 'sss' then opout = 's', - case 'ssc' then opout = 's', - case 'scs' then opout = 's', - case 'scc' then opout = 's', - case 'ccc' then opout = 's', - case 'ccs' then opout = 's', - case 'csc' then opout = 's', - case 'css' then opout = 's', - else opout = 'd', -end -end - -endfunction |