SUBROUTINE DMXyTF(NRA,NCA,A,LDA,NRB,NCB,B,LDB,
     +NRC,NCC,C,LDC)
      IMPLICIT double precision (A-H,O-Z)
      DIMENSION A(LDA,NCA),B(LDB,NCB), C(LDc,NCC)
      DO 20 I=1,Nra
      DO 20 J=1,Nrb
      AA=0.0D0
      DO 10 L=1,nca
   10 AA=AA+a(I,L)*b(J,L)
   20 c(i,j)=AA
      RETURN
      END