;cosygpprqf_cpmg_qt
;avance-version (12/01/11)
;2D homonuclear shift correlation
;with presaturation during relaxation delay
;using gradient pulses for selection
;
;add cpmg filter
;
;$CLASS=HighRes
;$DIM=2D
;$TYPE=
;$SUBTYPE=
;$COMMENT=


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


"p2=p1*2"
"d11=30m"
"d12=20u"
"d16=200u"

"DELTA1=d20-p1*2/3.1416"
;"DELTA2=d20-de"

"acqt0=0"
baseopt_echo


"in0=inf1"

"d0=3u"


1 ze
2 30m
  d12 pl9:f1
  d1 cw:f1 ph29
  4u do:f1
  d12 pl1:f1
  p1 ph1
  DELTA1
  p2 ph2
  d20
3 d20
  p2 ph2
  d20
  lo to 3 times l4
  d20
  p2 ph2
  d20         ;replace DELTA2
4 d0          ;cosy
  50u UNBLKGRAD
  p16:gp1
  d16
  p1 ph3
  4u
  p16:gp1
  d16
  4u BLKGRAD
  go=2 ph31
  d11 mc #0 to 2 F1QF(caldel(d0, +in0))
exit

ph1=0 0 2 2
ph2=1 3 1 3
ph3=0          ;cosy
ph29=0
ph31=0 0 2 2



;cpmg
;pl1 : f1 channel - power level for pulse (default)
;pl9 : f1 channel - power level for presaturation
;p1 : f1 channel -  90 degree high power pulse
;p2 : f1 channel - 180 degree high power pulse
;d1 : relaxation delay; 1-5 * T1
;d11: delay for disk I/O                             [30 msec]
;d12: delay for power switching                      [20 usec]
;d20: fixed echo time to allow elimination of J-mod. effects 
;        d20 should be << 1/J ,but > (50 * P2)       [1-2 msec]
;l4: loop for T2 filter                              [4 - 20] 
;ns: 1 * n, total number of scans: NS * TD0
;ds: 16

;COSY
;p16: homospoil/gradient pulse                       [1000 usec]
;d0 : incremented delay (2D)                         [3 usec]
;d1 : relaxation delay; 1-5 * T1
;d11: delay for disk I/O                             [30 msec]
;d12: delay for power switching                      [20 usec]
;d16: delay for homospoil/gradient recovery          [200 usec]
;inf1: 1/SW = 2 * DW
;in0: 1/(1 * SW) = 2 * DW
;nd0: 1
;ns: 1 * n
;ds: 16
;td1: number of experiments
;FnMODE: QF

;use gradient ratio:	gp 1
;			  10

;for z-only gradients:
;gpz1: 10%

;use gradient files:   
;gpnam1: SMSQ10.100



;$Id: cosygpprqf,v 1.5 2012/01/31 17:49:22 ber Exp $
