iiopos_ X iiorec_ X
1: /* 2: char id_iio[] = "@(#)iio.c 1.3"; 3: * 4: * internal (character array) i/o 5: */ 6: 7: #include "fio.h" 8: 9: ftnint 10: iiorec_() 11: { return(recnum); } 12: 13: ftnint 14: iiopos_() 15: { return(recpos); }