signal_.c 299 B

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