$S[$k]=0 if ($S[$k]<0 || $fix[$k]==1);