diff options
| author | dhuth <derickhuth@gmail.com> | 2014-08-27 09:52:06 -0600 |
|---|---|---|
| committer | dhuth <derickhuth@gmail.com> | 2014-08-27 09:52:06 -0600 |
| commit | bff810cc371a38f493d688c54f71013f5a7d53bf (patch) | |
| tree | fbe86954bb3c01deb21da9e41ebff5baa2889a45 /examples/fortran/gemm.script | |
| download | chill-bff810cc371a38f493d688c54f71013f5a7d53bf.tar.gz chill-bff810cc371a38f493d688c54f71013f5a7d53bf.tar.bz2 chill-bff810cc371a38f493d688c54f71013f5a7d53bf.zip | |
Initial commit
Diffstat (limited to 'examples/fortran/gemm.script')
| -rw-r--r-- | examples/fortran/gemm.script | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/examples/fortran/gemm.script b/examples/fortran/gemm.script new file mode 100644 index 0000000..01eb859 --- /dev/null +++ b/examples/fortran/gemm.script @@ -0,0 +1,30 @@ +#matrix multiply large array size for intel machine +source: gemm.f90 +procedure: gemm +format: rose +loop: 0 + +TI = 128 +#TI = 4 +TJ = 8 +#TK = 3 +TK = 512 +UI = 2 +UJ = 2 + +permute([3,1,2]) +tile(0,2,TJ) +#print space +tile(0,2,TI) +#print space +tile(0,5,TK) +#print space + + +datacopy(0,3,A,false,-1) +#print space + +datacopy(0,4,B) +unroll(0,4,UI) +unroll(0,5,UJ) + |