# 1 "/u/exp/stan/nmr/lists/pp/cosydqpgct.serv"
;cosydqpgct.serv from cosydqpgct.wmw
;borrowed from S. pochapsky
;2d COSY dqA f with gradients
;constant time

;pl1 power f1
;p1:f1 90 h1
;d1 relaxation (1s)
;ns=2 ds=4
;d0 3u
;d8=5m
;d11=30m
;d16=1m gradient on time
;in0=in10 set in eda as sw with nd0=4
;ns=n*1
;ds 16
;td1 # rows
;mc2 tppi
;PH_mod1=mc
;wdw1=sine
;ssb1=0
;wdw2=qsine 
;ssb2=3
;PH_mod2=no
;gpz2=17
;use gpz3:gzp4 as 1:2 (31:62) 
;gpz5=23
;td1=256 or 512 (1024 will not work- overrun of constant time period)


"d20=d16+600u"
"d10=70m-d0-p1*2-2.62m"
;"in0=in10"

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





























# 35 "/u/exp/stan/nmr/lists/pp/cosydqpgct.serv"

# 1 "/u/exp/stan/nmr/lists/pp//Grad.incl"
;Grad.incl  -  include file for Gradient Spectroscopy
;avance-version
;version 99/02/19
















define list<gradient> EA=<EA>
# 36 "/u/exp/stan/nmr/lists/pp/cosydqpgct.serv"

1 ze
2 d11		; d11 = 30 ms
3 4u
  300u gron2 
  d8		; d8 = 5 ms   
  10u groff
 ; p1 ph12
 ;  p16:ngrad:c34
 ; d16
  4u setnmr2^0
  d1
  4u setnmr2|0
  (p1 ph1):f1
  d0
  300u gron5 
  1m   
  10u groff
  (p1*2 ph4):f1
  300u gron5 
  1m   
  10u groff
  d10
  (p1 ph2):f1
  d20
  (p1*2 ph4):f1
  300u gron3 
  d16
  300u groff
  (p1 ph3):f1
  d20
  (p1*2 ph4):f1
  300u gron4 
  d16
  300u groff
  go=2 ph31
 
  d11 wr #0 if #0 id0 ip1 zd
  10u dd10
  lo to 3 times td1
  4u setnmr2^0
exit

ph1=0 2
ph2=0
ph3=0
ph4=1
ph12=0
ph31=0 2