gcc/f/runtime/libI77/dolio.c

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