# 1 "/u/exp/stan/nmr/lists/pp/ipap.s"
;IPAP-[15N,1H]-HSQC (1H-coupled in F1(N))
;
;Reference:
;Ottiger, M., Delaglio, F. & Bax, A. 
;J. Magn. Reson. 131, 373-378 (1998)
;
;needed files:
;Gradnt_new.incl        standard Bruker include file
;FQ2LIST                frequency list (CA - CO)


# 1 "/u/exp/stan/nmr/lists/pp/Gradnt.incl"
;Gradnt.incl  -  include file for Gradient Spectroscopy
;avance-version
;version 94/06/27








































# 12 "/u/exp/stan/nmr/lists/pp/ipap.s"

;#define CARBON_LABEL   ; uncomment if also 13C labelled
;#define CALIBRATE	; uncomment to calibrate N15 hard 90

;Pulse definitions:
;p1     proton 90 at pl1
;p9     proton 90 for WATERGATE at pl9 (~42 dB) adjust phcor14!
;p5*2	carbon 180 at pl5 null excitation @120.5ppm (p5 is ~28.6u @ 500 MHz)
;p2     nitrogen 90 at pl2
;pcpd2	nitrogen 90 at pl12 for decoupling (cpdprg2 is WALTZ16)

;Gradient pulses (may have to be set manually):
"p20=2.0m"      
"p11=1.0m"
"p14=0.4m"

# 30 "/u/exp/stan/nmr/lists/pp/ipap.s"

"d0=in0*0.5 - p2*0.63 -p1"


# 36 "/u/exp/stan/nmr/lists/pp/ipap.s"

"p17=p2"



"d3=2.3m"               ;1/4JNH  * 0.85
"d4=d3-p14-2u"  
"d5=d3-p14-p9-14u"
"d11=50u"               ;write delay
"d12=10u"               ;increment delay
"d13=25m"
"d22=p9"
"d23=p3"
"d24=p17*1.26 -p1"
"d25=p1*2"
"d26=p2-p1"




1       ze
        10u ru2
2       d11 do:f2
        d12
3       d12*3
4       d12*3
5       10u do:f3
        10u pl5:f3 
        10u pl2:f2
# 67 "/u/exp/stan/nmr/lists/pp/ipap.s"

        d1
        1m setnmr2^0 
        10u pl1:f1 
        10u pl5:f3
        (p2 ph0):f2         ;eliminate Boltzmann
        p20:gp3
        3m
        (p1 ph0)
        2u
        p14:gp5
        d4
        (p2*2 ph6):f2 (d26 p1*2 ph0)
        2u
        p14:gp5
        d4
;------------- start INEPT to 15N -----------------------
        (p1 ph6)
        2u
        4u pl9:f1
        p20:gp0
        1m pl1:f1
        (p17 ph3):f2
        if "l2==1" goto 20
        1m  ;p23:gp3
        1.7m
        (p2*2 ph5):f2 (d26 p1*2 ph0):f1
        1m  ;p23:gp3
        1.7m
        d24
        (p1 ph4):f1
20      d0 pl5:f3
# 105 "/u/exp/stan/nmr/lists/pp/ipap.s"

        d25  ;  (p1*2 ph0)   ;no 180 for F1-coupled spectrum

        d0
        if "l2==2"goto 40
        (p2 ph7):f2
        goto 41
40      (p2 ph17):f2
41      2u
        p11:gp1
        2m pl1:f1
;------------- INEPT back to f1, WATERGATE ---------------
        (p1 ph0)
        5u
        p14:gp0
        d5 pl9:f1
        2u
        (p9 ph14:r)
        2u
        5u pl1:f1
        (p1*2 ph15)
        2u
        5u pl9:f1
        (p2*2 ph10):f2 (p9 ph14:r)
        2u
        p14:gp0
        d5 ph0
        5u pl12:f2
        go=2 ph31 cpd2:f2
        d11 wr #0 if #0 zd
        1m setnmr2|0 
        10u do:f2
        d12 iu2
     lo to 3 times 2
        d12 ru2
        d12 dp7
        d12 dp17
     lo to 4 times 2
        d12 id0
        d12 ip31
        d12 ip31
        lo to 5 times l3
        d12 do:f3
        d12 do:f2
        1m setnmr2|0 
        100u setnmr2^0 setnmr0^32 setnmr0^33 setnmr0^34 setnmr8^4
        exit

ph0=0
ph1=0
ph3=0 0 2 2
ph4=0 0 0 0 0 0 0 0 2 2 2 2 2 2 2 2
ph5=0 0 0 0 1 1 1 1 2 2 2 2 3 3 3 3
ph6=1 3
ph7=0
ph17=1 1 1 1 3 3 3 3
ph10=0
ph14=2
;ph14=(3600)1756
ph15=0
ph31=0 2 2 0 
