Remove memory leaks
[scilab.git] / scilab / modules / output_stream / src / c / floor_f2c.c
1 /*
2 * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 * Copyright (C) DIGITEO - 2010 - Allan CORNET
4
5 * This file must be used under the terms of the CeCILL.
6 * This source file is licensed as described in the file COPYING, which
7 * you should have received as part of this distribution.  The terms
8 * are also available at    
9 * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
10 *
11 */
12
13 #include <math.h>
14 #include "machine.h"
15
16 /* libf2c does not have C2F(floor) on windows */
17 /* only used with F2C visual express version */
18
19 double C2F(floor)(double *_value)
20 {
21     return floor(*_value);
22 }