7 extern int (*f__lioproc
)();
9 integer
do_lio(type
,number
,ptr
,len
) ftnint
*number
,*type
; char *ptr
; ftnlen len
;
11 extern int (*f__lioproc
)(ftnint
*, char*, ftnlen
, ftnint
);
13 integer
do_lio(ftnint
*type
, ftnint
*number
, char *ptr
, ftnlen len
)
16 return((*f__lioproc
)(number
,ptr
,len
,*type
));