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)9 signal_(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