
"BP_SS_update_from_probefile updates parameters values from the probefile"

getparam('gf',tn):gf gf='n'
getparam('gfs',tn):gfs
getparam('sb',tn):sb sb='n'
getparam('sbs',tn):sbs
getparam('lb',tn):lb if lb=0.0 then lb='n' endif
getparam('rof2',tn):rof2
getparam('sw',tn):sw
getparam('at',tn):at
getparam('rd',tn):rd
getparam('ad',tn):ad
fn=np if (fn<np) then fn=2*fn endif

getparam('ref_pw90',tn):ref_pw90
getparam('ref_pwr',tn):ref_pwr
getparam('BPpw90',tn):pw
getparam('BPpw90',tn):pw90
getparam('d1',tn):d1
getparam('gain',tn):gain

exists('rof3','parameter'):$e
if ($e=1) then
   getparam('rof3',tn):rof3
endif

if (Console='vnmrs') then
   getparam('ddrtc',tn):ddrtc
   if ddrtc=0.0 then ddrtc=ad+rd endif
endif

exists('JNH','parameter'):$e
if $e then
   getparam('JNH','N15'):JNH
endif

if (tn='C13') then
   getparam('BPpwr','C13'):tpwr
   getparam('BPpw90','C13'):pwX90
   getparam('BPa90','C13'):aX90
   getparam('BP_COoffset','C13'):tof

   getparam('BPpwr','H1'):dpwr
   getparam('BPpw90','H1'):pwH90
   getparam('BPa90','H1'):aH90
   getparam('BP_H1offset','H1'):dof

   getparam('BPpwr','N15'):dpwr2
   getparam('BPpw90','N15'):pwY90
   getparam('BPa90','N15'):aY90
   getparam('BP_N15offset','N15'):dof2

elseif (tn='N15') then
   getparam('BPpwr','C13'):dpwr2
   getparam('BPpw90','C13'):pwY90
   getparam('BPa90','C13'):aY90
   getparam('BP_COoffset','C13'):dof2

   getparam('BPpwr','H1'):dpwr
   getparam('BPpw90','H1'):pwH90
   getparam('BPa90','H1'):aH90
   getparam('BP_H1offset','H1'):dof

   getparam('BPpwr','N15'):tpwr
   getparam('BPpw90','N15'):pwX90
   getparam('BPa90','N15'):aX90
   getparam('BP_N15offset','N15'):tof

elseif (tn='H1') then
   getparam('BPpwr','C13'):dpwr
   getparam('BPpw90','C13'):pwX90
   getparam('BPa90','C13'):aX90
   getparam('BP_COoffset','C13'):dof

   getparam('BPpwr','H1'):tpwr
   getparam('BPpw90','H1'):pwH90
   getparam('BPa90','H1'):aH90
   getparam('BP_H1offset','H1'):tof

   getparam('BPpwr','N15'):dpwr2
   getparam('BPpw90','N15'):pwY90
   getparam('BPa90','N15'):aY90
   getparam('BP_N15offset','N15'):dof2

endif
 
sw=sw
BPcheckprobefile('empty_noise',tn):$e
   if ($e=1) then
   exists('empty_noise','parameter'):$e
   if ($e=0) then
      create('empty_noise','real')
   endif
   getparam('empty_noise',tn):empty_noise
endif

getparam('BPtemp','Probe'):temp
