/*
char id_iio[] = "@(#)iio.c	1.3";
 *
 * internal (character array) i/o
 */

#include "fio.h"

ftnint
iiorec_()
{	return(recnum);	}

ftnint
iiopos_()
{	return(recpos);	}