// Set 1H FSLG

aHfslg = aH90
pwHtilt = pwH90*35.3/90.0
$pwHfslg = sqrt(2.0/3.0)*4.0*pwH90
pwHfslg = 0.1*trunc($pwHfslg/0.1 + 0.5)
ofdHfslg = 1.0/(sqrt(3)*pwHfslg*1e-6)
if (nHfslg < 1.0) then nHfslg = 1 endif

// Reset the FSLG amplitude to match the rounded 2pi pulse.

$aHfslg = (pwHfslg/$pwHfslg)*aHfslg
aHfslg = trunc($aHfslg + 0.5)

// Set a 2D Experiment

exists('ni','parameter'):$ni
if ($ni<0.5) then 
   par2d
   ni = 64
   phase=0
   refsource1 = 'dfrq'
   axis = 'ph'
   scalesw1 = 1.24844
endif

// Synchronize the dwell with the FSLG Cycle

if (pwHfslg > 0.0) then 
   sw1 = 1.0/(2.0*pwHfslg*1e-6)
   rfl1 = sw1/2
   rfp1 = 0
endif  

// Set the fslgX Pulses 

pwXfslg = pwHfslg
$aXfslg = (4.0*pwX90/pwXfslg)*aX90
aXfslg = trunc($aXfslg + 0.5)
ofdXfslg=0.0
if (nXfslg < 1.0) then nXfslg = 1 endif

setprotect('refsource1 axis scalesw1','off',16384)





