#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
