;6.2) Program: 	19F-13C HETCOR
;Description: 	One-bond correlations of 19F and 13C peak positions in fluoropolymers 
;Requires: 	!!!!;  little difficulty after 6.1)
;Reference(s):	Chen & KSR, Macromolecules 2004


;sr19Fcpp.ramp (XWinNMR 2.6)
;from sr19Fcpp.ramp on SGI
;type "eda", set "CPDPRG2" to "tppm15", set p30=p31=9u (180 on 1F at pl12)
;with pulsed 19F decoupling (1 180 pulse per rotation period)
; at high spin rate (28 kHz works well)
;ramp on 1H during CP


   "d26=0.001s/l30"     ;1tr
   "d28=d26-p8"	;1 tr for decoupling
   "l1=aq/d26"

1 ze
2 d1 do:f2 			;recycle delay
  10u pl1:f1
  10u pl2:f2		;preselect pl2 drive power for F2
  2u:f2 ph1
  2u:f1 ph2

  p3:f2 ph1		;proton 90 pulse
  1u ;pl3:f2
  (p15 ph2):f1 (p15:sp1 ph10):f2	;CP contact time	

  1u pl12:f2		

  2u:f1 ph0  		;dead time delay, reset RF phase to detect
  2u adc ph31		;start ADC with ph31 signal routing


3 d28			;detection	
  p8:f2 ph14^		;19F 180 pulse (or write this into cpd file)
  lo to 3 times l1


  rcyc=2 		;do NS scans

  wr #0
exit

ph0= 0			;reference phase
ph1= +y -y		
ph2= +x +x +y +y -x -x -y -y
;ph2= +x
ph10= +x		
;ph14= +x +y +y +x  +x +y +y +x   ;original used for first Macromolecules paper
;      -x -y -y -x  -x -y -y -x
ph14= +x +y +x +y +y +x +y +x     ;xy-8
      -x -y -x -y -y -x -y -x
ph31= 0 2 1 3 2 0 3 1