// Set FSLG

aHfslg = aH90
$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)










