# 1 "/opt/topspin/exp/stan/nmr/lists/pp/user/cp2.max"
;cp2.max
;ramp on 1H channel

prosol relations=<solids_cp>

;#include <lgcalc.incl>
;#include <trigg.incl>
;#include <1.incl>

"acqt0=1u*cnst11"
"pl15=sp0"

# 1 "mc_line 13 file /opt/topspin/exp/stan/nmr/lists/pp/user/cp2.max expanding definition part of mc command before ze"
define delay MCWRK
define delay MCREST
"MCWRK = 0.333333*30m"
"MCREST = 30m - 30m"
    dccorr
# 13 "/opt/topspin/exp/stan/nmr/lists/pp/user/cp2.max"
1 ze
# 1 "mc_line 13 file /opt/topspin/exp/stan/nmr/lists/pp/user/cp2.max expanding definition of mc command after ze"
# 14 "/opt/topspin/exp/stan/nmr/lists/pp/user/cp2.max"
# 1 "mc_line 14 file /opt/topspin/exp/stan/nmr/lists/pp/user/cp2.max expanding start label for mc command"
2 MCWRK  * 2 do:f2
LBLF0, MCWRK 
  MCREST
# 15 "/opt/topspin/exp/stan/nmr/lists/pp/user/cp2.max"

  d1 pl2:f2
  (p3 ph1):f2

  0.3u

 (p15 pl1 ph2):f1  (p15:spf0 pl15 ph10):f2

; (p15:spf0 pl1 ph2):f1  (p15 pl15 ph10):f2

  4u pl13:f2
  go=2 ph31 cpds2:f2

# 1 "mc_line 28 file /opt/topspin/exp/stan/nmr/lists/pp/user/cp2.max expanding mc command in line"
  MCWRK do:f2 wr #0
  MCWRK zd 
  lo to LBLF0 times td0

  MCWRK
# 29 "/opt/topspin/exp/stan/nmr/lists/pp/user/cp2.max"

exit

ph0= 0
ph1= 1 3
ph2= 0 0 2 2 1 1 3 3
ph10= 0
ph31= 0 2 2 0 1 3 3 1


;p3: 1H 90 at pl2
;p15: CP contact time
;p31: hp-decoupling pulse
;pl1: F1 CP (13C) power level
;pl2: F2 (1H) hard pulse power
;pl15: F2 CP (1H) power level
;spf0: ramp on F1 (usually 1H, 70-100 rumpup)
;cpdprg2: cw, 1 (at pl12), or lgs, cwlg. cwlgs (LG-decoupling 
;NS: 1 * n, total number of scans: NS * TD0
