SUBROUTINE DMRRRR(NRA,NCA,A,LDA,NRB,NCB,B,LDB,
     +NRC,NCC,C,LDC)
      IMPLICIT DOUBLE PRECISION(A-H,O-Z)
      DIMENSION A(LDA,*),B(LDB,*),C(LDC,*)
      DO 10 I=1,NRA
         DO 20 J=1,NCB
            SUM=0D0
            DO 30 K=1,NCA
               SUM=SUM+A(I,K)*B(K,J)
 30         CONTINUE
            C(I,J)=SUM
 20      CONTINUE
 10   CONTINUE
      RETURN
      END