//Set the SPC5  pulses from the Spin Rate

if (srate>500) then 
   $pwXspc5 = 1.0e6/(5.0*srate)
   pwXspc5 = 0.1*trunc($pwXspc5/0.1 + 0.5)
   srate = 1.0e6/(5.0*pwXspc5)
   aXspc5 = aX90*(4.0*pwX90)/pwXspc5
   if (aXspc5 = 4095) then 
      write('error','reset_spc5 Error: aXspc5 is >= to 4095')
   endif
endif

// Set a 2D Experiment

exists('ni','parameter'):$ni
if ($ni<0.5) then 
   par2d
   ni = 64
   phase=1,2
endif


aHmix = aH90













