From e4b20015a4ee35f1279af4caa983478fa2ff0d4a Mon Sep 17 00:00:00 2001
From: dhuth <derickhuth@gmail.com>
Date: Mon, 6 Oct 2014 11:56:47 -0600
Subject: Added omega to source

---
 omega/examples/old_test/p.delft | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 omega/examples/old_test/p.delft

(limited to 'omega/examples/old_test/p.delft')

diff --git a/omega/examples/old_test/p.delft b/omega/examples/old_test/p.delft
new file mode 100644
index 0000000..27840a2
--- /dev/null
+++ b/omega/examples/old_test/p.delft
@@ -0,0 +1,22 @@
+# Generate local code for this HPF code fragment
+# !HPF$ template T(0:150,0:150)
+# !HPF$ align X(I,J) with T(3*I,3*J)
+A := { [i,j] -> [3i,3j] };
+# !HPF$ processors P(0:3, 0:3)
+# !HPF$ distribute
+# !HPF$  T(cyclic(4), cyclic(4)) onto P
+D := { [t1,t2] -> [p1,p2,c1,c2,l1,l2] :
+		t1 = 16c1+4p1+l1 
+		&& t2 = 16c2+4p2+l2 
+		&& 0 <= p1,p2 <= 3
+		&& 0 <= l1,l2 <= 3 };
+#      do I = 0, 14
+#         Y(I,I) = 1.0
+#      enddo
+I := { [i] : 0 <= i <= 14 };
+X := { [i] -> [i,i] };
+R := D(A(X(I)));
+R;
+symbolic P1,P2;
+selectLocal := {[P1,P2,c1,c2,l1,l2] -> [c1,c2,l1,l2]};
+codegen selectLocal(R);
-- 
cgit v1.2.3-70-g09d2