From b43eccd4cffed5bd1017c5821524fb6e49202f78 Mon Sep 17 00:00:00 2001 From: Sandeep Gupta Date: Sun, 18 Jun 2017 23:55:40 +0530 Subject: First commit --- 2.3-1/src/c/elementaryFunctions/round/zrounda.c | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 2.3-1/src/c/elementaryFunctions/round/zrounda.c (limited to '2.3-1/src/c/elementaryFunctions/round/zrounda.c') diff --git a/2.3-1/src/c/elementaryFunctions/round/zrounda.c b/2.3-1/src/c/elementaryFunctions/round/zrounda.c new file mode 100644 index 00000000..1356e459 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/round/zrounda.c @@ -0,0 +1,20 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Arnaud Torset + * + * 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 "fix.h" +#include "round.h" + +void zrounda(doubleComplex* x, int size, doubleComplex* out) { + int i=0; + + for (i=0;i