;hp_rf
;2D H-1/P-31
;phosphor high power F3 channel
;phase sensitive States-TPPI 
;20.7.1999 vladi sklenar
;corrected by RaF Nov. 19, 2016

#include <Grad.incl>


"d12=20u"
"d13=3u"
"d11=30m"
"in0=inf1"
"d0=(in0-p5*4/3.14159)"
;"d0=50m"
"l3=td1/2"

1 ze
2 d11 BLKGRAD
3 d11
4 d12 pl3:f3
  d12 pl9:f1
  (p18*0.8 ph9):f1
  d13
  (p18*0.2 ph10):f1
  d12 UNBLKGRAD
  d13 pl10:f1
   (p9 ph9):f1		;spin-lock
   (p9 ph10):f1
  d13
  d12 pl1:f1
 (p5 ph1):f3
  d0
 (p5 ph2):f3
  p16:gp1
  d16
 (p1 ph3):f1 
  go=2 ph31
   d11 wr #0 if #0 ip1 zd
    lo to 3 times 2
     d11 id0
      lo to 4 times l3
d12 BLKGRAD
exit

ph1 = 0 2
ph2 = 0 0 2 2
ph3 = 0 
ph4 = 0
ph9 = 0
ph10= 1  
ph31= 0 2 2 0 



;pl1: H-1 power level
;pl2: P-31 power level
;pl9: H-1 power level for presaturation
;pl10: H-1 power level for spin-lock
;p1 :  90 degree pulse
;p2 : 180 degree pulse
;p3 :  90 degree  pulse
;p4 : 180 degree  pulse
;p9 : spin-lock (2 ms)
;d0 : (in0-p3*4/pi)
;p16: gradient pulse (600 us)
;d11: I/O delay for disc (30 ms)
;d12: delay for power switching
;in0: 1/2SW(X)
;nd0: 2
;NS: *16, minimum 2
;td1: # of t1-experiments
;MC2: States-TPPI