# 1 "/opt/topspin/exp/stan/nmr/lists/pp/user/zg-wg3919-dec.eth"
;zg-wg3919-dec.eth
;1D sequence with watergate using 3-9-19 
;Denis Berger 14.3.2007

;M. Piotto, V. Saudek & V. Sklenar, J. Biomol. NMR 2, 661 - 666 (1992)

;Use ZGOPTNS in AcquPars to define the flags. eg -DC13DEC or -DN15DEC
;ZGOPTNS: -DC13DEC				;13C decoupling
;ZGOPTNS: -DN15DEC				;15N decoupling
;ZGOPTNS: -DC13DEC -DN15DEC			;13C and 15N decoupling

;d1    : relaxation delay
;d5    : delay 3-9-19=1/(Hz between nulls)
;p1    : 90 degree hard pulse 1H
;pl1   : power level for hard 1H pulse p1
;pl2   : not used (set=120)
;pl3   : not used (set=120)
;pcpd2 : 90 degree for 13C decoupling (~90us)
;pl12  : power level for 13C decoupling
;pcpd3 : 90 degree for 15N decoupling (~180us)
;pl13  : power level for 15N decoupling
;p21   : 1000u (Gradient before and after 3-9-19)
;gpz1  : 50%



;$OWNER=setup






# 44 "/opt/topspin/exp/stan/nmr/lists/pp/user/zg-wg3919-dec.eth"












# 1 "/opt/topspin/exp/stan/nmr/lists/pp/Avance.incl" 1
;Avance3.incl
;   for AV III
;
;avance-version (07/12/14)
;
;$CLASS=HighRes Incl
;$COMMENT=





























































































































































;$Id: pulseprogram,v 1.1 2021/02/11 14:48:11 bmrbsvc Exp $
# 56 "/opt/topspin/exp/stan/nmr/lists/pp/user/zg-wg3919-dec.eth" 2


# 1 "mc_line 58 file /opt/topspin/exp/stan/nmr/lists/pp/user/zg-wg3919-dec.eth dc-measurement inserted automatically"
    dccorr
# 58 "/opt/topspin/exp/stan/nmr/lists/pp/user/zg-wg3919-dec.eth"
1 ze
2 1m               
;-------------------------------------------------------Relaxation Delay
  10u do:f3
  10u pl13:f3
  10u setnmr3^0
  d1 pl1:f1
  10u setnmr3|0 
;-------------------------------------------------------Excitation
  (p1 ph1):f1
;-------------------------------------------------------WG 3-9-19
  10u							;mirrored delay of setnmr3^0 after 3919
  10u p21:gp1 200u
  (p1*0.2308 ph3 d5 p1*0.6923 ph3 d5 p1*1.4615 ph3):f1 
  d5
  (p1*1.4615 ph4 d5 p1*0.6923 ph4 d5 p1*0.2308 ph4):f1
  10u p21:gp1 200u
  10u setnmr3^0						;preferably after acquisition (bruker problem)
;-------------------------------------------------------Acquisition
  go=2 ph0 cpd3:f3
  10u do:f3
  1m wr #0
  10u setnmr3^0
exit

ph1=0 2
ph0=0 2 2 0			;receiver

ph3=1 1 2 2 3 3 0 0 		;3-9-19
ph4=3 3 0 0 1 1 2 2		;19-9-3

;##/($P[1],$PL[1])= &SetPulse(f1,HP,90); 
;##\$D[5]=round(1/(10*$BF1),.00001
;##/($PCPD[2],$PL[12])=&SetPulse(f2,0.000090,90);
;##/($PCPD[3],$PL[13])=&SetPulse(f3,0.000180,90);