NUTSMacro Varian gradient HSQC (echo-antiecho)

;import data before starting macro

; FT and phase 1st slice first, to determine phasing
; window fcn is cosine squared
; for explanation, see http://www.acornnmr.com/NutsHelp/varian_ghsqc.htm

;macro prompts for name of data set
; select translated NUTS data file (starts with $)

set s# 90
ask filea
ga
set filec ft1.2d

;1st dimension processing 
ga zf b1 ia ga zf b2 b+ ms ms ft ps tr b- ms ms ft ps ti st in

; transpose data
set filec td.2d
set filea ft1.2d
set sl 1
ga
td

set filea td.2d
set sl 1
ga
set filec ft2.2d

; 2nd dimension
ga bc ms ms zf ft sr bc sc in

set filea ft2.2d
set sl 1
ga
set mh 4
ss
ip
end