#include "v3p_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
