2.9BSD/usr/src/lib/libF77/alarm_.c

/* Fortran alarm PLWard 3/20/80 */
long alarm_(secs,remaining)
    int *secs,*remaining;
{
    unsigned seconds;
    seconds = *secs;
    *remaining = alarm(seconds);
}