;noeprtpxcpd.mck
;2D homonuclear correlation via dipolar coupling 
;dipolar coupling may be due to noe or chemical exchange.
;phase sensitive using TPPI
;with presaturation during relaxation delay and mixing time
;modified 12/13/94 mck from noesyprtp to include X nucleus decoupling
;works! 


#include <Dmx.incl>
#include <Avance.incl>

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
  d12 pl9:f1
  d8 cw:f1
  d13 do:f1
  d12 pl1:f1
  d12 pl12:f2
  p1 ph3
  go=2 ph31 cpd2:f2
  d11 do:f2 wr #0 if #0 id0 ip1 zd
  lo to 3 times td1
exit


ph1=0 2 
ph2=0 0 0 0 0 0 0 0 2 2 2 2 2 2 2 2
ph3=0 0 2 2 1 1 3 3
ph31=0 2 2 0 1 3 3 1 2 0 0 2 3 1 1 3
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 high power pulse
;d0 : incremented delay (2D)                         [3 usec]
;d1 : relaxation delay; 1-5 * T1
;d8 : mixing time
;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
;cpdprog2: e.g. waltz16
;MC2:  TPPI