# 1 "/u/exp/stan/nmr/lists/pp/diffus_d2o.gc"
;diffus_d2o.gc
;avance-version
;self diffusion measurement, stimulated echo (PFGSTE)
;using incremented gradient pulse duration for
;application of increasing PFGs
;
;Tanner, J. E., J. Chem. Phys. 1970, 52, 2523.

;pl1 : f1 channel - power level for pulse (default)
;p1 : f1 channel -  90 degree high power pulse
;d1 : relaxation delay; 1-5 * T1
;pl9: presat power level during d1 and T delay (~80-90 dB)
;p16 gpz1: 3-9-19 gradient; 700u 28%
;d19: 3-9-19 delay; ~40-120us
;d8: diffusion delay; 50-150 ms
;cpdprg2 is WALTZ16, pcpd2=202u @ pl12=8.75db @750
;gpz2: gradient power level (try 50-70? look for amp shutdown with
;       longer values of d0- red light on front of gradient amp)

;in0=in15: gradient pulse length increment (try 250u~500u?)
;       d15 will be decremented after each spectrum to compensate
;       for the increased duration of d0, therefore if td1*in15>d15-in15
;       an error message will be generated at the start of acquisition
;       (but acquisition will still commence).
;
; small delta values start at d0+250u, go up as d0+250u+in0
; (e.g., for d0 = 62.5u, in0=62.5u to do equivalent)

;uncomment next line for setup of 1D version
;#define ONE_D

;uncomment next line for 15N decoupling during acquisition
;#define N15_DEC


;d8 is big delta delay
;"d8=80m"
"d5=5.2m"
"d16=300u"
"d11=30m"
"d12=20u"
"d13=3u"
"d15=d5-350u-d0"
"d18=d8-d5-p1*2-d13-d12*2"
"d25=p1"
;"in15=in0"


# 1 "/u/exp/stan/nmr/lists/pp//Avance.incl"
;Avance.incl
;
;version  99/08/02





























# 49 "/u/exp/stan/nmr/lists/pp/diffus_d2o.gc"

1 ze
2 d11 do:f2
3 d11
  d11 setnmr2^0
  20u pl9:f1
  d1 cw:f1
  20u do:f1
  20u pl1:f1
  20u setnmr2|0
  p1:f1 ph1
  3u
  250u gron2
  d0
  100u groff
  d15
  p1:f1 ph1
  d12 pl9:f1
  d18 cw:f1
  d13 do:f1
  d12 pl1:f1
  p1:f1 ph1
  3u
  250u gron2
  d0
  100u groff
  d15
  d12
  d16 pl12:f2
# 80 "/u/exp/stan/nmr/lists/pp/diffus_d2o.gc"

go=2 ph31

# 85 "/u/exp/stan/nmr/lists/pp/diffus_d2o.gc"

  d11 wr #0 if #0 do:f2 id0 zd
  20u dd15
  lo to 3 times td1

  d11 setnmr2^0
exit

ph1=0 2 1 3
ph2=1 1 2 2
ph4=0 0 1 1
ph5=2 2 3 3
ph31=0 2 1 3