//Set the R18 pulses from the Spin Rate

if (srate > 500) then 
   $pwHr18 = 1.0e6/(9.0*srate)
   pwHr18 = 0.2*trunc($pwHr18/0.2 + 0.5)
   srate = 1.0e6/(9.0*pwHr18)
   aHr18 = aH90*(4.0*pwH90)/pwHr18
   if (aHr18 = 4095) then 
      write('error','reset_r18 Error: aHr18 is >= to 4095')
   endif
endif

if (qHr18 < 2) then qHr18 = 2 endif

// Set a 2D Experiment

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














