;1.1) Program: 	DP/MAS with Hahn echo at 2 tr
;Description: 	Quantitative 13C spectra, without baseline distortion
;Requires: 	!; high spinning frequency (e.g. 14 kHz)
;Reference(s):	Mao et al., Soil Sci. Soc. of Am. J. 64, 873-884  (2000). Mao & Klaus ;Schmidt-Rohr (KSR), Environ. Sci. Technol. 38, 2680-2684 (2004).

;sronecdd.tppm
;from sronecdd.ksr
;one-pulse excitation of 13C, and Hahn echo
;with cw proton decoupling
;pl12 is power level for decoupling on F2

  "d13=1s/l31 - p1/2 - p2/2"  ;exactly tr from center to center of pulses

1 ze
2 d1 do:f2			;recycle delay

  10u pl12:f2		;set decoupling drive power level
  10u pl1:f1		;preselect pl1 drive power level for F1

  1u cw:f2  		;turn on F2 decoupling
  p1:f1 ph2		;90 13C excitation pulse
   d13
  p2:f1 ph3	        ;Hahn echo pulse
   d3

  1u cpds2:f2 		;turn on F2 decoupling (tppm15)           ;
  2u:f1 ph0             ;dead time delay, reset RF phase to detect
  go=2 ph31 		;do NS scans
  1m do:f2		;turn decoupler off
  wr #0
exit

ph0= 0
ph2= 1 3 2 0 3 1 0 2   ;13C 90 excitation
ph3= 0 0 1 1 2 2 3 3   ;180 before detect (best phase for short d13)
     1 1 2 2 3 3 0 0   ;exorcycle
     2 2 3 3 0 0 1 1
     3 3 0 0 1 1 2 2 
ph20= (360) 10			;TPPM first pulse
ph21= (360) 0			;TPPM second pulse
ph31= 0 2 1 3 2 0 3 1   ;RCPH
      2 0 3 1 0 2 1 3   ;with exorcycle