# 1 "/opt/xwinnmr/exp/stan/nmr/lists/pp/stdnhsqcwf2.2d"
;stdnhsqcwf.1d
;Water Flip-Back 1H-15N HSQC

# 1 "/opt/xwinnmr/exp/stan/nmr/lists/pp/Grad.incl" 1
;Grad2.incl  -  include file for Gradient Spectroscopy
;   for 1
;
;avance-version (02/05/31)



















define list<gradient> EA=<EA>



;$Id: 500_NSQC.tar,v 1.1 2025/07/22 17:32:22 bmrbsvc Exp $
# 4 "/opt/xwinnmr/exp/stan/nmr/lists/pp/stdnhsqcwf2.2d" 2


;Pulses
;p1   : 8-10us 
;pl1  : 0dB
;p10  : 1m	water flipback during WATERGATE
;pl10 : ~39dB
;p20  : 2m	water flipback during ZZ filter 
;pl11 : ~45dB

;p5   : 35us
;pl5  : ~1dB
;pcpd3: 200u
;pl15 : ~16dB

;Gradients
;p21  : 2.5m ZZ filtration gradient 1
;gpz1 : +40% ZZ filtration gradient 1

;p22  : 1.0m ZZ filtration gradient 2
;gpz2 : -40% ZZ filtration gradient 2

;p23  : 0.5m WATERGATE water dephasing gradient
;gpz3 : +60% WATERGATE water dephasing gradient

 "d0=in0/2-p1-p5*0.6366"
 "d1=100ms"
;"d4=2.5m
 "d14=d4-p10-p23"
 "d24=p5-p1"
;"d30=50u";Gradient recovery delay
;"d31=2s"

# 1 "mc_line 37 file /opt/xwinnmr/exp/stan/nmr/lists/pp/stdnhsqcwf2.2d expanding definition part of mc command before ze"
define delay MCWRK
define delay MCREST
define loopcounter ST1CNT
"ST1CNT = td1 / (2)"
"MCWRK = 0.500000*d1"
"MCREST = d31 - d1"
# 37 "/opt/xwinnmr/exp/stan/nmr/lists/pp/stdnhsqcwf2.2d"
1   ze
# 1 "mc_line 37 file /opt/xwinnmr/exp/stan/nmr/lists/pp/stdnhsqcwf2.2d expanding definition of mc command after ze"
# 38 "/opt/xwinnmr/exp/stan/nmr/lists/pp/stdnhsqcwf2.2d"
2   10u do:f2
    d1
# 1 "mc_line 40 file /opt/xwinnmr/exp/stan/nmr/lists/pp/stdnhsqcwf2.2d expanding start label for mc command"
3 MCWRK 
LBLSTS1, MCWRK 
LBLF1, MCREST
# 41 "/opt/xwinnmr/exp/stan/nmr/lists/pp/stdnhsqcwf2.2d"
    10u fq1:f1
    10u pl1:f1
    10u pl5:f2
    100u setnmr3|0 setnmr0|34|32|33
    p1 ph0
    d4
    (d24 p1*2 ph11) (p5*2 ph0):f2
    d4
    p1 ph11
    10u pl11:f1
    p20 ph10:r
    10u pl1:f1
    	p21:gp1
    	d30
    (p5 ph1):f2
    d0
    (p1*2 ph0)
    d0
    (p5 ph0):f2
    	p22:gp2
    	d30 pl11:f1
    p20 ph12:r
    10u pl1:f1
    p1 ph0
    	p23:gp3
    d14 pl10:f1
    p10 ph2:r
    10u pl1:f1
    (d24 p1*2 ph3) (p5*2 ph0):f2
    10u pl10:f1
    p10 ph2:r
    	p23:gp3
    d14 pl15:f2 fq1:f1 setnmr3^0 setnmr0^34^32^33
    go=2 ph31 cpd3:f2
    10u do:f2
# 1 "mc_line 76 file /opt/xwinnmr/exp/stan/nmr/lists/pp/stdnhsqcwf2.2d expanding mc command in line"
  MCWRK  wr #0 if #0 zd ip1
  lo to LBLSTS1 times 2
  MCWRK id0
  lo to LBLF1 times ST1CNT
# 77 "/opt/xwinnmr/exp/stan/nmr/lists/pp/stdnhsqcwf2.2d"
exit

    ph0 = 0
    ph1 = 0 2
    ph2 = 0 0 2 2	;phcor2
    ph3 = 2 2 0 0
    ph10= 0		;phcor10
    ph11= 1
    ph12= 2		;phcor12
    ph31=