1 2 3 4 5 6 7 8 9
#include "f2c.h" extern double erfc (double); double G77_derfc_0 (doublereal * x) { return (erfc (*x)); }