getsolidsprobedatahid('tn')
getsolidsprobedatahid('dn')
getsolidsprobedatahid('dn2')

exists('aHhx', 'paramter'):$e
if ($e > 0.5) then 
   aHxh = aHhx
   aXxh = aXhx
   bXH = bHX
   dXH = dHX
   tXH = tHX
   ofXH = ofHX
   shXH = shHX
   chXH = chHX
   frXH = 'dec'
   toXH = 'obs'
endif

Hseq = 'spinal2'
aHspinal2 = aH90
$pwHspinal2 = 2.0*pwH90*165.0/180.0
pwHspinal2 = 0.0125*trunc($pwHspinal2/0.0125 + 0.5)
phHspinal2 = 10
alpHspinal2 = 0.0

Xseq = 'spinal2'
aXspinal2 = 0.0
pwXspinal2 = 0.0
phXspinal2 = 8.0
alpXspinal2 = 0.0

par2d
sw1 = 5000
ni = 32
phase=1,2

par3d
sw2 = 5000
ni2 = 32
phase=1,2

exists('refsource1','parameter'):$e
if ($e < 0.5) then 
   create('refsource1','string')
endif
refsource1 = 'dfrq2'

exists('refsource2','parameter'):$e
if ($e < 0.5) then 
   create('refsource2','string')
endif
refsource2 = 'dfrq'

axis='p2'

gzlvl1=0.0
hst = 0.0
hstconst = 0.0

aHpxy = 0.0
pwHpxy = 0.0
qHpxy = 0.0
ofHpxy = 0.0

aHrfdr = 0.0
pwHrfdr = 0.0
qHrfdr = 0.0
ofHrfdr = 0.0

if (srate>500) then 
   $tHecho = 2.0e6/srate
   tHecho = 0.0125*2.0*trunc($tHecho/(0.0125*2.0) + 0.5)
endif

tHecho = 0.0



