"SS_AutoCal_maxamp($1) - "

select(celem) 
if (celem=1) then 
   vsadj($1) 
endif
peak:$ht
if ($ht>$1) then 
   vsadj($1) 
endif

