; sel2hmbc_gs.kaf   selective hmbc with gradients  
; this pulse sequence is used when the selective 180 is  
; greater than approx 1.5 ms
; set o1 on proton peak of interest 
; measure distance in hz to homonuclear coupling partner
; selective 180= (1/(distance in hz/1.73205))/2
; calibrate power of HL1 to give calculated 180
; Bax, Farley, and Walker  JMR  Series A 119, 134-138 (1996)
; for more information about this pulse sequence, see:
; sel1hmbc_gs.kaf
;BMRB Pulse Sequence Accession Number: 7

p2=p1*2
d0=3u
d11=1m
d13=4u
d16=125u
d27=p16/l21-2u
d2=1s/(cnst2*2)   ; one bond J filter cnst2=145 for 1 bond Jch

1 ze
  1m dl1
2 d1 setf2|3^9
  100u hl1
3 p1 ph1
  d2 ; one bond J filter
  p3:d ph5
  d6 ; evolution of long range couplings
  p3:d ph3
  d0
  50u setf2^3|9 
4 2u:ngrad
  d27
  lo to 4 times l21
  d16:ngrad setf2|3
  d5
  p3:d ph2
  d13
  p2 ph0
  50u setf2^3
5 2u:ngrad
  d27
  lo to 5 times l21
  d16:ngrad setf2|3
  d0
  go=2 ph31 
  d1 do wr #0 if #0 id0 zd
  d11 setf2^9|3
  lo to 3 times td1
  d11 setf2^9|3
exit 
  
ph0=0
ph1=0 
ph2=0 0 2 2
ph3=0 2
ph5=0 0 0 0 2 2 2 2
ph31=0 2 2 0

; Remember: NDO=1 !!!!  (second DO is outside of evolution period)
; p1 90 1H pulse
; p3 90 13C pulse
; cnst2 should=145 hz
; l[21]= 32 or 64 (value from gradpulse program)
; p16= 1ms
; hl1=1dB
; DL[1]=16db for a 13uS 90 pulse (Hard X channel)
;d6 : delay for evolution of long range couplings 60-80 ms
;d16: delay for homospoil/gradient recovery 1ms
;cnst2: 1 bond filter should be approximately 145
;d27: delay for shaped gradient
;L21: loop for shaped gradients
;in0: 1/(2 * SW(X)) = DW(X)
;NS: 2 * n
;DS: 16
;td1: number of experiments
;MC2: QF 
;use gradient ratio 	8:10
;use sine for wave form