"gnoesyCaliCaroNhsqc macro BioPack-style, Aug 2007, Alex Eletski"

BPrtppar('gnoesyCaliCaroNhsqc')

 getparam('dmf140','C13'):dmf140 
 getparam('rf140','C13'):rf140

setfrq BPsetampmode
if (numrfch>3) then
 getparam('dof3D','H2'):dof3
 getparam('dmm3D','H2'):dmm3
 getparam('dmf3D','H2'):dmf3
 getparam('dpwr3D','H2'):dpwr3
 getparam('dres3D','H2'):dres3
 getparam('dseq3D','H2'):dseq3
else
  exists('ampmode','parameter'):$e
  if ($e=1) then destroy('ampmode') endif
endif
reffrq=sfrq
 getparam('gt5','N15'):gt5
 getparam('gzlvl5','N15'):gzlvl5

 getparam('NHgstab','N15'):gstab
 getparam('swN','N15'):sw2N 
 sw2=28d
 sw1=sw 
 dof=dof-(174-35)*dfrq
 getparam('dmm2NH','N15'):$mode
 substr($mode,3,1):$mode
 dmm2='c'+$mode+'c'+$mode
 if ($mode<>'p') then
  dpwr2=dpwr2-3 dmf2=dmf2/1.4  "lower decoupling by 3dB"
 endif
 wet='nnn' 
 BPpboxget('wurst140.DEC'):dseq,$dmmy,dpwr,$dmmy,dres,dmf
 dm='nnny'
 if dmm<>'cccp' then
  dpwr=pwClvl-15 dmf=1e6/(2*2*1.4*pwC*compC)
  BPcheckdpwr
 endif


spin='n' ni=0  ni2=0 phase=1 phase2=1
