# 1 "/u/exp/stan/nmr/lists/pp/hncg_aro.hu"

# 1 "/u/exp/stan/nmr/lists/pp/Gradnt_new.incl"

;Gradnt.incl  -  include file for Gradient Spectroscopy
;avance-version
;version 94/06/27











































# 2 "/u/exp/stan/nmr/lists/pp/hncg_aro.hu"

;1 hn, 15n edited noesy to water protons
;history
;written by sg 2/23/93
;put in water flip_back 6/1/93
;change to waternh 7/29/93




;#define ONE_D
;#define PULSE_CHECK

;p1	proton 90 at hl1, 9u
;p2	1ms proton 90  at hl2 ;sklenar
;set phcor14 and phcor18!!!
;p3	~2ms proton 90 with halfgauss sp1
;p30	~50-80 us dipsi-2 decoupling pl30

;carbon pulses carrier on 128/5ppm
;pl5 120
;"p11=150u"		;carbon 180 pulse at sp11 sinc1.0 on 56 ppm
"p11=430u"		;carbon 180 pulse at sp11 g3 on 43 ppm (sw=23ppm)
;"p12=520u"		;carbon 180 pulse at sp12 sinc1.0 on 177 ppm
"p12=1.25m"		;carbon 180 pulse at sp12 g3 on 176 ppm
"p13=580u"		;carbon 180 pulse at sp13 g3 on 128 ppm (sw=17ppm)


;p7	high power n15 90 pl7 on f2
;p31	low power n15 90 (160ms) on f2 at pl31


"d4=2.25m"			;hsq h to n15


;*****	nitrogen evolution	*****
;d14 = total Nitrogen transverse time
"d15=d14 -10.812m - p30*2.0"
"d16=d14*0.5 -p7"
"d17=d16"
"d18=10u"
"d19=200u"
"d21=d17 +p7*2.0"
"d20=d14 -d18 -30u -d19 -d21 -p11 -p12 -p13"

;in19=in20=d20-20u
;in16=in17=in18=in21=1/(2sw)
;l3=(d16-5.4m)/in16



"p17=p7"


"d11=50m"
"d12=10m"
"d13=25m"
;"d22=p2"
;"d23=p3"
"d26=p7-p1"
"d27=p7-p23"
"d30=p30"

;gradient pulses
"p20=2.5m"      ;at gp0=+50%
"p21=2m"        ;at gp1=-50%
"p22=400u"      ;at gp0=+50%







1	ze
2	1m setnmr2^0 setnmr0^32 setnmr0^33 setnmr0^34
	1m do:f2
	d11

	d12*2.0
21	d12*2.0

	d12
3	d12*6.0
4	10u do:f4
;*****	presaturation	*****
	10u pl7:f2
	10u pl5:f4

	d1
	1m setnmr2|0 setnmr0|32 setnmr0|33 setnmr0|34
	10u pl1:f1 
;*****	start 90-degree on h-n	*****
	(p1 ph0)
	d4
	(p7*2 ph6):f2 (d26 p1*2 ph4)
	d4
;*****	hsqc to nitrogen	*****
	(p1 ph6)
	2u
	4u pl2:f1

	p2 ph18
	2u
	p20:gp0     ;GRAD( 40, POSITIV, 50)
# 111 "/u/exp/stan/nmr/lists/pp/hncg_aro.hu"

	2.5m pl1:f1
;*****	transverse nitrogen	*****
	(p17 ph3):f2



	(5.4m pl30 p30 ph4 2u d15 cpds1 10u do p30 ph8 5.4m):f1 (d16 p7*2 ph9 d17):f2 (d18 p11:sp11 ph10 15u pl5 5u p12:sp12 ph10 d19 pl5 5u p13:sp13 ph11 d20 5u pl5 d21):f4

# 124 "/u/exp/stan/nmr/lists/pp/hncg_aro.hu"


;*****	nitrogen back to z	*****
	(p7 ph7):f2
	2u
	p21:gp1		;GRAD( 41, NEGATIV, 40)
	2m

	5u 
	(p3:sp1 ph13):f1
# 137 "/u/exp/stan/nmr/lists/pp/hncg_aro.hu"

	2u
	2u 
	50u pl1:f1
	(p1 ph0)
	p22:gp0		;GRAD( 50, POSITIV, 8.0)
	950u pl2:f1
	(p2 ph14)
	2u
	5u pl1:f1
	(p1*2 ph15)
	2u
	5u pl2:f1
	(p7*2 ph10):f2 (p2 ph14)
	2u
	p22:gp0		;GRAD( 60, POSITIV, 8.0)
	(2u ph0)
	800u 
	d8
        5u pl31:f2


	go=2 ph31 cpd2:f2
	1m setnmr2^0 setnmr0^32 setnmr0^33 setnmr0^34
	1m do:f2
	d11 wr #0 if #0 zd

d12 id19
d12 dd20
lo to 21 times 2
d12 rd19
d12 rd20

d12 ip3		;nitrogens
lo to 3 times 2
d12 id16
d12 dd17
d12 id18
d12 dd21
d12 ip31
d12 ip31
lo to 4 times l3
# 190 "/u/exp/stan/nmr/lists/pp/hncg_aro.hu"


1m setnmr2^0 setnmr0^32 setnmr0^33 setnmr0^34
d12 do:f4
d12 do:f2
exit

ph0=0
ph1=0
ph3=0
ph4=1
ph6=1
ph7=0
ph8=3
ph9=0 1 2 3
ph10=     0   0   0   0   0   0   0   0 
          2   2   2   2   2   2   2   2 
ph11=0 0 0 0  2 2 2 2
ph13=(360)180; adjusted -x
ph14=2; 2 0 0;(360)185 185 5 5; adjusted -x hl2
ph15=0; 0 2 2
ph18=2;(360)4; adjusted -x hl2
ph31=0 2

