      SUBROUTINE MCVRC(M,N,A,KA,B,KB)
      REAL A(KA,N)
      COMPLEX B(KB,N)
      DO 20 J=1,N
      DO 10 I=1,M
   10 B(I,J) = CMPLX(A(I,J),0.0)
   20 CONTINUE
      RETURN
      END
