src/Scilab2C/Scilab2C/CFiles/sci2ccode/dabss.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

/*
**  -*- C -*-
**
** sabss.c
** Made by  Bruno JOFRET <bruno.jofret@inria.fr>
**
** Started on  Thu Feb  8 10:26:22 2007 jofret
** Last update Fri Apr 20 15:56:25 2007 jofret
**
** Copyright INRIA 2007
*/

#include "abs.h"

double dabss(double num) {
  if (num >= 0) {
    return num;
  }
  return -num;
}