;cosydfxcpd.mck
;avance-version
;2D homonuclear shift correlation
;with presaturation during relaxation delay
;phase sensitive using TPPI
;with double quantum filter
;phasecycle: A. Derome & M. Williamson, J. Magn. Reson. 88,
;               177 - 185 (1990)
;modified 8/12/96 to include X nucleus decoupling

#include <Avance.incl>


;;"d0=3u"
"d11=30m"
"d12=20u"
"d13=3u"


1 ze
2 d11
3 d12 pl9:f1
  d1 cw:f1
  d13 do:f1
  d12 pl1:f1
  d12 pl2:f2
  p1 ph1
  d0
  (p4 ph8):f2
  d0
  p1 ph2
  d13
  p1 ph3
  d12 pl12:f2
  go=2 ph31 cpd:f2
  d11 do:f2 wr #0 if #0 id0 ip1 zd
  lo to 3 times td1
exit


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

;pl1 : f1 channel - power level for pulse (default)
;pl9 : f1 channel - power level for presaturation
;pl2 : f2 channel - power level for hard 180 X pulse
;pl12: f2 channel - power level for cpd X decoupling
;p1 : f1 channel -  90 degree high power pulse
;p4 : f2 channel -  180 degree X high power pulse
;d0 : incremented delay (2D)                         [3 usec]
;d1 : relaxation delay; 1-5 * T1
;d11: delay for disk I/O                             [30 msec]
;d12: delay for power switching                      [20 usec]
;d13: short delay                                    [3 usec]
;in0: 1/(4 * SW) = 1/2 * DW
;nd0: 4
;NS: 8 * n
;DS: 16
;td1: number of experiments
;cpdrpg2: e.g. Waltz16
;MC2: TPPI