fix xfrac in fortran