source: trunk/src/gcc/libf2c/libF77/erf_.c@ 2

Last change on this file since 2 was 2, checked in by bird, 23 years ago

Initial revision
  • Property cvs2svn:cvs-rev set to 1.1
  • Property svn:eol-style set to native
  • Property svn:executable set to *
File size: 170 bytes
Line 
1#include "f2c.h"
2
3#ifdef KR_headers
4double erf();
5double G77_erf_0 (x) real *x;
6#else
7extern double erf(double);
8double G77_erf_0 (real *x)
9#endif
10{
11return( erf(*x) );
12}
Note: See TracBrowser for help on using the repository browser.