// Set dumboH

aHdumbo = aH90
$pwHdumbo = 12.0*pwH90
pwHdumbo = 0.1*trunc($pwHdumbo/0.1 + 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)


