# 1 "C:/Bruker/TopSpin3.5pl6/exp/stan/nmr/lists/pp/hpdec"
;hpdec
;avance-version (16/04/05)
;
;checked by sewe 26.08.2011
;modified by sewe 05.04.2016
;
;acquisition on X with hp proton decoupling
;suitable for various types of decoupling
;
;
;Avance III version
;parameters:
;pl1 : X power level for excitation pulse
;pl2 : =0W, not used
;pl12 : power level for standard proton decoupling e.g. spinal64
;pl13 : special decoupling power e.g. spinal64_13
;p1 : X 90 degree pulse
;p5 : LG 360 degree pulse
;p10 : pulse length for phase modulated pulses (e.g PMLG, DUMBO)
;p22 : H 180 at power level pl13 (pidec)
;p29 : 5 - 10 us, to avoid exact rotor synchronisation
;pcpd2 : pulse length in decoupling sequence (often 180deg-0.2us)
;d1 : recycle delay
;d30 : =1s/cnst31-p4, for pidec12 and pidec13, pi-pulse decoupling
;d31 : =1s/cnst31, 1 rotor period
;spnam1	: lgs-1, lgs-4 or pmlg-36,
;l31 : number of rotor cycles for XiX (=3)
;cnst20 : proton RF field to calculate LG parameters
;cnst21 : =0, proton offset
;cnst22 : +ve Lee-Goldburg offset
;cnst23 : -ve Lee-Goldburg offset
;cnst24 : additional Lee-Goldburg offset
;cnst31 : spinning frequency
;cpdprg2 : sequence used for decoupling (e.g. spinal64)
;zgoptns : -Dlg, -Dlacq, -Dlcp15
;
;
;$CLASS=Solids
;$DIM=1D
;$TYPE=direct excitation
;$SUBTYPE=simple 1D
;$COMMENT=acquisition on X with proton decoupling, various decoupling schemes


prosol relations=<solids_default>
# 51 "C:/Bruker/TopSpin3.5pl6/exp/stan/nmr/lists/pp/hpdec"
"acqt0=-p1/2"

# 1 "mc_line 53 file C:/Bruker/TopSpin3.5pl6/exp/stan/nmr/lists/pp/hpdec dc-measurement inserted automatically"

    dccorr
# 53 "C:/Bruker/TopSpin3.5pl6/exp/stan/nmr/lists/pp/hpdec"
1 ze

# 1 "C:/Bruker/TopSpin3.5pl6/exp/stan/nmr/lists/pp/p15_prot.incl" 1
;p15_prot.incl
;avance-version (13/01/29)
;Test the rf on-time and duty cycle
;protect against too long contact time
;Test the rf on-time and duty cycle 
;
;$CLASS=Solids INCL
;$COMMENT=protect against too long contact time
# 11 "C:/Bruker/TopSpin3.5pl6/exp/stan/nmr/lists/pp/p15_prot.incl"
1m
if "p15 < 10.1m" goto Passp15
2u
print "contact time exceeds 10msec limit!"
goto HaltAcqu
Passp15, 1m


# 20 "C:/Bruker/TopSpin3.5pl6/exp/stan/nmr/lists/pp/p15_prot.incl"
;$Id: p15_prot.incl,v 1.8 2013/01/29 15:40:14 ber Exp $
# 55 "C:/Bruker/TopSpin3.5pl6/exp/stan/nmr/lists/pp/hpdec" 2

			;make sure p15 does not exceed 10 msec 
			;let supervisor change this pulseprogram if 
			;more is needed

# 71 "C:/Bruker/TopSpin3.5pl6/exp/stan/nmr/lists/pp/hpdec"
# 73 "C:/Bruker/TopSpin3.5pl6/exp/stan/nmr/lists/pp/hpdec"
2 d1 do:f2


# 77 "C:/Bruker/TopSpin3.5pl6/exp/stan/nmr/lists/pp/hpdec"
  (p1 pl1 ph1):f1 (1u cpds2):f2

  go=2 ph31
  1m do:f2
  wr #0
HaltAcqu, 1m
exit

ph1= 0 2 1 3
ph31=0 2 1 3
# 90 "C:/Bruker/TopSpin3.5pl6/exp/stan/nmr/lists/pp/hpdec"
;$Id: hpdec,v 1.8.2.1 2016/04/05 09:52:52 ber Exp $
