# 1 "/opt/topspin3.2/exp/stan/nmr/lists/pp/user/t1rho.fb"
;t1rho.fb 

;t1rho experiments for T1rho measurements
;written by Frédéric Blanc 
;pulse program is for 2D acquisition 
;T1rho pulse program using 4-PM phase shifts, 
;for fast phase shifts
;establish VP list for spin lock pulses

;Avance II+ version
;parameters:
;d1 : recycle delay
;vplist : spin lock pulses (warning : pulses must be shorter than 50 ms)
;p1 : X 90 degree pulse
;pl1 : X power level for 90 degree pulse
;pl2 : X power level for spin lock pulses 
;FnMode : QF
# 19 "/opt/topspin3.2/exp/stan/nmr/lists/pp/user/t1rho.fb"
;$COMMENT=T1 rho experiments
;$CLASS=Solids
;$DIM=pseudo 2D
;$TYPE=direct excitation
;$SUBTYPE=T1/T2

"acqt0=-p1/2"

# 1 "mc_line 27 file /opt/topspin3.2/exp/stan/nmr/lists/pp/user/t1rho.fb exp. def. part of mc cmd. before ze"
define delay MCWRK
define delay MCREST
"MCREST = d1 - 10m"
"MCWRK = 0.500000*10m"

    dccorr
# 27 "/opt/topspin3.2/exp/stan/nmr/lists/pp/user/t1rho.fb"
1 ze			
# 1 "mc_line 27 file /opt/topspin3.2/exp/stan/nmr/lists/pp/user/t1rho.fb exp. def. of mc cmd. after ze"
# 28 "/opt/topspin3.2/exp/stan/nmr/lists/pp/user/t1rho.fb"
# 1 "mc_line 28 file /opt/topspin3.2/exp/stan/nmr/lists/pp/user/t1rho.fb exp. start label for mc cmd."
2 MCWRK 
LBLF1, MCWRK
  MCREST
# 29 "/opt/topspin3.2/exp/stan/nmr/lists/pp/user/t1rho.fb"
  (p1 pl1 ph1):f1	;90 degree pulse at pl1		
  (vp pl2 ph2):f1     ; spin lock pulse
  go=2 ph31
# 1 "mc_line 32 file /opt/topspin3.2/exp/stan/nmr/lists/pp/user/t1rho.fb exp. mc cmd. in line"
  MCWRK  wr #0 if #0 zd ivp 
  lo to LBLF1 times td1
  MCWRK
# 33 "/opt/topspin3.2/exp/stan/nmr/lists/pp/user/t1rho.fb"
  HaltAcqu, 1m
exit
# 36 "/opt/topspin3.2/exp/stan/nmr/lists/pp/user/t1rho.fb"
ph0=0
ph1= 0 0 2 2 1 1 3 3
ph2= 1 3 1 3 2 0 2 0
ph31=0 0 2 2 1 1 3 3

