]> CyberLeo.Net >> Repos - FreeBSD/stable/8.git/blob - contrib/libf2c/libF77/z_abs.c
Copy head to stable/8 as part of 8.0 Release cycle.
[FreeBSD/stable/8.git] / contrib / libf2c / libF77 / z_abs.c
1 #include "f2c.h"
2
3 double f__cabs (double, double);
4 double
5 z_abs (doublecomplex * z)
6 {
7   return (f__cabs (z->r, z->i));
8 }