aboutsummaryrefslogtreecommitdiff
path: root/libf2c/libI77/dolio.c
diff options
context:
space:
mode:
Diffstat (limited to 'libf2c/libI77/dolio.c')
-rw-r--r--libf2c/libI77/dolio.c6
1 files changed, 0 insertions, 6 deletions
diff --git a/libf2c/libI77/dolio.c b/libf2c/libI77/dolio.c
index 1e0c377..860af54 100644
--- a/libf2c/libI77/dolio.c
+++ b/libf2c/libI77/dolio.c
@@ -4,15 +4,9 @@
#ifdef __cplusplus
extern "C" {
#endif
-#ifdef KR_headers
-extern int (*f__lioproc)();
-
-integer do_lio(type,number,ptr,len) ftnint *number,*type; char *ptr; ftnlen len;
-#else
extern int (*f__lioproc)(ftnint*, char*, ftnlen, ftnint);
integer do_lio(ftnint *type, ftnint *number, char *ptr, ftnlen len)
-#endif
{
return((*f__lioproc)(number,ptr,len,*type));
}