c  $Header: /usr/people/flittner/radtran/tomrad/pv2.2/src/RCS/matmul.f,v 2.22 2000/08/30 16:38:09 flittner Exp $
      subroutine matmlt(x,y,z)
c 
c last mod: May 10, 1999...def
c purpose: change the name to matmlt to avoid conflict with linex f77 compiler.
c
      real*8 x(4),y(4),z(4)
c
c
      z(1)=x(1)*y(1)+x(2)*y(3)
      z(2)=x(1)*y(2)+x(2)*y(4)
      z(3)=x(3)*y(1)+x(4)*y(3)
      z(4)=x(3)*y(2)+x(4)*y(4)
c
      return
      end