blob: 0b3eeb5ff1588cfd710a5e42da7c2bc427d0653b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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) ) );
}
|
