summaryrefslogtreecommitdiff
path: root/omega/examples/old_test/m12.oc-rt
diff options
context:
space:
mode:
authorDerick Huth <derickhuth@gmail.com>2014-10-06 12:42:34 -0600
committerDerick Huth <derickhuth@gmail.com>2014-10-06 12:42:34 -0600
commit8d73c8fcc75556c1df71dd39dd99783f8f86fc3e (patch)
tree157d627863d76a4c256a27cae27ce2e8566c7ea0 /omega/examples/old_test/m12.oc-rt
parente87b55ad69f0ac6211daae741b32c8ee9dcbe470 (diff)
parent8c646f24570079eac53e58fcf42d0d4fbc437ee3 (diff)
downloadchill-8d73c8fcc75556c1df71dd39dd99783f8f86fc3e.tar.gz
chill-8d73c8fcc75556c1df71dd39dd99783f8f86fc3e.tar.bz2
chill-8d73c8fcc75556c1df71dd39dd99783f8f86fc3e.zip
Merge pull request #2 from dhuth/master
Moved omega into chill.
Diffstat (limited to 'omega/examples/old_test/m12.oc-rt')
-rw-r--r--omega/examples/old_test/m12.oc-rt54
1 files changed, 54 insertions, 0 deletions
diff --git a/omega/examples/old_test/m12.oc-rt b/omega/examples/old_test/m12.oc-rt
new file mode 100644
index 0000000..ab5953b
--- /dev/null
+++ b/omega/examples/old_test/m12.oc-rt
@@ -0,0 +1,54 @@
+# Omega Calculator v1.2 (based on Omega Library 1.2, August, 2000):
+# symbolic n,m;
+#
+# I1 := {[1,1:n,1:m,0]};
+#
+# I2 := {[2,1:n,0,0]};
+#
+# I3 := {[3,1:m,1,1:n]};
+#
+# I4 := {[3,1:m,2,1:n]};
+#
+# I5 := {[4,1:m,0,0]};
+#
+# codegen I1;
+if (m >= 1) {
+ for(t2 = 1; t2 <= n; t2++) {
+ for(t3 = 1; t3 <= m; t3++) {
+ s1(1,t2,t3,0);
+ }
+ }
+}
+
+#
+# codegen I1,I1,I2,I2,I3,I3,I4,I4,I5,I5;
+if (m >= 1) {
+ for(t2 = 1; t2 <= n; t2++) {
+ for(t3 = 1; t3 <= m; t3++) {
+ s1(1,t2,t3,0);
+ s2(1,t2,t3,0);
+ }
+ }
+}
+for(t2 = 1; t2 <= n; t2++) {
+ s3(2,t2,0,0);
+ s4(2,t2,0,0);
+}
+if (n >= 1) {
+ for(t2 = 1; t2 <= m; t2++) {
+ for(t4 = 1; t4 <= n; t4++) {
+ s5(3,t2,1,t4);
+ s6(3,t2,1,t4);
+ }
+ for(t4 = 1; t4 <= n; t4++) {
+ s7(3,t2,2,t4);
+ s8(3,t2,2,t4);
+ }
+ }
+}
+for(t2 = 1; t2 <= m; t2++) {
+ s9(4,t2,0,0);
+ s10(4,t2,0,0);
+}
+
+#