      SUBROUTINE SMADD(N,A,B,C)
      REAL A(1),B(1),C(1)
      M=(N*(N+1))/2
      DO 10 K=1,M
   10 C(K)=A(K)+B(K)
      RETURN
      END
