diff options
| author | Wojtek Kosior <kwojtus@protonmail.com> | 2019-04-22 21:43:26 +0200 |
|---|---|---|
| committer | Wojtek Kosior <kwojtus@protonmail.com> | 2019-04-22 21:43:26 +0200 |
| commit | 5a492e2abd1a946136fa5424c0519221cdb450f8 (patch) | |
| tree | 425eb7966ae90d154f462453d23548dbf8ea5d52 | |
| parent | df8ab71ba8355a0da378d1d7282ed5c9a93307cf (diff) | |
| download | fortran-assignment1-5a492e2abd1a946136fa5424c0519221cdb450f8.tar.gz fortran-assignment1-5a492e2abd1a946136fa5424c0519221cdb450f8.zip | |
add dotmat module boilerplate
| -rw-r--r-- | CMakeLists.txt | 1 | ||||
| -rw-r--r-- | src/dotmath.F90 | 15 |
2 files changed, 16 insertions, 0 deletions
diff --git a/CMakeLists.txt b/CMakeLists.txt index 39580b1..cd3dc18 100644 --- a/CMakeLists.txt +++ b/CMakeLists.txt @@ -68,6 +68,7 @@ set(SRC src) set(mull_SRC
${SRC}/naivemath.F90
${SRC}/bettermath.F90
+ ${SRC}/dotmath.F90
${SRC}/main.F90
)
diff --git a/src/dotmath.F90 b/src/dotmath.F90 new file mode 100644 index 0000000..e27929c --- /dev/null +++ b/src/dotmath.F90 @@ -0,0 +1,15 @@ +MODULE dotmat + IMPLICIT none + PRIVATE + + PUBLIC :: dotmull + PRIVATE :: dotmull_4, dotmull_8, dotmull_16 + + INTERFACE dotmull + procedure dotmull_4, dotmull_8, dotmull_16 + END INTERFACE dotmull + +CONTAINS + + +END MODULE dotmat |