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

/* Fortran sleep  3/20/80 */
sleep_(secs)
int *secs;
{
	sleep((unsigned) *secs);
}