summaryrefslogtreecommitdiff
path: root/omega/examples/old_test/m12.oc-rt
diff options
context:
space:
mode:
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);
+}
+
+#