path := $libdir/macro,/data/home/aeletski/prosa_macro,/data/home/yangshen/software/prosa-6.0.2/macro,.

# ==== setting output and test-flag ====
output      := RhR95NC_gNhsqc
test_ft     := n         # test-ft for phasing with XEASY
reduce_flag := n         # reduce size for test-ft by factor of 2
np          := 512
ni          := 256

# ==== reading of data ====
read vnmr  fid {$np}c {$ni}c byteswap    # byteswap is needed on Linux
write integer tmp
readkay integer tmp {$np}c {$ni}c    # gradsort for echo/anti-echo


# ==== setting of parameters ====
#DIMENSION: 1 (1H)
si(1)      = 2048
aqm(1)    := RSH
w0(1)      = 750.5920314
delta(1)   = 0.000083325
ppmmax(1)  = 12.7946

#DIMENSION: 2 (15N)
si(2)      = 512
aqm(2)    := RSH
w0(2)      = 76.0568285
delta(2)   = .0005143239
ppmmax(2)  = 131.193


set n_dim= 2


window1 := "window sin 90"
window2 := "window sin 90"

ph0_d(1) = 90+118.1 
ph1_d(1) = 65
ph0_d(2) = 0
ph1_d(2) = -180

# ==== processing ====

dim 1
conjugate
#suppress cos 64
dim 2
#conjugate
#mul 0.5 1

# ==== ft ====
strip_ft 1 1..$si(1)/2
strip_ft 2 1..$si(2)

if ('$test_ft'!='y') then
   dim 1
   cflatt iterative polynom 5
   dim 2
   cflatt iterative polynom 5
end if

dim 1 2

scale noise

if ('$test_ft'=='y') then
   write easy16 $output.rr r r byteswap
   write easy16 $output.ri r i byteswap
   write easy16 $output.ir i r byteswap
else
   write easy16 $output byteswap
end if