fpr2pos
r2 = extru(ir, fpr2pos, 5) * sizeof(double)/sizeof(unsigned);
r2 = extru(ir,fpr2pos,5) * sizeof(double)/sizeof(unsigned);
r2 = ((extru(ir,fpr2pos,5)<<1)|(extru(ir,fpxr2pos,1)));
r2 = ((extru(ir,fpr2pos,5)<<1)|(extru(ir,fpxr2pos,1)));