;selrogp
;avance-version (12/01/11)
;1D ROESY with cw spinlock for mixing
;   using selective refocussing with a shaped pulse
;
;H. Kessler, H. Oschkinat, C. Griesinger & W. Bermel,
;   J. Magn. Reson. 70, 106 (1986)
;J. Stonehouse, P. Adell, J. Keeler & A.J. Shaka, J. Am. Chem. Soc 116,
;   6037 (1994)
;K. Stott, J. Stonehouse, J. Keeler, T.L. Hwang & A.J. Shaka,
;   J. Am. Chem. Soc 117, 4199-4200 (1995)
;A. Bax & D.G. Davis, J. Magn. Reson 63, 207-213 (1985)
;
;$CLASS=HighRes
;$DIM=1D
;$TYPE=
;$SUBTYPE=
;$COMMENT=


#include <Avance.incl>
#include <Grad.incl>


#   ifdef CALC_SPOFFS
"spoff2=bf1*(cnst21/1000000)-o1"
#   else
#   endif /*CALC_SPOFFS*/


1 ze
2 30m
  20u pl1:f1 BLKGRAD
  d1
  50u UNBLKGRAD
  (p1 ph1):f1
  3u
  p16:gp1
  d16 pl0:f1
  p12:sp2:f1 ph2:r
  3u
  p16:gp1
  d16 pl11:f1
  (p15 ph3):f1
  go=2 ph31
  30m mc #0 to 2 F0(zd)
  20u BLKGRAD
exit


ph1=0 2 
ph2=0 0 1 1 2 2 3 3
ph3=1
ph31=0 2 2 0 


;pl0 : 0W
;pl1 : f1 channel - power level for pulse (default)
;pl11: f1 channel - power level for ROESY-spinlock
;sp2: f1 channel - shaped pulse
;p1 : f1 channel -  90 degree high power pulse
;p12: f1 channel - 180 degree shaped pulse
;p15: f1 channel - pulse for ROESY spinlock
;p16: homospoil/gradient pulse                            [1 msec]
;d1 : relaxation delay; 1-5 * T1
;d16: delay for homospoil/gradient recovery
;cnst21: chemical shift for selective pulse (offset, in ppm)
;ns: 8 * n, total number of scans: NS * TD0
;ds: 4


;phcor 2 : phasedifference between power levels sp1 and pl1

;choose p12 according to desired selectivity
;the flip-angle is determined by the amplitude
;set O1 on resonance on the multiplet to be excited or use spoffs


;use gradient ratio:    gp 1
;                         15

;for z-only gradients:
;gpz1: 15%

;use gradient files:   
;gpnam1: SMSQ10.100



;$Id: selrogp,v 1.18 2012/01/31 17:49:28 ber Exp $