      SUBROUTINE MADD(M,N,A,KA,B,KB,C,KC)
      REAL A(KA,N),B(KB,N),C(KC,N)
      DO 20 J=1,N
      DO 10 I=1,M
   10 C(I,J) = A(I,J) + B(I,J)
   20 CONTINUE
      RETURN
      END
