Doxygen Source Code Documentation
Main Page Alphabetical List Data Structures File List Data Fields Globals Search
dolio.c
Go to the documentation of this file.00001 #include "f2c.h"
00002
00003 #ifdef __cplusplus
00004 extern "C" {
00005 #endif
00006 #ifdef KR_headers
00007 extern int (*f__lioproc)();
00008
00009 integer do_lio(type,number,ptr,len) ftnint *number,*type; char *ptr; ftnlen len;
00010 #else
00011 extern int (*f__lioproc)(ftnint*, char*, ftnlen, ftnint);
00012
00013 integer do_lio(ftnint *type, ftnint *number, char *ptr, ftnlen len)
00014 #endif
00015 {
00016 return((*f__lioproc)(number,ptr,len,*type));
00017 }
00018 #ifdef __cplusplus
00019 }
00020 #endif