2001-08-03 Daniel Berlin <dan@cgsoftware.com>
[official-gcc.git] / libf2c / libF77 / erfc_.c
blobf44b1d49d84b26956f55819d2e21191c093bd35c
1 #include "f2c.h"
3 #ifdef KR_headers
4 double erfc();
5 double G77_erfc_0 (x) real *x;
6 #else
7 extern double erfc(double);
8 double G77_erfc_0 (real *x)
9 #endif
11 return( erfc(*x) );