00001 #include "f2c.h" 00002 #include "signal1.h" 00003 #ifdef __cplusplus 00004 extern "C" { 00005 #endif 00006 00007 ftnint 00008 #ifdef KR_headers 00009 signal_(sigp, proc) integer *sigp; sig_pf proc; 00010 #else 00011 signal_(integer *sigp, sig_pf proc) 00012 #endif 00013 { 00014 int sig; 00015 sig = (int)*sigp; 00016 00017 return (ftnint)signal(sig, proc); 00018 } 00019 #ifdef __cplusplus 00020 } 00021 #endif
1.5.1