err(f__elist->cierr,EOF,"do_ud")
err(f__elist->cierr,EOF,"do_ud");
integer do_ud(ftnint *number, char *ptr, ftnlen len)#endif{	f__recpos += (int)(*number * len);	if(f__recpos > f__curunit->url && f__curunit->url!=1)		err(f__elist->cierr,110,"do_ud");	if(f__reading)	{#ifdef Pad_UDread#ifdef KR_headers	int i;#else	size_t i;#endif		if (!(i = fread(ptr,(size_t)len,(size_t)(*number),f__cf))		 && !(f__recpos - *number*len))			err(f__elist->cierr,EOF,"do_ud")		if (i < *number)			memset(ptr + i*len, 0, (*number - i)*len);		return 0;#else		if(fread(ptr,(size_t)len,(size_t)(*number),f__cf) != *number)			err(f__elist->cierr,EOF,"do_ud")		else return(0);#endif	}	(void) fwrite(ptr,(size_t)len,(size_t)(*number),f__cf);	return(0);}