# 1 "/u/exp/stan/nmr/lists/pp/sehetnoe_fb.bv"
# 1 "/u/exp/stan/nmr/lists/pp/sehetnoe_fb.bv"
;sehetnoe_fb.al
;2D 1H/15N heteronuclear NOE with water along +Z
;Farrow, N.A. et al,  Biochemistry (1994), 33, 5984-6003.
;
;Written up by Andrew Lee, alee@lcbvax.cchem.berkeley.edu
;Implemented and tested on DMX-600 and DMX-750 by B. Volkman, 
;volkman@nmrfam.wisc.edu.  7/20/96
;
;Modified for prosol-compliant operation 121501, BFV
;
;  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.
;
;use gradient program bv_hetnoe
;
;*** If multiblock acquisition is to be used: ***
;uncomment the following line:

;set up dslist to specifiy dataset directories for expt #1 and
;#2, as described in Xwinnmr manual, or look at bvjnc for example
;dslist files go in ds directory, found in lists dir (type cdlists)

;Define channel assignments:





;**Set these parameters manually**
;RF pulses
;F1= proton at H2O
;F2=15N at amides (~116ppm)
;p1 - 1H high power 90 @ pl1
"p2=p1*2"
;p21 - 15N high power 90 @ pl2
"p22=p21*2"
"p5=p1*4/3" ; - 1H high power 120 @ pl1
;pcpd3 - 15N aliphatic decoupling 90 @ pl16
;cpdprg3 - waltz16 or garp
;
;Gradient pulses
"p12=500u"
"p13=500u"
"p17=1.25m"
"p18=125u"
;
;d0=3u
;IN0=1/SW*2 in 15N dim.
;
;recycle delay = d1+d20+d21
;l8=600 - for 3s NOE buildup period

;**The following parameters are preset**
"d2=2.25m-p12"	;p12=GRADIENT12 pulse length
"d3=d2-d16"
"d4=2.75m"
"d5=500u"
"d6=p1"
"d7=p21"
"d10=5m-p5"
"d11=30m"
"d12=20u"
"d14=d4-d12+p2"
"d15=d4-d12-p17-d0*2" 	;p17=GRADIENT17 pulse length
"d16=300u"
"d20=p5*l8"
"d21=d10*l8"
"d25=d5-p18"
"d29=p21-p1"

# 1 "/u/exp/stan/nmr/lists/pp/Avance.incl" 1
;Avance.incl
;
;version  00/07/27


;switch between high and low stage oh f1 amplifier



;use 2H channel for lock or pulse (lockswitch)



;allow for 2H decoupling (lockswitch)



;turn lock-hold on/off (BSMS)



;switch between 1H or 19F output (f1 amplifier)



;select output for 19F (amplifier)



;homospoil on/off (BSMS)



;for Q-switch probes



;for mixing probe



;gating pulse for RX22, ADC and HPPR




;not active




;$Id: pulseprogram,v 1.1 2021/02/11 00:18:04 bmrbsvc Exp $
# 76 "/u/exp/stan/nmr/lists/pp/sehetnoe_fb.bv" 2

# 1 "/u/exp/stan/nmr/lists/pp/Gradal.incl" 1
;Gradal.incl  -  include file for Gradient Spectroscopy
;avance-version
;version 94/06/27























# 77 "/u/exp/stan/nmr/lists/pp/sehetnoe_fb.bv" 2


1 ze
  d11 pl1:f1 pl2:f2 pl3:f3
2 d9 do:f3
  d9
5 d9
  d9*2
6 d12
;****************** reference experiment **********************
  d11 
  d12 setnmr2^0
  d1 pl1:f1 pl2:f3
  d20
  d21			;no cpdt in reference expt.
  d12
  (p1 ph0):f1
  p13:ngrad:c34	;g2=0.5hm @ 4 G/cm
  d16
;--------------------------------------------------------
  (p21 ph11):f3
  d14 ;fq1:f1
  d12
  (p22 ph12):f3
  d0 					;t1/2
  (p2 ph0):f1
  d12 setnmr2|0
  p17:ngrad:c34	;g1=1.25m @ 30 G/cm for coh. selection
  d15
  d0						;t1/2
;---- start RINEPT --------------------------------------
  (p21 ph13):f3 
  d6
  (p1 ph0):f1
  3u
  p12:ngrad:c34	;g2=0.5hm @ 4 G/cm
  d2
  (p22 ph0):f3
  (p2 ph0):f1 
  d3
  p12:ngrad:c34
  d16 
  3u
  d7
;---- refocus orthogonal component ----------------------
  (p21 ph1):f3 
  (p1 ph1):f1 
  3u
  p12:ngrad:c34	;g3=g2=0.5hm @ 4 G/cm
  d2                                             
  (d29 p2 ph0):f1 (p22 ph0):f3
  d3 
  3u
  p12:ngrad:c34
  d16
;---- put all protons transverse, refocus coherences ----
  (p1 ph2):f1
  d5
  3u
  (p2 ph0):f1
  3u
  p18:ngrad:c34	;g4=0.125m @ 27.8 G/cm for refocusing
  d25 pl16:f3
  go=2 ph31 cpds3:f3

  d11 do:f3 wr #1 if #1 zd



;*******************  NOE experiment *********************
7 d11 do:f3
  d11*4
  d11 setnmr2^0
  d1 pl1:f1 pl3:f3
8 (p5 ph0):f1
  d10 
  lo to 8 times l8
  d12
  (p1 ph0):f1
  p13:ngrad:c34	;g2=0.5hm @ 4 G/cm
  d16
;--------------------------------------------------------
  (p21 ph11):f3
  d14 ;fq1:f1
  d12 pl1:f1
  (p22 ph12):f3
  d0 					;t1/2
  (p2 ph0):f1
  d12 setnmr2|0
  p17:ngrad:c34	;g1=1.25m @ 30 G/cm for coh. selection
  d15
  d0						;t1/2
;---- start RINEPT --------------------------------------
  (p21 ph13):f3 
  d6
  (p1 ph0):f1
  3u
  p12:ngrad:c34	;g2=0.5hm @ 4 G/cm
  d2
  (p22 ph0):f3
  (p2 ph0):f1  
  d3
  3u
  p12:ngrad:c34
  d16 
  d7
;---- refocus orthogonal component ----------------------
  (p21 ph1):f3 
  (p1 ph1):f1 
  3u
  p12:ngrad:c34	;g3=g2=0.5hm @ 4 G/cm
  d2                                             
  (d29 p2 ph0):f1 (p22 ph0):f3
  d3 
  3u
  p12:ngrad:c34
  d16
;---- put all protons transverse, refocus coherences ----
  (p1 ph2):f1
  d5
  3u
  (p2 ph0):f1
  3u
  p18:ngrad:c34	;g4=0.125m @ 27.8 G/cm for refocusing
  d25 pl16:f3
  go=7 ph31 cpds3:f3

  d11 do:f3 wr #2 if #2 zd



;*********************************************************
  d9 ip13*2
  lo to 5 times 2
  d9 id0 
  d9 ip11*2 
  d9 ip31*2
  lo to 6 times l4
  d11 setnmr2^0
exit
  
ph0=0
ph1=1
ph2=2
ph3=3
ph11=1
ph12=0 1 2 3
ph13=0
ph31=0 2