# 1 "/u/exp/stan/nmr/lists/pp/n15hsqcseC.fa"
;n15hsqcse.fa
;2D 15N-HSQC-SE, with optional FLIP-BACK pulse and C13 decoupling
;Zhang et al., J. Bio. NMR, 4, 845-858 (1994)
;Bruker Avance/Xwin-nmr version
;Written up by F. Abildgaard, NMRFAM (abild@nmrfam.wisc.edu)
;Version: 041396,050596,01281998
;  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 nor University of Wisconsin-Madison
;  are liable for any physical or other damage incurred during the
;  use of this pulse program.
;
;f1: 1H, f2: 15N, f3: 13C
;o1p: 4.7ppm
;o2p: 118ppm
;o3p: 43ppm (optional)
;use gradient program fan15hsqcse (set cnst28=cnst27=-30G/cm for 1D test)
;
;p1 90 H1 at pl1
;p2 90 N15 at pl2
;p3 90 C13 at pl3 (for optional C decoupling)
;p11 90 H1 SEDUCE-1 shape at power sp1, offset 0, 2ms (if SHAPED defined),
; or p11 90 H1 weak regular pulse at power pl11, 2ms (if SHAPED not defined). 
; Check for phase difference between hard H1 and soft H1 
; pulses and set ph21 accordingly.
;N15 Waltz-16 PCPD2 at pl12, cpdprg2
;in0: N15 evolution, SW(N)=1/2*in0
;ds=2m*ns, m=1, 2, ..., ns=2, 4, ...
;l4 complex points in N15 dimension
;
;Recommendations for gradients:
;p15=500u
;p16=1.5m
;p18=1.25m
;p19=125u
;p17=1m
;cnst23=6% (4G/cm)
;cnst24=10% (7G/cm)
;cnst25=30%  with GRASP-III: combined x and z gradient (30G/cm)
;cnst26=-22% (-15G/cm)
;cnst27/28=-30%/+30% with GRASP-III: combined x and z gradient (-/+30G/cm)
;cnst30=1.800 (adjust) for magic angle gradient (Gx/Gz) or 0 for Gz only.

;#define ONE_D

;#define FLIP_BACK
;#define SHAPED
;#define MESSERLE     ;don't use Messerle pulse with flip-back option
;
;You shouldn't have to worry about anything beyond this point :-)
;



# 59 "/u/exp/stan/nmr/lists/pp/n15hsqcseC.fa"

define delay TAUA
define delay TAUB
define delay TAUC
define pulse H1_90
define pulse H1_180
define pulse N15_90
define pulse N15_180
define pulse C13_90
define pulse C13_180
"d11=100m"                      ;disk i/o
"d12=10u"                       ;power switching etc.
"d13=5u"                        ;a short delay
"d14=40u"			;ip, id etc.
"d16=300u"			;gradient recovery
"H1_90=p1"
"H1_180=p1*2"
"N15_90=p2"
"N15_180=p2*2"
"d0=d13"
"d6=H1_90"
"d7=N15_90"
"d5=500u"
"TAUA=2.25m-p15-d13-d16"
"TAUB=1.5m"
"TAUC=500u"
"d25=d5-p19-d13"
"d29=N15_90-H1_90"

  "C13_90=p3"
  "C13_180=p3*2"
  "d24=TAUB-p18-d13+d0*2+C13_90*4+d13*2"
  "d28=C13_180-H1_90+d13"
# 94 "/u/exp/stan/nmr/lists/pp/n15hsqcseC.fa"



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





























# 97 "/u/exp/stan/nmr/lists/pp/n15hsqcseC.fa"

# 1 "/u/exp/stan/nmr/lists/pp//Gradfa.incl"
;Gradfa.incl  -  include file for Gradient Spectroscopy
;avance-version
; $Id: pulseprogram,v 1.1 2021/02/10 21:52:56 bmrbsvc Exp $
;


















define list<gradient> EA=<EA>

# 98 "/u/exp/stan/nmr/lists/pp/n15hsqcseC.fa"

1 ze
2 d11 do:f2
  d14
  d14
3 d14
  d14
  d14
  d14
  d14
4 d14 setnmr2^0
  d1 pl1:f1 pl2:f2 pl3:f3
  d14 setnmr2|0
  (N15_90 ph0):f2
  d13
   p17:ngrad:c34   ;1m, 4G/cm
  d16
  (H1_90 ph0):f1
  d13
   p15:ngrad:c34   ;500u, 7G/cm
  d16
  TAUA
  (d29 H1_180 ph0):f1 (N15_180 ph0):f2
  d13
  TAUA
   p15:ngrad:c34   ;500u, 7G/cm
  d16
# 128 "/u/exp/stan/nmr/lists/pp/n15hsqcseC.fa"

  (H1_90 ph1):f1
# 140 "/u/exp/stan/nmr/lists/pp/n15hsqcseC.fa"

  d13
   p16:ngrad:c34   ;1.5m, -15G/cm
  d16 
  (N15_90 ph11):f2
  d0 

  (d28 H1_180 ph0):f1 (C13_90 ph0 d13 C13_180 ph1 d13 C13_90 ph0):f3
# 150 "/u/exp/stan/nmr/lists/pp/n15hsqcseC.fa"

  d0 
  TAUB
  (N15_180 ph0):f2
  d13
   p18:ngrad:c34   ;1.25m, 30G/cm
  d24
  (N15_90 ph12):f2
  d6
  (p1 ph0):f1
  d13
   p15:ngrad:c34   ;500u, 7G/cm
  d16
  TAUA
  (N15_180 ph0):f2
  (H1_180 ph0):f1 
  d13
  TAUA
   p15:ngrad:c34   ;500u, 7G/cm
  d16
  d7
  (N15_90 ph1):f2
  (H1_90 ph1):f1 
  d13
   p15:ngrad:c34   ;500u, 7G/cm
  d16
  TAUA
  (d29 H1_180 ph0):f1 (N15_180 ph0):f2
  d13
  TAUA
   p15:ngrad:c34   ;500u, 7G/cm
  d16
  (H1_90 ph0):f1
  TAUC
  (H1_180 ph0):f1
  d13
   p19:ngrad:c34   ;125u, -/+30G/cm
  d25 pl12:f2
  go=2 ph31 cpd2:f2

# 192 "/u/exp/stan/nmr/lists/pp/n15hsqcseC.fa"

  d11 do:f2 wr #0 if #0 zd
  d14 ip12
  d14 ip12
  lo to 3 times 2
  d14 id0 
  d14 ip11
  d14 ip11
  d14 ip31
  d14 ip31
  lo to 4 times l4


 d14 setnmr2^0
exit
  
ph0=0
ph1=1
ph2=2
ph3=3
ph11=0 2
ph12=0
ph21=(360) 181    ;Nominal 180, adjust for any phase difference between pl1 and sp1
ph31=0 2