MACRO
mabs n m1 m2
# Dieses Makro berechnet zu einer Matrix m1=(nxn) die 
# Matrix m2=(nxn) mit den Absolutbeträgen der Elemente
#
MCONSTANT n i
MCOLUMN   c.1-c.n
MMATRIX   m1 m2
copy m1 c.1-c.n
do i = 1 : n
   let c.i=abs(c.i)
enddo
copy c.1-c.n m2
ENDMACRO