SUBROUTINE MATADD(A,B,C,N)
C
C           MATRIX ADDITION SUBROUTINE
C              A & B = 30 X 1 MATRICES
C              C = A * B
C
      DOUBLE PRECISION A(*),B(*),C(*)
      DO 10 I=1,N
   10   C(I)=A(I)+B(I)
      RETURN
      END