rpar cpmas_20k.1p9 all
pulprog pithirds2_notrig.dm

p21 2.7u		#H90
plw2 13.4	#H90 power
spw0 22.2	#H cp power
spnam0 tacn50	#H cp shape
p15 3m		#CP pulse length

cpdprg2 tppm15		#H dec during acqu 
pcpd2 5.2u		#H tppm15 length 
plw12 13.4		#H tppm15 power 

cpdprg3 cwlgs_13	#H dec during rfdr 
cnst20 100000   	#H LG rf field 
plw23 15.63		#H LG power to get 100khz 
#note cnst22 cnst23 and p5 calcd in lgcalc.incl

plw1 8.1		#C CP power
p1 4.5u			#C 90 hard time
plw11 43.0 		#C 90 hard power

#p2 16.7u		#C 180 for rfdr 1/(3*vr)
plw17 12.3		#C power for 180 rfdr
#cnst10 100		#C detect frequency ppm
#cnst11 15.3		#C RFDR frequency ppm

cnst31 20000		#spin rate
l1 4		     	#k1 repeats a,b and c
l2 32	     		#k2 elements for CT evolution not dipolar recoupling
l3 0		     	#k3 elements for recoupling
l4 4	     		#k4 rotor cycles each a b c 
#zgoptns -Dfprfdr        #use for above 20khz vr


1 swh 20000		#swh for direct 
1 td 1700

#PSL params
cnst35 1		#spin lock detection enhancement acq 0=no
plw16 34.8              #C 180 PSL power
p2 10u                  #C 180 PSL
d12 45u                 #C PSL ring down tau2
l22 40                  #C PSL number of echoes to acquire
l30 20                  #C PSL rotor cycles per echo
#adjust l30 to get tau1 = 450u


o2p 4.3		#1H  center ppm
#o1p 170.2	#13C center ppm
o1p 54.1	#13C center ppm

ns 3600
rg 2050
ds 64
d1 3s