diff options
Diffstat (limited to 'src/auxiliaryFunctions/find/dfinda.c')
-rw-r--r-- | src/auxiliaryFunctions/find/dfinda.c | 31 |
1 files changed, 0 insertions, 31 deletions
diff --git a/src/auxiliaryFunctions/find/dfinda.c b/src/auxiliaryFunctions/find/dfinda.c deleted file mode 100644 index 986be373..00000000 --- a/src/auxiliaryFunctions/find/dfinda.c +++ /dev/null @@ -1,31 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2007-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - - -#include "find.h" - -void dfinda(double* x, int size ,double *out, int *indiceOut) { - int i = 0; - indiceOut[1]=0; - - /* if out is empty */ - out[0]=-1; - - - for (i = 0; i < size ; ++i) { - if (x[i] != 0) { - out[indiceOut[1]] = (double)(i+1); - indiceOut[1]++; - } - } -} - |