diff options
Diffstat (limited to 'Build/source/utils/pmx/pmx-2.6.21/libf2c/dolio.c')
-rw-r--r-- | Build/source/utils/pmx/pmx-2.6.21/libf2c/dolio.c | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/Build/source/utils/pmx/pmx-2.6.21/libf2c/dolio.c b/Build/source/utils/pmx/pmx-2.6.21/libf2c/dolio.c new file mode 100644 index 00000000000..4070d879012 --- /dev/null +++ b/Build/source/utils/pmx/pmx-2.6.21/libf2c/dolio.c @@ -0,0 +1,26 @@ +#include "f2c.h" +#ifdef __cplusplus +extern "C" { +#endif + +#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)); +} +#ifdef __cplusplus + } +#endif +#ifdef __cplusplus +} +#endif |