Shell Programming and Scripting

awk '
  function pr() {
    for(i=1; i<=NF; i++) $i=T[i]
    print
  }

  $1!=p {
    n=$0
    p=$1
    if(NR>1) pr()
    split(n,T)
    next
  }
 
  {
    for(i=2; i<=NF; i++) T[i]+=$i
  }

  END{
    pr()
  }
' OFS='\t' file

cat get_sum.txt 
K00001 1 1 4 3 5
K00001 2 4 4 3 3
K00001 8 9 1 5 2
K00006 7 2 3 2 8
K00006 3 4 6 6 3
K00006 5 1 9 7 7
K00008 1 1 2 1 1
K00011 14 18 18 12 15
K00001 2 3 4 5 6
K00008 5 4 3 2 1

awk  '{for(i=1;i<=NF;i++){if(i==1){Q=$1} else {A[Q OFS i]+=$i}}} END{for(y in A){W=y;gsub(/[[:space:]].*/,X,W);while(p<=NF){D[W]=D[W] OFS A[W OFS p];p++};while(k<=NF){delete A[W OFS k];k++};p="";k=""} { for(t in D){print t OFS D[t]}}}' get_sum.txt

awk  '
{for(i=1;i<=NF;i++)
	{if(i==1)
		{Q=$1} 
	else 
		{A[Q OFS i]+=$i}}
	} 
END{
for(y in A)
{W=y;
	gsub(/[[:space:]].*/,X,W);
	while(p<=NF){
			D[W]=D[W] OFS A[W OFS p];p++
		    }
	while(k<=NF){
			delete A[W OFS k];k++};p="";k=""
		    } 
{for(t in D)
	{print t OFS D[t]}
}
}' get_sum.txt

K00001    13 17 13 16 16                            
K00011    14 18 18 12 15                            
K00006    15 7 18 15 18                            
K00008    6 5 5 3 2