1 #include "f2c.h" 2 #include "signal1.h" 3 #ifdef __cplusplus 4 extern "C" { 5 #endif 6 7 ftnint 8 #ifdef KR_headers signal_(sigp,proc)9signal_(sigp, proc) integer *sigp; sig_pf proc; 10 #else 11 signal_(integer *sigp, sig_pf proc) 12 #endif 13 { 14 int sig; 15 sig = (int)*sigp; 16 17 return (ftnint)signal(sig, proc); 18 } 19 #ifdef __cplusplus 20 } 21 #endif 22