"dcptan_HNCa - Set Up a Double Cross Polarization from protons to N-amide to C-alpha 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',60.0):tof sp=45p wp=30p
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_HCa','C13'):pwX90
getparam('aX90_HCa','C13'):aX90

getparam('aYyx_NCa','N15'):aYyx
getparam('aXyx_NCa','C13'):aXyx
getparam('bYX_NCa','N15'):bYX
getparam('dYX_NCa','N15'):dYX
getparam('tYX_NCa','N15'):tYX
getparam('ofYX_NCa','N15'):ofYX
getparam('shYX_NCa','N15'):shYX
getparam('aHyx_NC','H1'):aHyx

