#include "f2c.h"
#include "fio.h"
uiolen f__reclen;

#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)
  {
    if(fread(ptr, (int)len, (int)(*number), f__cf) != *number)
      err(f__elist->cierr, EOF, "do_ud")
      else return(0);
  }
  (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));
}
