"onepul_HC - Set Up Standard Direct 13C Polarization with onepul.c"

BPrtppar('onepul_C13')
BP_SS_getsrate:srate

tn='C13' dn='H1' dn2='N15' ampmode='dppp'
getsolidsprobedata('tn') getsolidsprobedata('dn') getsolidsprobedata('dn2')
setoffset('C13',100.0):tof sp= -50p wp=300p
tof=0.1*trunc(tof/0.1 + 0.5) setref 

getparam('Hseq_HC','H1'):Hseq 
getparam('aHspinal_HC','H1'):aHspinal
getparam('pwHspinal_HC','H1'):pwHspinal
getparam('phHspinal_HC','H1'):phHspinal
getparam('aHtppm_HC','H1'):aHtppm
getparam('pwHtppm_HC','H1'):pwHtppm
getparam('phHtppm_HC','H1'):phHtppm
getparam('pwH90_HC','H1'):pwH90
getparam('aH90_HC','H1'):aH90
getparam('pwX90_HC','C13'):pwX90
getparam('aX90_HC','C13'):aX90
getparam('aHhx_HC','H1'):aHhx
getparam('aXhx_HC','C13'):aXhx
getparam('bHX_HC','H1'):bHX
getparam('dHX_HC','H1'):dHX
getparam('tHX_HC','H1'):tHX
getparam('ofHX_HC','H1'):ofHX
getparam('shHX_HC','H1'):shHX



