Button for 1977 Button for 1984 Button for 1990 Button for 1995 Button for MDC Button for notes Button for examples
☜

$%MTXSUB

Draft MDC Standard

☞

2 MATH Library
2.45 MTXSUB

MTXSUB(A,B,R,ROWS,COLS) ;
	; Subtract B[ROWS,COLS] from A[ROWS,COLS],
	; result goes to R[ROWS,COLS]
	If $Data(A)<10 Quit 0
	If $Data(B)<10 Quit 0
	If $Get(ROWS)<1 Quit 0
	If $Get(COLS)<1 Quit 0
	;
	New ROW,COL,ANY
	For ROW=1:1:ROWS For COL=1:1:COLS Do
	. KValue R(ROW,COL) Set ANY=0
	. Set:$Data(A(ROW,COL))#2 ANY=1
	. Set:$Data(B(ROW,COL))#2 ANY=1
	. Set:ANY R(ROW,COL)=$Get(A(ROW,COL))-$Get(B(ROW,COL))
	. Quit
	Quit 1
Button for 1977 Button for 1984 Button for 1990 Button for 1995 Button for MDC Button for notes Button for examples

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:23.

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