libf2c/libI77/dolio.c

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