" sesamehsqc 07 09 2007 Copyright (c) Finnish National Biological NMR laboratory"
"*****************************************************************"
" sesamehsqc - setup macro for timeshared 15N/13C SESAME-HSQC pulse sequence for measuring NH and CH couplings simultaneously by P.Wuertz and P.Permi "
"*****************************************************************"

par2D

$name=$0

exists('scalesw1','parameter'):$scalesw1ex"
if ($scalesw1ex = 0) then create('scalesw1','real') endif
scalesw1=sw2/sw1
exists('abfilter','parameter'):$abfilterex"
if ($abfilterex = 0) then create('abfilter','string') abfilter='a','b' endif
exists('doublet','parameter'):$doubletex"
if ($doubletex = 0) then create('doublet','string') doublet='a' endif
exists('geminal','parameter'):$geminalex"
if ($geminalex = 0) then create('geminal','string') geminal='n' endif


dn='C13' dn2='N15' dm='nnn' dmm='ccp'  dm2='nnn' dmm2='ccg'
set2D

proc='ft' fpmult='n'
fn=4k fn1=512 phase=1,2 

ph ph1  
sb=-np/sw
sbs=-np/sw
sb1=-ni/sw1
sbs1=-ni/sw1
vs2d=250

axis='pd'
seqfil='sesamehsqc'
f1coef='1 0 -1 0 -1 0 1 0 0 -1 0 1 0 -1 0 1'
hs='n' dps full

ctext text('SESAME-HSQC: simultaneous CH and NH couplings')
man('sesamehsqc')