;noegs19xcpd ;modifed 4/10/00 to add "do:f3" to line 2 ;copied from noegs19xcpd.dv ;modified 8/12/96 from noesygstp19 to include X nucleus decoupling ;avance-version ;2D homonuclear correlation via dipolar coupling ;dipolar coupling may be due to noe or chemical exchange. ;phase sensitive using TPPI ;water suppression using 3-9-19 pulse sequence with gradients ;M. Piotto, V. Saudek & V. Sklenar, J. Biomol. NMR 2, 661 - 666 (1992) ;V. Sklenar, M. Piotto, R. Leppik $ V. Saudek, J. Magn. Reson., ; Series A 102, 241 -245 (1993) #include #include ;;"d0=3u" "d12=20u" 1 ze 2 d1 do:f3 3 d12 pl1:f1 d12 pl3:f3 p1 ph1 d0 (p4 ph8):f3 d0 p1 ph2 d8 p1 ph3 d12 pl18:f1 d12 pl13:f3 50u UNBLKGRAD GRADIENT(cnst21) d16 p28*0.231 ph4 d19*2 p28*0.692 ph4 d19*2 p28*1.462 ph4 d19*2 p28*1.462 ph5 d19*2 p28*0.692 ph5 d19*2 p0*0.231 ph5 46u GRADIENT(cnst22) d16 4u BLKGRAD go=2 ph31 cpd3:f3 d1 do:f3 wr #0 if #0 id0 ip1 zd lo to 3 times td1 exit ph1=0 2 ph2=0 0 0 0 0 0 0 0 2 2 2 2 2 2 2 2 ph3=0 0 2 2 3 3 1 1 ph4=0 ph5=2 ph31=0 2 2 0 1 3 3 1 2 0 0 2 3 1 1 3 ph8=0 ;pl1 : f1 channel - power level for pulse (default) ;pl18: f1 channel - power level for 3-9-19-pulse (watergate) ;pl3 : f3 channel - power level for hard X 180 pulse ;pl13: f3 channel - power level for cpd decoupling ;p0 : f1 channel - 90 degree pulse at pl18 ; use for fine adjustment ;p1 : f1 channel - 90 degree high power pulse ;p2 : f1 channel - 180 degree high power pulse ;p16: homospoil/gradient pulse [1 ms] ;p28: f1 channel - 90 degree pulse at pl18 ;p4 : 180 X pulse ;d0 : incremented delay (2D) [3 usec] ;d1 : relaxation delay; 1-5 * T1 ;d8 : mixing time ;d12: delay for power switching [20 usec] ;d16: delay for homospoil/gradient recovery [500 us ] ;d19: delay for binomial water suppression [150 us ] ; d19 = (1/(2*d)), d = distance of next null (in Hz) ;in0: 1/(4 * SW) = 1/(2 * DW) ;nd0: 4 ;NS: 8 * n ;DS: 16 ;td1: number of experiments ;MC2: TPPI ;use gradient program (GRDPROG) : 2sine ;use gradient ratio: cnst21 : cnst22 ; 20 : 20