      SUBROUTINE MCVRD(M,N,A,KA,B,KB)
      REAL A(KA,N)
      DOUBLE PRECISION B(KB,N)
      DO 20 J=1,N
      DO 10 I=1,M
   10 B(I,J) = A(I,J)
   20 CONTINUE
      RETURN
      END
