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

aHxh = aHhx
aXxh = aXhx
bXH = bHX
dXH = dHX
tXH = tHX
ofXH = ofHX
shXH = shHX
chXH = chHX
frXH = 'dec'
toXH = 'obs'

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
tconst = 7e-3
CT = 'y'

refsource1 = 'dfrq'
axis='pd'

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



