// Set Parameters 

aXr2inv = aX90
asXr2inv = aX90
dbsXr2inv = tpwr - 24
pwXr2inv = pwX90
pwsXr2inv = pwX90*64


// Synchronize the Mixing Time with the Rotor 

if (srate > 500) then    
   $taur = 0.0125e-6*trunc(1.0/(srate*0.0125e-6) + 0.5)
   $tXr2inv = $taur*1e6*trunc(tXr2inv/($taur*1e6) + 0.5)
   tXr2inv = $tXr2inv
endif  

// Set Decoupling Mixing

exists('Hseq','parameter'):$Hseq
if ($Hseq>0.5) then 
   Hmixseq = Hseq
   aHmixspinal = aHspinal
   aHmixtppm = aHtppm 
   pwHmixspinal = pwHspinal
   pwHmixtppm = pwHtppm 
   phHmixspinal = pwHspinal
   phHmixtppm = pwHtppm 
endif   








