libf2c/libF77/signal_.c

   1 #include "f2c.h"
   2 #include "signal1.h"
   3
   4 #ifdef KR_headers
   5 void *
   6 G77_signal_0 (sigp, proc) integer *sigp; sig_pf proc;
   7 #else
   8 void *
   9 G77_signal_0 (integer *sigp, sig_pf proc)
  10 #endif
  11 {
  12         int sig;
  13         sig = (int)*sigp;
  14
  15         return (void *) signal(sig, proc);
  16         }