source: branches/GNU/src/gcc/libf2c/libF77/z_abs.c@ 1391

Last change on this file since 1391 was 1391, checked in by bird, 22 years ago

GCC v3.3.3 sources.
  • Property cvs2svn:cvs-rev set to 1.1.1.2
  • Property svn:eol-style set to native
  • Property svn:executable set to *
File size: 121 bytes
Line 
1#include "f2c.h"
2
3double f__cabs (double, double);
4double
5z_abs (doublecomplex * z)
6{
7 return (f__cabs (z->r, z->i));
8}
Note: See TracBrowser for help on using the repository browser.