/* Inserta un registro en una hoja */
/* [ABRIL-97] */
/* AMILCAR MENESES VIVEROS */
void insnoderegister(node *p, int position, Bregister *r, Bkey k)
{
int i;
/* for(i=ORDER-1; i>position; i--) */
for (i = p->nKeys; i > position; i--) {
p->ap[i] = p->ap[i-1];
p->ak[i] = p->ak[i-1];
}
p->ak[position] = k;
p->ap[position] = r;
(p->nKeys)++;
}