extern int errno; serrno_(n) long *n; { errno = *n; }