# 1 "/u/exp/stan/nmr/lists/pp/ko_cryo_CHSQC_ARO.2"
;ko_CHSQC_ARO	2D 1H-13C HSQC experiment (aromatic region)
;			S. koshiba
;2D 1H-13C HSQC experiment for 13C/15N-labelled samples 
;dissolved in H2O.
;with 15N 180 pulse
;during t1(13C) evolution period.
;Two spin locking pulses (x,y) immediately after acqu. -> removed
;A 1H 90 degree pulse is added immediately prior to acqu. 
;in order to rotate any residual H2O resonances to the z axis.
;
;F1: 1H		[p1(90deg,pl1)]
;F2: 15N	[p21(90deg,pl3)]
;F3: 13C	[p13(90deg,pl2), PCPD2(90deg,pl12,CDP,GARP)]

;With 6 gradient pulses: 
;(400u,+30)*2, (2.5m,+50), (4.0m,-50), (400u,+30)*2

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


















































































































;$Id: pulseprogram,v 1.1 2021/02/10 23:29:48 bmrbsvc Exp $
# 18 "/u/exp/stan/nmr/lists/pp/ko_cryo_CHSQC_ARO.2" 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: pulseprogram,v 1.1 2021/02/10 23:29:48 bmrbsvc Exp $
# 19 "/u/exp/stan/nmr/lists/pp/ko_cryo_CHSQC_ARO.2" 2


;defined parameters.
"d5=p13-p1"
"d6=p21-p1"
;

;for 13C
"d4=1.5m"
"d2=d4-p15-100u"

;for AQ
"d7=d2-30u-p13*2"

;for t1 evolution
"d0=in0*0.5-p13*2.0/3.14-p21"
;"d0=4u"


"l1=td1/2"

;pulse sequence.

  30m do:f2
  30m
1 ze
2 60m do:f2
3 30m
4 20u ;pl5:f1
;  (p7 ph0):f1   ; spin lock x
;  (p8 ph7):f1   ; spin lock y
  20u pl1:f1
  d1 
;********** INEPT 1H-15N.
  50u setnmr2|0 setnmr0|34|32|33
  (p1 ph0):f1
;========== 1st gradient pulse.
	50u
	p15:gp1		; 500u +30%
	50u
;========== 
  d2 pl2:f2			; 13C power -> pl2
  (d5 p1*2.0 ph0):f1 (p13*2.0 ph10):f2
;========== 2nd gradient pulse.
	50u
	p15:gp1		; 500u +30%
	50u
;==========
  d2 pl3:f3			; 15N power -> pl3
  (p1 ph1):f1
;========== 3rd gradient pulse (homo-spoil).
	50u
	p16:gp2		; 2.5m	+50%
	50u
;========== t1 (13C) evolution.
  100u
  (p13 ph11):f2
  d0
  (d6 p1*2.0 ph0):f1 (p21*2.0 ph20):f3 
  d0 
  (p13 ph10):f2
;========== 4th gradient pulse (homo-spoil).
	50u
	p17:gp3		; 4.0m -50%
	50u
;==========
  200u
  (p1 ph3):f1
;========== 5th gradient pulse.
	50u
	p15:gp4		; 500u +30%
	50u
;==========
  d2
  (d5 p1*2.0 ph0):f1 (p13*2.0 ph10):f2
;========== 6th gradient pulse (water-gate 2).
	50u
	p15:gp4		; 500u +30%
	50u
;=========
;********** 
  d7  setnmr2^0 setnmr0^34^32^33
  (p13 ph10 5u p13 ph13):f2
  5u
  20u pl12:f2
  (p1 ph5):f1
;------------------------
  go=2 ph31 cpd2:f2
  60m do:f2 wr #0 if #0 ip11 zd
  lo to 3 times 2
  15m id0
  15m ip31*2
  lo to 4 times l1
;**********
  30m setnmr2^0 setnmr0^34^32^33
  30m
exit

;phases for 1H pulses.
ph0=0
ph1=1 1 3 3
ph3=0
;ph5=0 0 0 0 2 2 2 2
ph5=0
ph7=1
;phases for X pulses.
ph10=0
ph11=0 2
ph13=0 0 2 2
;phases for y pulse.
ph20=0
;phases for receiver.
ph31=0 2 2 0
;
;pl1 : 1H high power for p1
;pl5 : 1H purge pulse (~25us for 90deg)
;pl2 : 13C high power for p13
;pl12: 13C decoupling power for pcpd2
;pl3 : 15N high power for p21
;
;p1  : 1H 90 deg. (pl1)
;p7  : 1H 4ms (pl5)
;p8  : 1H 3ms (pl5)
;p21  : 15N 90 deg. (pl3)
;p13  : 13C 90 deg. (pl2)


;for gradient pulses
;p15:400u	gp1	: echo
;p16:2.5m	gp2	: homospoil
;p17:4.0m	gp3	: homospoil
;p15:400u	gp4	: echo