// Set H SAMMY

$wfr = 0.1 if (Console='inova') then $wfr = 0.2 endif

pwHsmyd = 2.0*$wfr*trunc(pwH90/(2.0*$wfr) + 0.5)
$aHsmyd = trunc((pwHsmyd*aH90/pwH90) + 0.5)
aHsmyd =$aHsmyd
if ($aHsmyd > 4095) then write('error','Error: Parameter aHsmyd 0ut of Range') endif
if (qHsmyd < 1.0) then qHsmyd = 1 endif

// Synchronize the dwell with the SAMMY cycle. 

if (pwHsmyd > 0.0) then 
   sw1 = 1.0/(12.0*pwHsmyd*1.0e-6)
   rfl1 = sw1/2
   rfp1 = 0
endif  

// Set X SAMMY

pwXsmyo = pwHsmyd
$aXsmyo = trunc((pwX90/pwXsmyo)*aX90 + 0.5)
aXsmyo = $aXsmyo
if ($aXsmyo > 4095) then write('error','Error: Parameter aHsmyo 0ut of Range') endif
if (qXsmyo < 1.0) then qXsmyo = 1 endif

// Round Del1 and Del2 for X and H

$t1Xsmyo = t1Xsmyo
t1Xsmyo = $wfr*trunc($t1Xsmyo/$wfr + 0.5)

$t2Xsmyo = t2Xsmyo
t2Xsmyo = $wfr*trunc($t2Xsmyo/$wfr + 0.5)

$t1Hsmyd = t1Hsmyd
t1Hsmyd = $wfr*trunc($t1Hsmyd/$wfr + 0.5)

$t2Hsmyd = t2Hsmyd
t2Hsmyd = $wfr*trunc($t2Hsmyd/$wfr + 0.5)










