;1.2) Program: 	DP/MAS with dipolar dephasing at high spinning speed
;Description: 	Quantitative 13C spectra of unprotonated C
;Requires: 	!; high spinning frequency (e.g. 14 kHz)
;Reference(s):	Mao & KSR, Environ. Sci. Technol. 38, 2680-2684 (2004).

;sronecddgade.180
;from sronecdd.tppm
;gated decoupling (2*d14) with 180 on C used as recoupling pulse
;one-pulse excitation of 13C, and Hahn echo
;with cw proton decoupling
;pl12 is power level for decoupling on F2

define delay d3d2r
define delay restd13
define delay restd3

 "d3d2r=d3/2-p4/2"
 "d13=1s/l31 - p1/2 - p2/2"  ;exactly tr from center to center of pulses
 "restd13=d13-d14"
 "restd3=d3-d14"
 
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

   restd13 		;1 tr
   d14 do:f2		;undecoupled 
  p2:f1 ph3             ;13C 180 for Hahn echo
   d14 			;undecoupled
   restd3 cw:f2

  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 
ph4= 0				;recoupling by 180 on 1H
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