* Copyright (c) 1980 Regents of the University of California.
* All rights reserved. The Berkeley software License Agreement
* specifies the terms and conditions for redistribution.
* list directed and namelist i/o common routines
if(not_legal(lunit
)) err(errflag
,F_ERUNIT
,fmtbuf
)
if(!curunit
->ufd
&& (n
=fk_open(flag
,SEQ
,FMT
,(ftnint
)lunit
)))
if(!curunit
->ufmt
) err(errflag
,F_ERNOFIO
,fmtbuf
)
if(curunit
->url
) err(errflag
,F_ERNOSIO
,fmtbuf
)
do_lio(type
,number
,ptr
,len
) ftnint
*number
,*type
; flex
*ptr
; ftnlen len
;
return((*lioproc
)(number
,ptr
,len
,*type
));