# 1 "/u/exp/stan/nmr/lists/pp/tocsy_zq.wmw"
;tocsy_zg.wmw
;TOCSY
;modified to remove zq coherence 
;Thrippleton angew. Chem Int ed 42 3938-3941 2003
;Hu JMR 171 201-206 2004
;avance-version (WMW)

;l4=td1/2
;nd0=2
; TPPI
;p1 90 degree pulse at pl1 (hard pulse 7-10 us)
;p2 90 degree pulse at p111 (DIPSI pulse ~30us)
;pl0=120
;p14=180 pulse for wurst1 (50 ms 30KHz WURST)
;p15=180 pulse for wurst2 (30 ms 20KHz WURST)
;sp14 power for p14
;sp15 power for p15
;spnam14 wurst1
;spnam15 wurst2
;gpz5 associated with wurst1 calibrate using invspulse_g_f1.wmw 
;gpz6 associated with wurst2 calibrate using invspulse_g_f1.wmw
;gpz7 = 53
;gpz8 = 29


;DIPSI-2 = 115.112*p2*l1
;set l1 to adjust the mixing time


;UNCOMMENT next line for 1d version
;#define ONE_D


;NO NEED TO CHANGE ANYTHING BELOW THIS LINE


"d16=300u"                      ;gradient recovery
"d11=100m"
"d14=40u"
;"d0=(in0-1.2732*p1)/2"
"d0=3u"

# 1 "/u/exp/stan/nmr/lists/pp//Avance.incl"
;Avance.incl
;
;version  99/08/02





























# 43 "/u/exp/stan/nmr/lists/pp/tocsy_zq.wmw"

d1 pl1:f1

1 ze
2 d11 
  d14
3 d14
  d14
  d14
4 d14 setnmr2^0

  d1 pl1:f1 
  20u setnmr2|0
  (p1 ph5):f1    
   d0
  (p1 ph6):f1

;---beginning of TOCSY
;ZQ filter
3u gron7
1m
30u groff
3u gron5
p14:sp14:f1 ph0
3u groff
;end ZQ filter

d16 pl11:f1
;Dipsi-2
4 (p2*3.556 ph30 3u):f1 
(p2*4.556 ph29 3u):f1
(p2*3.222 ph30 3u):f1
(p2*3.167 ph29 3u):f1
(p2*0.333 ph30 3u):f1
(p2*2.722 ph29 3u):f1
(p2*4.167 ph30 3u):f1
(p2*2.944 ph29 3u):f1
(p2*4.111 ph30 3u):f1
(p2*3.556 ph29 3u):f1
(p2*4.556 ph30 3u):f1
(p2*3.222 ph29 3u):f1
(p2*3.167 ph30 3u):f1
(p2*0.333 ph29 3u):f1
(p2*2.722 ph30 3u):f1
(p2*4.167 ph29 3u):f1
(p2*2.944 ph30 3u):f1
(p2*4.111 ph29 3u):f1
(p2*3.556 ph29 3u):f1
(p2*4.556 ph30 3u):f1
(p2*3.222 ph29 3u):f1
(p2*3.167 ph30 3u):f1
(p2*0.333 ph29 3u):f1
(p2*2.722 ph30 3u):f1
(p2*4.167 ph29 3u):f1
(p2*2.944 ph30 3u):f1
(p2*4.111 ph29 3u):f1
(p2*3.556 ph30 3u):f1
(p2*4.556 ph29 3u):f1
(p2*3.222 ph30 3u):f1
(p2*3.167 ph29 3u):f1
(p2*0.333 ph30 3u):f1
(p2*2.722 ph29 3u):f1
(p2*4.167 ph30 3u):f1
(p2*2.944 ph29 3u):f1
(p2*4.111 ph30 3u):f1  
lo to 4 times l1

;ZQ filter
3u gron6
p15:sp15:f1 ph0
300u groff
3u gron8
1m
3u groff
;end ZQ filter

d16 pl1:f1


(p1 ph7):f1
;---end of TOCSY
go=2 ph31
# 127 "/u/exp/stan/nmr/lists/pp/tocsy_zq.wmw"

  d11 wr #0 if #0 zd
  d14 ip5 id0
  lo to 4 times l4


  d14 setnmr2^0
exit


ph5=0 2 1 3 
ph6=1 1 2 2 
ph7=0 
ph0=0
ph1=0 
ph2=2
ph10=0
ph11=1
ph31=0 1 2 3
ph29=2
ph30=0