7 do_us(number,ptr,len) ftnint *number; char *ptr; ftnlen len;
9 do_us(ftnint *number, char *ptr, ftnlen len)
14 f__recpos += (int)(*number * len);
15 if(f__recpos>f__reclen)
16 err(f__elist->cierr, 110, "do_us");
17 if (fread(ptr,(size_t)len,(size_t)(*number),f__cf) != *number)
18 err(f__elist->ciend, EOF, "do_us");
23 f__reclen += *number * len;
24 (void) fwrite(ptr,(size_t)len,(size_t)(*number),f__cf);
29 integer do_ud(number,ptr,len) ftnint *number; char *ptr; ftnlen len;
31 integer do_ud(ftnint *number, char *ptr, ftnlen len)
34 f__recpos += (int)(*number * len);
35 if(f__recpos > f__curunit->url && f__curunit->url!=1)
36 err(f__elist->cierr,110,"do_ud");
45 if (!(i = fread(ptr,(size_t)len,(size_t)(*number),f__cf))
46 && !(f__recpos - *number*len))
47 err(f__elist->cierr,EOF,"do_ud");
49 memset(ptr + i*len, 0, (*number - i)*len);
52 if(fread(ptr,(size_t)len,(size_t)(*number),f__cf) != *number)
53 err(f__elist->cierr,EOF,"do_ud");
57 (void) fwrite(ptr,(size_t)len,(size_t)(*number),f__cf);
61 integer do_uio(number,ptr,len) ftnint *number; char *ptr; ftnlen len;
63 integer do_uio(ftnint *number, char *ptr, ftnlen len)
67 return(do_us(number,ptr,len));
68 else return(do_ud(number,ptr,len));