diff options
Diffstat (limited to 'src/auxiliaryFunctions/pythag/dpythags.c')
| -rw-r--r-- | src/auxiliaryFunctions/pythag/dpythags.c | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/src/auxiliaryFunctions/pythag/dpythags.c b/src/auxiliaryFunctions/pythag/dpythags.c new file mode 100644 index 00000000..0b3eeb5f --- /dev/null +++ b/src/auxiliaryFunctions/pythag/dpythags.c @@ -0,0 +1,19 @@ +/* +** -*- C -*- +** +** dpythags.c +** Made by Bruno JOFRET <bruno.jofret@inria.fr> +** +** Started on Mon Apr 23 11:54:15 2007 jofret +** Last update Mon Apr 23 15:43:21 2007 jofret +** +** Copyright INRIA 2007 +*/ + +#include "pythag.h" +#include "sqrt.h" + +double dpythags(double x, double y) { + return (dsqrts( (x*x) + (y*y) ) ); +} + |