☜	$%MTXMUL Draft MDC Standard					☞

2 MATH Library
2.43 MTXMUL

MTXMUL(A,B,R,M,L,N) ;
	; Multiply A[M,L] by B[L,N], result goes to R[M,N]
	If $Data(A)<10 Quit 0
	If $Data(B)<10 Quit 0
	If $Get(L)<1 Quit 0
	If $Get(M)<1 Quit 0
	If $Get(N)<1 Quit 0
	;
	New I,J,K,SUM,ANY
	For I=1:1:M For J=1:1:N Do
	. Set (SUM,ANY)=0
	. KValue R(I,J)
	. For K=1:1:L Do
	. . Set:$Data(A(I,K))#2 ANY=1
	. . Set:$Data(B(K,J))#2 ANY=1
	. . Set SUM=$Get(A(I,K))*$Get(B(K,J))+SUM
	. . Quit
	. Set:ANY R(I,J)=SUM
	. Quit
	Quit 1

Copyright © Standard Documents; 1977-2024 MUMPS Development Committee;
Copyright © Examples: 1995-2024 Ed de Moel;
Copyright © Annotations: 2003-2008 Jacquard Systems Research
Copyright © Annotations: 2008-2024 Ed de Moel.

Some specifications are "approved for inclusion in a future standard". Note that the MUMPS Development Committee cannot guarantee that such future standards will indeed be published.

This page most recently updated on 30-Nov-2011, 20:06:01.

For comments, contact Ed de Moel (demoel@jacquardsystems.com)