# 1 "/u/exp/stan/nmr/lists/pp/nohsgp19d.bv"
;nohsgp19.bv
;avance-version
;3D 15N-edited correlation via dipolar coupling 
;dipolar coupling may be due to noe or chemical exchange.
;phase sensitive using States-TPPI
;water suppression using 3-9-19 pulse sequence with gradients
;New optimized version of Wagner
;Talluri and Wagner, JMR B 112, 200-205, 1996.
;M. Piotto, V. Saudek & V. Sklenar, J. Biomol. NMR 2, 661 - 666 (1992)
;V. Sklenar, M. Piotto, R. Leppik $ V. Saudek, J. Magn. Reson., 
;   Series A 102, 241 -245 (1993)
;
;implemented by B. Volkman (volkman@nmrfam.wisc.edu)
;Version: 101296
;
;  Disclaimer: This pulse program is provided "as is" for your
;  information. Support for the use of this pulse program is only
;  provided to users of the National Magnetic Resonance Facility
;  at Madison (NMRFAM). Users of this pulse program employ it at
;  their own risk. Neither NMRFAM or University of Wisconsin-Madison
;  are liable for any physical or other damage incurred during the
;  use of this pulse program.
;
;

;Define channel assignments:





# 1 "/u/exp/stan/nmr/lists/pp/Avance.incl" 1
;Avance.incl
;
;avance-version (03/02/17)


















































































































;$Id: Avance1.incl,v 1.7.2.3 2003/02/25 14:48:47 ber Exp $
# 32 "/u/exp/stan/nmr/lists/pp/nohsgp19d.bv" 2

# 1 "/u/exp/stan/nmr/lists/pp/Grad.incl" 1
;Grad.incl  -  include file for Gradient Spectroscopy
;
;avance-version (02/05/31)



















define list<gradient> EA=<EA>



;$Id: Grad1.incl,v 1.7 2002/06/12 09:04:22 ber Exp $
# 33 "/u/exp/stan/nmr/lists/pp/nohsgp19d.bv" 2


;*** Pulses ***
;p1 = 1H 90 at pl1
"p2=p1*2"
;p21 = 15N 90 at pl2
"p22=p21*2"
;pcpd3 = 15N dec 90 at pl16
;cpdprg3 = waltz16

;*** Gradients ***
"p15= 500u"
"p16= 500u"
"p18= 750u"
"p19= 1m"

;"gpz9 = 5"
;"gpz5 = 8"
;"gpz6 = 13"
;"gpz8 = 28"

;*** Delays ***
define delay TAUM

"d0=(in0/2-2u-(p1*2/3.14159))"
;d1-relaxation delay
"d2=2.3m"
"d5=5m"
;d8-NOESY mixing time
;"d10=3u"
"d10=(in10/2-p1-(p2*2/3.14159))"
"d12=10u"
;"d19=160u"
"d20=d19-p2"
"d21=d2-p15"
"d22=d2-p15-d16"
"d23=d2-p18-d16-d19*5-p1*2.38"
"d25=p1"
"d26=p2*2"
"d28=p2-p1"
"d29=p2-p3*2-3u"
"d18=d8-d12-d5"

;#define ONE_D



"l4=td1/2"
"l6=td2/2"

1 ze
  d12 pl1:f1
  d12 pl2:f2
2 d11 do:f3
  d12
3 d12
  d12
4 d12 
  d12
5 d12
  d12
6 d12 setnmr2^0
  d1 pl3:f3





  p1 ph1
if "d0*2 > p22" goto 7
  2u
  d0*2
goto 8
7 2u 
"d27 = d0 - p21"
  (d0*2):f1 (d27 p22 ph0):f3 (d27 p3 ph0 3u p3*2 ph4 3u p3 ph0):f2
8 2u
  p1 ph3

  d18
  d12 setnmr2|0
  (p21 ph0):f3
  d12
  p19:gp9
  d5
  p1 ph0
  3u
  p15:gp5
  d21
  (d28 p2 ph0):f1 (p22 ph0):f3
  3u
  d22
  p15:gp5
  d16
  (p1 ph4):f1
  3u
  p16:gp6
  d16
  (p21 ph5):f3

  d10
  (p2 ph2):f1
  d10



  (p21 ph6):f3
  3u
  p16:gp6
  d16
  (p1 ph7:r):f1
  3u
  p18:gp8
  d16
  d23
  (p1*0.231 ph11):f1
  d19*2
  (p1*0.692 ph11):f1
  d19*2
  (p1*1.462 ph11):f1
  d20
  (p22 ph0):f3
  d20
  (p1*1.462 ph12):f1
  d19*2
  (p1*0.692 ph12):f1
  d19*2
  (p1*0.231 ph12):f1
  d23 pl16:f3
  3u
  p18:gp8
  d16
  d25
  go=2 ph31 cpds3:f3



  d11 do:f3 wr #0 if #0 zd


  d12 ip1*2
  lo to 3 times 2
  d12 id0
  d12 ip31*2
  lo to 4 times l4
  d12 rd0
  d12 rp1


  d12 ip5
  lo to 5 times 2
  d12 id10
  d12 ip31*2
  lo to 6 times l6

  d12 setnmr2^0
exit

ph0=0
;ph1=0
ph1=(8) 7
ph2=0 0 0 0 2 2 2 2
ph3=0 2
ph4=1
ph5=0 0 2 2 
ph6=0
ph7=2
ph10=0
ph11=1
ph12=3
ph31=0 2 2 0