# 1 "/u/exp/stan/nmr/lists/pp/hmbcg_13C.wmw"
;gradhmbc.wmw 
;hmbcg_13C.wmw

;HMBC with gradient selection of echo and antiecho ;in 
;t1 for suppression of t1-noise. J. Schleucher 1994
;refocusing pulse added wmw 02/2003
;modifies for H2O 030308

;13C  wmw 030308

;pl1:    high power level for protons
;p1  90 degree pulse on protons
;pl3:   high power level on X-nucleus  13C
;p3   90 degree pulse pn X-nucleus  13C
;d1	relaxation delay, 1 T1 of slowest-relaxing proton
;d2 = 1/(2*J(long range))
;NS= 2, 4 or 8n
;DS=whatever
;p16=500u - 1ms 
;ND0=2, pp yields data equivalent to States method
;in0: increment of t1, SW(f1)=1/(2 in0)
;l1=td1/2
;l5=0

;for carbon  with new style gradients 
;gpz1=25 
;gpz2=15 
;gpz3=20
;gpz4=37
; NOT SET UP FOR N15!! nitrogen  with new style gradients 
;gpz1=55 
;gpz2=45 
;gpz3=50

;#define ONED		;comment out for 2D
;#define WTRGT		;watergate

;pp collects echo and antiecho in two transients, (lo to 3 times l0), it is
;therefore sqrt(2) less sensitive than a HMBC without gradients, However,
;spectra obtained with this pp are free of t1-noise, which normally more than
;compensates for the sqrt(2) loss in s/N. 
;Use "gradenh" to convert to States Format (F1 axis may be reversed) or process 
;with uxnmr using mc2(F1)=echo/antiecho.  
;relative gradient strengths(gH, gx gyromagnetic ratios/resonance 
;frequency of H/the X nucleus):
; gzp1=gx+gH	gzp3=gH
; gzp2=gH-gx
;Comments:
;If strong gradients are needed (water suppression), the gradient ratios shoud
;be empirically optimized for best S/N.


"d12=p16+300u"
"d22=d2-2*p16-600u"
"l5=0"
"l0=2"
"d16=p16"


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





























# 60 "/u/exp/stan/nmr/lists/pp/hmbcg_13C.wmw"

# 1 "/u/exp/stan/nmr/lists/pp//Grad.incl"
;Grad.incl  -  include file for Gradient Spectroscopy
;avance-version
;version 99/02/19
















define list<gradient> EA=<EA>
# 61 "/u/exp/stan/nmr/lists/pp/hmbcg_13C.wmw"

  20u pl1:f1
  20u pl3:f2
1 ze 
2 d1 
3 3m
4 4u
  p1 ph1

 d22             ;d2=1/(2Jlong-range)
 
if "l5 == 0" goto 11
10 p16:gp1
  goto 12
11 p16:gp2
12 10u
  290u

  p16:gp4
  300u
  (p3 ph3):f2
  d16
  300u
  (p3*2 ph1):f2
  d12
  d0
# 99 "/u/exp/stan/nmr/lists/pp/hmbcg_13C.wmw"

  p1*2 ph10


  d0
  p16:gp3  
  300u
  (p3*2 ph1):f2
  d12
  (p3 ph4):f2
  p16:gp4
  300u
;d22
  go=2 ph31 
# 115 "/u/exp/stan/nmr/lists/pp/hmbcg_13C.wmw"

  d1  wr #0 if #0 zd
  10u iu5
  lo to 3 times l0 
  10u ru5
  3m id0
 lo to 4 times l1


exit 
  
ph1= 0 0 0 0 
ph3= 0 2 0 2 
ph4= 0 0 2 2
ph5= 0 0 0 0
ph10=0
ph11=2
ph31=0 2 2 0