* list directed i/o common routines
sequential
=external
=formatted
= LISTDIRECTED
;
if(not_legal(lunit
)) err(errflag
,101,fmtbuf
)
if(!curunit
->ufd
&& (n
=fk_open(flag
,SEQ
,FMT
,(ftnint
)lunit
)))
if(!curunit
->ufmt
) err(errflag
,102,fmtbuf
)
if(curunit
->url
) err(errflag
,105,fmtbuf
)
do_lio(type
,number
,ptr
,len
) ftnint
*number
,*type
; flex
*ptr
; ftnlen len
;
return((*lioproc
)(number
,ptr
,len
,*type
));