;dipshift.mh
;2D CH-13C correlation, with homonuclear dec. during t1. 
;Munowitz MG, Griffin RG, Bodenhausen G, Huang TH.
;J. Am. Chem. Soc., volume 103, 2529, 1981

;p3: 1H excitation
;p15: CP contact
;p2: 13C 180 pulse
;d0: evolution period
;pl2: 1H hard power
;pl12: 1H power for decoupling
;pl3: 1H CP power
;pl1: 13C CP power
;pl22: 1H homo dec power
;pl23: MREV-8 power inside the cpd program
;pl11: 13C hard pulse power
;in0: t1 increment
;in10: t1 decrement

   "d10=1s/l31+in10"		;shrinking time
   "l1=aq/(p8*2)"		;1H TPPM decoupling

1 ze
  10m dd10			;to avoid last (-) time, use for 2D

2 d1 
  10u pl1:f1
  10u pl2:f2			;set decoupler power
  2u:f2 ph1
  2u:f1 ph2

;--------------------- CP ---------------------------
3 p3:f2 ph1			;1H excitation
  0.5u pl3:f2			;change 1H power for CP
  (p15 ph2):f1 (p15 ph3):f2	;CP

;-------------- 1H homo dec for evolution -------------------
  1u pl22:f2 pl11:f1		;set homo. decoupling power
4 1u cpds2:f2			;homonuclear dec.
  d0				;t1
 
  0.5u do:f2			;CW decoupling
  0.5u cw:f2 pl12:f2
  d10:f1 ph8			;shrinking time

  p2:f1 ph8			;13C 180, iso shift refocusing

  d0				;second tr
  1u
  d10
 
  1u:f1 ph0		;dead time delay, reset RF phase to detect
  1u adc ph31		;start ADC with ph31 signal routing
5 p8:f2 ph13
  p8:f2 ph14
lo to 5 times l1
  aq do:f2
  rcyc=2
;  wr #0

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

exit

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