// Set DUMBO and Tilt Pulse
aHdumbo = aH90
$pwHdumbo = 12.0*pwH90
pwHdumbo = 0.1*64*trunc($pwHdumbo/(0.1*64) + 0.5)
if (nHdumbo < 1.0) then nHdumbo = 1 endif

// Reset the DUMBO amplitude to match the rounded 6pi pulse.

$aHdumbo = ($pwHdumbo/pwHdumbo)*aHdumbo
aHdumbo = trunc($aHdumbo + 0.5)

if (nHdumbo < 1) then nHdumbo = 1 endif // cycles per waveform

// Set a 2D Experiment

exists('ni','parameter'):$ni
if ($ni<0.5) then
   par2d
   ni = 64
   phase=1,2
   refsource1 = 'dfrq'
   axis = 'pd'
   scalesw1 = sqrt(3)
endif

// Synchronize the F1 Dwell with 4.0 PMLG Cycles

if (pwHdumbo > 0.0) then
   sw1 = 1.0/(pwHdumbo*1e-6)
endif

// Set the 2D Processing Parameters

setprotect('refsource1 axis scalesw1','off',16384)
refsource1 = 'dfrq'
axis = 'pd'
scalesw1 = 1.0
