÷TextDocs.NewDoc€c÷FCColorFlatLockedControlsOrgÛBIER`b€3ð#Oberon10.Scn.Fnthh(* JFS 05/01/99 Version 0.1 *) This module provides basic operations on Matrix of long reals. The procedures return a BOOLEAN: TRUE notifies a succesfull completion. DEFINITION MatrixL; PROCEDURE Add(VAR M1, M2, R: ARRAY OF ARRAY OF LONGREAL): BOOLEAN; PROCEDURE Copy(VAR A, B: ARRAY OF ARRAY OF LONGREAL): BOOLEAN; PROCEDURE Determinant(VAR A: ARRAY OF ARRAY OF LONGREAL; VAR Det: LONGREAL; VAR Rank: LONGINT): BOOLEAN; PROCEDURE Display(VAR M: ARRAY OF ARRAY OF LONGREAL; Acc: INTEGER); PROCEDURE GaussMod(VAR A, R: ARRAY OF ARRAY OF LONGREAL; VAR Rank: INTEGER): BOOLEAN; PROCEDURE Invert(VAR A, R: ARRAY OF ARRAY OF LONGREAL; Rank: INTEGER): BOOLEAN; PROCEDURE Mult(VAR M1, M2, R: ARRAY OF ARRAY OF LONGREAL): BOOLEAN; PROCEDURE PseudoInvert(VAR A, At, P, I, R: ARRAY OF ARRAY OF LONGREAL): BOOLEAN; PROCEDURE ScalMult(VAR M: ARRAY OF ARRAY OF LONGREAL; K: LONGREAL); PROCEDURE Sub(VAR M1, M2, R: ARRAY OF ARRAY OF LONGREAL): BOOLEAN; PROCEDURE Transpose(VAR M1, R: ARRAY OF ARRAY OF LONGREAL): BOOLEAN; PROCEDURE Unity (VAR R: ARRAY OF ARRAY OF LONGREAL): BOOLEAN; END MatrixL.