Go to the documentation of this file.00001 #include "f2c.h"
00002 #ifdef __cplusplus
00003 extern "C" {
00004 #endif
00005
00006 #ifdef __cplusplus
00007 extern "C" {
00008 #endif
00009 #ifdef KR_headers
00010 extern int (*f__lioproc)();
00011
00012 integer do_lio(type,number,ptr,len) ftnint *number,*type; char *ptr; ftnlen len;
00013 #else
00014 extern int (*f__lioproc)(ftnint*, char*, ftnlen, ftnint);
00015
00016 integer do_lio(ftnint *type, ftnint *number, char *ptr, ftnlen len)
00017 #endif
00018 {
00019 return((*f__lioproc)(number,ptr,len,*type));
00020 }
00021 #ifdef __cplusplus
00022 }
00023 #endif
00024 #ifdef __cplusplus
00025 }
00026 #endif