--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/python/l2r.py	Fri May 27 14:24:59 2011 +0530
@@ -0,0 +1,19 @@
+#!/usr/bin/python
+from transp import transp
+from left_prm import left_prm
+
+def l2r(N, degN, D, degD):
+    # given Num and Den polynomial matrices in left form,
+    # not necessarily coprime, finds right coprime factorisation.
+    N, degN = transp(N, degN)
+    D, degD = transp(D, degD)
+    Rnum, Rnumdeg, Rden, Rdendeg = left_prm(N, degN, D, degD)
+    Rnum, Rnumdeg = transp(Rnum, Rnumdeg)
+    Rden, Rdendeg = transp(Rden, Rdendeg)
+
+    Rnum = Rnum.squeeze()
+    Rden = Rden.squeeze()
+    return Rnum, Rnumdeg, Rden, Rdendeg
+
+
+