text: #include "f2c.h"
  #include "fio.h"
  #ifdef __cplusplus
  extern "C" {
  #endif
  uiolen f__reclen;
  
   int
  #ifdef KR_headers
  do_us(number,ptr,len) ftnint *number; char *ptr; ftnlen len;
  #else
  do_us(ftnint *number, char *ptr, ftnlen len)
  #endif
  {
  	if(f__reading)
  	{
  		f__recpos += (int)(*number * len);
  		if(f__recpos>f__reclen)
  			err(f__elist->cierr, 110, "do_us");
  		if (fread(ptr,(int)len,(int)(*number),f__cf) != *number)
  			err(f__elist->ciend, EOF, "do_us");
  		return(0);
  	}
  	else
  	{
  		f__reclen += *number * len;
  		(void) fwrite(ptr,(int)len,(int)(*number),f__cf);
  		return(0);
  	}
  }
  #ifdef KR_headers
  integer do_ud(number,ptr,len) ftnint *number; char *ptr; ftnlen len;
  #else
  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,(int)len,(int)(*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,(int)len,(int)(*number),f__cf) != *number)
  			err(f__elist->cierr,EOF,"do_ud")
  		else return(0);
  #endif
  	}
  	(void) fwrite(ptr,(int)len,(int)(*number),f__cf);
  	return(0);
  }
  #ifdef KR_headers
  integer do_uio(number,ptr,len) ftnint *number; char *ptr; ftnlen len;
  #else
  integer do_uio(ftnint *number, char *ptr, ftnlen len)
  #endif
  {
  	if(f__sequential)
  		return(do_us(number,ptr,len));
  	else	return(do_ud(number,ptr,len));
  }
  #ifdef __cplusplus
  }
  #endif
  