Description: “old” gem tof peak shape; wifd_mic probably does a better job.

Contributed by: John Evans

macro gem_instrumental_peakshape( ,prma0, ,prma1, ,prmb0, ,prmb1)
{
   push_peak        
      exp_conv_const = prma0 + prma1 / D_spacing;
	bring_2nd_peak_to_top
      user_defined_convolution        
          = prmb0 Exp(- prmb1  X) / D_spacing^4;  
            min 0
            max = -Ln(0.001) / prmb1;
   add_pop_1st_2nd_peak
      peak_buffer_step 1 'report_on
 
}