1 #include "v3p_f2c.h"
2 #ifdef __cplusplus
3 extern "C" {
4 #endif
5
6 #ifdef __cplusplus
7 extern "C" {
8 #endif
9 #ifdef KR_headers
10 extern int (*f__lioproc)();
11
do_lio(type,number,ptr,len)12 integer do_lio(type,number,ptr,len) ftnint *number,*type; char *ptr; ftnlen len;
13 #else
14 extern int (*f__lioproc)(ftnint*, char*, ftnlen, ftnint);
15
16 integer do_lio(ftnint *type, ftnint *number, char *ptr, ftnlen len)
17 #endif
18 {
19 return((*f__lioproc)(number,ptr,len,*type));
20 }
21 #ifdef __cplusplus
22 }
23 #endif
24 #ifdef __cplusplus
25 }
26 #endif
27