do_us(number
,ptr
,len
) ftnint
*number
; ftnlen len
; char *ptr
;
err(elist
->cierr
,110,"eof/uio");
(void) fread(ptr
,(int)len
,(int)(*number
),cf
);
(void) fwrite(ptr
,(int)len
,(int)(*number
),cf
);
do_uio(number
,ptr
,len
) ftnint
*number
; ftnlen len
; char *ptr
;
return(do_us(number
,ptr
,len
));
else return(do_ud(number
,ptr
,len
));
do_ud(number
,ptr
,len
) ftnint
*number
; ftnlen len
; char *ptr
;
if(recpos
> curunit
->url
&& curunit
->url
!=1)
err(elist
->cierr
,110,"eof/uio");
if(fread(ptr
,(int)len
,(int)(*number
),cf
)
err(elist
->cierr
,27,"eof/uio")
(void) fwrite(ptr
,(int)len
,(int)(*number
),cf
);