Turbo Toolbox/Turbo_Toolbox.iso/sharew/f_2_c/libi77/dolio.c

C/C++ Source or Header | 1991-06-10 | 178 b | 8 lines

#include "f2c.h"
extern int (*lioproc)();

integer do_lio(type,number,ptr,len) ftnint *number,*type; char *ptr; ftnlen len;
{
    return((*lioproc)(number,ptr,len,*type));
}