"dcptan_HNCO - Set Up a Double Cross Polarization from protons to N-amide to Carbonyl with dcptan.c" 

BPrtppar('dcptan_HNC')
BP_SS_getsrate:srate

tn='C13' dn='H1' dn2='N15' ampmode='dppp'
getsolidsprobedata('tn') getsolidsprobedata('dn') getsolidsprobedata('dn2')
setref setoffset('C13',175.0):tof sp=165p wp=20p
tof=0.1*trunc(tof/0.1 + 0.5) setref

getparam('Hseq_HNai','H1'):Hseq 
getparam('aHspinal_HNai','H1'):aHspinal
getparam('pwHspinal_HNai','H1'):pwHspinal
getparam('phHspinal_HNai','H1'):phHspinal
getparam('aHtppm_HNai','H1'):aHtppm
getparam('pwHtppm_HNai','H1'):pwHtppm
getparam('phHtppm_HNai','H1'):phHtppm
getparam('pwH90_HNai','H1'):pwH90
getparam('aH90_HNai','H1'):aH90
getparam('pwX90_HNai','N15'):pwY90
getparam('aX90_HNai','N15'):aY90
getparam('aHhx_HNai','H1'):aHhy
getparam('aXhx_HNai','N15'):aYhy
getparam('bHX_HNai','H1'):bHY
getparam('dHX_HNai','H1'):dHY
getparam('tHX_HNai','H1'):tHY
getparam('ofHX_HNai','H1'):ofHY
getparam('shHX_HNai','H1'):shHY

getparam('pwX90_HCO','C13'):pwX90
getparam('aX90_HCO','C13'):aX90

getparam('aYyx_NCO','N15'):aYyx
getparam('aXyx_NCO','C13'):aXyx
getparam('bYX_NCO','N15'):bYX
getparam('dYX_NCO','N15'):dYX
getparam('tYX_NCO','N15'):tYX
getparam('ofYX_NCO','N15'):ofYX
getparam('shYX_NCO','N15'):shYX
getparam('aHyx_NCO','H1'):aHyx

