;Geometric double-quantum excitation sequence.
;
;$CLASS=HighRes
;$DIM=1D
;$TYPE=
;$SUBTYPE=
;$COMMENT=
;$RECOMMEND=y

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


"acqt0=-p1*2/PI"
"p2=2*p1"
"p20=p1"
"d15=2*d7"


1 ze

2 30m

  d1

;First block

3	p1 ph2

4	d15
	p1 ph1
	p2 ph2
	p1 ph1
lo to 4 times l1

5	d7
	p1 ph1
	p2 ph2
	p1 ph1
	d7
lo to 5 times l1

6	p1 ph2						
 
;Second block
7	p1 ph20

8	d15
	p1 ph3
	p2 ph20
	p1 ph3
lo to 8 times l1

9	d7
	p1 ph3
	p2 ph20
	p1 ph3
	d7
lo to 9 times l1

;10	p1 ph3								

  go=2 ph31 

  30m mc #0 to 2 F0(zd)
  lo to 1 times td1

exit

;Phases
;------Pulse blocks phases--------								ph1 = 0			        ;A block
ph2 = 1  			;90 shifted from A block
ph3 = 0 1 2 3 			;B block
ph20 = 1 2 3 0			;90 shifted from B block
;------Receiver phase--------
ph31 = 0 3 2 1 											


;pl1 : f1 channel - power level for pulse (default)
;p1 : f1 channel -  90 degree high power pulse
;p2 : 2 * p1; f1 channel - 180 degree high power pulse
;d1 : relaxation delay; 1-5 * T1
;d11: delay for disk I/O                             [30 msec]
;ns: 1 * n, total number of scans: NS * TD0
;l1: Echo number: PI/(2*arctan(D/J))
;d15: Delay: PI/omega
;d7: Delay: PI/(2*omega)

;omega: 2*PI*SQRT(J^2+D^2)
