dbl_to_sgl_fcnvxf
int dbl_to_sgl_fcnvxf(dbl_integer *, sgl_floating_point *, unsigned int *);
return(dbl_to_sgl_fcnvxf(&fpregs[r1],