; temperature_img	two-dimensional chemical shift imaging
;
; Nikolaus Loening, October 3, 2001
;
; Reference: Nikolaus M. Loening and James Keeler, "Temperature 
; Accuracy and Temperature Gradients in Solution-State NMR 
; Spectrometers", Journal of Magnetic Resonance 159, 55-61 (2002).
;

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

"ds=ns"
"p16=150u"

lgrad r1d=td1
lgrad plusminus=2

1 ze
  20u pl1:f1
  300u UNBLKGRAD

2 d1 
  igrad plusminus
  p16:gp1*r1d*plusminus
  100u igrad plusminus

  (p1 ph1):f1

  p16:gp1*r1d*plusminus
  100u

  go=2 ph31
  30m wr #0 if #0 zd
  igrad r1d
  lo to 2 times td1

  100m BLKGRAD

exit


ph1=0 1 2 3
ph31=0 1 2 3


;pl1 : f1 channel - power level for pulse (default)
;p1 : f1 channel -  90 degree high power pulse
;d1 : relaxation delay; 1-5 * T1
;p16: gradient pulse length
;NS: 4*n