;ufcosy interleaved
;avance-version (02/05/31)
;1D sequence
;modified by Meerakhan on 15/03/13
;spatially selective acquisition using adiabatic pulse and field gradients
;acquisition including gradient switching
;cf. Frydman, Lupulescu and Scherf, J. Am. Chem. Soc. 2003, 125, 9204-9217


;$CLASS=HighRes
;$DIM=2D
;$TYPE=
;$SUBTYPE=
;$COMMENT=



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

"d2=3u"

"p15=(td*dw/(2*l3))-d6"
"in2=2*(p15+d6)/td1"
"d25=p15"

1 ze
  20u st0

21 30m pl1:f1 pl9:f2
  1u reset:f1
  d1 cw:f2 ph29
  4u do:f2
  100u UNBLKGRAD
  p1 ph1
  10u gron0
  p11:sp1:f1 ph2
  10u groff
  10u
	p20:gp20
  10u
  10u gron1
  p11:sp1:f1 ph2
  10u groff
  10u
	p21:gp21
  10u
  10u pl1:f1
  d24 gron24
  10u groff
  10u
  p23:gp23
  10u
  p1 ph1
  10u
  p26:gp26
  10u
  d25 gron25
  10u groff
  10u
  d2
  6.5u

31 p15:gp15
	d6
	p15:gp16
	d6
  lo to 31 times l3
  100u BLKGRAD
  3m
  100u UNBLKGRAD
  p10:gp10
  100u BLKGRAD
  30m 
  lo to 21 times l4

2 30m pl1:f1 pl9:f2
  1u reset:f1
  d1 cw:f2 ph29
  4u do:f2
  100u UNBLKGRAD
  p1 ph1
  10u gron0
  p11:sp1:f1 ph2
  10u groff
  10u
	p20:gp20
  10u
  10u gron1
  p11:sp1:f1 ph2
  10u groff
  10u
	p21:gp21
  10u
  10u pl1:f1
  d24 gron24
  10u groff
  10u
  p23:gp23
  10u
  p1 ph1
  10u
  p26:gp26
  10u
  d25 gron25
  10u groff
  10u
  d2
  ACQ_START(ph30,ph31)
  1u DWELL_GEN:f1

3 p15:gp15
	d6
	p15:gp16
	d6
  lo to 3 times l3
  100u BLKGRAD
  rcyc=2
  100u UNBLKGRAD
  p10:gp10
  100u BLKGRAD
  30m mc #0 to 2 F1QF(id2)
  d5
exit


ph1=0 
ph2=1
ph29=0
ph30=0
ph31=0


;pl1 : f1 channel ? power level for pulse (default)
;sp1: shaped pulse power level for selective detection
;p1 : f1 channel ? 90 degree high power pulse
;spnam1 : shaped pulse for selective detection
;d1 : relaxation delay; 1-5 * T1
;d11 : short delay
;d12 : delay for spin echo adjusting
;GPZ0 : strength for excitation gradient [0-100]
;GPZ1 : strength for reversed excitation gradient GPZ1 = -GPZ0
;GPZ2 : strength for acquisition gradient [0-100]
;GPZ3 : strength for reversed acquisition gradient GPZ3 = -GPZ2
;NS: 1
;l3=number of loops for acquisition
;IMPORTANT: set d20 + d6 = DW x TD(F2)/(2xL3)

;$Id: zgselgs,v 1.1 2006/05/26 12:17:01 ber Exp $
