Description: generate dif file in uxd format for Bruker eva software

Comment: lets you match up results of Rietveld refinement in eva

Contributed by: John Evans

macro Out_Dif(file)
{
   out file
      Out_String("_D-I\n")
   phase_out file append load out_record out_fmt out_eqn
   {
     " %11.5f"   = D_spacing;
      " %11.5f\n" = I_after_scale_pks;
   }
}