# 1 "/opt/topspin/exp/stan/nmr/lists/pp/pulsecal"
;pulsecal
;avance-version (07/12/04)
;for single scan pulse calibration
;requires analog mode
;
;P.S.C.Wu & G. Otting, J. Magn. Reson. 176, 115-119 (2005)
;
;$CLASS=HighRes HWT
;$DIM=1D
;$TYPE=
;$SUBTYPE=
;$COMMENT=
;$HIDE=y


# 1 "/opt/topspin/exp/stan/nmr/lists/pp/Avance.incl" 1
;Avance3.incl
;   for AV III
;
;avance-version (07/12/14)
;
;$CLASS=HighRes Incl
;$COMMENT=





























































































































































;$Id: Avance3.incl,v 1.6.2.2 2007/12/14 16:06:46 ber Exp $
# 16 "/opt/topspin/exp/stan/nmr/lists/pp/pulsecal" 2

# 1 "/opt/topspin/exp/stan/nmr/lists/pp/De.incl" 1
;De2.incl
;   for AVi
;
;avance-version (08/02/15)
;
;$CLASS=HighRes Incl
;$COMMENT=


define delay rde1


"rde1=de-de1"










;for multi receive








;$Id: De2.incl,v 1.3.6.3 2008/02/15 15:18:53 ber Exp $
# 17 "/opt/topspin/exp/stan/nmr/lists/pp/pulsecal" 2



define delay dwdel1
define delay dwdel2
define delay dwdel3

define pulse dwpul

define loopcounter tdcount


"cnst31=10"


"d12=20u"


"dwdel1=2u"
"dwdel3=40u"
"dwpul=dw*2*cnst31/100"

"dwdel2=dw*2-dwdel1*9-dwpul-dwdel3"


"tdcount = td/2+2"


"anavpt=256"


# 1 "mc_line 48 file /opt/topspin/exp/stan/nmr/lists/pp/pulsecal dc-measurement inserted automatically"
    dccorr
# 48 "/opt/topspin/exp/stan/nmr/lists/pp/pulsecal"
1 ze
  d12 pl29:f1
2 30m
  d1
  (rde1 sync de1 adc ph31 syrec) (1u 1u ph30:r):f1 (de)

4 dwdel1 sytra
  dwdel1 setrtp1^5
  dwdel3 setfrtp1|1
  dwdel1
  (dwpul ph1):f1
  dwdel1
  dwdel1 setfrtp1^1
  dwdel1
  dwdel1 setrtp1|5
  dwdel2 syrec
  dwdel1 setrtp1|0
  dwdel1 setrtp1^0
  lo to 4 times tdcount

  rcyc = 2
  wr #0
exit


ph1=0
ph30=0
ph31=0 


;pl1 : f1 channel - power level for pulse (default)
;pl24: f2 channel - power level for hd/hc decoupling
;p1 : f1 channel -  high power pulse
;d1 : relaxation delay; 1-5 * T1
;d12: delay for power switching                      [20 usec]
;NS: 1 * n, total number of scans: NS * TD0



;$Id: pulsecal,v 1.2.6.1 2007/12/14 18:14:35 ber Exp $