fptpos
t = extru(ir,fptpos,5) * sizeof(double)/sizeof(unsigned);
extru(ir,fptpos,5),status));
extru(ir,fptpos,5),status));
return(ftest(0,extru(ir,fptpos,5),
t = ((extru(ir,fptpos,5)<<1)|(extru(ir,fpxtpos,1)));
extru(ir,fptpos,5),status));
extru(ir,fptpos,5),status));