* initial version

git-svn-id: trunk@4452 -

.gitattributes

@@ -2972,6 +2972,7 @@ packages/extra/numlib/examples/invgpdex.dat -text
 packages/extra/numlib/examples/invgpdex.pas svneol=native#text/plain
 packages/extra/numlib/examples/invgsyex.dat -text
 packages/extra/numlib/examples/invgsyex.pas svneol=native#text/plain
+packages/extra/numlib/examples/iomrewrsex.pas svneol=native#text/plain
 packages/extra/numlib/fpmake.pp svneol=native#text/plain
 packages/extra/numlib/int.pas svneol=native#text/plain
 packages/extra/numlib/inv.pas svneol=native#text/plain

packages/extra/numlib/examples/iomrewrsex.pas

@@ -0,0 +1,25 @@
+program iomrewrsex;
+
+{$mode objfpc}{$H+}
+
+uses
+  typ, iom, inv;
+
+var
+  A : array[1..10,1..10] of arbfloat;
+  i : longint;
+  j : longint;
+  s : ArbString;
+  n, m: longint;
+begin
+  iomrems('{1 2}{3 4}{5 6}', A[1,1], m, n, 10);
+
+  for i:= 1 to m do
+    for j:= 1 to n do
+      writeln('A[',i,',',j,'] = ',A[i,j]);
+
+  { Print matrix A }
+  iomwrms(s, A[1,1], m, n, 2, 10);
+  writeln('A = ', s);
+end.
+