diff options
Diffstat (limited to 'omega/examples/old_test/m12.oc-rt')
-rw-r--r-- | omega/examples/old_test/m12.oc-rt | 54 |
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); +} + +# |