# 1 "/opt/topspin/exp/stan/nmr/lists/pp/cp.dx"
;cp
;avance-version (02/05/31)
;high power cross polarisation sequence  
;using two proton power levels for CP and decoupling
;
; !!! recable 1H channel f2 direct to probehead !!!
; !!! do not connect via the proton preamplifier !!!
;
;$CLASS=HighRes Solids
;$DIM=1D
;$TYPE=
;$SUBTYPE=
;$COMMENT=


# 1 "/opt/topspin/exp/stan/nmr/lists/pp/Avance.incl" 1
;Avance.incl
;
;avance-version (07/01/22)
;
;$CLASS=HighRes Incl
;$COMMENT=

































































































































;$Id: Avance1.incl,v 1.10.6.2 2007/01/22 13:54:46 ber Exp $
# 16 "/opt/topspin/exp/stan/nmr/lists/pp/cp.dx" 2



# 1 "mc_line 19 file /opt/topspin/exp/stan/nmr/lists/pp/cp.dx expanding definition part of mc command before ze"
define delay MCWRK
define delay MCREST
"MCWRK = 0.500000*30m"
"MCREST = 30m - 30m"
# 19 "/opt/topspin/exp/stan/nmr/lists/pp/cp.dx"
1 ze
# 1 "mc_line 19 file /opt/topspin/exp/stan/nmr/lists/pp/cp.dx expanding definition of mc command after ze"
# 20 "/opt/topspin/exp/stan/nmr/lists/pp/cp.dx"
# 1 "mc_line 20 file /opt/topspin/exp/stan/nmr/lists/pp/cp.dx expanding start label for mc command"
2 MCWRK  * 2 do:f2
LBLF0, MCREST
# 21 "/opt/topspin/exp/stan/nmr/lists/pp/cp.dx"
  d1
  10u pl1:f1 pl2:f2
  (p3 ph1):f2
  3u
  (p15 ph2):f1 (p15:sp0 ph3):f2
  2u pl12:f2 cpds2:f2 
  go=2 ph31
# 1 "mc_line 28 file /opt/topspin/exp/stan/nmr/lists/pp/cp.dx expanding mc command in line"
  MCWRK do:f2 wr #0
  MCWRK zd 
  lo to LBLF0 times td0

# 29 "/opt/topspin/exp/stan/nmr/lists/pp/cp.dx"
exit


ph1=1 3
ph2=0 0 2 2 1 1 3 3
ph3=0
ph31=0 2 2 0 1 3 3 1


;pl1 : f1 channel - power level for pulse (default)
;                      [about 0.0 for B-LAX 300]
;pl2 : f2 channel - power level for pulse (default)
;                      [about 0.0 for B-LAH 100]
;pl12: f2 channel - power level for decoupling
;                      [about -3.0 for B-LAH 100]
;pl13: f2 channel - power level for special decoupling
;p3 : f2 channel -  90 degree high power pulse
;p15: f1(f2) channel - contact pulse
;d1 : relaxation delay: 1.25 * T1(H1), but > 50 * aq
;NS: 4 * n, total number of scans: NS * TD0
;DS: 0
;cpdprg2 : e.g. cw, spinal64, etc
;spnam0 : use e.g. ramp70100.100
;sp0 : proton power level during contact
;pcpd2 : pulse length in decoupling sequence (e.g.180deg-0.2us)
;cnst21 : on resonance, usually = 0


;$Id: cp,v 1.7.10.1 2005/11/10 13:18:56 ber Exp $
