SUBROUTINE DMURRV(NRA,NCA,A,LDA,NX,X,IPATH,NY,Y)
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      DIMENSION A(LDA,*),X(NX),Y(NY)
      IF (IPATH.EQ.1) THEN
         DO 10 I=1,NRA
            SUM=0D0
            DO 20 J=1,NCA
               SUM=SUM+A(I,J)*X(J)
 20         CONTINUE
            Y(I)=SUM
 10      CONTINUE
      ENDIF
      IF (IPATH.EQ.2) THEN
         DO 30 J=1,NCA
            SUM=0D0
            DO 40 I=1,NRA
               SUM=SUM+A(I,J)*X(I)
 40         CONTINUE
            Y(J)=SUM
 30      CONTINUE
      ENDIF
      RETURN
      END