* unformatted external i/o
do_us(number
,ptr
,len
) ftnint
*number
; ftnlen len
; char *ptr
; /* sequential */
if (fread(ptr
,(int)len
,(int)(*number
),cf
) != *number
)
fwrite(ptr
,(int)len
,(int)(*number
),cf
);
do_uio(number
,ptr
,len
) ftnint
*number
; ftnlen len
; char *ptr
;
return(do_us(number
,ptr
,len
));
return(do_ud(number
,ptr
,len
));
do_ud(number
,ptr
,len
) ftnint
*number
; ftnlen len
; char *ptr
; /* direct */
if(recpos
> curunit
->url
&& curunit
->url
!=1)
if (fread(ptr
, (int)len
, (int)(*number
), cf
) != *number
)
fwrite(ptr
,(int)len
,(int)(*number
),cf
);