fpr1pos
r1 = extru(ir,fpr1pos,5) * sizeof(double)/sizeof(unsigned);
r1 = ((extru(ir,fpr1pos,5)<<1)|(extru(ir,fpxr1pos,1)));