//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

aHmix = aH90













