Shell Programming and Scripting

awk 'BEGIN {FS = OFS = ","}
  {if ($1 in a)
    {if (a11[$1] == $13)
      {split(a0[$1], b, ","); print $1,($2 + b[2]), ($3 + b[3]), ($4 + b[4]), ($5 + b[5]), ($6 + b[6]), ($7 + b[7]), ($8 + b[8]), ($9 + b[9]), ($10 + b[10]), ($11), ($12 + b[12]), (b[13]), $14}
    else if (a13[$1] == $11)
      {split(a0[$1], b, ","); print $1,($2 + b[2]), ($3 + b[3]), ($4 + b[4]), ($5 + b[5]), ($6 + b[6]), ($7 + b[7]), ($8 + b[8]), ($9 + b[9]), ($10 + b[10]), (b[11]), ($12 + b[12]), ($13), $14}}
  else
    {a[$1]++; a0[$1] = $0; a11[$1] = $11; a13[$1] = $13}
  }' file

SSCHPD01S201404010924210318.PDSN,0,0,16,0,906,20,7,619,523,19,476,2571,20140401092421
SSCHPD01S201404011225380559.PDSN,0,0,3,0,823,19,4,615,632,4,483,2583,20140401122538
SSCHPD01S201404011225380559.PDSN,1,,,,,,,,1,2,,4,20140401122538
SSCHPD01S201404010924210317.PDSN,,,,,,,,,,4,,4,20140401092421
SSCHPD01S201404010924210317.PDSN,0,0,16,0,906,20,7,619,523,4,476,2571,20140401092421
SSCHPD01S201404011225380579.PDSN,0,0,3,0,823,19,4,615,632,4,483,2583,20140401122538
SSCHPD01S201404011225380579.PDSN,2,,,,,,,,,2,,4,20140401122538
SSCHPD01S201404010924210318.PDSN,1,1,1,1,1,1,1,1,1,10,,19,20140401092421
SSCHPD01S201404010924210319.PDSN,10,10,10,10,10,10,10,10,10,10,20,120,20140401092421

awk 'BEGIN {FS = OFS = ","}
  {if ($1 in a1)
    {if (a11[$1] == $13)
      {split(a[$1], b, ","); print $1,($2 + b[2]), ($3 + b[3]), ($4 + b[4]), ($5 + b[5]), ($6 + b[6]), ($7 + b[7]), ($8 + b[8]), ($9 + b[9]), ($10 + b[10]), ($11), ($12 + b[12]), (b[13]), $14;
	    delete a[$1]; delete a1[$1]; delete a11[$1]; delete a13[$1]; delete b}
    else if (a13[$1] == $11)
      {split(a[$1], b, ","); print $1,($2 + b[2]), ($3 + b[3]), ($4 + b[4]), ($5 + b[5]), ($6 + b[6]), ($7 + b[7]), ($8 + b[8]), ($9 + b[9]), ($10 + b[10]), (b[11]), ($12 + b[12]), ($13), $14;
	    delete a[$1]; delete a1[$1]; delete a11[$1]; delete a13[$1]; delete b}}
  else
    {a1[$1]; a[$1] = $0; a11[$1] = $11; a13[$1] = $13}
  } END {for(x in a) {print a[x]}}' file

awk '
  {
    split (A[$1],F)
    if(F[11]==$13) {
      $11=$13=0
      for(i=2; i<NF; i++) $i+=F[i]
    }
    A[$1]=$0
  }
  END{
    for(i in A) print A[i]
  }
' FS=, OFS=, file