;lgwise2d.mh
;13C detected 1H wideline separation to probe 
;with 1H-13C LG-CP to have site specificity
;Schmidt-Ror K, Clauss J, Spiess HW.
;Macromolecules,volume 25,3273,1992

;p3: 1H excitation pulse
;p15: LG-CP contact time
;p21: 1H 35 deg. pulse
;p2: 13C 180 deg. pulse
;p8: 1H TPPM 180 deg. pulse
;d0: t1 evolution time
;in0: t1 dwell time
;d1: recycle delay
;l31: spinning speed
;pl2: 1H excitation power
;pl3: 1H LG-CP power
;pl12: 1H dec power
;pl11: 13C hard pulse power
;pl1: 13C CP power
;FQ2LIST: LG-CP
;FQ3LIST: on resonance

  "p21=p3*353/900"
  "d3=1s/l31-p2/2-1u"
  "d13=d3+2u"
  "l1=aq/(p8*2)"

1 ze

2 d1 			
  10u pl1:f1		
  10u pl2:f2		
  2u:f2 ph1
  2u:f1 ph2

3  p3:f2 ph1			;1H 90 pulse
   d0 				;t1

4  p21:f2 ph3			;35 deg pulse
   0.5u fq2:f2			;move 1H off resonance 
   0.5u pl3:f2
   (p15 ph2):f1 (p15 ph10):f2	;p15=ntr, rotor synch,short CP

   0.5u fq3:f2			;move 1H on resonance
   0.5u cw:f2 pl12:f2 pl11:f1

5  d3:f1 ph4			;Hahn echo
   p2:f1 ph4
   d13

   1u:f1 ph0		;dead time delay, reset RF phase to detect
   2u adc ph31		;start ADC with ph31 signal routing
6  p8:f2 ph13
   p8:f2 ph14
lo to 6 times l1
  aq do:f2		;allow time for data sampling
  rcyc=2 		;do NS scans

;2D
 100m wr #0 if #0  zd		;write file to disk, increment, zero data
 10m id0 			;increments d0 by IN0
 lo to 1 times td1

exit

ph0= 0
ph1= -y	+y 		;1H excitation			
ph3= +y				;1H 35 deg. pulse
ph10= +x 			;1H CP
ph2= +x +x +y +y -x -x -y -y	;13C CP
ph4= -x -x -y -y +x +x +y +y 	;13C 180 pulse
ph13= (360) 10
ph14= (360) 0
ph31= 2 0 3 1 0 2 1 3